Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma

09/10/2009, 12:37

berna

İyi çalışmalar,

Formumdaki metin kutusunda örneğin

"ADANA ADIYAMAN AFYON ANKARA BALIKESİR"

şeklinde veri bulunmakta.

ben bu verilerin her biri farklı metin kutularına aktarılacak şekilde nasıl düzenleyebilirim, yani 1. metin kutusunda ADANA, 2. metin Kutusunda ADIYAMAN yazacak.
bu şekilde yan yana 20 kayıt var ve ben bu kayıttaki verileri 20 metin kutusuna aktaracağım.
sitede daha önce benzer bir konuya rastlamıştım, ama şimdi bulamıyorum ve yardımlarınızı bekliyorum.

Şimdiden teşekkürler.
09/10/2009, 15:00

Nurullah_Serdar

09/10/2009, 15:54

mehmetdemiral

Bir liste kutusuna aktarıp oradan alma biçiminde yaptım. Direk olarak metin kutularına nasıl aktarılır diye çok da uğraşmadım, sonuçta işi görüyor. Liste kutusu gizlidir ve ben sadece 8 il adı ile yaptım. Siz onu artırırsınız.

Kolay gelsin.
10/10/2009, 00:07

berna

yanıtlar için teşekkür ederim. Sorun çözülmüştür.
10/10/2009, 00:17

mehmetdemiral

Birşey değil. Rica ederiz..
11/10/2009, 00:14

ayhan2122

Sorun çözülmüş ama ayrıca fikir vermesi açısından;
Yeni bir buton oluşturulup (örn:Komut27);
Kod:
Private Sub Komut27_Click()
On Error GoTo Hata

Dim kRk, Metnimiz, KuTuncu

    kRk = Len(Metin0)
    KuTuncu = 1
    Metin30 = Metin0

For i = 1 To kRk
    If Mid(Metin0, i, 1) = " " Then
        Me("Metin" & KuTuncu) = Metnimiz
        KuTuncu = KuTuncu + 1
        Metnimiz = Null
    Else
        Metnimiz = Metnimiz & Mid(Metin0, i, 1)
    End If
Next
        Me("Metin" & KuTuncu) = Metnimiz
        Metnimiz = Null
        KuTuncu = Null

Cikis: Exit Sub
Hata: Resume Cikis
End Sub
olarak da uygulanabilir.