HELP!!!!
Tenho um banco de dados para cadastro de pessoas. Gostaria de evitar a duplicidade de registros no campo "nome"...usei um dos códigos que encontrei nos fóruns mas a rotina retorna a msgbox e não permite continuar o registro seja o valor inserido duplicidade ou não.
Abusando do conhecimento e apoio dos colegas, gostaria também de que aceitasse homônimos, mas o único campo que poderia distinguir a pessoa cadastrada seria a "data de nascimento"
Nome da Tabela: DadosPessoais_tbl
Nome do campo: Nome
Nome do txtbox: txt_nome
Private Sub txt_nome_BeforeUpdate(Cancel As Integer)
If Me!txt_nome = Me!txt_nome.OldValue Then Exit Sub
If Not IsNull(DLookup("[nome]", "DadosPessoais_tbl", "[nome] ='" & Me!Nome & "'")) Then
Cancel = True
txt_nome.Undo
MsgBox "Registro Existente! Caso se trate de pessoas com nome idêntico sinalize acrescentando um asterisco após digitar o nome do assistido."
End If
End Sub
Tenho um banco de dados para cadastro de pessoas. Gostaria de evitar a duplicidade de registros no campo "nome"...usei um dos códigos que encontrei nos fóruns mas a rotina retorna a msgbox e não permite continuar o registro seja o valor inserido duplicidade ou não.
Abusando do conhecimento e apoio dos colegas, gostaria também de que aceitasse homônimos, mas o único campo que poderia distinguir a pessoa cadastrada seria a "data de nascimento"
Nome da Tabela: DadosPessoais_tbl
Nome do campo: Nome
Nome do txtbox: txt_nome
Private Sub txt_nome_BeforeUpdate(Cancel As Integer)
If Me!txt_nome = Me!txt_nome.OldValue Then Exit Sub
If Not IsNull(DLookup("[nome]", "DadosPessoais_tbl", "[nome] ='" & Me!Nome & "'")) Then
Cancel = True
txt_nome.Undo
MsgBox "Registro Existente! Caso se trate de pessoas com nome idêntico sinalize acrescentando um asterisco após digitar o nome do assistido."
End If
End Sub