AccessTr.neT

Tam Versiyon: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
İ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.
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.
yanıtlar için teşekkür ederim. Sorun çözülmüştür.
Birşey değil. Rica ederiz..
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.