Erro de compilação

Prezados, estou tentando um programa enviado por um amigo JPaulo, um controle de refeitório e está dando a seguinte mensagem:
"Erro de compilação, na expressão de consulta '((([tbl_cadastro horas entrada].data)=Date() AND (([tbl_cadastro horas entrada]. Def) like [Formulários]![Marcação Barras]![Def] & "*")'.

Alguém pode me ajudar?.

Olá Clecio,

Poste o bd com o problema mencionado.

Amigo, ver se com este arquivos você consegue me ajudar.

O seu Access é 64 bits?

Se for, no código do formulário FrmCadastro, voce deve colocar o "PtrSafe" na declaração:


Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Declare PtrSafe Function GetFocus Lib "user32" () As Long

Em seguida, vá ao menu Depurar>>Compilar Database2
Obs: Ao tentar compilar a aplicação, vai gerar outro erro: uma variável global que não foi localizada. É necessário declará-la (Global as )

Espero ter ajudado.

Boa sorte

Alexandre, obrigado pela ajuda, ainda sou leigo em access, como devo fazer para inderir os códigos e declarar?

Olá Clecio,

Segue o anexo.