تغيير مسميات الأزرار

[ابوخليل]

السلام عليكم

احبتي :

بعض البرامج مرنة تصلح لأي مشروع .. فقط تحتاج الى تغيير بعض التسميات

فمثلا تسميات القوائم وعناوين التقارير والنماذج هذه امرها يسير ومقدور عليه من خلال الجداول ويمكن للمستخدم تغييرها من خلال النماذج التي يعمل عليها

حتى ان المبرمج الحاذق يجعل تسميات الحقول تتغير آليا تبعا للقوائم الرئيسية

وكما في العنوان نريد تمكين العميل او المستخدم من تغيير مسميات الازرار

لنفرض ان الزر اسمه .. متابعة التربية الاسلامية .. ويريد المستخدم تغييره الى متابعة الثقافة العامة

والسبب ان العميل غير في الأساس واستبد التربية الدينية بالثقافة العامة

نريد عمل دالة تطبق على جميع ازرار المشروع

يمكننا عمل خانة نعم/لا  لتفعيل الاجراء من عدمه ( لأن الاقرب ان الحدث سيكون على النقر المزدوج للزر )

اتمنى اني وضحت المطلوب والهدف منه

ومعذرة لم ابحث في المنتدى .. قد يوجد مواضيع تتحدث عن مثل هذا .. سأبحث الآن

Database1.rar

[ابوخليل]

ملحوظة واستدراك :

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

بمعنى ان اي زر قابل للتغيير لوحده

وفي المرفق اعلاه .. توضيح للفكرة

[ابوخليل]

في المثال اقصر طريقة للتغيير

اكتب في مربع النص ثم انقر  مزدوجا على الزر

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

هذا يعني انه ينبغي للمبرمج ان يصمم جدولا بتسميات جميع الازرار  .. يتم التغيير من خلاله .. هل هذا صحيح ؟

Database2.accdb

[Foksh]

منذ ساعه, ابوخليل said:

اكتب في مربع النص ثم انقر مزدوجا على الزر

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

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

 

هل توافقني الرأي ؟؟

[ابوخليل]

نعم اوافقك وبشدة

انا عملت جدول لتسميات بعض ازرار نموذج ( الازار التي يتوقع حاجتها للتغيير )

ثم  ادرجت ارقام في Tag كل زر  مقصود  ..

مجموع الازرار 22 والمقصود منها 14

ثم وضعت الكود هذا عند تحميل النموذج

النتيجة ممتازة 100%

Private Sub Form_Load()
On Error Resume Next
    Dim ctl As Control
    Dim ptnTs As String
    For Each ctl In Me.Controls
        If ctl.ControlType = acCommandButton Then
       If ctl.Tag > 0 And ctl.Tag < 15 Then
        ptnTs = DLookup("ptn_name", "tbl_potons", "ptn_id=" & ctl.Tag)
        ctl.Caption = ptnTs
        End If
        End If
    Next ctl
End Sub

 

السؤال :

هل من طرق اخرى افضل .. واكثر احترافية ؟

[Foksh]

منذ ساعه, ابوخليل said:

هل من طرق اخرى افضل .. واكثر احترافية ؟

في بالي فكرة ، وسأحاول تطبيق مبدأها على نموذجين أو 3 ، للتوضيح ، ولكن اعطني بعض الوقت بحكم العمل .