Skip to main content

AccessTr.neT M.

Verileri TextBoxlara geri çağırma sorunu

Konu

Çözüldü #1
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)

kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Örneği incelermisiniz.İstediğiniz şekildemi.

.rar Kitap1.rar (Dosya Boyutu: 605,72 KB | İndirme Sayısı: 36)
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
...........
Çözüldü #3
Son Düzenleme: 08/12/2011, 10:35, Düzenleyen: kerem.
Ç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]

kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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.

Cevapla
...........
Çözüldü #5
Son Düzenleme: 10/12/2011, 00:28, Düzenleyen: kerem.
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.

kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da