ابو محمد 316 قام بنشر مارس 10 مشاركة قام بنشر مارس 10 السلام عليكم ورحمة الله وبركاته كل عام وانتم طيبين طلب اظهار ثلاثة اسماء لكل شخص في الاستعلام بغض النظر اذا كان الاسم مكون من اربعة او خمسه مثل الاسم كامل : محمد بن عبدالله بن صالح بن خالد السلامه المطلوب يكون ( محمد بن عبدالله السلامه ) يعني الاسم الاول و الاسم الثاني والاسم الاخير فقط بالتوفيق إن شاء الله Database17.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 10 مشاركة قام بنشر مارس 10 تفضل .. وتجنب اخي تسمية الحقول بكلمات محجوزة مثل name Public Function spltTxt(txtNm As String) On Error Resume Next Dim x, i As Integer Dim t1, t2, t3 As String x = Len([txtNm]) - Len(Replace([txtNm], " ", "")) For i = 0 To x If i = 0 Then t1 = Split(txtNm, " ")(0) If i = 1 Then t2 = Split(txtNm, " ")(1) If i = 2 Then t3 = Split(txtNm, " ")(2) If i = x Then t4 = Split(txtNm, " ")(x) Next spltTxt = t1 & " " & t2 & " " & t3 & " " & t4 End Function Database18.rar 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 10 مشاركة قام بنشر مارس 10 ملحوظة : سيحدث لديك اخطاء في الاسماء المركبة التي بينها فراغات لأن الكود يعتمد على المسافات الفارغة بين الأسماء .. فيأخذ الفراغ الأول والثاني والأخير رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 10 مشاركة قام بنشر مارس 10 ومشاركة مع معلمنا الجليل @ابوخليل جرب هذا الكود أيضاً لتحقيق الهدف. Dim fullName As String Dim firstName As String Dim lastName As String Dim nameParts() As String Dim i As Integer Dim j As Integer Dim middleName As String ' افتراضًا أن القيمة المطلوبة موجودة في حقل النموذج المسمى "FullName" fullName = Me.FullName.Value ' تقسيم الاسم الكامل إلى أجزاء باستخدام الفاصلة كفاصل nameParts = Split(fullName, " ") ' الاسم الأول هو الجزء الأول من الاسم الكامل firstName = nameParts(0) ' الاسم الأخير هو الجزء الأخير من الاسم الكامل lastName = nameParts(UBound(nameParts)) For i = 1 To UBound(nameParts) - 1 ' الاسم الوسيط يتكون من الأجزاء بين الاسم الأول والاسم الأخير middleName = "" For j = 1 To UBound(nameParts) - 1 If j = i Then Continue For End If middleName = middleName & " " & nameParts(j) Next j Debug.Print firstName & " " & Trim(middleName) & " " & lastName Next i جرب هذا الكود واخبرنا بالنتيجة 😊 رابط هذا التعليق شارك More sharing options...
ابو محمد 316 قام بنشر مارس 11 الكاتب مشاركة قام بنشر مارس 11 السلام عليكم ورحمة الله الاستاذ / ابوخليل شكراً لك على هذى العمل وبارك الله فيك الاستاذ / Foksh شكراً لك لاكن انا احتاجه يكون في الاستعلام يسعدك ربي بالتوفيق إن شاء الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.