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

[rey360]

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

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

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

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

[kha9009lid]

جرب المرفق

Database311.accdbFetching info...

[rey360]

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

[ابو جودي]

  في 19‏/9‏/2019 at 15:44, ابو ياسين المشولي said:

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

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

Expand  

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

[kha9009lid]

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

  في 19‏/9‏/2019 at 15:56, rey360 said:

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

Expand  

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

[ابو جودي]

  في 19‏/9‏/2019 at 15:59, kha9009lid said:

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

Expand  

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

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

[ابو جودي]

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

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

 

 

Database311.accdbFetching info...

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

[kha9009lid]

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

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

  في 19‏/9‏/2019 at 16:34, ابا جودى said:

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

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

 

 

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

Expand  

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

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

[ابو جودي]

  في 19‏/9‏/2019 at 17:07, ابو ياسين المشولي said:

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

Expand  

مفيش ابداعات ولا شئ انا استخدمت التاج والدوران على العناصر على النموذج من خلال التاج الاتى للعناصر المراد عدم تفعيلها او تعطيلها >--->>  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

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

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

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

بارك الله فيك