AccessTr.neT

Tam Versiyon: Verileri TextBoxlara geri çağırma sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba arkadaşlar ekteki dosyamda verileri Kr.lu olarak aktariyoriyorum yani kuruşu virgül ile ayırarak aktariyor. Bul butonu ile verileri TextBox lara geri çağırdığım zaman işaretlediğim TextBox larda virgüller nokta olarak görünüyor. Bul ile çağırdığım veriler ile yeni kaıyt yaptığımız zaman veya değiştir butonunu çalıştırdığım zaman virgüller nokta olarak TextBox larda göründüğü için Kr.ları tam sayı olarak aktariyor. Yani 181,25 olarak aktaracağına 18125,00 olarak aktariyor.
Verilerin bul botonu ile TextBox lara doğru gelmesi için yani noktalı değilde virgüllü gelmesi için yardımlarınızı bekliyorum. Yardımlarınız için şimdiden teşekürler.

Koruma parolası :123

Ek Dosyalar
 Kitap1.rar(67.39 KB)
Örneği incelermisiniz.İstediğiniz şekildemi.
Çok teşekürler hocam. Hocam siz kuruşları ortadan kaldırmışsınız. Eklediğim resimde bul butonuna tıkladığım zaman işaretlediğim TextBox lara gelen verilerdeki noktalar, virgül olarak gelsin.

[Resim: 13233299821.jpg]
Merhaba;

Sistem ayırıcılarını değiştir seçeneğini kullanarak ondalık . binlik için, olarak değiştirerek deneyebilirmisiniz.

[Resim: do.php?img=384]

Kolay gelsin.
Hocam verileri girip kaydet butonu ile sayfaya aktarmada bir sorun yok. sayfaya doğru aktariyor. Veriyi TextBokslara bul butonu ile geri çağırdığımız zaman sorun çıkıyor. Sayfada virgül ile ayrılmış rakamlar TextBoxlara noktalı olarak getiriyor. Saygılar.
Merhaba;

Eğer sadece form üzerindeki görüntüyü değiştirmek istiyorsanız aşağıdaki kodu kullanarak gerekli düzeltme işlemini yapabilirsiniz.

Kolay gelsin.

Ek Dosyalar
 Kitap1_Schworse.rar(69.56 KB)


[Resim: do.php?img=401]

Kod:
For Each hucre In Range("A6:A" & WorksheetFunction.CountA(Range("A6:K65000")) + 1)
If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox15.Value, vbUpperCase) Then
   hucre.Select
   ComboBox2.Text = ActiveCell.Offset(0, 1).Value
   ComboBox3.Text = ActiveCell.Offset(0, 2).Value
   TextBox3.Text = ActiveCell.Offset(0, 3).Value
   TextBox4.Text = Val(Replace(ActiveCell.Offset(0, 4), ",", "."))
   TextBox5.Text = Val(Replace(ActiveCell.Offset(0, 5), ",", "."))
   TextBox10.Text = Val(Replace(ActiveCell.Offset(0, 6), ",", "."))
   TextBox11.Text = Val(Replace(ActiveCell.Offset(0, 7), ",", "."))
   TextBox13.Text = Val(Replace(ActiveCell.Offset(0, 8), ",", "."))
   TextBox6.Text = Val(Replace(ActiveCell.Offset(0, 9), ",", "."))
   TextBox7.Text = Val(Replace(ActiveCell.Offset(0, 10), ",", "."))
   End If
Next
Sayfalar: 1 2