قراءه Caption لجميع النماذج بناء علي متغير في موديول

[تامر خليفه]

مرحبا للجميع

كيف اخزن علي متغير في موديول معلومه معينه واجعلها form.caption في جميع النماذج وقت التشغيل

 

[تامر خليفه]

وهذا مرفق للتعديل عليه

لو امكن ان اجعل الـ form.caption لجميع النماذج يقرا من الجدول الموجود 

for form.Caption.rar

[jjafferr]

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

 

انا غيرت في الجدول ، وجعلت الامكانية ، لكل نموذج اسم مستقل 

 

الوحدة النمطية التي تقوم بالعمل:

Function myName(F)

    myName = DLookup("[frm_Caption]", "tbl_frm_Caption", "[frm_Name]='" & F & "'")
End Function

 

ونناديها سواء على حدث "تحميل النموذج" او "فتح النموذج" ، هكذا:

    Me.Caption = myName(Me.Name)

 

والنتيجة

 

جعفر

365.for form.Caption.mdb.zip

[تامر خليفه]

شكرا اخي jjafferr

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

[محمود الششتاوي]

السلام عليكم
بعد اذن الجميع انا عندي مشكلة

لما بحاول اغير ال caption 

الخاص باليوزر فورم بيكتب  انجلش بس رغم ان الاكسيل عربي وانجليزي وفي كتابة الاكواد نفسها بيكتب عربي وانجليزي

اما ال caption  

بيظهر الكلمات بالشكل ده رموز واشكال غريبة