تخطي ثلاث نمازج بعد Startup عند تشغيل القاعده للمرة الثانيه

الأخ محمود إبراهيم

الحل بطريقتين :

الأولى بواسطة حفظ قيمة مربع التدقيق في جدول والتأكد من القيمة عند التشغيل القادم .

والثانية : حفظ القيمة في سجل وندوز الريجستي .

أنا أفضل أن تعمل بالطريقة الثانية لأنها لاتحتاج إلى إضافة جداول جديدة بالقاعدة وسأشرح ما فمهته من كلامك :

1- نموذج Startup هذا يختفي بعد الثواني المحددة ولا قيمة له .

2- نموذج Wizard1Frm وهو أول نموذج يظهر وبعد إدخال البيانات فيه يضغط زر أمر فيفتح النموذج التالي :

3- نموذج Wizard2Frm يظهر وبعد إدخال البيانات فيه يضغط زر أمر فيفتح النموذج التالي :

4- نموذج Wizard3Frm يظهر وبعد إدخال البيانات فيه يضغط زر أمر نموذج Main Switchboard .

لم تذكر كيفية تشغيل النموذج Startup للنموذج Wizard1Frm وسأفترض أنك تضعه في حدث عند الإغلاق للنموذج Startup واكتب له الكود التالي :

Dim الاختيار
الاختيار = GetSetting("قاعدتي", "Wizard3Frm", "عرض_النماذج")
If الاختيار = "" Or الاختيار = -1 Then
DoCmd.OpenForm "Wizard1Frm"
Else
DoCmd.OpenForm "Main Switchboard"
End If

مربع التدقيق وسأسميه عرض_النماذج موجود على النموذج Wizard3Frm في حدث بعد التحديث له ضع :

SaveSetting "قاعدتي", "Wizard3Frm", "عرض_النماذج", عرض_النماذج.Value

وفي حدث عند التحميل للنموذج Wizard3Frm ضع :

عرض_النماذج = GetSetting("قاعدتي", "Wizard3Frm", "عرض_النماذج")

ولك تحياتي

أخي الفاضل أبو حمود . السلام عليكم .

أنت فهمت المقصود تماما . أشكرك شكرا جزيلا علي سرعة إستجابتك . وحشني المنتدي جدا. سأجرب ما تفضلت و أشرت إليه و سأخبرك بالنتيجه .

أكرر جزيل شكري مع أطيب التمنيات

محمود إبراهيم

أخي أبو حمود .. السلام عليكم .. جربت الكود مرات كثيره جدا مع محاولات كثيره جدا و كلها لم تفلح و لا أعرف السبب رغم إقتناعي بصحة الكود مع بعض الملاحظات :-

أليس False=0 .... ... True=-1 ...أليس إذا نقر المستخدم علي المربع فإنه يدخل القيمه (1-) و إذا تركه خاليا فإن قيمته (0) أو "" أي سلسله فارغه ؟؟؟

التعبيرين SaveSetting , GetSetting يعملان بدليل أنه إذا علم المستخدم علي الصندوق ثم أغلق النموزج Wizard3Frm ثم أعيد فتحه ثانيا فيظهر المربع معلما عليه . و إذا لم يعلم عليه يظهر خالي في المره الثانيه .

إلي هنا لا توجد مشكله و الكود صحيح و لكن المشكله في المتغير الذي تسميه الاختيار و التفرع الذي بعده و ساحاول إنشاء قاعده بيانات بسيطه جدا و إستخدام هذا الكود فيها و سأرسلها لك لمراجعتها . فإذا كان لديك و لأي أحد من الإخوه تعقيب فأرجو مشكورا أن يتفضل به .

مع جزيل الشكر .

محمود إبراهيم

لأخ محمود إبراهيم

كلامك صحيح فإذا جعل في المربع علامة صح ومعناها اعرض النماذج في المرة القادمة وعند التشغيل القادم يتأكد البرنامج من قيمة عرض_النماذج فإذا وجد أنها تساوي -1 وهي True وضع علامة صح في المربع فمعناها أن المستخدم يرغب في عرضها في المرة القادمة والنتيجة تشغيل النموذج المسمى Wizard1Frm وإلا قام بتشغيل النموذج المسمى Main Switchboard .

أما العلامة "" فهذه عند التشغيل أول مرة لأن المتغير الاختيار يعود بقيمة صفرية لعدم وجود اختيارات سابقة .

أرجو أن تكون المسألة قد وضحت لك علما أنني طبقت الكود قبل وضعه هنا واشتغل بدون أي مشكلة .

وأيضا أنت لم تذكر المشكلة التي حصلت لك حتى نرى أين الخطأ .

ولك تحياتي