كود تحديث مربع تحرير وسرد في النموذج الأصل

[أبو آدم]

إخوتي وأحبتي

حين يكون لدينا نموذج أصل (أب) لعرض السجلات في جدول ما ، ويكون في هذا النموذج مربع تحرير وسرد يكون مصدر الصف فيه جدول العملاء ، ونحتاج لنموذج تابع منبتق لتسجيل عميل جديد ، وفي نفس الوقت وبعد إضافة معلومات العميل نريد أن يتم تحديث مصدر الصف في مربع التحرير و السرد في النموذج الأصل ليتم إظهار السجل الجديد ، مع العلم بأن النموذج المنبثق الخاص بإدخال سجلات العملاء الجدد سيتم في التطبيق إستدعاؤه من أكثر من مكان أو نموذج ، أي أنه لا يستوي الأمر معنا بتحديث مصدر الصف لمربع التحرير و السرد في النموذج الأصل من خلال زر الأمر عند إغلاق النموذج المنبثق وإلا سنضطر لإنشاء أكثر من نموذج منبثق لإستدعاء كل واحد منهم مرتبطا بكود تحديث معلومات كل نموذج استدعاه.

Forms!Form1!combo2.Requery

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

   DoCmd.OpenForm "frmAddCustomer", WindowMode:=acDialog

   Me.TaxNum.Requery

وقضي الأمر

مرفق تطبيق للتوضيح

.............

NA_RequeryingComboBox.rar

[ksmn64]

أخي الكريم نارت

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

تم التجربة والنتيجة ممتازة يتم التحديث . لكن اسم الشركة في النموج لا يتغير بتغير القائمة .

أعتقد انه لو تم ربطهما سيكون المثال أكثر إفادة .

جزاك الله خير على ما تقدمه .

بالتوفيق،،،

[أبو آدم]

أخي العزيز

كانت فكرة التطبيق محدودة بالكود ، وما تفضلت به متاح

وشكرا لمرورك الطيب

...............

[أبو آدم]

التعديل الذي إقترحه الأخ Ksmn64 يطبق بإضافة الكود التالي للنموذج الأصل frmCustomer بعد إعادة تسمية حقل الإسم ب CompNam

Private Sub TaxNum_AfterUpdate()

Me.CompNam = Me.TaxNum.Column(1)

End Sub