(29/01/2025, 11:02)onur_can yazdı: şu şekilde çözüm önerisi sunabilirim, Formunuza kaç tane kayıt gelecekse o kadar textbox yerleştirin (siz kutu yerleştirmişsiniz)
daha sonra formun Current olayına aşağıdaki kodu yazın.

Private Sub Form_Current()

Dim rs As DAO.Recordset

Dim i As Integer

Dim ctlr As Control

   

     Set rs = CurrentDb.OpenRecordset("tbl_urun")

     For Each ctlr In Me.Controls

     If TypeOf ctlr Is TextBox Then

      For i = 0 To ctlr.Controls.Count

      On Error Resume Next

       ctlr.Value = rs!urunadi

       rs.MoveNext

      Next i

    End If

Next



End Sub

eğer yukarıdan aşağı sıralamak isterseniz MoveNext, MovePrevious komutlarıyla ayarlamalar yapın.

kodlar olmadı ya da ben eksik yaptım kodlarınızın uygulanmış hali ve ne aynı dosyada oluşturduğum rapor önizle
tam olarak ne yapmak istediğimi anlatıyor..

kayıt sayısı belirsiz elbette buradaki örnek sadece 50 olur 100 olur konu örnekteki rapor nasıl üç sütun halinde ise bu da öyle olsun istiyorum..