Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma

berna
berna
Access Cevaplanmış Soruları
5
3102

Metin Kutusundaki Verileri Farklı Metin Kutularına Aktarma

Çözüldü #1
berna
Üye
berna
Bul
Üye
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2003
Son Oturumu: 17/11/2016,05:27
Yorumları: 19
Konuları: 3
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 0
İ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
Nurullah_Serdar
FaTSaLı
Nurullah_Serdar
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 43
Konum: Giresun
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/10/2018,12:51
Yorumları: 568
Konuları: 21
Kayıt Tarihi: 22/11/2008
Teşekkür Puanı: 189
https://accesstr.net/konu-bu-konuda-yard...sunuz.html
bu linki inceler misin?
İyiki Varsın Access Img-grin
Cevapla
Çözüldü #3
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
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
berna
Üye
berna
Bul
Üye
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2003
Son Oturumu: 17/11/2016,05:27
Yorumları: 19
Konuları: 3
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 0
yanıtlar için teşekkür ederim. Sorun çözülmüştür.
Cevapla
Çözüldü #5
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Birşey değil. Rica ederiz..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #6
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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