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.?

Dosyanızı incelemedim ama yazdığınız koda bakarak  kabaca aşağıdaki kodu önerebilirim

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

önce ilgili forma aşağıdaki fonksiyonu ekleyin


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()


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

Halily hocam çok çok teşekkür ederim, tam istediğim gibi?

rica ederim
iyi çalışmalar