estou montando um projeto e desenvolvi um cadastro de cliente, na qual tenho um fields que e preenchida se o cliente estiver em debito ou nao com a empresa.

quero aprender a montar uma pesquisa na qual quando eu digitar o codigo do cliente, se o mesmo estiver com debito com a empresa , aparecera uma mensagem na tela, no qual o cliente esta em debito, assim porem o faturamento so sera liberado, com a autorizaçao do gerente.

 

Obrigado

 

Ribeiro 

 

 

Tente isto:

 

Private Sub Text1_LostFocus()
  On Error GoTo Erro
  If Len(Text1.Text) = 0 Then
    Exit Sub
  End If
  If rs_cadcli!EstaEmDebito = "S" Then
    MsgBox "O Cliente tem débitos pendentes !", vbOKOnly, "Atenção"
    Exit Sub
  End If
  Exit Sub
Erro:
  Screen.MousePointer = vbDefault
  MsgBox "Ocorreu o erro nº " & Err.Number & vbCr & vbCr & Err.Description, 64, "Atenção"
  Err.Clear
End Sub