Erro em tempo de execução 3075

Erro de sintaxe (operador faltando) na expressão de consulta 'IDContato = '.

Essa é clássica, mas na verdade que queria resolver esse problema de uma vez por todas sem ter que recorrer a soluções alternativas.

Código:

Private Sub ClientePreenchido_AfterUpdate()

    Dim intIDContato As Integer

   'Solução alternativa   
    If Me.ClientePreenchido.Column(2) = "" Then
        MsgBox "Contato vazio"
        Exit Sub
    End If
   
    'Dá erro 3075 quando o DLookup não acha nada.
    intIDContato = DLookup("IDContato", "Contatos", "IDContato = " & Me.ClientePreenchido.Column(2))
   
    If Me.ClientePreenchido.ListIndex <> -1 Then
        If IsEmpty(intIDContato) Then
            MsgBox "Contato não existe"
        Else
            Me.ContatoDoClientePreenchido = intIDContato
        End If
        Me.Rotulo2.Visible = True
    End If
   
End Sub


Preciso resolver o problema de valor nulo no DLookup definitivamente.

O tipo de dados na tabela está como número?

Não precisa ter espaços entre o sinal de igual e as aspas.

intIDContato = DLookup("IDContato", "Contatos", "IDContato=" & Me!ClientePreenchido.Column(2))

Mas tenho outra dúvida!

Esse 'IDContato' que você busca na tabela 'Contatos', é igual a coluna da combo?

Não serve só carregar a variável com o conteúdo da coluna da combo?

Nossa Leandro, realmente, seria mais inteligente eu já "pegar" a informação direto da combo.
E realmente, é número mesmo.
Só que mesmo assim, não só para este caso, mas para todos os demais de Dlookup, como eu faria caso desse retorno nulo?

Independente da sua resposta o problema já estaria resolvido como voce sugeriu.

Basicamente você deve seguir as regras de critério.

Número:

intIDContato = DLookup("IDContato", "Contatos", "IDContato=" & Me!ClientePreenchido.Column(2))

Texto:

intIDContato = DLookup("IDContato", "Contatos", "IDContato='" & Me!ClientePreenchido.Column(2) & "'")

Data:

intIDContato = DLookup("IDContato", "Contatos", "IDContato=#" & Me!ClientePreenchido.Column(2) & "#")


Por favor não esqueça o Resolvido

Abraço

Quase resolvido.
Mas e a pergunta principal?
Como corrigir o erro 3075 quando retorna um valor nulo?

Coloque depois do Private:

On error resume next