[Resolvido]Contar 2 criterios

Boa noite

Onde estou a errar ?

Campo "Doc" é número.

Campo "PorContaDe" é texto.


If DLookup("Doc", "Adiantado", "Doc = " & Me.Doc) And DLookup("PorContaDe", "Adiantado", "PorContaDe = '" & Me.PorContaDe & "'") > 0 Then


Obrigado

Boa noite,

Veja o seguinte:

Se Doc é número, então o primeiro Dlookup retorna um número, por exemplo 5.
Se PorContaDe é texto, então o segundo Dlookup retorna um texto, por exemplo Assis.

Então, o If traduzindo os dois dlookups fica assim:

If 5 And "Assis" > 0 Then

Aí gera erro, pois o 5 [u]não está sendo comparado com nada e "Assis" está sendo comparado com número (Assis > 0).

Bom dia Amigos

Estou a tentar detetar para não deixar repetir na tabela "Adiantado" os campos assinalados com circulo na imagem.

Assim não resulta ..

Campo "Doc" é tipo numero.

Campo "porcontade" é texto

If DCount("[Doc]", "Adiantado", "[Doc] =" & Me.Doc & "  and porcontade = " & Me!PorContaDe) > 0 Then



Obrigadp

Quem conta não é o Dlloku e sim o Dcount.
Não sei a logica do seu banco, mas tnte assim. Caso não dê certo, nos passe mais detalhes com nomes de todos objetos envolvidos.

Tente assim:

If DCount("Doc", "Adiantado", "Doc = " & Me.Doc) > 0 And DCount("PorContaDe", "Adiantado", "PorContaDe = '" & Me.PorContaDe & "'") > 0 Then

Desde já obrigado Marcelo


Não resulta a sua última dica.

Eis a tabela de dados

Nao tinha percebido que era na mesma tabela.
Assim:

If DCount("Doc", "Adiantado", "Doc = " & Me.Doc & " AND PorContaDe='" & Me.PorContaDe & "'") > 0 Then

Marcelo

Resolvido.

Formulário simples e desvinculado.


Private Sub Doc_BeforeUpdate(Cancel As Integer)

Dim Confirma

If DCount("Doc", "Adiantado", "Doc = " & Me.Doc & " AND PorContaDe='" & Me.PorContaDe & "'") > 0 Then

  Confirma = MsgBox("N? Documento PE Nº " & Doc & " Já Existe na Tabela de Adiantamentos " & vbNewLine & "Quer Continuar ?", vbYesNo, "Aviso")

If Confirma = vbYes Then
'Aqui continua se responder Yes
Else

Respondendo "Não" tentei para limpar os campos preenchidos, mas não resulta. É possível ?

 Me.Undo

      Exit Sub

End If
End If

Formulário desvinculado o Undo não funciona.
Terá que limpar uma a um...

Ok Marcelo

Obrigado

Ótimo que deu certo. Grato pelo retorno.