Skip to main content

AccessTr.neT

Kayıt Ol

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

Listeye alma

akd
akd
Access Cevaplanmış Soruları
32
10721

Listeye alma

Çözüldü #19
akd
Aktif Üye
akd
Bul
Aktif Üye
Adı Soyadı:
Konum: Gaziantep
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/09/2023,09:59
Yorumları: 280
Konuları: 64
Kayıt Tarihi: 04/11/2008
Teşekkür Puanı: 35
Merhaba arkadaşlar,
listeden listeye almada yeni bir sorunum çıktı,
liste2 deki 2.sutunu
liste4 deki 1.sutununa
liste2 deki 3-4-5.sutunu
liste4 deki 2.sutununa
alamak istedim Column la yapmak istedim olmadı bir türlü,
örnegi ekledim.
İlgilenecek arkadaşlara şimdiden teşekkürlerimi sunarım...
.rar öğretmen.rar (Dosya Boyutu: 16,47 KB | İndirme Sayısı: 17)
Cevapla
Çözüldü #20
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 64
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
Sayın akd;
Yukarıdan aşağı liste2 deki bütün kayıtlar mı Liste 4 e aktarılacak. Yoksa üzerine tıklanıp seçilen mi?
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/02/2010, 03:50, Düzenleyen: Hayri16.
Cevapla
Çözüldü #21
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 64
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
Hepsini aktarmayı düşünseydin zaten listeyi oluştururken sorguyu o şekilde yapardın "mantığını yürüterek" seçme durumunda aktarma yapmak istediğine karar verdim.Şöyle yapabilirsin bence:
Kod:
Private Sub Liste2_Click()
Dim i, a, b, c As String
Me.Liste4.RowSource = ""
i = Me.Liste2.Column(1)
a = Me.Liste2.Column(2)
b = Me.Liste2.Column(3)
c = Me.Liste2.Column(4)
Me.Liste4.AddItem i & ";" & a & " " & b & " " & c
End Sub
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/02/2010, 03:53, Düzenleyen: Hayri16.
Cevapla
Çözüldü #22
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Kod:
Dim i, a, b, c As String
    Me.Liste4.RowSource = ""
    i = Me.Liste2.Column(1)
    a = Me.Liste2.Column(2)
    b = Me.Liste2.Column(3)
    c = Me.Liste2.Column(4)
    Me.Liste4.AddItem a & ";" & b & "-" & c & "-" & i
Sn. Hayri16, neredeyse tamamen aynı şekilde yazmışız Img-grin İyi Geceler.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #23
akd
Aktif Üye
akd
Bul
Aktif Üye
Adı Soyadı:
Konum: Gaziantep
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/09/2023,09:59
Yorumları: 280
Konuları: 64
Kayıt Tarihi: 04/11/2008
Teşekkür Puanı: 35
Çok çok teşekkür ederim sayın hayri16 ve seruz hocalarım,
1 sorum daha olacak,
Dim p As Integer, t As Integer
p = Me.M5.Column(11)
t = Me.M5.Column(12)
Me.FYY.AddItem "ACIKLAMA" & ";" & "FİYAT"
Me.FYY.AddItem "Toptan Fiyat" & ";" & Format(p, "##,0")
Me.FYY.AddItem "Perakende Fiyat" & ";" & Format(t, "##,0")
bu kodda p ve t sutunundakiler sayısal deger bunlara kuruş formatı vermek istedim bir türlü olmadı, neden acaba?
Aynı kodlar çalıştı,
anlamadım bende
Son Düzenleme: 20/02/2010, 13:19, Düzenleyen: akd.
Cevapla
Çözüldü #24
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 64
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
Sayın akd;
p ve t değerlerinin format yapısını bilemediğim için sağlıklı bir şey diyemiyorum ama
CCur fonksiyonu sayısal değeri parasal değere çevirir.
..format(p,"##,0") yerine
CCur(p) diyerek bir dene istersen.

Sayın Seruz sizi bekliyorum Img-grin
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/02/2010, 15:20, Düzenleyen: Hayri16.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task