[ تمت الإجابة ]محتاج طريقة اخذ التاريخ من الرقم المدني ، واسم الأب من اسم الأبن

اقتباس

يمكن انا عقدت السالفة

ليس الامر فقط بالتعقيد - لكن اسمح لي يا أخ عبدالله

اسألتك تبدو غريبة !!!

عند بناء القاعدة لماذا لايكون لديك مخطط وتصور بما تحتاجه

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

حيث تختار الاسهل والأوضح حتى تتمكن من البرمجة عندها اعمل التعقيد الذي تراه

بالله عليك هل يعقل أن يكون التاريخ بداخل الرقم المدني !!

أرجو أن لا تغضب من طرحي الصريح .. موفق أخي الكريم

بالعكس اخي الكريم لا اغضب ولا هم يحزنون ^^

لكن عندنا نحن بالكويت الرقم المدني عبارة عن تاريخ الميلاد وزيادة عليه ارقام معينة ....

وانا عطيتك مثال لرقم مدني واريد طريقة لاستخلاج تاريخ الميلاد من الرقم ... بالأكسيس طبعاً ^^

اعتقد وضحت الصورة الآن ... يعني ابي اذا دخلت الرقم المدني لشخص يدرج التاريخ تلقائياً ..

اقتباس

اعتقد وضحت الصورة الآن ... يعني ابي اذا دخلت الرقم المدني لشخص يدرج التاريخ تلقائياً

نعم وضحت واعتذر اليك في سؤء فهمي للموضوع

حيث ان الامر هكذا ... عليه أمل ارفاق المثال الذي به

المشكلة وان شاء الله يكون خير

تفضل اخي الكريم

المثال بناء على طلبك

ID_Number_And_Name.rar

يا رجال لا اعتذار ولا شيء ، انا اللي اعتذر عن سوء توضيحي للفكرة ...

جزاك الله خير اخوي وبارك الله فيك ...

اختي الكريمة زهرة ... اسأل الله ان يحرم وجهك ووجهة ذريتك واهليك من النار ، وان يشملنا معكم في رحمته ... انه جواد كريم ...

اختي الوحدة النمطية نقلتها كما هي ، وعملت حدث لأسم الأبن والرقم المدني ، ضبطت معي الرقم المدني لكن الأسم ما ضبطت ....؟ (( لا ينقل لي شيء ))....؟

ممكن شرح بسيط سريع للتعديلات اللي المفروض اعملهـا على مثالي ... وجزاك الله خيرا ...

اخي الفاضل عبدالله

يوجد وحده نمطيه خاصة بتقسيم الإسم الى عدة اجزاء

Function PartOfName(InName As String, NumberOfPart As Byte) As String
Dim TheSpaceNumber As Byte
Dim I As Integer, U As Integer

InName = NoSpaces(InName)
PartOfName = ""
If InName = "" Then Exit Function

Do
	U = I
	I = InStr(I + 1, InName, " ", 1)
	If I <> 0 Then
		TheSpaceNumber = TheSpaceNumber + 1
		If TheSpaceNumber = NumberOfPart Then Exit Do
	ElseIf TheSpaceNumber + 1 = NumberOfPart Then
		I = Len(InName) + 1
		Exit Do
	Else
		Exit Function
	End If
Loop

	PartOfName = Trim(Mid(InName, U + 1, I - U - 1))
End Function

Function NoSpaces(InName As String) As String
Dim NewName As String, ThePrevStr As String, TheStr As String
Dim I As Integer
InName = Trim(InName)
For I = 1 To Len(InName)
	TheStr = Mid(InName, I, 1)
	If TheStr = " " And ThePrevStr = " " Then TheStr = ""
	If TheStr <> "" Then ThePrevStr = TheStr
	NewName = NewName & TheStr
Next
NoSpaces = NewName
End Function

ومن ثم يتم تجميع اسم الأب كاملا بالكود

هذا الكود يوضع في النموذج في حدث بعد التحديث لرقم الهوية

Private Sub IDNumber_AfterUpdate()
Me![DateOfBirth] = 1900 + (Mid([IDNumber], 2, 2)) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2)
End Sub

هذا الكود يوضع في النموذج في حدث بعد التحديث لإسم الإبن ليتم تحديث اسم الأب ( قم بالتعديل لتسميات الحقول حسب ما هو موجود لديك )

Private Sub sName_AfterUpdate()
Me![fName] = PartOfName([sName], 2) & " " & PartOfName([sName], 3) & " " & PartOfName([sName], 4)
End Sub

المثال يعمل بشكل جيد ولا يوجد به اي مشكله

اختي المثال تبعك يعمل مية بالمية ...

لكن انا طبقته كما هو وكما شرحتي ولكن لم يضبط معي إلا تاريخ الميلاد ... اما الأسم فلم يضبط معي .....؟

لا ينقل لي اسم الأب كاملا ولا حتى حرف واحد ...؟ اعتقد يكتب لي فراغ فقط ...؟

انا اقصد ان الوحدة النمطية هل فيها تعديل ولا انقلها كما هي ....؟ يعني هل هذه الوحدة النمطية تركب مع اي قاعدة دون التعديل عليهـا ...؟؟؟

منتظر جواب اختي الكريمة ، وجزاك الله خيرا ...

اخي الفاضل

الوحدة النمطية تنقل كما هي مع اي قاعدة بيانات بدون اي تعديل

كما رأيت في المثال المرفق

فإنه يوجد حقل رقم الهوية IDNumber نضع بعد تحديثه في الكود حقل تاريخ الميلاد DateOfBirth

وايضا حقل اسم الإبن sName نضع بعد تحديثه في الكود حقل اسم الأب fName

حيث سيقوم الأمر PartOfName المأخوذ من الوحدة النمطية بأخذ الإسم الثاني ( 2 ) وهو اسم الأب من اسم الأبن كاملا ويستمر الى اسم الجد ( 3 ) وايضا الإسم الأخير ( 4 ) من اسم الأبن

بمعنى لو كان اسم الإبن بهذه الطريقة :

محمد عبدالله سلطان خالد

فسيكون اسم الأب :

عبدالله سلطان خالد

كل ما عليك هو التاكد من اسماء الحقول الموجوده لديك بطريقة صحيحه سواء في الجدول او في النموذج كما في المثال

اختي الكريمة ...

جزاك الله خير الجزاء اختي على الشرح ...

المشكلة كانت تكمن ان اسم المربع الخاص بادخال اسم الأبن هو Name

قدر الله ان اغير الأسم من Name الى Name1 ....

فانحلت المشكلة ...

فاللهم لك الحمد والمنة ، وبارك الله فيك ..

اختي الكريمة يوجد نقطة اخيرة نسيتها ...

وهي هل يوجد طريقة لتحديث جميع قاعة البيانات بحيث يأخذ اسماء الأباء لمن لم يسجل لهم اسماء من اسماء الأبناء ...

يعني انا الآن لدي تقريباً 700 اسم ابن ولدي خانة فارغة ل 700 اسم اب ، اريد طريقة معينة املئ جميع خانات اسماء الأباء ...؟

لان لو ابي اعملها يدوي راح تأخذ مني وقت كثير ... وجزاك الله خيرا ...

رجاء ان يتم مراجعة الموضوع فى الرقم القومى المصرى آخر رقم يسارا 2 يدل على ان تاريخ الميلاد قبل عام 2000 والرقم 3 يدل على ان تاريخ الميلاد بعد 2000 وهذا لا يضط معى فى النموذج الموجود بمشاركة الاستاذة زهرة