عدم تكرار الاسم والشهرة واسم الاب واسم الام

[Tarekfathallah]

السلام عليكم 

برجاء المساعدة اريد عدم تكرار اسم والشهرة واسم الاب واسم الام وفي حال تكراره العودة الى الرقم الاصل 

وشكرا 

جورج الطويل تعديل 2 .accdb

[ابو جودي]

وهذا ان شاء الله يلبى طلبك

 

[Moosak]

6 دقائق مضت, Moosak said:

أهلا بك أخي طارق 🙂 

استخدمت هذا الكود في حدث قبل التحديث للنموذج :

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim checkDuplicates As Integer

checkDuplicates = DCount("*", "[T_takrir]", "[namee] Like '*" & [Forms]![F_takrir1]![namee] & "*' " & _
                                                " And [family] Like '*" & [Forms]![F_takrir1]![family] & "*' " & _
                                                " And [father] Like '*" & [Forms]![F_takrir1]![father] & "*' " & _
                                                " And [mather] Like '*" & [Forms]![F_takrir1]![mather] & "*' ")
If checkDuplicates > 1 Then
    MsgBox "هذا الشخص مسجل من قبل", vbInformation, "تكرار"
    Cancel = True
Else
End If

End Sub

جربه وأخبرني بالنتيجة 🙂 

 

 

جورج الطويل تعديل 2 .accdb 1.84 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

 

[Eng.Qassim]

اعتقد باني اجبتك عن سؤالك في مشاركتك السابقة

واليك النموذج

 

جورج الطويل.accdb

[Tarekfathallah]

7 ساعات مضت, Eng.Qassim said:

اعتقد باني اجبتك عن سؤالك في مشاركتك السابقة

واليك النموذج

 

جورج الطويل.accdb 1.83 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 20 downloads

تمام تسلم ايديك