Avreibisogno di un aiuto per costruire un

controllo per verificare se in tabella ci sono due record uguali prima di inserirli da maschera

Ho una maschera "MscAccertamenti" con una sottomaschera "SubMscAccertamenti" dove ho inserito queste righe di codice

Private Sub Form_Open(Cancel As Integer)

Set Me.Figlio1.Form.Recordset = Me.Recordset

End Sub

inoltre ho inserito questo comando per ricercare i record

Private Sub Cmd_TrovaAcc_Click()
Dim strCodAccertRef As String
Dim CodAccert As Variant
Dim strcercacc As Variant
Dim strCodaccert As Variant
'With CodAccert
If IsNull(Me![TxtCercAcc]) Or (Me![TxtCercAcc]) = "" Then
MsgBox "Digita il valore!", vbOKOnly, "Criteri di ricerca non validi!"
'Else
Exit Sub
End If
Me!CodAccert.SetFocus
If Me!TxtCercAcc <> Me!CodAccert Then
MsgBox "Accertamento non trovato"
Else
DoCmd.FindRecord Me!TxtCercAcc
MsgBox "Accertamento Trovato" & strCodaccert, , "Congratulazioni"
End If

'End With
Exit Sub

End Sub


avrei bisogno di creare del codice oppure una macro che mi consenta di verificare se al momento che salvo il record aggiunto
per un nuovo inserimento da maschera mi controlli che l'insieme dei campi tutti non siano presenti; dico tutti perché potrei
avere dei campi uguali su due record ma almeno uno si differenzia però non è mai lo stesso
per una maggiore comprensione vi posto il db

http://www.2shared.com/file/FopoMUeP/20131.html

grazie