عبدالعزيز محمد قام بنشر سبتمبر 19, 2017 مشاركة قام بنشر سبتمبر 19, 2017 السلام عليكم عندي قاعدة بيانات طلاب بها حقل للرقم الوطني وآخر للجنس أود عند كتابة الرقم الوطني يتم كتابة جنس الطالب بناء على بداية الرقم الوطني فالرقم الأول(1-2) عبارة عن رمز فرقم 1=ذكر ورقم2=أنثى المطلوب عند كتابة الرقم الوطني يتم كتابة جنس الطالب Aziz.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر سبتمبر 19, 2017 مشاركة قام بنشر سبتمبر 19, 2017 وعليكم السلام تفضل جرب هذا الكود Private Sub Gender() If Len(Me.aziz & "") <> 0 Then Exit Sub If Left(Me.code, 1) = 1 Then Me.aziz = "ذكر" Else Me.aziz = "أنثى" End If End Sub Private Sub code_AfterUpdate() Call Gender End Sub Private Sub Form_Current() Call Gender End Sub . ويعمل كالتالي (يجب ان يكون حقل الجنس فارغ لكي تعمل الطريقتين): 1. اذا كتبت الرقم القومي ، وعند حدث "بعد التحديث" سيعمل الكود ويعبأ الخانه ، 2. اذا انتقلت من سجل الى آخر ، وحدث "الحالي" سيعمل الكود ويعبأ الخانه على فكرة ، حقل aziz يجب تكبيره في الجدول ليأخذ 4 حروف بدلا من 3 جعفر 1 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر سبتمبر 19, 2017 الكاتب مشاركة قام بنشر سبتمبر 19, 2017 السلام عليكم نأمل تطبيق الكود على المثال المرفق رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر سبتمبر 19, 2017 مشاركة قام بنشر سبتمبر 19, 2017 تفضل 732.Database1.accdb.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان