- Katılım
- 15 Mayıs 2015
- Mesajlar
- 518
- Excel Vers. ve Dili
- Microsoft Office 2019
- Altın Üyelik Bitiş Tarihi
- 26/06/2023
Merhabalar;
Yaptığım örnekte takıldığım noktalar var.
1 . Cihaz Giriş
Cihaz girişe tıkladığımda stok giriş yapıyor. Ektradan eylemin sonunda Sağdaki listboxa ( Listbox2 ) a Access den Ado ile sorgu yapıp kod ve Durum bilgisine gore listelemesini istiyorum.
Kod yazdım ama hata aldım
2 - Seri numarası ile arama
Listbox1 de Textbox change ile arama yapmak istiyorum
Ado like sorgusu yapmaya çalıştım başarısız oldum
12 yazdığımda
a12s4
12afg
12a
gibi listbox a sıralasın istiyorum. Kod sira numarası ile birlikte.
3- Listbox a süz
ilk sorumla benzer çözüm ama sağdaki listbox da kod ile getir dediğimde
list box a durumu kod bilgisi ve STOK olanları sıralasın istiyorum
Umarım yardım ederseniz. İyi Çalışmalar
Yaptığım örnekte takıldığım noktalar var.
1 . Cihaz Giriş
Cihaz girişe tıkladığımda stok giriş yapıyor. Ektradan eylemin sonunda Sağdaki listboxa ( Listbox2 ) a Access den Ado ile sorgu yapıp kod ve Durum bilgisine gore listelemesini istiyorum.
Kod yazdım ama hata aldım
Kod:
Call baglan
kyt.Open "select * from cihazstok where kod='" & kod & "' and durum=" & CDbl(stok) & ";", bgln, 1, 1
ListBox2.ColumnCount = kyt.Fields.Count
ListBox2.Column = kyt.GetRows
bgln.Close
Set kyt = Nothing: Set bgln = Nothing
Listbox1 de Textbox change ile arama yapmak istiyorum
Ado like sorgusu yapmaya çalıştım başarısız oldum
12 yazdığımda
a12s4
12afg
12a
gibi listbox a sıralasın istiyorum. Kod sira numarası ile birlikte.
Kod:
Call baglan
kyt.Open "select * cihazstok firma where seri like '" & cihazseri & "';", bgln, 1, 1
ListBox1.ColumnCount = kyt.Fields.Count
ListBox1.Column = kyt.GetRows
kyt.Update
bgln.Close
Set kyt = Nothing: Set bgln = Nothing
ilk sorumla benzer çözüm ama sağdaki listbox da kod ile getir dediğimde
list box a durumu kod bilgisi ve STOK olanları sıralasın istiyorum
Umarım yardım ederseniz. İyi Çalışmalar
Ekli dosyalar
-
38.5 KB Görüntüleme: 6