אופיס 365 איך מוצאים באקסס את המילה הראשונה או האחרונה בשדה טקסט

[יאיר משה]

אני רוצה להפריד בין שם משפחה לשם פרטי שנמצאים בשדה אחד, ולכן אני צריך למצוא את המילה הראשונה בכל שדה (למרות שזה לא יעזור ל"בן שלום משה" לדוגמא), באקסס מצאתי את הפקודה Left אבל היא מוצאת מספר אותיות מוגדר ולא מילים שלמות.
תודה

 

[moishy]

השאלות שלך מרתקות ומראות על חשיבה מקורית.

Option Explicit

Function GetNthWord(strStringFrom As String, strSplitCharacter As String, blnLastWord As Boolean) As String
    On Error Resume Next
    Dim intExctractWordNumber As Integer
    If blnLastWord Then
        intExctractWordNumber = fCountWords(strStringFrom)
    Else
        intExctractWordNumber = 1
    End If
    GetNthWord = Split(strStringFrom, strSplitCharacter)(intExctractWordNumber - 1)
    If GetNthWord = "áï" Then
        GetNthWord = GetNthWord & " " & Split(strStringFrom, strSplitCharacter)(intExctractWordNumber)
    End If
    If Err.Number <> 0 Then
        GetNthWord = ""
    End If
    On Error GoTo 0
End Function

Function fCountWords(strText As String) As Integer
    Dim WordCount As Integer
    Dim S As String
    Dim N As Integer
    S = fReduceSpaces(strText)
    N = 0
    If S <> vbNullString Then
        N = Len(S) - Len(Replace(S, " ", "")) + 1
    End If
    fCountWords = WordCount + N
End Function

Function fReduceSpaces(strText As String) As String
    Do Until InStr(strText, "  ") = 0
        strText = Replace(strText, "  ", " ")
    Loop
    fReduceSpaces = Trim(strText)
End Function

ותקרא לו כך (עבור מילה הראשונה False, ועבור המילה האחרונה True):

GetNthWord("בן שלום משה", " ", False)

כרגיל הקוד גמיש וניתן לשינוי להתאמה, במידה והמילה הראשונה היא "בן" הוא יחזיר את שני המילים הראשונות, ניתן כמובן להוסיף עוד מילים במידה ויש צורך.

 

[יאיר משה]

חזק ביותר!!! (מסדר גם את בן שלום, בר נתן וכ').
עכשיו הבעיה שלי איך אני משמיט את הנתון הנ"ל מהשדה כדי שאמצא את השמות הפרטיים (ולא מועיל לי למצוא את המילה האחרונה כיון שחלק ניכר מהאנשים יש להם שני שמות ויותר).

 

[moishy]

Replace(GetNthWord([שם השדה], " ", False), "")</pre>

 

[יאיר משה]

הוא כותב לי שהפונקציה מכילה מספר מוטעה של ארגומנטים

 

[moishy]

סליחה, טעות שלי.
Replace([שם השדה],GetNthWord([שם השדה], " ", false), "")

 

[יאיר משה]

עובד!
תודה רבה