ابو الآء قام بنشر مارس 3, 2017 مشاركة قام بنشر مارس 3, 2017 السلام عليكم لدى نموزج لادخال درجات الامتحان وفيه الاسم ورقم الجلوس والرقم السرى هل يمكن عمل زر لاحفاء الاسم ورقم الجلوس ولا تظهر الا برقم سرى رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر مارس 4, 2017 مشاركة قام بنشر مارس 4, 2017 انصحك بتشفير الاسم ورقم الجلوس لانها طريقة مضمونه 100% 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 4, 2017 مشاركة قام بنشر مارس 4, 2017 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" عند تحميل النموذج تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مارس 4, 2017 الكاتب مشاركة قام بنشر مارس 4, 2017 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 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 5, 2017 مشاركة قام بنشر مارس 5, 2017 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 1 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مارس 5, 2017 الكاتب مشاركة قام بنشر مارس 5, 2017 استاذ الفاضل Shivan Rekany بارك الله فيك اخى ومعلمى الفاضل الف شكر على هذا العمل الجميل واسف على التأخر فى الرد لانى كنت فى العمل خارج المنزل والفكره جميله وهى ما كنت ابحث عنه فعلا ربي يبارك فيك اخى الفاضل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.