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...
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?
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
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
İyi Geceler.
Ç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
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