Boa tarde SRs
Esbarrei em um problema que nao consigo solucionar, entao depois de quebrar a cabeca resolvi solicitar ajuda de voces, tenho a tabela tblDono onde tem as informações do dono animal(é um sistema para clinica veterinaria). e outra tabela com os dados do animal, ate ae ok. Minha Duvida! gostaria de saber quando eu digitar o nome do Cliente informa se ja existe o registro(ate ae consegui) mas gostaria que caso exista este cliente os campo como endereco, cidade, etc fosse preenchido...existe alguma forma ?o codigo que uso para informar se exite o registro é esse
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If DCount("codidono", "tbldono", "Nome =""" & Me!Nome & """") > 0 Then
'A função DCount() contou um ou mais registros existentes
MsgBox "O Cliente " & Me!Nome & " já existe...", vbInformation, "Cliente ja registrado"
Me.Undo 'Limpa o campo
Cancel = True 'mantém o foco no campo.
End If
End Sub
ja agradeço antecipado
obrigado
Esbarrei em um problema que nao consigo solucionar, entao depois de quebrar a cabeca resolvi solicitar ajuda de voces, tenho a tabela tblDono onde tem as informações do dono animal(é um sistema para clinica veterinaria). e outra tabela com os dados do animal, ate ae ok. Minha Duvida! gostaria de saber quando eu digitar o nome do Cliente informa se ja existe o registro(ate ae consegui) mas gostaria que caso exista este cliente os campo como endereco, cidade, etc fosse preenchido...existe alguma forma ?o codigo que uso para informar se exite o registro é esse
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If DCount("codidono", "tbldono", "Nome =""" & Me!Nome & """") > 0 Then
'A função DCount() contou um ou mais registros existentes
MsgBox "O Cliente " & Me!Nome & " já existe...", vbInformation, "Cliente ja registrado"
Me.Undo 'Limpa o campo
Cancel = True 'mantém o foco no campo.
End If
End Sub
ja agradeço antecipado
obrigado