Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Verileri TextBoxlara geri çağırma sorunu

kerem
kerem
Excel Cevaplanmış Soruları
8
4759

Verileri TextBoxlara geri çağırma sorunu

Çözüldü #6
schworse
Java Gui Uzmani
schworse
www Bul
Onursal Üye
Adı Soyadı: Me.... Em.... ÖZ....
Yaşı: 46
Konum: İzmir
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 11/02/2018,20:32
Yorumları: 197
Konuları: 8
Kayıt Tarihi: 02/11/2008
Teşekkür Puanı: 100
Mesleğiniz: Yazılım Uzmanı
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Verileri TextBoxlara geri çağırma sorunu - Yazar: schworse - 10/12/2011, 12:35
Task