Evitar duplicidade com mais de um critério (3 critérios)

Moderador: Avelino Sampaio

Antonio Aurélio
Mensagens: 1
Registrado em: 07 Mar 2018, 18:18

Evitar duplicidade com mais de um critério (3 critérios)

Mensagempor Antonio Aurélio » 06 Ago 2018, 13:44

Senhores, bom dia.

Não consegui resolver meu problema apesar das pesquisar realizadas, o que peço, por favor, sua ajuda.

Campos: "DataAção", "AçãoRealizada"; "Profissional"

Estou tentando a função no campo "Profissional", evento "Antes de Atualizar":

Código: Selecionar todos

Private Sub Profissional_BeforeUpdate(Cancel As Integer)
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
'    rs.MoveFirst
   
    rs.FindFirst "DataAção = #" & Format(DataAção, "m-d-yyyy") & "AND CódigoDaAção = " & Me.CódigoDaAção & " & " And Profissional = " & Me.Profissional & ""#"
 
    If Not rs.NoMatch Then
       MsgBox "Ação já realizada para a Data '", vbInformation, "AÇÕES"     
       Cancel = True
    End If
   
End Sub



Recebe mensagem de erro: "Tipos Incompatíveis", faço alterações, mas, não dá certo.
Peço, por favor, seu auxílio.

Desde já, muito obrigado.

Antonio Aurélio

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1875
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Evitar duplicidade com mais de um critério (3 critérios)

Mensagempor Avelino Sampaio » 06 Ago 2018, 19:52

Antonio,

corrija a seguinte linha

Código: Selecionar todos

...
rs.FindFirst "DataAção = #" & Format(me.DataAção, "m-d-yyyy") & "# AND CódigoDaAção = " & Me.CódigoDaAção & " AND Profissional = '" & Me.Profissional & "'"
...


Nota: estou considerando CódigoDaAção seja do tipo Número e não string. Se for string altere para:

Código: Selecionar todos

...
rs.FindFirst "DataAção = #" & Format(me.DataAção, "m-d-yyyy") & "# AND CódigoDaAção = '" & Me.CódigoDaAção & "' AND Profissional = '" & Me.Profissional & "'"
...


Se ainda não continuar funcionando, experimente alterando o formato da data parar:

Código: Selecionar todos

...
rs.FindFirst "DataAção = #" & Format(me.DataAção, "mm/dd/yyyy") & "# AND CódigoDaAção = '" & Me.CódigoDaAção & "' AND Profissional = '" & Me.Profissional & "'"
...


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================


Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 5 visitantes