:و: فصل حقل الاسم الى حقلين الأول والعائلة

[حمد بن عبدالله]

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

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

اصدقائي الأعزاء انا جديد على المايكروسوفت اكسس وحديث عهد به

يوجد لدي قائمة تضم اكثر من 300 اسم (الاسم الاول والعائلة)

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

تحياتي

[حمد بن عبدالله]

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

اين باغي الخير والدعاء الصالح

اين الإجابة بارك الله فيكم

[فتى الوادي]

السلام عليكم ....

طيب .. بعد فصل الاسم الأول عن اسم العائلة ... اين توضع .. هل لهما حقول في نفس الجدول ؟! أو لهما جدول مستقل ....؟!!

أرى أن ترسل نموذج للجدول اللي عندك .. وتوضح المطلوب بتفصيل أكثر ؟؟!

[الدكتور خضر الرجبي]

السلام عليكم

1. عرف حقلين جديدين في الجدول first ، Last للأسم الأول والعائلة

2. في النموذج الذي فيه الاسم الكامل أضف الحقلين الجديدين في وضع التصميم

3. في حدث في الحال oncurrent للنموذج ضع الكود التالي :

Private Sub Form_Current()
pos = Nz(InStr(1, LTrim(Me.fName), " "), 0)
If pos > 0 Then
 Me.First = Left(LTrim(Me.fName), pos)
 Me.Last = Right(LTrim(Me.fName), Len(LTrim(Me.fName)) - pos + 1)
Else
 Me.First = LTrim(Me.fName)
End If
End Sub

4. النتيجة هي المطلوب وسوف تفصل االأسماء كما تود عندما تنتقل لأي سجل بعد تحديث التعديل لجميع السجلات بإمكانك حذف حقل الاسم الكامل وحذف الكود ولكن لاحظ أن fname في الكود هو الاسم الكامل

مع الاحترام

[حمد بن عبدالله]

وعليكم السلام ورحمة الله وبركاته اخي الكريم فتى الوادي

المثال طال عمرك على طاعته:

الأسم----------------الوظيفة

حمد بن عبدالله-------طالب عفو ربه

المطلوب فصل اسم حمد عن عبدالله ليكون بهذا الشكل

الأسم الأول: حمد

اسم العائلة: عبدالله

طبعا في حقول جديدة

شكرا لك اخي الكريم وجزاك الله خير

[حمد بن عبدالله]

السلام عليكم

1. عرف حقلين جديدين في الجدول first ، Last  للأسم الأول والعائلة

2. في النموذج الذي فيه الاسم الكامل أضف الحقلين الجديدين في وضع التصميم

3. في حدث في الحال oncurrent  للنموذج ضع الكود التالي :

Private Sub Form_Current()<!--QuoteEBegin-->pos = Nz(InStr(1, LTrim(Me.fName), " "), 0)<!--QuoteEBegin-->If pos > 0 Then<!--QuoteEBegin--> Me.First = Left(LTrim(Me.fName), pos)<!--QuoteEBegin--> Me.Last = Right(LTrim(Me.fName), Len(LTrim(Me.fName)) - pos + 1)<!--QuoteEBegin-->Else<!--QuoteEBegin--> Me.First = LTrim(Me.fName)<!--QuoteEBegin-->End If<!--QuoteEBegin-->End Sub<!--QuoteEBegin-->

4. النتيجة هي المطلوب وسوف تفصل االأسماء كما تود عندما تنتقل لأي سجل بعد تحديث التعديل لجميع السجلات بإمكانك حذف حقل الاسم الكامل وحذف الكود ولكن لاحظ أن fname في الكود هو الاسم الكامل

مع الاحترام

<{POST_SNAPBACK}>

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

شكرا لك اخي الكريم خضر على تعقيبك ولكن فضلا وليس امرا

هل بالامكان شرح هذه الاكواد بالتفصيل واين استخدمها؟ هل افتح صفحة في ال module?

هل تعني بال fname اسم حقل الاسم الكامل؟

وهل me تقصد بذلك اسم ال table المراد العمل عليها؟

عاجز جدا عن شكرك على تفضلك بالاجابة ولكن اسئل الله ان يجزيك خير الجزاء وأسئله ان يوفقك في دنياك وآخرتك

فائق احترامي وتقديري لكم جميعا

[الدكتور خضر الرجبي]

السلام عليكم

بارك الله فيك أخي على لطفك ورفعة أخلاقك ، عملت لك المثال التالي للمسائلة وفيه أيضا الشرح المطلوب

أمل أن ينال إعجابك ويحل مشكلتك

مع الاحترام

Name_First_Last.rar

[حمد بن عبدالله]

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

الحقيقة لا اجد كلمات الشكر والعرفان التي تفيك حقك اخي الكريم خضر ولكن شكرا من اعماق القلب

يقول المصطفى عليه افضل الصلاة واتم التسليم ( ما من مسلم يدعو لأخيه بظهر الغيب إلا قال الملك الموكل ولك بمثل )

اسئل الله العلي القدير ان يستجيب ما دعوته لك بظهر الغيب وان يجزيك عنا خير الجزاء وان يجعلك من عتقاءه يوم اللقاء

ارق تحية لسموكم الكريم