البحث عن تاريخ الميلاد

[houari-edu]

أساتذتي الكرام أسعد الله نهاركم لو تفضلتم

لدي جدول به سجل [رقم التعريف الوطني] يحتوي على 16 رقم     1000329010391300 و لدي سجل [سنة المبلاد] . في هذا أريد اذا كان 03 يكتب 2003 و هكذا.

[jjafferr]

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

 

في الاستعلام:

[سنة الميلاد]: "20" & mid([رقم التعريف الوطني],4,2)

 

جعفر

[اشرف]

السلام عليكم

مشاركة مع استاذنا jjafferr

نفس النتيجة بس من سكة تانية وان كانت طريقة اخونا الفاضل jjafferr اسهل 

اخي houari-edu

انسخ رقم التعريف الوطني في نفس خانة  سنة الميلاد في الجدول ثم ادهب الي النموذج واضغط انتر (ENTER)

 

11.accdb

[houari-edu]

شكرا على المعلومة

[Eng.Qassim]

استاذنا العزيز @اشرف

اين الخطأ؟

 

[ابو جودي]

ومع تجربة الرقم الاتى تكون نتيجة خطأ - تاريخ الميلاد 82

1008229010391300

 

وفكرتى فى حدث فتح النموذج 

    Dim rst As dao.Recordset
    Dim inc As Long
    
    Set rst = CurrentDb.OpenRecordset("SELECT جدول1.* FROM جدول1;")
    rst.MoveFirst
  
    Do Until rst.EOF
 
        If Mid(rst![رقم _التعريف _الوطني], 4, 2) > Format(Date, "yy") Then
            inc = "19" & Mid(rst![رقم _التعريف _الوطني], 4, 2)
        ElseIf Mid(rst![رقم _التعريف _الوطني], 4, 2) <= Format(Date, "yy") Then
            inc = "20" & Mid(rst![رقم _التعريف _الوطني], 4, 2)
        End If
        
        rst.Edit
            rst!سنة_المبلاد = inc
        rst.Update
  
        rst.MoveNext
    Loop
     
    rst.Close: Set rst = Nothing
      
    MsgBox "Done"

 

تم تعديل يناير 12, 2022 بواسطه ابو جودي

[اشرف]

السلام عليكم اخي الفاضل   Eng.Qassim

اين الخطأ

1000629010391300 الخطأ ان الرقم اللي انا نسخته سنة الميلاد كان 1001129010391300 معلش خطأ اللصق مني

انما الكود سليم اعد لصق الرقم الصحيح هتلاقي كله تمام

 

تم تعديل يناير 13, 2022 بواسطه اشرف