AccessTr.neT
Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma (/konu-metin-kutusundaki-verileri-farkli-metin-kutularina-aktarma.html)



Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - berna - 09/10/2009

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


Cvp: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - Nurullah_Serdar - 09/10/2009

https://accesstr.net/konu-bu-konuda-yardimci-olur-musunuz.html
bu linki inceler misin?


Cvp: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - mehmetdemiral - 09/10/2009

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.


Cvp: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - berna - 10/10/2009

yanıtlar için teşekkür ederim. Sorun çözülmüştür.


Cvp: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - mehmetdemiral - 10/10/2009

Birşey değil. Rica ederiz..


Cvp: Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma - ayhan2122 - 11/10/2009

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.