اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

لدي حقل واحد متكون من الإسم وإسم الأب وإسم الجد وإسم العائلة.

السؤال : كيف يمكنني فصل إسم العائلة عن خانة الإسم وجعله في خانة أخرى بإسم إسم العائلة؟

وشكرا

قام بنشر (معدل)

شكرا أخي وأستاذي رضوان على الرد ولكن حسب المثال المرفق إذا كان الإسم مثلا احمد محمد حازم علي

فإن النتيجة تكون الإسم الأول أحمد والأسم الأخير محمد حازم على وهذا خطأ والصواب الذي أريده هو أن تكون النتيجة في الإسم الأخير فقط علي مع العلم ليس من المهم عندي فصل جميع الأسم عن إسم الأب عن إسم الجد عن إسم العائلة ، ما هو مطلوب فقط فصل إسم العائلة ( آخر إسم )عن باقي الإسماء

وشكرا لتعاونكم

تم تعديل بواسطه aaa
قام بنشر (معدل)

يا اخي الكريم Rudwan

لك تكرم عينك ومتشكرين على هذا الجهد ولي طلب وهو لو انك تجعل فيه ثلاثة اعمدة وهي

First Name

Father Name

Surname

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

تم تعديل بواسطه malik68
قام بنشر (معدل)

شكرا أستاذي رضوان على الرد السريع ولكن هناك ملاحظة أخرى على الكود:

إكتب الإسم التالي في الجدول احمد محمد حازم الدوسري

النتيجة في إسم العائلة كالتالي : وسري وهذا الخطا والصواب أن يكون الدوسري

ملاحظة : حقل الإسم قد يحمل الإسم الثلاثي أو الرباعي أو الخماسي.

تحياتي القلبية

تم تعديل بواسطه aaa
  • Like 1
قام بنشر (معدل)

وجدت المثال المرفق في جهازي لحل مشكلتك

وهو من تصميم الاخت زهره

واذا رغبت في معرفة بعض التفاصيل قم بزيارة هذة الصفحة المتعلقة بفصل الاسماء في اكسس

http://support.microsoft.com/kb/286238/ar

za_SplitName_UP.rar

تم تعديل بواسطه Enjoy
  • Like 1
قام بنشر
:rol: شكرا أخي Enjoy على الرد ولكن المشكلة أن الأسماء التي عندي قد تكون ثلاثية أو رباعية أو خماسية والمطلوب هو جعل آخر إسم في عمود واحد باسم إسم العائلة
قام بنشر
هذه دالة لطلب أي جزء من الإسم حتى لو كان رقم 25 مثلا . أما في حالة طلب الإسم الأخير ولنعتبره اسم العائلة أو القبيلة فنستخدم رقم 0 ( صفر ) :

http://www.officena.net/ib/index.php?s=&am...ost&p=21396

واستدعاؤها كالتالي :

كود

Me.txtName = LaborNameSplit(Nz(ClientName), 1)

Me.txtFather = LaborNameSplit(Nz(ClientName), 2)

Me.txtGrand = LaborNameSplit(Nz(ClientName), 3)

Me.txtFamily = LaborNameSplit(Nz(ClientName), 0)

قام بنشر

:fff: شكرا أكسسنا على الرد والسؤال هل ممكن تطبيق هذه الدالة على إستعلام؟

لأن حاليا لدي جدول به عمود الأسماء به جميع الأسماء، وفتحت عمود آخر جديد بجانب عمود الأسماء لنسخ آخر إسم من خانة الأسماء الى العمود الجديد.

ولو ممكن مثال جزاك الله خيرا.

قام بنشر

:clapping: شكرا أكسسنا على تعاونك، والنتيجة بالضبط مثل ما أريد جزاك الله خير إلا أني عندما قمت بتطبيقة على مثال من عندي تظهر لي هذه الرسالة لماذا وكيف أتخلص منها، بوركت.

الرسالة (( Unde fined function 'LaborNameSplit' inexpressin ))

قام بنشر

يجب استيراد الموديول الموجود في المثال إلى برنامجك أولا

فبدون الموديول أنت تستدعي دالة غير موجودة !

حاول بنفسك . لذلك لن أنزل مثالك .

قام بنشر
:clapping: جزاك الله خيرا أكسسنا على تعاونك وتجاوبك المثمر عسى الله أن يجعل ذلك في ميزان حسناتك احسنت وبوركت

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information