اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

يوجد لدي قائمة تضم اكثر من 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

قام بنشر

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

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

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

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information