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

الردود الموصى بها

قام بنشر (معدل)

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

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

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

 
 
 
 
تم تعديل بواسطه عزيز 60
  • Like 1
قام بنشر

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

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

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

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

 

KFC.rar

قام بنشر

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

 

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

  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

 

جعفر

قام بنشر

اخ وائل

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

اخ جعفر

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

 

تحياتي

قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه wael_rafat
قام بنشر (معدل)

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

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

 

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

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

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

 

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

 

جعفر

 

222.KFC.mdb.zip

 

تم تعديل بواسطه jjafferr
قام بنشر

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

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

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

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

قام بنشر

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

 

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

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

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

Sub mm(xx)

 

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

 

جعفر

222.KFC.mdb.zip

قام بنشر

أخي عزيز

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

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

تحياتي

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

 

جعفر

 

 

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information