كيف اختار اول اسم واخر في الحقل عااجل يا اهل الخير

[ورده111111]

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

ارجو المساعدة ضروري..

لو عندي اسم مثلا : محمد احمد النعيمي

كيف اخذ اول اسم واخر اسم في الاستعلامات ليصبح في الحقل الجديد " محمد النعيمي"

ضوروري

[مهند عبادي]

قمت بتصميم دالتين لاستخلاص الأسم الأول والاسم الأخير من اي نص كما يلي :

Function GetFirstName(N As String) As String
On Error Resume Next
    Dim A() As String, R As String
    A = Split(N, " ")
    R = A(0)
    If A(0) = "عبد" Then R = R & " " & A(1)
    GetFirstName = R
End Function

Function GetLastName(N As String) As String
On Error Resume Next
    Dim A() As String, R As String, I As Byte
    A = Split(N, " ")
    I = UBound(A)
    R = A(I)
    If InStr(1, "الله الدين", A(I)) > 0 Then R = A(I - 1) & " " & R
    GetLastName = R
End Function

أرجو أن يفيا بالغرض

تم تعديل يونيو 1, 2006 بواسطه مهند عبادي