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

[ابوخليل]

السلام عليكم

احبتي :

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

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

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

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

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

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

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

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

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

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

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 ، للتوضيح ، ولكن اعطني بعض الوقت بحكم العمل .

[Foksh]

بدايةً ما خطر ببالي كفكرة تتلخص في جدول واحد مخصص للتنفيذ ، ويحتوي الحقول التالية فرضاً ..

• حقل لاسم النموذج = نصي
• حقل لاسم الزر البرمجي = نصي
• حقل للتسمية القديمة = نصي
• حقل للتسمية الجديدة = نصي أيضاً
• حقل للتنفيذ = نعم / لا

الآن الفكرة انه عند تحميل اي نموذج يتم تطبيق التسميات التي قام المستخدم بتحديدها وضبطها حسب حاجته من خلال نموذج يجلب أسماء الأزرار وتسميتها القديمة والجديدة لكل نموذج تم النقر على زر الإعدادات الخاص به .

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

سيتم تحميل جميع تسميات الأزرار في النموذج الحالي بدلاً من الاسم البرمجي للزر . لأن المستخدم العادي لن يميز اسمه البرمجي . فكان التوجه إلى إظهار التسميات للأزرار هو الأنسب .

الآن وبعد السيطرة على الأزرار وتحديدها ، انظر للتجربة التالية بعد تغيير اسم مجموعة أزرار ..

إذا كانت الفكرة مناسبة ، فسأقوم بطرح طريقة التطبيق في الرد التالي .. 

اعتقد أن الموقع والمنتدى قيد التحديث والتطوير ..

[ابوخليل]

نعم الموقع من الامس

انا لم انتظر خاصة وان المنتدى توقف .. عملت الذي ارى اني بحاجته  .. والحقيقة حاجتي في بعض الازرار في نموذج واحد

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

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

انظر الصورة الاولى وانظر الزر يظهر كأنه تسمية الى جانب كشوف المتابعة اسمه : تغيير التسميات

ثم انظر للصورة الثانية بعد النقر عليه

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

 

[kkhalifa1960]

استاذي ابو خليل . فقط للمشاركة ....... أثناء التوقف . كنت اتسلى بعمل هذا المرفق . طالعهه يمكن يفيدك منه شئ .

BoKhalil.rar

تم تعديل يناير 1 بواسطه kkhalifa1960

[Foksh]

ما رأيك بهذه الفكرة :-

 

الملف مفتوح المصدر ..

LblChanger - 1.zip

[ابوخليل]

في 1‏/1‏/2026 at 06:03, kkhalifa1960 said:

استاذي ابو خليل . فقط للمشاركة ....... أثناء التوقف . كنت اتسلى بعمل هذا المرفق . طالعهه يمكن يفيدك منه شئ .

 

شكرا جزيلا اخي وحبيبي .. عمل جيد وافكار جميلة

في 1‏/1‏/2026 at 15:05, Foksh said:

ما رأيك بهذه الفكرة :-

 

ولا اروع ..

وبما اني ذكرت سابقا صلتي بصندوق الرسالة هذا العجوز

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

LblChanger_Up .rar

[Foksh]

3 ساعات مضت, ابوخليل said:

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

أبدعت .. توظيف جميل واستغلال رائع للنموذج الفرعي بدلاً من الرسالة المزعجة فعلاً ..