- Código:
Dim VerificarExiste As Recordset
strSQL = "SELECT CodigoCliente, Quitado FROM tblReceitas WHERE CodigoCliente = " & Me.txtCodigoCliente & " And Quitado = " & Em Aberto & """"
Set VerificarExiste = CurrentDb.OpenRecordset(strSQL)
If VerificarExiste.RecordCount <> 0 Then
MsgBox "Já existe registro com esse número.", vbInformation, "Erro"
End If
A sintaxe acima esta com um erro e não como corrigir alguem pode me ajudar?
Eu quero verificar na tblReceitas os campos CodigoCliente e Quitado ( as contas em Aberto).