الرجاء المساعدة في تقسيم حقل الاسم الى عدة مربعات نص

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

اشحالك طويل العمر ، ان شاء الله بصحة عافية ، ونحن من صوبنا ولله الحمد بنعمة وفضل من الله :)

طويل العمر ، دلعنا في طلبك شوي ، وسلم علينا ، ترانا ما نريد من وراها جزيه ، غير الكلمة الطيبة :)

تفضل هذا طلبك ، واحنا ترى في الخدمة ، بس بالكلام الحلو :)

وهذا الكود اللي يقوم بالعمل:

Private Sub cmd_split_Click()
On Error GoTo err_cmd_split_Click

    Dim x() As String
    
    x = Split(Me.الاسم, " ")
    
    Me.Name0 = x(0)
    Me.Name1 = x(1)
    Me.Name2 = x(2)
    Me.Name3 = x(3)
    
Exit Sub
err_cmd_split_Click:

    If Err.Number = 9 Then
        'out of script
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

111.قاعدة بيانات3.mdb.zip