Textbox Ad ve Soyad ayırma

[ocamsul]

Arkadaşlar iyi çalışmalar.

ekte form üzerinde de gösterdiğim gibi textbox1 deki ad ve soyadı textbox2 ve textbox3 e nasıl ayrıştırabilirm?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Siz isim yazdıkça otomatik olarak ayırma işlemi yapılacaktır.

Private Sub TextBox1_Change()
    Dim SAY() As String, X As Byte
    SAY = Split(TextBox1, " ")
    If UBound(SAY) > 0 Then
        TextBox2 = Empty
        TextBox3 = Empty
        TextBox2 = SAY(0)
    For X = 1 To UBound(SAY)
        If TextBox3 = Empty Then
            TextBox3 = SAY(X)
        Else
            TextBox3 = TextBox3 & " " & SAY(X)
        End If
    Next
    Else
        TextBox2 = TextBox1
    End If
End Sub

 

[ocamsul]

Sn: Korhan Ayhan; tam olarak buydu. Teşekkür ederim.