هل يمكن اخفاء الحقول فى النموزج واظهارها برقم سرى

[ابو الآء]

السلام عليكم

لدى نموزج لادخال درجات الامتحان

وفيه الاسم ورقم الجلوس والرقم السرى 

هل يمكن عمل زر لاحفاء الاسم ورقم الجلوس ولا  تظهر الا برقم سرى 

[sandanet]

انصحك بتشفير الاسم ورقم الجلوس لانها طريقة مضمونه 100% 

[Shivan Rekany]

18 ساعات مضت, ابو الآء said:

السلام عليكم

لدى نموزج لادخال درجات الامتحان

وفيه الاسم ورقم الجلوس والرقم السرى 

هل يمكن عمل زر لاحفاء الاسم ورقم الجلوس ولا  تظهر الا برقم سرى 

على الرغم ما ارفقت اي قاعدة لكي نعمل عليه
لكن خذ هذا الكود
 

If InputBox("idxal raqam siri", "tanbih") = "123" Then
    Me.MyNameTextbox.Visible = True
        Me.MyCiloseTextbox.Visible = True
   Else
        Me.MyNameTextbox.Visible = False
            Me.MyCiloseTextbox.Visible = False
End If

1 - غير رقم 123 برقم سري خاص بك
2 - غير MyNameTextbox ب مربع نصي اللي بها اسم

3 - غير MyCiloseTextbox ب مربع نصي اللي بها رقم الجلوس
4 - وغير خاصية اظهار اي visible ل كلا المربعين الى لا "no" عند تحميل النموذج

تحياتي

[ابو الآء]

3 ساعات مضت, Shivan Rekany said:

على الرغم ما ارفقت اي قاعدة لكي نعمل عليه
لكن خذ هذا الكود
 

If InputBox("idxal raqam siri", "tanbih") = "123" Then
    Me.MyNameTextbox.Visible = True
        Me.MyCiloseTextbox.Visible = True
   Else
        Me.MyNameTextbox.Visible = False
            Me.MyCiloseTextbox.Visible = False
End If

1 - غير رقم 123 برقم سري خاص بك
2 - غير MyNameTextbox ب مربع نصي اللي بها اسم

3 - غير MyCiloseTextbox ب مربع نصي اللي بها رقم الجلوس
4 - وغير خاصية اظهار اي visible ل كلا المربعين الى لا "no" عند تحميل النموذج

تحياتي

بارك الله فيك اخى الكريم واسف على عدم رفع الملف من المره الاولى 

الفورم بالملف هو فورم

frm_Control_Shit1

وقد طبقت فكره قديمه من ملف لدى واردت ان اضيف لها رقم سرى ولم افلح

سوف احاول تطبيف  ما تفضلت به 

هليمكن تنفيز الفكره على ملفى 

واريد ايضا اخفاء  المواد الدراسيه ولا يظهر سوى الماده المطلوب رصدها

ولا يتمكن المستخدم من الرصد خارج الماده المحدده فقط ولكن بدون رقم سرى 

المطلوب له رقم سرى فقط هوااا الاسم ورقم الجلوس

 

003.rar

[Shivan Rekany]

18 ساعات مضت, ابو الآء said:

بارك الله فيك اخى الكريم واسف على عدم رفع الملف من المره الاولى 

الفورم بالملف هو فورم

frm_Control_Shit1

وقد طبقت فكره قديمه من ملف لدى واردت ان اضيف لها رقم سرى ولم افلح

سوف احاول تطبيف  ما تفضلت به 

هليمكن تنفيز الفكره على ملفى 

واريد ايضا اخفاء  المواد الدراسيه ولا يظهر سوى الماده المطلوب رصدها

ولا يتمكن المستخدم من الرصد خارج الماده المحدده فقط ولكن بدون رقم سرى 

المطلوب له رقم سرى فقط هوااا الاسم ورقم الجلوس

 

003.rar

اتفضل
انا استخدمت الكودين الاسفل 
عملت ديفيلوت فيو ل جيك بوكس false

واستخدمت في الحالي هذا الكود

Private Sub Form_Current()
If Me.ttt = False Then
        Me.raqm_aljulus.Visible = False
            Me.[student's_name].Visible = False
End If
End Sub

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

Private Sub ttt_AfterUpdate()
If Me.ttt = True And InputBox("ÇÏÎá ÑÞã ÓÑí", "ÇÙåÇÑ æ ÇÎÝÇÁ") = "123" Then
        Me.raqm_aljulus.Visible = True
            Me.[student's_name].Visible = True
                Else
        Me.ttt = False
        Call Form_Current
        
'        Me.raqm_aljulus.Visible = False
'            Me.[student's_name].Visible = False
End If
End Sub

اتفضل مع قاعدة بياناتك بعد تعديل

 

 

003.rar

[ابو الآء]

 

استاذ الفاضل

Shivan Rekany

 

بارك الله فيك اخى ومعلمى الفاضل 

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

والفكره جميله وهى ما كنت ابحث عنه فعلا

ربي يبارك فيك اخى الفاضل