ضع هذا الكود قبل التحديث وغير مسميات الجداول والحقول
Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("[اسم الحقل]", "اسم الجدول", "[اسم الحقل]='" & Me!اسم الحقل في النموذج & "' AND [اسم الحقل الثاني]='" & Me!اسم الحقل الثاني في النموذج & "'AND [اسم الحقل الثالث]='" & Me!اسم الحقل الثالث في النوذج & "'") > 0 Then
MsgBox "duplicated fields", vbExclamation
Me.Undo
Cancel = True
End If
End Sub