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

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

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

نأمل أن يكون المطلوب واضحا

Aziz.rar

[ناقل]

انظر هذا الموضوع ..

في ٣٠‏/١٠‏/٢٠٢٠ at 23:01, ابو البشر said:

تفضل .....

ولكن عنوان الموضوع يجب ان يكون موافق لما في داخل الموضوع ( قوانين المنتدى ) ... بارك الله فيك

 

استخلاص تاريخ الميلاد.rar 13.18 kB · 14 downloads

 

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

جزاك الله خيرا

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

ملاحظة: عند غدم وجود الرقم الوطني لا يحدث شيئ

 

[ابو عارف]

تفضل أخي بعد كتابة رقم القومي اضغط على زر انتر

Aziz (1).rar

Rem === كود لتعبئة حقل الجتس تلقائي بناء على الرقم الوطني====

   Call Gender
   PIRTH_DATE.SetFocus
   
      Rem ==== كود يقوم بالتحقق من صحة الرقم الوطني====
   
  If Left(Me.CODE, 1) <> 1 And Left(Me.CODE, 1) <> 2 Then
            MsgBox "عذراً الرقم الذي ادخلته غير صحيح" & Chr(13) & "أعد إدخال الرقم الوطني بشكل صحيح"
            Me.CODE = ""
            Me.CODE.SetFocus
            Cancel = True
        ElseIf Len(Me.CODE & "") <> 12 Then
            MsgBox "ادخل الرقم الوطني"
            Me.CODE = ""
            Me.CODE.SetFocus
            Cancel = True
    End If
    
PIRTH_DATE.SetFocus
PIRTH_DATE.SelStart = 6
  SendKeys Mid(CODE, 2, 4)
  SendKeys "{LEFT 8}"

 

تم تعديل نوفمبر 10, 2020 بواسطه ابو عارف
اضافة مرفق

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

مشكور ومنور

هل يمكن جعل التعبئة بعد تحديث الحقل الجنسية لو تكرمت وجزاك الله خيرا

[ابو عارف]

2 ساعات مضت, عبدالعزيز محمد said:

هل يمكن جعل التعبئة بعد تحديث الحقل الجنسية لو تكرمت وجزاك الله خيرا

نعم ممكن تفضل

Aziz (1).rar

 

تم تعديل نوفمبر 10, 2020 بواسطه ابو عارف
تغير المرفق

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

ولو سمحت لو ان الرقم الوطني غير موجود أريد من البرنامج أن يسمح بعدم وجود الرقم الوطني وتكون كتابته يدويا

 

[ابو عارف]

18 دقائق مضت, عبدالعزيز محمد said:

ولو سمحت لو ان الرقم الوطني غير موجود أريد من البرنامج أن يسمح بعدم وجود الرقم الوطني وتكون كتابته يدويا

تم تعديل المرفق السابق ايضا

Aziz (1).rar