AccessTr.neT

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)

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

kerem

DUAYEN

kerem

schworse

kerem

schworse