[Resolvido]nao duplicar registro em dois ou mais campos no formulario

olá a todos , estou com problemas que é o seguinte: tenho um cadastro de pessoas, que nesse cadastro a esposa se cadastra e tb pede o nome do conjugue
só que eu gostaria que apenas uma pessoa de cada familia se cadastrasse , por exemplo: qd a esposa se cadastrasse ela informa o nome do marido, e qdo o marido viesse tb se cadastrar , me informar que a esposa dele ja se cadastrou,
já olhei aqui no forum varias maneiras  de nao duplicar registro , mas nenhuma serviu pra min, ou entao nao procurei direito , mas se alguem puder me ajudar fico muito agradecido

tenho o campo nome da pessoa
e tambem o campo nome  do conjugue , gostaria que esses dois campos me informasse, pra nao cadastrar a pessoa qu efoi cadastrada como conjugue

Boa noite Bell. Pesquise "Não duplicar registro"
um ideia que pode te ajudar é;  ao cadastrar o sistema pede o nome e o CPF, quando a esposa se cadastra,  ela cadastrasse o CPF dela e do marido. Assim se o marido viesse o sistema verifica o cpf dos 2 .
O Que importa para o sistema é o CPF que é número único o nome pode dá zebra por causa de acentos e caracteres especiais.
Na tabela cadastro com os seguintes campos

NomeDaEsposa CPFDaEsposa    NomeDoMarid    CPFDoMarido

Sendo que o sistema não deixe os campos em branco.

ótimo , mas como eu faço isso? pq eu ja coloquei 4 chaves primarias

ai está a imagen no anexo

Voce não precisa de tudo isso.
Da uma pesquisado sobre "Não duplicar dados"

oi, tem como vc me ajudar, achei somente esse exemplo, mas sempre da erro nessa linha - Set rs = CurrentDb.OpenRecordeset(sql)

pediu para colocar aspas no final , eu coloquei mas ainda da erro , me diz onde estou errando. por favor




Private Sub BTNSALVAR_Click()
Dim rs As DAO.Recordset
Dim sql As String

sql = ("select * from Tblcadalunos = " & NomeAlunos & " and Texto119 = " & campoform2 & " and campo3 = " & campoform3 & "") ' aqui vai verificar os campos do registo
Set rs = CurrentDb.OpenRecordeset(sql)

If rs.RecordCount = 1 Then
MsgBox " registo ja existe"
Me.Undo
Else
Deixa inserir registo
End If

desculpa , ainda nao consegui !! nao sou bom em access , rsrsrsrsrsrs

oi, fiz alguns testes e ficou assim , no campo NomeAlunos , evento antes de atualizar usei esse codigo , obrigado a todos


Private Sub NomeAlunos_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.NomeAlunos.Value
stLinkCriteria = "NOMEdoResponsável= '" & Busca & "'"
If DCount("NomeAlunos", "tblcadalunos", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o registro " _
& Busca & " já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing



Busca = Me.NomeAlunos.Value
stLinkCriteria = "NomeAlunos= '" & Busca & "'"
If DCount("NomeAlunos", "tblcadalunos", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o registro " _
& Busca & " já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing

foi resolvido