الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل نموذج

بدأه خالد عبد الغ في 8 أكتوبر 2010 · 4 رد · 492 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الإخوة الأعزاء مشرفين وأعضاء

                        السلام عليكم ورحمة الله وبركاته

    بالمرفق نموذج للأستاذة زهره يستخرج تاريخ الميلاد من الرقم القومى ارجو تعديله ليخرج لنا نوع الشخص ذكر/ انثى ومحافظة الميلاد حسب الشرح والصوره

الموجودان بالنموذج   وللجميع تحياتىID-Number_And_Name.rar

خويلد 

#2

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

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

تم تعديل هذه المشاركة بواسطة mrnooo2000 في 8 أكتوبر 2010 في 09:24

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

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

خويلد 

#4

اليك التعديل

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

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))

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#5
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))

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

                                 تقبل تحياتى

خويلد 

مواضيع مشابهة