تعديل نموذج

استخدم هذا الكود اخى

Private Sub IDNumber_AfterUpdate()
Me![DateOfBirth] = 1900 + (Mid([IDNumber], 2, 2)) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2)
Me![sex] = IIf(Mid([IDNumber], 13, 1) Mod 2 = 0, "ذكر", "انثى")
Me.gov = DLookup("gov", "gov", "id=" & Mid(Me.IDNumber, 8, 2))
End Sub

ألف شكر أخى الفاضل ولكن لم تحل مشكلة القرن حيث أن الرقم الأول من اليسار اذا كان 2 نضيف للسنه 1900أما اذا كان 3 نضيف على السنوات2000وألف شكر لك مرة أخرى

اليك التعديل

ليعطيك السنوات الى ما شاء الله او ان تعدل وزارة الداخلية نظام الترقيم

Dim yy
yy = Mid([IDNumber], 1, 1) * 100 + 1700
Me![DateOfBirth] = yy + (Mid([IDNumber], 2, 2)) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2)
Me![sex] = IIf(Mid([IDNumber], 13, 1) Mod 2 = 0, "ÃäËì", "ÐßÑ")
Me.gov = DLookup("gov", "gov", "id=" & Mid(Me.IDNumber, 8, 2))

mrnooo2000 كتب:

اليك التعديل

ليعطيك السنوات الى ما شاء الله او ان تعدل وزارة الداخلية نظام الترقيم

Dim yy
yy = Mid([IDNumber], 1, 1) * 100 + 1700
Me![DateOfBirth] = yy + (Mid([IDNumber], 2, 2)) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2)
Me![sex] = IIf(Mid([IDNumber], 13, 1) Mod 2 = 0, "ÃäËì", "ÐßÑ")
Me.gov = DLookup("gov", "gov", "id=" & Mid(Me.IDNumber, 8, 2))

ألف مليون شكر أخى الفاضل وجزاك الله خير الجزاء تم الضبط بالفعل

                                 تقبل تحياتى