طلب الاسم يكون ثلاثي في الاستعلام

[ابو محمد 316]

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

كل عام وانتم طيبين 

 

طلب اظهار ثلاثة اسماء لكل شخص في الاستعلام بغض النظر اذا كان الاسم مكون من اربعة او خمسه  

مثل

الاسم كامل  : محمد بن عبدالله بن صالح بن خالد السلامه

المطلوب يكون ( محمد بن عبدالله السلامه ) يعني الاسم الاول و الاسم الثاني والاسم الاخير  فقط 

 

بالتوفيق إن شاء الله

Database17.accdb

[ابوخليل]

تفضل .. وتجنب اخي تسمية الحقول بكلمات محجوزة مثل 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

[ابوخليل]

ملحوظة : سيحدث لديك اخطاء في الاسماء المركبة التي بينها فراغات

لأن الكود يعتمد على المسافات الفارغة بين الأسماء .. فيأخذ الفراغ الأول والثاني والأخير

[Foksh]

ومشاركة مع معلمنا الجليل @ابوخليل جرب هذا الكود أيضاً لتحقيق الهدف.

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

جرب هذا الكود واخبرنا بالنتيجة 😊

[ابو محمد 316]

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

الاستاذ /  ابوخليل   شكراً لك على هذى العمل  وبارك الله فيك

الاستاذ / Foksh   شكراً لك لاكن انا احتاجه يكون في الاستعلام  يسعدك ربي

 

بالتوفيق إن شاء الله