AccessTr.neT

İ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.

https://accesstr.net/konu-bu-konuda-yard...sunuz.html
bu linki inceler misin?

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.

berna

Nurullah_Serdar

mehmetdemiral

berna

mehmetdemiral

ayhan2122