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

مساعدة في تعديل كود لاخفاء حقول معينه

بدأه ناصر المصلح في 10 أبريل 2014 · 12 رد · 728 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

TSgY17.png

 

عندما تكون الجنسية سعودي لااريد ان يضهر خيار التذكرة والتاشيرة

 

فقمت بعمل الكود التالي ولكنه لايستجيب الى من خلال تحديد الماوس على الجنسية ( سعودي )

 

فهل الممكن المساعدة

 

حدث في الحالي

Private Sub Form_Current()
Me.n.SetFocus
If n.Text = "سعودي" Then
T18.Visible = False
T20.Visible = False

Else
T18.Visible = True
T20.Visible = True

End If
End Sub

تم تعديل هذه المشاركة بواسطة ناصر المصلح في 10 أبريل 2014 في 13:48

#2

للرفع ياخوان

#3

هل النموذج بالصورة طريقة عرضه Continuous  ؟

أرفق الملف ربما لا نجد حلا وربما لا نجد أيضاً

#4

نعم نماذج مستمرة (Continuous)

 

 

حقل الجنسية     n

حقل التذاكر     T18

حقل التاشيرة    T20

حقل الصرف   T22

تم تعديل هذه المشاركة بواسطة ناصر المصلح في 12 أبريل 2014 في 01:13

#5

للرفع ياخوان

#6
Private Sub Form_Current()
Me.n.SetFocus
If n.Text = "سعودي" Then
T18.Visible = False
T20.Visible = False
Exit Sub
End If

If n.Text <> "سعودي" Then
T18.Visible = True
T20.Visible = True
Exit Sub
End If
End Sub
#7

كل الشكر لتواصلك عزيزي

smsmvb

لم يتغير شئ

لايتم اخفاء الحقول الخاصة بالسعوديين الياً

 

صورة للوضع الحالي بعد اضافة الكود المرسل منك

 

Q3e4SM.png

تم تعديل هذه المشاركة بواسطة ناصر المصلح في 13 أبريل 2014 في 10:45

#8

الشكر لله أخي ... بحاول المساعدة مش أكثر

 

جرب الحل ده ان شاء الله ينفع

 

 

1-ضع زر خانة اختيار على النموذج Check Box ... ثم اجعل اسمها chk_saudi 

 ثم ضع الكود التالي فى حدث الضغط على ال Check Box 

Private Sub chk_saudi_Click()

If chk_saudi.Value = True Then
[T18].Visible = False
[T20].Visible = False
Exit Sub
End If

If chk_saudi.Value = False Then
[T18].Visible = True
[T20].Visible = True
Exit Sub
End If


End Sub

2- يمكنك تحديد الكلمة "سعودي" فى النموذج .. ثم الضغط على زر تصفية حسب النحديد Filter By Selection .... من شريط الأدوات 

3- سيتم تصفية النموذج على البيانات الخاصة بالجنسية "سعودي" فقط

4- اضغط على زر خانة اختيار المسماه chk_saudi و عنما تكون معلم عليها Checked .... ستختفى من النموذج زرى الاختيار T18 و T20

5-بع الانتهاء اضغط على زر الغاء التصفية Toggle Filter لإلغاء التصفية و عودة كل البيانات فى النموذج

 

جرب الحل ده ان شاء الله ينفع

تم تعديل هذه المشاركة بواسطة smsmvb في 13 أبريل 2014 في 13:00

1
#9

اخي الفاضل شكرا جزيلا لمجهودك

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

 

كل الشكر لوقتك الغالي

#10

للرفع

#11

للرفع جزيتم خيرا

#12

اخي الفاضل : ناصر

 

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

 

اذا كنت تعمل على نموذج مستمر  فلا يمكنك اخفاء كائنات ( مثل علامات الإختيار ) بحيث تخفي بعضها وتترك بعضها لأنها كلها في نفس الصف 

 

فمثلا انت تريد اخفاء خانتي تذاكر وتأشيره اذا كان حقل الجنسية سعودي وهذا لا يمكن إلا في حالة كان النموذج مفرد فقط

 

اما النموذج المستمر فسوف تختفي كل حقول التذاكر والتأشيرات دفعة واحده .

 

لذا فإن الحل الوحيد لديك هو التحول الى نموذج مفرد وعدى ذلك لا يمكنك اخفاء الحقول . فلا تتعب تفسك بهذا السؤال والبحث عن اجابة له

 

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 19 أبريل 2014 في 21:37

#13

اختي الفاضلة شكرا لتواجدك

واجابتك تعني انه من المستحيل عمل ذلك في النماذج المستمرة

 

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

 

فشكرا للجميع من الاعماق

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