[Resolvido]Detetar campo já preenchido

Boa tarde

Tenho esta informação ao fazer click num botão de comando. Grava a Data na ficha do produto.

CurrentDb.Execute "UPDATE Produtos SET Data= Date() WHERE (ID = " & Me.ID & ")

Queria que se o campo Data já estivesse preenchido me desse a informação e cancelasse a operação.

Testei assim mas não consegui...

If (Not IsNull(DLookup("[Data]", "Produtos", "[Data] Then
MsgBox "A Data já existe na Ficha do Produto.", vbInformation, "Produtos"

Cancel = True 'cancela o evento.
end if

Boa tarde, Assis

Será
If Not IsNull(DLookup("Data", "Produtos", "ID=" & Me.ID)) Then

Fala ae blz?

Você esqueceu de colocar um critério no Dlookup tenta assim:

Código:



If Not IsNull(DLookup("[Data]", "Produtos", "[ID]= " & Me.ID & ")) Then
MsgBox "A Data já existe na Ficha do Produto.", vbInformation, "Produtos"
Exit sub
Else

CurrentDb.Execute "UPDATE Produtos SET Data= Date() WHERE (ID = " & Me.ID & ")
End if



Cruze os dedos e faça o teste!

Falow,

Infelizmente não ficamos sabendo se resolveu o problema ou não!

Bem, como não deu retorno vou passar para resolvido!