الكود لا يعمل بشكل سليم - لا اعرف اين المشكلة هل فى الكود ام فى خصائص الفورم ؟

[ابو عبدالرحمن نادر]

الفورم  STUNEW  كود الزر (المستندات المطلوبة) لا يعمل بشكل سليم

ارجو حل هذه المشكلة فى الكود

حيث المطلوب ان تكون النتيجة احدى الحالات التالية :

1.      رسالة (من فضلك ... ادخل جنسية الطالب)

2.      فتح فورم فرعى            ReqDocSaudi  فى حالة جنسية الطالب سعودي 101

3.      او فتتح فورم فرعي      ReqDocGulf  فى حالة جنسية الطالب كويتي  102

4.      أو فتح فورم فرعي        ReqNon-Saudi  فى حالة أى جنسية غير السعودي و الكويتي

Private Sub ReqDoc_Click()

If IsNull(Me.STU_Nat_ID) = True Then

MsgBox "من فضلك ...أدخل جنسية الطالب ", vbCritical, "تنبيه"

DoCmd.GoToControl "stu_nat_id"

Else

If Me.STU_Nat_ID = 101 Then

DoCmd.OpenForm "ReqDocSaudi"

ElseIf Me.STU_Nat_ID = 102 Then

DoCmd.OpenForm "ReqDocGulf"

Else

DoCmd.OpenForm "ReqNon-Saudi"

End If

End If

End Sub

StudentsRegister0.rar

[نور الدين وليد]

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

انا لا ارى اى مشكلة بالمثال فهو يفتح الفورم المطلوب كل مرة ولكن المشكلة انه لا يعطى الرسالة عندما تكون الجنسية خالية والسبب انه لايحفظ السجل اصلا الا عندما تقوم بادخال الجنسية وذلك لان خاصية Required=yes لهذا الحقل ولذا لاداعى لاظهار الرسالة 

باقى الكود يعمل..

[ابو عبدالرحمن نادر]

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

 قمت بتغيير الخاصية  من  Required=yes   الى  Required=No

لأننى ابغى ظهور الرسالة  :   MsgBox "من فضلك ...أدخل جنسية الطالب ", vbCritical, "تنبيه" 

ولكن لم تظهر الرسالة ايضا - فما هي المشكلة ؟

هناك شئ أخر  ... فى منتهى الأهمية 

يوجد كود فى كل فورم من الفورمز التالية (عند التحميل) 

   فتح فورم فرعى            ReqDocSaudi  فى حالة جنسية الطالب سعودي 101    التخزين فى جدول  RequiredDocSaudi

 فتتح فورم فرعي      ReqDocGulf  فى حالة جنسية الطالب كويتي  102     التخزين فى جدول  RequiredDocGulf

فتح فورم فرعي        ReqNon-Saudi  فى حالة أى جنسية غير السعودي و غير الكويتي    التخزين فى جدول  RequiredDocNon-Saudi

هذا الكود هو  

 

Private Sub Form_Load()

Me.Order_ID = Forms!stunew!Order_ID

End Sub

 

للأسف لا يتم تخزين غير سجل واحد فقط - اخر سجل تم ادخاله  فى كل جدول بالرغم من ان العلاقة بين  الجدول StuNew  و الثلاثة جداول التخزين هي علاقة  One To Meny فهل الكود يحتاج الى اضافة او تعديل 

وشاكر جدا على الاهتمام 

تم تعديل أغسطس 1, 2015 بواسطه ابو عبدالرحمن نادر

[نور الدين وليد]

تفضل البرنامج بعد التعديل

المطلوب اضافة سجل حديد فى الحدث load للفورم الخاص بالمستندات لان الفورم يفتح على اول سجل ويعتبر كود تغيير رقم الطلب تعديل على اول سجل يفتح عليه

الجملة التكرارية فى الحدث load لفورم المستندات تقوم بالتاكد من عدم وجود مستندات خاصة بهذا الطلب حتى لا يقوم البرنامج باضافة سجلين لنفس رقم الطلب ويعطى خطا تكرار

بالتوفيق ان شاء الله 

 StudentsRegister0.rar

[ابو عبدالرحمن نادر]

تسلم اخى نور الدين الوليد  

بارك الله فيك وزادك من فضله وعلمه

[نور الدين وليد]

وزادك اخى ابو عبد الرحمن