السلام عليكم ورحمة الله
إخوتي الكرام ..
لدي اسم الموظف أو الطالب مكتوب في حقل واحد ( بمعنى أنه غير مقسم إلى عدة حقول)
مثال : عبدالله محمد ابراهيم الجابر
السؤال : كيف يكمن إظهار اسم العائلة فقط ( الجابر ) في التقرير ..علماً أن الأسماء تأتي أحياناً رباعية وأحيانا ثلاثية وأحياناً ثنائية .
كيف يمكن تحديد الجزء الأخير من الأسم وإظهاره في التقرير .
شاكر ومقدر جهودكم معنا .
أخوكم/ AL-MUSLIM
أفضل طريقة هي تقسيم الإسم إلى أربع مربعات نص أثناء إدراج الاسم فقط
وعندما تريد عرض الاسم كاملاً يتم صنع مربع نص خامس ويتم إخفاء الأربع مربعات النص
وفي التقرير يتم استدعاء مربع النص الرابع الذي يخص اسم العائلة...
تم تعديل هذه المشاركة بواسطة بو يوسف الراشد في 30 يناير 2005 في 15:13
حياك الله أخي الكريم
هذا ينطبق على الاسم الرباعي .. لكن إذا كان الاسم مكون من ثلاثة أو إثنين كيف يمكن إظهار اسم العائلة .
ألايوجد طريقة للتعرف على نهاية الاسم من المسافة السابقة له حتى نهايته .
تحياتي لك .
تم تعديل هذه المشاركة بواسطة AL-MUSLIM في 30 يناير 2005 في 16:41
ضع حقلا واحدا لاٍسم العائلة و حقلا ثان للاسم سواء كان فردي أو أكثر و سوف تحل المشكلة طالما أن الذي يهمك هو اسم العائلة.
أخي الكريم biskra
فهمت من تعليقك أن الاسم يقسم إلى نصين :
النص الأول : الاسم والأب والجد مثلاً
النص الثاني : العائلة
لذلك فإن تقسيم الأسم إالى أربعة حقول أولى وأفضل ..
لكن أليس هناك طريقة عن طريق استخدام الدوال ( دوال سلاسل البيانات )
كما في الدالة left
?left ( "Abd-Allah" , 3
فتكون النتيجة Abd
تعيد هذه الدالة مجموعة من الحروف الموجودة في سلسلة بدءأً من الشمال بالعدد المطلوب .
السؤال هنا كيف يمكن أن أجعل هذا الكود يبحث عن المسافة الأولى من الشمال بدلاً من تدوين العدد .؟
تحياتي .
أخي الكريم ..
لنفترض أن اسم الحقل في النموذج هو : a
إليك الكود
Dim strName As String Dim LongField As String Dim i As Integer LongField = Len(Me.a) For i = 1 To LongField strName = Left(Right(Me.a, i), 1) If Asc(strName) = 32 Then MsgBox Right(Me.a, i) Exit Sub End If Next i
ملاحظة : لابد أن يكون هناك مسافة بين اسم العائلة والاسم الذي قبله حتى يعمل الكود بشكل صحيح
بعد اذن المشرفين والاخوان المشاركين
اذا كنت ترغب في تقسيم الاسم الى عدة اجزاء سواء كان الاسم مكون من اثنين بما فيه اسم العائلة او ثلاثة اسماء بما فيه اسم العائلة او اربعة اسماء بما فيه اسم العائلة او خمسة اسماء بما فيه اسم العائلة فإليك الحل
أخي الكريم ،،، هذان مثالان قويان ،،، وأعتقد أنك ستستفيد منهما .
المثال الأول مثال أجنبي يقوم بتقسيم جميع الأسماء المركبة إلى أسماء مفصولة .
بضغطة زر . و إعادتها كما هي أيضا في حقل واحد .
والمثال الثاني هو من عمل أستاذنا العزيز / محمد طاهر ،،، سوف أترك لك الحرية
لإبداء رأيك في المثال ,,, :D
تحياتي : أبو عقيل
:)
المسلم من سلم الناس من لسانه ويده
الأخوة الكرام biskra - أحمد الحربي - muslim-es - zahrah
السلام عليكم ورحمة الله وبركاته ..
ماشاء الله تبارك الله الجميع يتاسبق لتقديم العون والمساعدة ..
لا أملك إلا أن أقول لكم جميعاً جزاكم الله خيراً .. سوف أطلع على المرفقات مع تجربة كود أخي أحمد الحربي .. ثم أوضح لكم الأنسب منها .
تحياتي للجميع .
الأخوة الكرام biskra - أحمد الحربي - muslim-es - zahrah
السلام عليكم ورحمة الله وبركاته :
أكرر شكري وتقديري للجميع على ما قدموه لمساعدتي .. وقد استفدت من جميع المرفقات التي قدمت من خلال هذا الموضوع وتم إضافتها لما يوجد لدي من الأمثلة السابقة والتي حصلت عليها من خلال هذا المنتدى المبارك .. لاحرمكم الله الأجر والثواب .
أما في هذا الموضوع ( إظهار اسم العائلة للموظف ) فا الأقرب منها وما أريده هو الكود الذي قدمه أخي أحمد الحربي جزاه الله خيرا .. وتم استبدال الرسالة بحقل نصي في التقرير كما هو في المرفق .
أكرر شكري وتقديري للجميع وأسأله أن لايحرمكم أجر ما تقدمونه لخدمة إخوانكم .
أخوكم/ AL-MUSLIM
مشكور أخي الكريم, أعجبتني عندما وضعت المثال اعتمادا على الشرح المقدم من طرف أخينا أحمد الحربي و هذا قد يستفيد منه أعضاء المنتدى.
أخي الكريم biskra
شكراً على تعليك وإطرائك .. أما الفضل يعود بعد الله لكم عمالقة المنتدى .. جزاكم الله عنا خير الجزاء .
أخوك/ AL-MUSLIM
هذا الموضوع مغلق.
