طريقة لجعل مربع النص غير مفعل با الكود

[rey360]

السلام عليكم أعضاء المنتدى الاعزاء أريد طريقة بالكود و ليس conditional formatting لجعل الخانة غير مفعلة مثلما هو موضح في الصورة وشكرا.

[ابو ياسين المشولي]

 Me.اسم الحقل.Enadbled=false

اعذرني لاني بالمبيايل

[kha9009lid]

جرب المرفق

Database311.accdb

[rey360]

شكرا لك أستاذ ابو ياسين المشولي وشكرا لك أستاذ kha9009lid بارك الله فيكم والله كل مرة تبهروني باجابتكم 

[ابو جودي]

في ١٩‏/٩‏/٢٠١٩ at 17:44, ابو ياسين المشولي said:

 Me.اسم الحقل.Enadbled=false

اعذرني لاني بالمبيايل

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

[kha9009lid]

صحيح وبالذات لما يكون الكود طويل ويحتوي على عدد من اسماء الحقول 😣

4 دقائق مضت, rey360 said:

شكرا لك أستاذ ابو ياسين المشولي وشكرا لك أستاذ kha9009lid بارك الله فيكم والله كل مرة تبهروني باجابتكم 

الشكر لله اخي @rey360

[ابو جودي]

في ١٩‏/٩‏/٢٠١٩ at 17:59, kha9009lid said:

صحيح وبالذات لما يكون الكود طويل ويحتوي على عدد من اسماء الحقول 😣

اقسم بالله طلب منى ذات يوم احد الاخوة تعديلا على ملف له واخبرنى انه هام جدا جدا جدا لعمله 
وكان كل شئ عربي يا حبيبى
والله ارتفع ضغطى وحرارتى الى ان فكرت اخيرا فى تحويل الكود و الاسماء لكل الحقول فى قاعدة اخرى الى الانجليزية واعتقد انه استغرق منى وقتا اطول والله من الوقت الذى كنت قد اصمم اصلا العمل كله

واطبعا حولتهم الى العربيه بعد ذلك 

[ابو جودي]

طبعا اساتذتى الكرام   كفوا ووفوا باجابتهم على السؤال
لهم كل الشكر والتقدير والعرفان جزاهم الله تعالى خير وشكر الله لهم واحسن اليهم كما يحسنون الى طلاب العلم امثالى

بعد اذن اساتذتى الافاضل الكرام اشارك بفكرة متواضعة للمرور على كل الكائنات دفعة واحدة

 

 

Database311.accdb

تم تعديل سبتمبر 19, 2019 بواسطه ابا جودى

[kha9009lid]

رائع دائما @ابا جودى

[ابو ياسين المشولي]

33 دقائق مضت, ابا جودى said:

طبعا اساتذتى الكرام   كفوا ووفوا باجابتهم على السؤال
لهم كل الشكر والتقدير والعرفان جزاهم الله تعالى خير وشكر الله لهم واحسن اليهم كما يحسنون الى طلاب العلم امثالى

بعد اذن اساتذتى الافاضل الكرام اشارك بفكرة متواضعة للمرور على كل الكائنات دفعة واحدة

 

 

Database311.accdb 628 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

برغم اني ما نزلت المرفق لاني  استخدم المبيايل الا اني متشوق لاراء ابداعات اخونا ابا جودي

تم تعديل سبتمبر 19, 2019 بواسطه ابو ياسين المشولي

[ابو جودي]

في ١٩‏/٩‏/٢٠١٩ at 19:07, ابو ياسين المشولي said:

برغم اني ما نزلت المرفق لاني  استخدم المبيايل الا اني متشوق لاراء ابداعات اخونا ابا جودي

مفيش ابداعات ولا شئ انا استخدمت التاج والدوران على العناصر على النموذج من خلال التاج الاتى للعناصر المراد عدم تفعيلها او تعطيلها >--->>  lock

وهذه الاكواد يا سيدى انت تأمر
اولا اضفت المتغير ده من النوع بايت ليأخذ القيم  (0,1) الى راح ابين بعد قليل ليه 

Private Mylock As Byte

وعند التحميل للنموذح اضفت الكود الاتى لأسند الى المتغير قيمة 0

Private Sub Form_Load()
Mylock = 0
End Sub

وهناك عغلى النموذج زر امر اسمه    >--->>    أمر11

واضفت الكود الى زر الامر

Select Case Mylock
Case Is = 0
Me.أمر11.Caption = "تفعيل"
Mylock = 1

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
            If ctl.Tag = "lock" Then
            ctl.Enabled = False
            End If
        End If
    Next ctl
    Exit Sub

Case Is = 1
Me.أمر11.Caption = "تعطيل"
Mylock = 0

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
            If ctl.Tag = "lock" Then
            ctl.Enabled = True
            End If
        End If
    Next ctl
    Exit Sub
End Select

شرح الكود اذا كان المتغير = 0
اعادة تسمية زر الامر الى تفعيل
تغير قيمة المتغير فتكون=1

الدوران على كل العناصر على النموذج ان كانت تيكست بوكس او كومبو بوكس او ليست بوكس وكان التاج لكل منهم هو  >--->>  lock

يتم تنفيذ الامر التالى على كل تلك العناصر دفعة واحدة  .Enabled = False

والعكس عندما يتغير قيمة المتغير واسم زر الامر 

يغنى كودين على زر امر واحد بدل من زرين امر 

[ابو ياسين المشولي]

بارك الله فيك