التاكد التكرار من 3 حقول

من الممكن أخي استخدام كود مثل التالي في حدث BeforeUpdate للنموذج:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim sName As String

    sName = Me.name1 & " " & Me.name2 & " " & Me.name3
    If Nz(DCount("*", "Table1", "name1 & ' ' & name2 & ' ' & name3 = '" & sName & "'"), 0) > 0 Then
        MsgBox "هذا الاسم مكرر... لا يمكن الحفظ", vbExclamation
        Cancel = True
    End If
End Sub

والله أعلم...

أحمد مبارك الحيقي كتب:

من الممكن أخي استخدام كود مثل التالي في حدث BeforeUpdate للنموذج:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim sName As String

    sName = Me.name1 & " " & Me.name2 & " " & Me.name3
    If Nz(DCount("*", "Table1", "name1 & ' ' & name2 & ' ' & name3 = '" & sName & "'"), 0) > 0 Then
        MsgBox "هذا الاسم مكرر... لا يمكن الحفظ", vbExclamation
        Cancel = True
    End If
End Sub

والله أعلم...

عاشت يديك الاجابة مضبوطة و رحم الله والديك دنيا و اخرة