Sayfadan Listbox' değer alma

[mixser]

Merhaba Arkadaşlar

Yeni bir Sorunla karşınızdayım, ne kadar çok sorun çıkarıyorum dimi. Sorun olmazsa çözüm olmaz çözüm olmazsa tecrübe işe yaramaz. Haydi yardımlarınızı
bekliyorum.


Örnek.xls.

Giriş Sayfasında Daha önce girişini yaptığım ürünler var.
Çıkış sayfasında yer alan formdaki Listboxta Giriş Sayfasındaki dataları görmek istiyorum. Listboxta dataya çift tıklayınca datalar yandaki ilgili txtboxlara
yerleşmeli.
Listboxta kayıtlar üzerinde gezerken ilgili kayıta ait resim "ürünkodu" referans olmak üzere resim nesnesinde gösterilmeli. Resimler "C:\ÜrünResimleri" klasöründe tutulmakta
Kayıt butonuna basınca txtboxlardaki bilgilerin Çıkış sayfasına kayıt işlemlerinide ben yapmaya çalışacağım

 

[Orion1]

Örnek dosyayı eklememişsiniz.

 

[mixser]

bende sonradan farkettim dosyayı ekledim zennetmiştim düzeltme yaptım

 

[Orion1]

Resimleriniz jpg formatında olmalı.
Ekli dosyayı inceleyiniz.

 

[mixser]

Sn.Orion2 kodları uyguladım ancak txtStyf de toplam satış fiyatının gösteriminde başarılı olamadım nedense text olarak algılıyor dosya ekte

 

[Orion1]

Sn.Orion2 kodları uyguladım ancak txtStyf de toplam satış fiyatının gösteriminde başarılı olamadım nedense text olarak algılıyor dosya ekte

Anlamadım.
Benim yolladığım cevap sizin sorduğunuz soruyu cevaplamadımı?

 

[mixser]

Kodlar tamam yanlış bişey yok. kodlara ek olarak maliyet fiyatı ile kâr ı toplayıp satış fiyatında göstermeye çalıştım. ama satış fiyatında rakamlar toplanma yerine artarda gösteriliyor nedeni ne olabilir.

 

[mixser]

Son eklediğim kodu aşağıdaki gibi değiştirdim sorun halloldu
İlgi ve alakanıza tekrar teşekkür ediyorum sn.Orion2



kod:
Private Sub txtKar_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
txtKar = Format(CDbl(txtKar), "#,##0.00")
k0 = CDbl(txtKar)
k1 = CDbl(txtStfy)
k2 = CDbl(TextBox6)
txtStfy = k0 + k2
End Sub