Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Döngü Ile Veri Alma

Döngü Ile Veri Alma
ates2014
Aktif Üye 100-150

*
Kayıt Tarihi: 31.10.2014
Toplam 32 konu açtı.
Toplam 148 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#1
25-08-2023, 10:44
Merhaba arkadaşlar, butonlara, stokta BtnNo alanındaki sıra numarasına göre stok isimlerinin,
döngü ile nasıl çekebilirim?

Private Sub Form_Open(Cancel As Integer)
Me.K1.Caption = DLookup("UrunCinsi", "TblStok", "BtnNo=1")
Me.K2.Caption = DLookup("UrunCinsi", "TblStok", "BtnNo=2")
Me.K3.Caption = DLookup("UrunCinsi", "TblStok", "BtnNo=3")
Me.K4.Caption = DLookup("UrunCinsi", "TblStok", "BtnNo=4")
End Sub
20 satır kod yerine döngü ile nasıl yapabilirim.?


Eklenti Dosyaları
.rar   Butonlar.rar (Boyut: 23,22 KB / İndirilme: 21)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#2
25-08-2023, 11:34
Dosyanızı incelemedim ama yazdığınız koda bakarak  kabaca aşağıdaki kodu önerebilirim
Visual Basic
  1. For x=1 to 20
  2. Controls("K" & x).Caption = DLookup("UrunCinsi", "TblStok", "BtnNo=" & x)
  3. Next x





  Bul
  Alıntı
Bu mesajı beğenenler:
ates2014
Aktif Üye 100-150

*
Kayıt Tarihi: 31.10.2014
Toplam 32 konu açtı.
Toplam 148 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#3
25-08-2023, 13:53
Halily hocam çok çok teşekkür ederim, tam istediğim kod,
aynı çalışmama bağlı aşağıdaki olayıda yazarsanız çok sevinirim,

Aşağıdaki kodlarıda döngü ile nasıl yapabilirim

hangi butona tıklarsam, butonun isminin barkod numarasını M3 metin kutusuna nasıl alabilirim.?

Private Sub K1_Click()
Me.M3 = DLookup("Barkod", "TblStok", "UrunCinsi='" & Me.K1.Caption & "'")
End Sub
Private Sub K2_Click()
Me.M3 = DLookup("Barkod", "TblStok", "UrunCinsi='" & Me.K2.Caption & "'")
End Sub
Private Sub K3_Click()
Me.M3 = DLookup("Barkod", "TblStok", "UrunCinsi='" & Me.K3.Caption & "'")
End Sub



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#4
25-08-2023, 15:32
önce ilgili forma aşağıdaki fonksiyonu ekleyin
Visual Basic
  1. Public Function xBarkod()
  2.     Me.M3 = DLookup("Barkod", "TblStok", "UrunCinsi='" & Me.ActiveControl.Caption & "'")
  3. End Function


sonra bu fonksiyonu çalıştırmasını istediğiniz tüm düğmeleri seçip tıklandığında olayına aşağıdaki satırı ekleyin
=xBarkod()


.jpeg   Untitled.jpeg (Boyut: 103,07 KB / İndirilme: 22)



  Bul
  Alıntı
Bu mesajı beğenenler:
ates2014
Aktif Üye 100-150

*
Kayıt Tarihi: 31.10.2014
Toplam 32 konu açtı.
Toplam 148 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#5
25-08-2023, 20:38
Halily hocam çok çok teşekkür ederim, tam istediğim gibi? Notworthy



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#6
26-08-2023, 01:38
rica ederim
iyi çalışmalar



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Bölünmüş Veri Tabanın Yedeğini Alma webtenoyna 1 96 19-02-2024, 01:48
Son Mesaj: dsezgin
  [VBA] Web Den Resim Linklerini Alma hedefkaya 4 136 12-11-2023, 02:32
Son Mesaj: dsezgin
  Ortalama Alma snapper 13 237 30-09-2023, 18:30
Son Mesaj: dsezgin
  [VBA] Webden Veri Alma idrisy 1 140 26-08-2023, 04:15
Son Mesaj: dsezgin
  Accesste Txt Den Veri Alma .Sude. 4 266 22-06-2023, 19:52
Son Mesaj: dsezgin
  Döngü Ile Koşula Dayalı Klasör Içerisindeki Dosyaları Silme Mr.Midnight 2 212 19-11-2022, 22:46
Son Mesaj: alperalper
  Sorguda Toplam Alma Bora34 3 301 23-07-2022, 22:07
Son Mesaj: onur_can
  [FORM] Web Den Klasöre Resim Alma hedefkaya 3 196 13-07-2022, 07:55
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi