رسالة تنبيه

[خالد عبد الغفار]

السلام عليكم ورحمة الله 

بالنموذج حقل ( lgna_1) اقوم فيه بادخال رقم اللجنه والتى تتكرر مرتين بواقع 2 معلم  ارجو اذا كان نوع الاول والثانى أنثى أى = 2 تظهر رساله عند تحديث الحقل برقم اللجنة  تفيد بان المعلمان لا يجوز ان يكون نوعهما = 2 وكذلك الديانة لا يجوز ان يكون المعلمان ديانتهما = 2 

مع شكرى وتقديرى khaled.rar

[kanory]

7 ساعات مضت, خالد عبد الغفار said:

السلام عليكم ورحمة الله 

بالنموذج حقل ( lgna_1) اقوم فيه بادخال رقم اللجنه والتى تتكرر مرتين بواقع 2 معلم  ارجو اذا كان نوع الاول والثانى أنثى أى = 2 تظهر رساله عند تحديث الحقل برقم اللجنة  تفيد بان المعلمان لا يجوز ان يكون نوعهما = 2 وكذلك الديانة لا يجوز ان يكون المعلمان ديانتهما = 2 

وعليكم السلام ورحمة الله ......

تفضل <><><><><><<><>

If DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [gender] =" & [Forms]![tashkeel]![gender] & " ") = 1 Or DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [religion] =" & [Forms]![tashkeel]![religion] & " ") = 1 Then
MsgBox "هناك تكرار في الجنس او الديانة"
Me.lgna_1 = ""
End If

 

[خالد عبد الغفار]

اشكرك استاذى الفاضل بس كنت عاوز كل حاجه لوحدها اذا كان التضارب فى النوع لوحده برساله والديانه لوحدها برساله 

If DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [gender] =" & [Forms]![tashkeel]![gender] & " ") = 1 Or DCount("[teach_cod]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [religion] =" & [Forms]![tashkeel]![religion] & " ") = 1 Then
MsgBox "هناك تكرار في الجنس او الديانة"
Me.lgna_1 = ""
End If

[kanory]

1 ساعه مضت, خالد عبد الغفار said:

بس كنت عاوز كل حاجه لوحدها اذا كان التضارب فى النوع لوحده برساله والديانه لوحدها برساله

تفضل <><><><><><><><><>

If DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [gender] =" & [Forms]![tashkeel]![gender] & "  And [gender] =2 ") = 1 Then
        MsgBox "هناك تكرار في الجنس"
        Me.lgna_1 = ""
ElseIf DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [religion] =" & [Forms]![tashkeel]![religion] & " ") = 1 Then
        MsgBox "هناك تكرار في الديانة"
        Me.lgna_1 = ""
End If

 

[خالد عبد الغفار]

الف الف شكر استاذنا الفاضل