Skip to main content

AccessTr.neT


Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma

Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma

Çözüldü #1
İ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.
Cevapla
Çözüldü #2
https://accesstr.net/konu-bu-konuda-yard...sunuz.html
bu linki inceler misin?
İyiki Varsın Access Img-grin
Cevapla
Çözüldü #3
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.
.rar metinkutusundan_demiral.rar (Dosya Boyutu: 13,6 KB | İndirme Sayısı: 60)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
yanıtlar için teşekkür ederim. Sorun çözülmüştür.
Cevapla
Çözüldü #5
Birşey değil. Rica ederiz..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #6
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.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task