عمل وحدة نمطية تستدعي مربع نصي في اي شاشة

[Shereen Ahmed]

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

مطلوب عمل وحدة نمطية "module" تستدعي مربع نصي و تجعله نشط او غير نشط علي اساس شرط في كومبوبوكس في الشاشة و بحيث تعمل علي كل الشاشات التي في ملف الاكسيس المرفق 

بحيث اذا كانت قية الحقل ID= 1

فان TEXT1 يصبح نشط 

و TEXT2 يصبح غير نشط 

و العكس اذا كانت قيمة الحقل ID=2

و بحيث يطبق هذا علي كل من : 

 FORM1 , FORM2 , FORM3

حيث انه يتم تكرار الكود التالي في اكثر من زمن 

If Me.ID = 1 Then
TEXT1.Enabled = True
TEXT2.Enabled = True
TEXT3.Enabled = False
Text4.Enabled = False
Else
TEXT1.Enabled = False
TEXT2.Enabled = False
TEXT3.Enabled = True
Text4.Enabled = True
End If

في اكثر من زمن 

AFTER UPDATE 

ON FORM CURRENT

ON FORM OPEN

و المطلوب هو دالة نمطية تصلح للتعامل كما هو مطلوب مع الثلاث شاشات المذكورة 

كما هو مرفق في المثال

و جزاكم الله خيرا

 

test.mdb

تم تعديل يونيو 1, 2020 بواسطه Shereen Ahmed

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

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

[Shereen Ahmed]

تسلم الله يعزك 

تم التوضيح للمطلوب في النص و بالمثال المرفق و المطلوب هو عدم تكرار الكود كما هو مذكور 

 

بحيث اذا كانت قية الحقل ID= 1

فان TEXT1 يصبح نشط 

و TEXT2 يصبح غير نشط 

و العكس اذا كانت قيمة الحقل ID=2

و بحيث يطبق هذا علي كل من : 

 FORM1 , FORM2 , FORM3

حيث انه يتم تكرار الكود التالي في اكثر من زمن 

If Me.ID = 1 Then
TEXT1.Enabled = True
TEXT2.Enabled = True
TEXT3.Enabled = False
Text4.Enabled = False
Else
TEXT1.Enabled = False
TEXT2.Enabled = False
TEXT3.Enabled = True
Text4.Enabled = True
End If

في اكثر من زمن 

AFTER UPDATE 

ON FORM CURRENT

ON FORM OPEN

و المطلوب هو دالة نمطية تصلح للتعامل كما هو مطلوب مع الثلاث شاشات المذكورة 

كما هو مرفق في المثال

و جزاكم الله خيرا

test.mdb

تم تعديل يونيو 1, 2020 بواسطه Shereen Ahmed

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

هل هذا ماتقصده

Option Compare Database

Public Function aboyaseen()
If Forms!FORM1.ID = 1 Then
Forms!FORM1!TEXT1.Enabled = True
Forms!FORM1!TEXT2.Enabled = True
Forms!FORM1!TEXT3.Enabled = False
Forms!FORM1!Text4.Enabled = False
Else
Forms!FORM1!TEXT1.Enabled = False
Forms!FORM1!TEXT2.Enabled = False
Forms!FORM1!TEXT3.Enabled = True
Forms!FORM1!Text4.Enabled = True
End If
End Function
Public Function aboyaseen2()
If Forms!FORM2.ID = 1 Then
Forms!FORM2!TEXT1.Enabled = True
Forms!FORM2!TEXT2.Enabled = True
Forms!FORM2!TEXT3.Enabled = False
Forms!FORM2!Text4.Enabled = False
Else
Forms!FORM2!TEXT1.Enabled = False
Forms!FORM2!TEXT2.Enabled = False
Forms!FORM2!TEXT3.Enabled = True
Forms!FORM2!Text4.Enabled = True
End If
End Function
Public Function aboyaseen3()
If Forms!FORM3.ID = 1 Then
 Forms!FORM3!TEXT1.Enabled = True
 Forms!FORM3!TEXT2.Enabled = True
 Forms!FORM3!TEXT3.Enabled = False
 Forms!FORM3!Text4.Enabled = False
Else
 Forms!FORM3!TEXT1.Enabled = False
 Forms!FORM3!TEXT2.Enabled = False
 Forms!FORM3!TEXT3.Enabled = True
 Forms!FORM3!Text4.Enabled = True
End If

End Function

 

test (1).mdb

[Shereen Ahmed]

تسلم الله يبارك فيك 

بس عني سؤال هو لازم اكتب اسم الفورمة 

FORM1

FROM2

FROM3 

ما ينفع اعمل و حدة نمطية او MODULE  واحد يشتغل علي كل الشاشات بدون ذكر اسم الشاشة 

و جزاك الله خيرا

 

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

لازم اسم الفورم عشان انه بوحده نمطيه

ولزيم يعرف في اي فورم هو

[Shereen Ahmed]

تمام

بس هل يمكن بحيث يمكن كتابة كود يعرف اسم الشاشة في الوحدة النمطية 

او نعمل كود يكون فيه التنشيط ENABLED

و كود تاني يكون باسم الفورم

مثلا 

اعذرني لجهلي ........... جزاكم الله خيرا

 

[husamwahab]

السلام عليكم

مشاركة مع استاذنا ابو ياسين

ملاحظة : الكود تعديل على كود الاستاذ ابو ياسين

test (2).rar

تم تعديل يونيو 1, 2020 بواسطه husamwahab

[Shereen Ahmed]

تسلم ايديكم و جزاكم الله خيرا ا/ ابو ياسين و ا/حسام 

الله يبارك فيكم جميعا