كتابة نص محدد بناء على بداية حقل آخر

[عبدالعزيز محمد]

السلام عليكم 

عندي قاعدة بيانات طلاب بها حقل للرقم الوطني وآخر للجنس أود عند كتابة الرقم الوطني يتم كتابة جنس الطالب بناء على بداية الرقم الوطني فالرقم الأول(1-2) عبارة عن رمز فرقم 1=ذكر ورقم2=أنثى 

المطلوب عند كتابة الرقم الوطني يتم كتابة جنس الطالب

Aziz.rar

[jjafferr]

وعليكم السلام

 

تفضل جرب هذا الكود

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

 

جعفر

[عبدالعزيز محمد]

السلام عليكم

نأمل تطبيق الكود على المثال المرفق

[jjafferr]

تفضل

732.Database1.accdb.zip