[Resolvido]Evitar duplicidade com mais de um critério

Senhores, bom dia.

Em tópico anterior, recebi informações precisas para evitar o agendamento de eventos para a mesma data e hora.
Minha necessidade é poder efetuar o agendamento com a mesma data e hora para profissionais diferentes.
Exemplo:
Na data de 15/03/2018 10:00 - Agendamento para o Usuário 01 com o profissional 03
mesma data: 15/03/2018 10:00 - Agendamento para o Usuário 02 com o Profissional 01
Peço, novamente, seu auxilio.
Muito obrigado.

Antonio Aurélio

Olá, pegue o Critério que ja tem, e adicione mais uma condição!


rs.FindFirst "DataDoAgendamento = #" & Format(DataDoAgendamento, "m-d-yy hh : mm : ss") & "# AND Usario = '" & Me.NomeCampoUsuario & "'"


Usuario= É o nome do Campo onde armazena o Usuário.
Me.NomeCampoUsuario é onde tem o Nome do Usuário selecionado para verificar se ja tem agendamento pra data e usuário selecionado.

Adicione mais quantos critérios precisar, utilizando o AND ou OR.


rs.FindFirst "DataDoAgendamento = #" & Format(DataDoAgendamento, "m-d-yy hh : mm : ss") & "# AND Usario = '" & Me.NomeCampoUsuario & "' adicione aqui os outros critérios...tudo antes dessa Aspas, que é o fechamento da Primeira aspas destacada em vermelho..."

Senhores, bom dia,

Sr. Fábio, bom dia.

Obrigado pela ajuda.
Infelizmente ainda não consegui meu intento.
Independente de ser o mesmo profissional, recebo a seguinte mensagem:
"Erro em tempo de Execução '3464': Tipo de Dados incompatível na expressão de critério."
Penso que o erro (às vezes erros de sintaxe), é porque busco os profissionais em caixa de combinação.
Seguindo as orientações, ficou assim meu código (Antes de Atualizar do campo "Funcionário"):

Private Sub Funcionário_BeforeUpdate(Cancel As Integer)
   
   Dim rs As Recordset
   Set rs = Me.RecordsetClone
   
'    rs.MoveFirst
   
   rs.FindFirst "DataDoContato = #" & Format(DataDoContato, "m-d-yy hhss") & "# AND Funcionário = '" & Me.Funcionário & "'"


   If Not rs.NoMatch Then
      MsgBox "Agendamento para a Data ' " & DataDoContato.Text & " ' já existe.", vbInformation, "AGENDA"
 
      Cancel = True

   End If
Set rs = Nothing

End Sub

Tentei fazer referência a tabela Funcionários, buscando o "CódigoDoFuncionário" ou mesmo o "NomeDoFuncionário", mas, não consegui.

Agradeço, novamente, pela ajuda.

Muito obrigado.

Antonio Aurélio

---------------------------------------------------
Sr. Fábio, boa tarde.

Consegui evitar duplicidade com dois critérios, porém, não estou conseguindo realizar com três critérios mesmo utilizando suas orientações.

Tentei encontrar onde estou errando, mas, sem sucesso.

Estou utilizando o este código:

Private Sub DataAção_BeforeUpdate(Cancel As Integer)

Dim rs As Recordset
Set rs = Me.RecordsetClone


rs.FindFirst "DataAção = #" & Format(DataAção, "m-d-yy ") & "# AND CódigoDoProduto = " & Me.CódigoDoProduto & " &" And Profissional = " & Me.Profissional & """


If Not rs.NoMatch Then

MsgBox "Ação já realizada pelo Profissional nesta Data'", vbInformation, "AÇÕES"

Cancel = True

End If
Set rs = Nothing

Às vezes a mensagem de erro é de sintaxe, faço algumas alterações e recebo a mensagem de "Tipo não compatível.

Peço, por favor, ajuda.

Muito obrigado.

Antonio Aurélioi

Tipos de dados incompatíveis, significa que esta informando Texto e o campo na tabela está como Numero... OU o contrário.

Mude para:


rs.FindFirst "DataDoContato = #" & Format(DataDoContato, "m-d-yy hh:ss") & "# AND Funcionário = " & Me.Funcionário & ""


Foi Removido a 'no inicio e no fim' do critério adicionado

Boa tarde.

Senhor Fabio, boa tarde.

O código funcionou da maneira como necessito.
Muito obrigado.
Estou encerrando o tópico agradecendo.
Muito obrigado.

Antonio Aurélio

Grato pelo retorno e até a próxima se Deus quiser!