الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أختصار لكود

مغلق
بدأه عادل صنهات في 22 أغسطس 2004 · 4 رد · 517 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كما تشاهدون هذا الكود طويل جداً ويصعب أن أكتبة مع جميع أفراد العائلة فهل له أختصار أذا أمكن .

End Select

If Me.[k2] = "الزوجة" Then

Me.[a].Visible = True

Me..Visible = True

Me.[c].Visible = True

Me.[d].Visible = True

Me.[e].Visible = True

Me.[f].Visible = True

Me.[g].Visible = True

ElseIf Me.[k2] = "الزوج" Then

Me.[a].Visible = False

Me..Visible = False

Me.[c].Visible = False

Me.[d].Visible = False

Me.[e].Visible = False

Me.[f].Visible = False

Me.[g].Visible = False

ElseIf Me.[k2] = "الابن" Then

Me.[a].Visible = False

Me..Visible = False

Me.[c].Visible = False

Me.[d].Visible = False

Me.[e].Visible = False

Me.[f].Visible = False

Me.[g].Visible = False

End If

End Sub

وتقبلوا تحياتي ،،،،

#2 
Dim VS as boolean
VS = k2 = "الزوجة"
a.Visible = VS
b.Visible = VS
c.Visible = VS
d.Visible = VS
e.Visible = VS
f.Visible = VS
g.Visible = VS

وإذ1 كان هناك أكثر من حالة مثل الزوجة ضع في السطر الثاني 

Or k2 = "الحالة الأخرى"

دورة تعليمية في تصميم دليل هاتف بلغة دلفي جديد

دورة شاملة في VB.NETجديد

برنامج مثبت نظام المستخدمين - الاصدار الثاني جديد

اعمل أزرار جميلة بتأثيرات رائعة بسهولة

تعلم الأداة MsFlexGrid : سلسلة دروس تعليمية

أداة التدرج اللوني مع الكود للراغبين بالاطلاع على برمجة ActiveX

هدية : أداة OCX من أجل ضبط النص في أداة textBox

arabmoheet.gif

#3

أخي مهند .

السلام عليكم .

الكود هو لاخفاء مربعات نص في انموذج .

وما أريده أن تكون مربعات النص مخفية لعموم الاسماء بأستثناء الزوجه عند أختيارها تظهر مربعات النص .

وتقبل تحياتي ،،،،،،،،،،،،

#4

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

الطريقة الأولى:

Dim MyControl AS Object
Dim DisplayTextBox AS Boolean

If me.k2="الزوجة" Then DisplayTextBox=True Else DisplayTextBox=False
For Each MyControl In Me
If TypeOf MyControl Is TextBox Then
MyControl.Visible = DisplayTextBox
End If
Next

الطريقة الثانية:

Dim DisplayTextBox AS Boolean

If me.k2="الزوجة" Then DisplayTextBox=True Else DisplayTextBox=False

a.Visible = DisplayTextBox
b.Visible = DisplayTextBox
c.Visible = DisplayTextBox
d.Visible = DisplayTextBox
e.Visible = DisplayTextBox
f.Visible = DisplayTextBox
g.Visible = DisplayTextBox

أرجو أن أكون قد قدمت المساعدة.

وشكراً

#5

أخي الكريم /aroma_kt

لك مني جزيل الشكر والعرفان .

الطريقتان نجحتا .

تقبل تحياتي ،،،،،،،،،،

هذا الموضوع مغلق.

مواضيع مشابهة