منع اهتزاز الشاشة؟

[عبدالعزيز محمد]

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

كل عام وجميع المسلمين بخير بمناسبة عيد الأضحى المبارك.

لدي قاعدة بيانات في أحد النماذج هناك حدث عند عند عداد الوقت وهو عبارة عن ساعة تقوم بتغير كل ثانية ولكن الشاشة تهتز  فهل هناك كود كما في الاكسل كود يقوم بمنع اهتزاز الشاشة؟

 

 

 

 

تم تعديل سبتمبر 26, 2015 بواسطه عزيز 60

[wael_rafat]

نقطة هامة  واضم صوتي لصوت الاخ عزيز 

[رمهان]

اعطونا مرفق به االمشكلة للمحاولة !

تحياتي

[wael_rafat]

بارك الله فيك استاذنا الكريم رمهان

الفكرة انني عامل كود تحديث للنموذج الفرعي بمعدل كل ثانية  ، والغرض منه تحديث الاجمالي بمجرد ادخال الصنف

اي لا انتظر الانتقال الي السجل الجديد حتي يتم تحيث الاجمالي ... والموضوع ماشي تمام

لكن المشكلة التي اواجهها هو اهتزاز او وميض بالنموذج الفرعي ناتج عن عملية التحديث التي تتم كل ثانية

 

KFC.rar

[jjafferr]

السلام عليكم أخي وائل 

 

انت ما محتاج حدث التوقيت ، فرجاء عمل التالي لحل مشكلتك:

1. اطفئ حدث التوقيت ،
2. استعمل الكود التالي ، والذي يحفظ السجل بمجرد انك تٌدخل قيمة في حقل الصنف والكمية (للعلم ، Me.Refresh يعمل نفس الشئ) ، وعليه ، سترى ان المجاميع تغيرت على طول:

Private Sub itemcode_AfterUpdate()
price = item_sale
    If Len(Me.Qty & "") <> 0 Then DoCmd.RunCommand acCmdSaveRecord

End Sub

Private Sub Qty_AfterUpdate()

    If Len(Me.itemcode & "") <> 0 Then DoCmd.RunCommand acCmdSaveRecord

End Sub

 

جعفر

[wael_rafat]

استاذنا الغالي جعفر .... مشكور للمشاركة ..... ولكن للاسف ما ضبط

[jjafferr]

تفضل مثالك المعدّل 

222.KFC.mdb.zip

[رمهان]

اخ وائل

يمكنك تكرار الامر refresh  حسب الحاجة ولي فكرة ساحاول تطبيقها !

اخ جعفر

جرب ان تضيف من خلال زر الامر لان النظام يعمل بشاشة لمس !

 

تحياتي

[wael_rafat]

استاذى العزيز جعفر بارك الله فيك... ولكن للاسف لم تحل المشكلة  وهي عدم تحديث الاجمالي مباشرة بعد الادخال

استاذي الجميل رمهاان بارك الله فيك .. ومشكور انك ما زلت فاكر طريقة عمل النظام وهو عن طريق شاشة تاتش

ومنتظر فكرة حضرتك

وجزاكم الله كل خير

تم تعديل أكتوبر 3, 2015 بواسطه wael_rafat

[jjafferr]

وعليكم السلام

استاذى العزيز جعفر بارك الله فيك... ولكن للاسف لم تحل المشكلة  وهي عدم تحديث الاجمالي مباشرة بعد الادخال

 

الاجمالي كان يتغير اول من تُدخل العدد في خانة العدد او تغير العدد ،

وبما اني لا اعرف برنامجك ، فلم الاحظ اشارة الزيادة والنقصان (واعتقد بانك جربتها ولم يتغير الاجمالي) ،

لذا ، غيرت في الكود ليشمل هذين الزرين كذلك

 

رجاء تجربة المرفق الان ، واذا في مشكلة ، رجاء تخبرني بالضبط ماذا فعلت وماهي المشكلة

 

جعفر

 

222.KFC.mdb.zip

 

تم تعديل أكتوبر 3, 2015 بواسطه jjafferr

[wael_rafat]

استاذى الجميل جعفر  .. بعد التجربة

الكود يعمل بشكل ممتااااااز مع اشارتي الزيادة والنقصان

ولكن للاسف لا يعمل مع ايقونات الاصناف  ... حيث انني لابد من انتقال لسجل اخر حتي يتغير الاجمالي

وسامحني علي التأخير والاطالة ،،،،

[jjafferr]

لما تكون دقيق في تحديد المشكلة ، تلقانا زي الفريره (على قولة مرسي الزيناتي في مدرسة المشاغبين)

 

اضفت الاسطر التالية:

    Me.F_ordersubform.SetFocus
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acLast
    Me.F_ordersubform!Qty.SetFocus

في نهاية الوحدة 

Sub mm(xx)

 

الفكرة هي انك تحفظ السجل بعد كل عملية اضافة/تعديل 

 

جعفر

222.KFC.mdb.zip

[wael_rafat]

ههههههههه   والله حبيبي استاذنا الجميل

هو دا الكلام  زى الفل تسلم ايدك .... جزاك الله كل خير  وزادك الله من علمه

[jjafferr]

حياك الله اخوي وائل 

 

الاخ عزيز صاحب الموضوع وينك ، ماسمعنا منك 

 

جعفر

[عبدالعزيز محمد]

السلام عليكم

أخي جعفر لم اجد ما كنت آمل فيه وهو كود يمنع اهتزاز الشاشة مثلما في اكسل ولكن قد استفيد من خلال المراقبة من بعيد .

مازلت انتظر كود منع اهتزاز الشاشة.

 

 

[jjafferr]

أخي عزيز

مثلما قال الاستاذ رمهان:

اعطونا مرفق به االمشكلة للمحاولة !

تحياتي

فمثلما لاحظت ، تم حل مشكلة الاخ وائل ، بعد ان ارفق برنامجه واخبرنا وين المشكلة ، واتضح انه اصلا ليس بحاجة لكوده.

 

جعفر