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

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

الفكرة تعتمد على عملية الاخفاء والاضهار

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

الاسم xName

الرقم xNumber

نريد الان اخفاء هذه المربعات بواسطة خانة اختيار CheckBox

اذن نفتح النموذج في وضع التصميم ونضع في حدث الحالي الكود التالي

Private Sub Form_Current()
If Me.VIS = True Then
Me.xNAME.Visible = False
Me.xNUMBER.Visible = False
Else
Me.xNAME.Visible = True
Me.xNUMBER.Visible = True
End If
End Sub

فكرة الكود انه في حالة كانت علامة الاختيار VIS عليها علامة صح تختفي مربعات النص وذا لم يكن عليها علامة صح تبقى مربعات النص ظاهره

وهذا مثال

Visible.rar

اختكم

زهره

شكرا جزيلا لك أختى زهرة وجزاك الله خيرا علي مجهودك ومساعدتك لنا جميعا...

ولقد استخدمت هذا الكود ولكن بشكل مختلف وهو اذا كانت قيمة VIS = True يقوم بعرض السجل التالي ولكن واجهتنى مشكلة وهي في السجل الأخير ....أريد أن استخدم كود EOF بحيث اذا كان السجل الأخير يقوم بعرض السجل السابق له ....ولكن لم استطع كتابة هذا الكود ...

أرجو المساعدة وأسف لتعبك

الرجاء من الأخت زهرة والأخوة الكرام المساعدة