[Resolvido]Run-time error '3075'

Olá a todos,

Estou com um problema que gostaria muito se pudessem ajudar.
Tenho um formulário (f_GuiaEntrega) que ao inserir o nº. da guia no campo (GuiaEntrega) e se o número existir envia a mensagem a dizer que já existe e até aqui tudo bem.
O problema que surge é que se introduzir o nº e depois o apagar e sair do formulário envia a seguinte mensagem de erro:

Run-time error '3075'
Erro de sintaxe (operador em falta) na expressão de consulta 'GuiaEntrega ='.

Tenho o seguinte código no evento Antes de actualizar do campo GuiaEntrega

Private Sub GuiaEntrega_BeforeUpdate(Cancel As Integer)
If DCount("*", "t_GuiaEntrega", "GuiaEntrega =" & Me!GuiaEntrega) = 1 Then
'A função DCount() contou um ou mais registros existentes
MsgBox "A Guia de Entrega com o nº.: " & Me!GuiaEntrega & " que inseriu já existe... Insira NOVO Nº. para a Guia de Entrega.", vbCritical, "Atenção"
Cancel = True 'cancela o evento.
Me!GuiaEntrega.Undo 'desfaz a digitação.
Exit Sub
End If

End Sub


Podem ajudar?
Obrigado.

Simples. Basta usar mais uma condicional.

Private Sub GuiaEntrega_BeforeUpdate(Cancel As Integer)

   'se o campo estiver vazio/nulo então interrompe o código
   if isnull(me!guiaEntrega.value) then exit sub

   If DCount("*", "t_GuiaEntrega", "GuiaEntrega =" & Me!GuiaEntrega) = 1 Then
       'A função DCount() contou um ou mais registros existentes
       MsgBox "A Guia de Entrega com o nº.: " & Me!GuiaEntrega & " que inseriu já existe... Insira NOVO Nº. para a Guia de Entrega.", vbCritical, "Atenção"
       Cancel = True 'cancela o evento.
       Me!GuiaEntrega.Undo 'desfaz a digitação.
       Exit Sub
   End If

End Sub

Olá Damasceno

Mais uma vez muitíssimo obrigado.
Deu certo.
Grato pela sua ajuda.

O fórum agradece o retorno. Sucesso.