اهتزاز عناصر النموذج بسبب التحديث

[ahmed s metwally]

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

تحياتي وتقديري

عندي مشكلتين في قاعدة البيانات 
مع العلم بانه سوف يتم تقسيم قاعدة البيانات على شبكة داخلية أيضا يوجد كود تحديث كل 5 ثواني
1 - اهتزاز كلاً من القوائم المنسدلة والنماذج الفرعية بشكل مزعج اثناء التحديث
2 - اثناء ادخال البيانات في القوائم المنسدلة كما بالصورة يتم حفظها قبل الانتهاء من إدخالها بالكامل وقبل الضغط على زر ادخال بسبب التحديث
مرفق رابط الملف لعدم استطاعتي على تحميله هنا
https://drive.google.com/drive/folders/1u7tTOH7rMABUm3vTFUi3e8-vbrpFoYj1?usp=sharing

[jjafferr]

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

 

42 دقائق مضت, ahmed s metwally said:

كود تحديث كل 5 ثواني

يا لطيف !!

ليش كود التحديث؟

 

جعفر

[ahmed s metwally]

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

[jjafferr]

انت تحتاج الى تحديث النموذج فقط اذا كان النموذج يكون مفتوح طوال الوقت ولا يتم اغلاقه ، وتريد ان ترى التغييرات تتم فيه ، كل فترة ، مثال النموذج المفتوح على كمبيوتر المدير !!

اما لبقية عمل البرنامج ، فلا حاجة للتحديث، لأن الاكسس تلقائيا يجلب البيانات المحدثة 🙂

 

جعفر

[ahmed s metwally]

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

[jjafferr]

هذا النموذج لا يحتاج تحديث 🙂

كلما يتم ادخال/تعديل سجل في النموذج ، فيكون هذا السجل تلقائيا جاهز ببياناته الجديدة لأي مستخدم آخر يقوم بفتح النموذج من كمبيوتر آخر 🙂

 

جعفر

[ahmed s metwally]

سوف اكتفي بالتحديث عند ادخال البيانات لكن مازال هناك اهتزاز في العناصر هل يمكن التخلص منه

[ناقل]

6 دقائق مضت, ahmed s metwally said:

سوف اكتفي بالتحديث عند ادخال البيانات لكن مازال هناك اهتزاز في العناصر هل يمكن التخلص منه

جرب هذا لعله يفيد 

DoCmd.Echo False
me.Refresh
DoCmd.Echo True

 

[ahmed s metwally]

تحياتي أستاذ ناقل 
للأسف لم ينفع

[jjafferr]

منذ ساعه, ahmed s metwally said:

سوف اكتفي بالتحديث عند ادخال البيانات

اخي الفاضل ، صدقني ما يحتاج تستخدم التحديث ، وتستطيع حذف التوقيت و me.refresh 🙂

الاكسس يقوم بهذا الشيء عند فتح المستخدم النموذج.

 

جعفر

[ahmed s metwally]

10 دقائق مضت, jjafferr said:

اخي الفاضل ، صدقني ما يحتاج تستخدم التحديث ، وتستطيع حذف التوقيت و me.refresh 🙂

الاكسس يقوم بهذا الشيء عند فتح المستخدم النموذج.

 

جعفر

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

[jjafferr]

جرب هذا الكود ، ولاحظ ما عندنا me.refresh :

Private Sub Form_Timer()
On Error GoTo err_Form_Timer

    Me.[امع1].Form.Requery
    Me.[امع2].Form.Requery
    Me.[امع3].Form.Requery
    Me.[امع4].Form.Requery
    Me.[امع5].Form.Requery
    Me.[امع6].Form.Requery


Exit_Form_Timer:

    Exit Sub
err_Form_Timer:

    If Err.Number = 1 Then
        'Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_Form_Timer
    
End Sub

 

جعفر

[ahmed s metwally]

منذ ساعه, jjafferr said:

جرب هذا الكود ، ولاحظ ما عندنا me.refresh :

Private Sub Form_Timer()
On Error GoTo err_Form_Timer

    Me.[امع1].Form.Requery
    Me.[امع2].Form.Requery
    Me.[امع3].Form.Requery
    Me.[امع4].Form.Requery
    Me.[امع5].Form.Requery
    Me.[امع6].Form.Requery


Exit_Form_Timer:

    Exit Sub
err_Form_Timer:

    If Err.Number = 1 Then
        'Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_Form_Timer
    
End Sub

 

جعفر

أستاذ جعفر لك جزيل الشكر 
الكود يعمل بالشكل المطلوب ويعطيك العافية

[jjafferr]

حياك الله 🙂

 

جعفر