Herkese merhaba;
Uzun bir aradan sonra yine bir program yazma çabası içerisine girdim ve bir noktada deneyimsizlik yüzünden tıkandım ve desteklerinizi ihtiyacım var. 

Programımda ana başlık bilgilerinin kayıt edildiği ve ana tablo isimli bir tablom var. İkinci bir tablo olan files isimli tabloda da klasör içerisine eklettiğim dosyaların dosya yolunu kayıt altına alan bir tablom var. Her iki tabloda da kayıtlar DnNo adlı bir alan ile kayıt altına alınmakta. 

Amacım ana tablodaki DnNo ya ai

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