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

(تمت الاجابة) تقسيم الاسم الكامل - الاول والثاني فقط


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

بسم الله الرحمن الرحيم

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

لدي سجلات بأسماء الطلاب فمثلاً

1) محمد سعيد علي عبد الله

2) فهد سلطان محمد

أرغب في التقارير أن يسحب من سجل اسماء الطلاب فقط الإسمين الأوليين.

أي

محمد سعيد

فهد سلطان

فكيف يتم ذلك

سلمكم الله

رابط هذا التعليق
شارك

وفقك الله لكل خير

لم يتحمل معي

يقول غير قادر على تحميل الملف

إذا كان بالإمكان إعادة تحميله

اسال الله لك التوفيق والسداد لما يحبه ويرضاه

رابط هذا التعليق
شارك

أخي الكريم

لا يمكن التحميل من المنتدى حاليا

أرجو أن يكون هذا طلبك

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim FullName() As String, CurrentString As String
CurrentString = Me.TxtFullName
' التأكد من أن الاسم لا يحتوي مسافتين متجاورتين
CurrentString = Replace(CurrentString, "  ", " ")
FullName = Split(CurrentString)
' التأكد من وجود اسمين أو أكثر
If UBound(FullName) > 0 Then
Me.TxtName1 = FullName(0)
Me.TxtName2 = FullName(1)
End If
End Sub

رابط هذا التعليق
شارك

أخي الحبيب

أولا : أسأل الله أن يغفر لك ويوفقك لكل خير

وحاولت عمل الكود ولكن باءت بالفشل ، وذلك لأن الأفس لدي عربي.

فإذا أمكن رفع الملف عن طريق أحد المواقع.

وأعتذر سلمك الله على الإثقال .

ولا أملك لك إلا الدعاء بظهر الغيب

رابط هذا التعليق
شارك

عذرا أخي الكريم

عند الضغط علىالرابط تظهر موصع باللغة الإنجليزية

مكتوب فيه

Account Suspended

If you are the account you should have received this - ff you have questions kindly open a support ticket via the control panel.

Best regards,

Your Servage.net team

تم تعديل بواسطه حامل المسك
رابط هذا التعليق
شارك

والله لا أعلم ماذا أقول

ولكن من صنع إليكم معروفًا فكافؤه فإن لم تجدوا فقولوا جزاك الله خير

وجزاك الله خير وجعل ذلك في ميزان حسناتك وغفر لك ولوالديك

ولجميع القائمين على هذا المنتدى وللمسلمين والمسلمات.

نزل البرنامج وهو المطلوب...

تم تعديل بواسطه حامل المسك
رابط هذا التعليق
شارك

عذرًا أخي الكريم

أرغب في الاستفسار عن أمرين

أولاهما : كيف جعلت التقرير يكتسب نفس الكود؟

الثاني : إذا كان الطالب يحتوي على اسم واحد فإنه لا يظهر في المربع الأول. فكيف يتم إظهاره؟

وفقك الله

تم تعديل بواسطه حامل المسك
رابط هذا التعليق
شارك

أولاهما : كيف جعلت التقرير يكتسب نفس الكود؟

للأسف لم أفهم هذا السؤال ... أرجو التوضيح

الثاني : إذا كان الطالب يحتوي على اسم واحد فإنه لا يظهر في المربع الأول. فكيف يتم إظهاره؟

قم بتعديل الجملة الشرطية في الكود ... كالتالي

If UBound(FullName) > 0 Then
Me.TxtName1 = FullName(0)
Me.TxtName2 = FullName(1)
Else
Me.TxtName1 = CurrentString
End If

رابط هذا التعليق
شارك

الله يجمل حالك

المقصود كيف أنقل ما في النموذج إلى التقرير حيث أن الكود في التقرير اشتغل معي

لكن حاولت تطبيقه على التقريرر فلم يعمل !!!

أرجو أن يكون أوصلت لك المقصود

رابط هذا التعليق
شارك

أخي الكريم

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

1- TxtName1 و هو الاسم الأول

2- TxtName2 و هو الاسم الثاني

3- TxtFullName و هو الاسم الكامل

يمكنك تعديل أسماء مربعات النصوص لديك أو تعديل الأسماء الموجودة في الكود حسب اللي عندك

أرجو أن يكون هذا الحل لمشكلتك ... و إن لم يكن ... أرجو إرفاق قاعدة بياناتك باستخدام الحل المؤقت

الحل المؤقت

رابط هذا التعليق
شارك

أخي الكريم

المشكله إنك وضعت متغير اسمه .. (الاسم) مع وجود مربع نص في التقرير اسمه ( الاسم ) ... 2 لهما نفس الاسم ... لذلك البرنامج لم يكن يعمل ... و لكنني غيرت اسم المتغير من (الاسم) إلى (أسماء_منفصلة) ... مع أنني لا أنصح بوضع الكلمات العربية في الكود ... و لكن حسب رغبتك

Dim أسماء_منفصلة() As String, CurrentString As String
CurrentString = Nz(Me.الاسم, "")
' التأكد من أن الاسم لا يحتوي مسافتين متجاورتين
CurrentString = Replace(CurrentString, "  ", " ")
أسماء_منفصلة = Split(CurrentString)
' التأكد من وجود اسمين أو أكثر
If UBound(أسماء_منفصلة) > 0 Then
Me.TxtName1 = أسماء_منفصلة(0)
Me.TxtName2 = أسماء_منفصلة(1)
End If

أرجو أن هذا هو الحل الصحيح لمشكلة برنامجك ... :smile2:

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information