VERIFICAR SE O CLIENTE JA ESTA CADASTRADO NO TEXT.

NILTON.VIANNA 09/08/2009 23:43:51
#319411

[ô]oq estou tentando fazer é pesquisar na hora do cadastro, na parte do campo nome automaticamente disparar
Se o nome do paciente já existe.
--------------------------------------


Private Sub txtNome_GotFocus()
SelecionaTexto txtNome
End Sub
Private Sub txtNome_LostFocus()
If Trim(txtNome <> [Ô][Ô]) Then
txtNome = Maiuscula(txtNome)
End If

[ô][ô] MOSTRA CLIENTE DUPLICADO
Dim ClienteID As Long
ClienteID = Val(txtClienteID.Text)
RS.Open [Ô]SELECT Nome FROM CadCliente WHERE Nome[Ô]
If RS.EOF Then
MsgBox [Ô]Cliente Já cadastrado[Ô]
RS.Close
Exit Sub
End If
RS.Close
End Sub

MAUTATTOO 10/08/2009 09:19:58
#319425

[ô][ô][ô]CRIE UMA TABELA AUXILIAR E VEJA ABAIXO:

DtAuxCliente.Recordset.FindFirst [Ô]CPF = [ô][Ô] + CStr(TxtCPF.Text) + [Ô][ô][Ô]
If Not DtAuxCliente.Recordset.NoMatch Then
ncod = DtAuxCliente.Recordset([Ô]CODIGO[Ô])
If ncod <> TxtCodigo Then
MsgBox ([Ô]CPF/CNPJ já cadastrado pelo Cliente Código [Ô] + CStr(ncod) + [Ô] !!![Ô])
MskCpf.Text = [Ô]___.___.___-__[Ô]
MskCpf.SetFocus
Exit Sub
End If
End If