Tenho uma tabela que é acessada através de um formulário. O campo data do formulário, antes de ser atualizado, checa se a data inserida já está cadastrada. O resultado é o esperado, porém, algumas datas passar batido. Como se o código as ignorasse. Funciona normalmente com a maioria das datas, mas, com algumas, é como se elas simplesmente não tivesse cadastradas.
Private Sub cli_nome_BeforeUpdate(Cancel As Integer)
If DCount("*", "tbl_clientes", "cli_data=#" & Me.cli_data & "#") <> 0 Then 'se fosse texto, ao invés de #s, 's é que seriam usadas
MsgBox "a data " & Me.cli_data & " já tem", vbInformation, "Atenção"
Cancel = True
End If
End Sub