من يحل المشكلة وله الأجر إن شاء الله

جواب لسؤل سابق في المنتد لم افهمه

كان جواب السؤل يقول :

يمكنك عمل جدول بجميع النماذج والجداول ولإستعلامات والتقارير وتضع مربع تحرير وسرد على

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

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

كود:

-------------------------------------------------------------------------------- Private Sub RunFrm(ByVal p_mode As String)

Debug.Print Me![zz].Value

Select Case p_mode

Case "preview"

DoCmd.OpenForm Me![zz].Value, acNormal

End Select

End Sub

--------------------------------------------------------------------------------

ثم تستدعي الإجراء كالتالي:

كود:

-------------------------------------------------------------------------------- RunFrm "preview"

--------------------------------------------------------------------------------

تضع أمر الإستدعاء على مربع التحرير والسرد في حدث "عند التغيير "أو على زر أمر

لاحظ أن اسم مربع التحرير والسرد هنا ZZ استبدله باسم مربع التحرير الموجود لديك 0

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

ولم أجرب الجداول ولإستعلامات 0

ملاحظة هامة يجب أن تتطابق التسميات النماذج في مربع التحرير لأسماء الجداول والتقارير0

السؤل المطروح هو : كيف وأين أضع الكود أعلاه بالتفصيل هل لابد ان أضع ماكر أم ماذا افيدون جزاكم الله خيراً وحفكم الله من كل مكروه

ولقد طبقت المثال وعند فتح النموذج وتغيير مربع تحرير وسرد تطلع لي رسالة تقول تعذر على أكسس العثور على الحقل zz المشار إليه في التعبير الذي أستخدمته