تغيير القيمة الافتراضية

[Foksh]

8 ساعات مضت, kkhalifa1960 said:

تفضل التعديل

  نفس المبدأ ، وهو إغلاق النموذج الحالي = الرئيسي  !!!!

        ' إغلاق النموذج الحالي
        DoCmd.close acForm, Me.Name
        
        ' فتح النموذج المساعد
        DoCmd.OpenForm "frm_SetDefaultNO"

 

[jo_2010]

14 ساعات مضت, منتصر الانسي said:

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

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

 

الاساتذة  الافاضل والخبراء الاعزاء

خالص الشكر لكم جميعا على مساعدتكم

واخص بالشكر الافاضل   منتصر الانسي_  Foksh _ kkhalifa1960

خالص الشكر على علمكم الغزيز تقدم الفاضل Foksh بحل المشكلة على النموذج الاول وعندما قمت بنقل الاكواد الى القاعدة الاصلية حدثت مشكلة فى الاكواد 

والان الكود والووحدة النمطية التى قام بتقديمها الفاصل  منتصر الانسي

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

عند غلق النموذج واعادة فتحة تظهر القيمة القديمة 59 اليكم القاعدة الجديدة بعد اضافة الاكواد والوحدة النمطية

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

ملحوظة هامة اذا كان غلق النموذج واعادة فتحة يساعد فى هل المشكلة تمام مفيش مشكلة

Lab_small.rar

تم تعديل منذ 9 ساعات بواسطه jo_2010

[kkhalifa1960]

كلام وفعل مؤكدين لا يمكن تغيير قيمة افتراضية لحقل بجدول مرتبط بنموذج      الا من خلال نموذج غير مرتبط  بالجدول مع غلق اي نماذج مرتبطة بالجدول . كما ارسلت لك.

والذي لديه اي كلام او فعل ثاني يدلنا .

[Foksh]

منذ ساعه, kkhalifa1960 said:

والذي لديه اي كلام او فعل ثاني يدلنا

يمكن التنفيذ 😉 ..

[jo_2010]

1 دقيقه مضت, Foksh said:

يمكن التنفيذ 😉 ..

 وانا فى الانتظار........

[منتصر الانسي]

6 ساعات مضت, jo_2010 said:

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

لو كنت ركزت على كلامي كنت ستجد أني كنت قد وضحت لك أن التعديلات ستكون في عبارة  If وحدث فتح النموذج 

21 ساعات مضت, منتصر الانسي said:

التعديلات ستجدها في عبارة If في حدث النقر المزدوج لمربع النص + حدث الفتح للنموذج بالإضافة إلى أنك ستحتاج إلى إستيراد الوحدة النمطية mdlDBProps وهكذا ستحصل على نفس النتيجة مع الإحتفاظ بالرقم الذي أدخلته حتى بعد إغلاق قاعدة البيانات

ولكنك قمت بالتعديل الأول وتجاهلت الثاني وهو التعديل الذي يقوم بقراءة القيمة الإفتراضية المحفوظة

عموما هذا ملفك الاخير بعد التعديل

تحياتي

Lab_small.rar

[Foksh]

3 ساعات مضت, jo_2010 said:

وانا فى الانتظار.

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

لذلك قد أطرح فكرة تكون حلاً لك ، وهي الإعتماد على تعيين القيمة الافتراضية في جدول الإعدادات مثلاً . بحيث يتم تحديثها وجلبها متى شئت دون التأثير على خاصية الحقل داخل الجدول Tbl_Lab_All .

 

فهنا نحن لن نقوم بإغلاق النموذج الرئيسي أو الفرعي أبداً . أو لن نقوم بفك ارتباط النماذج أساساً ( وبالتالي لن نجبر آكسيس على حفظ السجلات الناقصة ) . و ستبقى شاشة المستخدم مفتوحة كما هي ، والبيانات الناقصة التي تكتبها كمستخدم لن يتم حفظها إلا عندما تقرر حفظها .

يعني باختصار = التعديل سيتم في جدول إعدادات خارجي بسيط ( Tbl_Settings ) غير مرتبط بالنماذج المفتوحة ، لذا لن تتواجد عوائق أخي جو .

ومع ذلك ، فإن القيمة الافتراضية ستتعدل على مستوى الجدول نفسه ( وليس النموذج ) ، بحيث لو قام المستخدم بفتح الجدول مباشرة أو أضاف سجلاً من أي نموذج فرعي آخر ، سيتم تعيين القيمة الافتراضية الجديدة تلقائياً عند الحفظ .

 

أرجو أن أكون قد نجحت بتوصيل فكرتي التي من خلالها لن تضطر للخروج من النموذج ، وبنفس الوقت ستبقى القيمة الافتراضية مخزنة داخل جدول ليس له اي علاقة بالنموذج سوى جملة DlookUp . وتحديثها من خلال سطر استعلام تحديث عند تغييرها 😉

[jo_2010]

منذ ساعه, Foksh said:

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

لذلك قد أطرح فكرة تكون حلاً لك ، وهي الإعتماد على تعيين القيمة الافتراضية في جدول الإعدادات مثلاً . بحيث يتم تحديثها وجلبها متى شئت دون التأثير على خاصية الحقل داخل الجدول Tbl_Lab_All .

 

فهنا نحن لن نقوم بإغلاق النموذج الرئيسي أو الفرعي أبداً . أو لن نقوم بفك ارتباط النماذج أساساً ( وبالتالي لن نجبر آكسيس على حفظ السجلات الناقصة ) . و ستبقى شاشة المستخدم مفتوحة كما هي ، والبيانات الناقصة التي تكتبها كمستخدم لن يتم حفظها إلا عندما تقرر حفظها .

يعني باختصار = التعديل سيتم في جدول إعدادات خارجي بسيط ( Tbl_Settings ) غير مرتبط بالنماذج المفتوحة ، لذا لن تتواجد عوائق أخي جو .

ومع ذلك ، فإن القيمة الافتراضية ستتعدل على مستوى الجدول نفسه ( وليس النموذج ) ، بحيث لو قام المستخدم بفتح الجدول مباشرة أو أضاف سجلاً من أي نموذج فرعي آخر ، سيتم تعيين القيمة الافتراضية الجديدة تلقائياً عند الحفظ .

 

أرجو أن أكون قد نجحت بتوصيل فكرتي التي من خلالها لن تضطر للخروج من النموذج ، وبنفس الوقت ستبقى القيمة الافتراضية مخزنة داخل جدول ليس له اي علاقة بالنموذج سوى جملة DlookUp . وتحديثها من خلال سطر استعلام تحديث عند تغييرها 😉

معلمى الفاضل 

اولا انا شاكر لحضرتك انك شاركت بخبرتك مرة اخرى

ومعنى هذا انك سامحت جهلى ومش زعلان منى شكرا لحضرتك 

الكلام الجميل اللي حضرتك كتبتة ازاى انفذه فى الجدول Tbl_Settings

انا محدود الخبرة بالاكسيس امكانياتى بسيطة جدا

ممكن لو تكرمت تنفذ فكرتك فى القاعدة المرسلة بالاعلي ولك خالص الاحترام والتقدير 

 

تم تعديل منذ 1 ساعه بواسطه jo_2010