(Resolvido) Erro de codigo criterio DLOOKUP

[davidctba]

Olá a todos, eu tenho o seguinte codigo abaixo:

If (Not IsNull(DLookup("[pedido]", "pedidos", "[pedido] ='" & Me!pedido & "'"))) Then

MsgBox "O produto já está cadastrado na tabela Pedidos.", vbInformation, "Pedidos"

Cancel = True 'cancela o evento.

Me!pedido.Undo 'desfaz a digitação.

End If

Pois bem, ele funciona se eu colocar o campo "pedido" da tabela como texto, mas se eu deixa-lo como número como deve ser, ele da erro no codigo, sei que terei de converter ou alterar algo, mais não sei o que... a ideia desse codigo é verificar se o pedido digitado no form já existe na tabela...

alguém pode me ajudar? parece ser facil, mas para mim que não tenho muita experiencia com access e VBA ta complicadinho....

Obrigado;

David

[MrMALJ]

Com numeros você coloca sem as aspas simples.

If (Not IsNull(DLookup("[pedido]", "pedidos", "[pedido] =" & Me!pedido ))) Then

Agradeço se continuar informando quando solucionar suas duvidas!

[davidctba]

Caro MrMALJ,

mais uma vez agradeço a sua atenção e ajuda para solucionar minha duvida...

a simples alteração que você sugeriu que eu fizesse funcionou perfeitamente bem ....

mais um tópico encerrado....

muito Obrigado;

David