Me.Liste0.RowSource = ""
Dim bb As New adodb.Recordset
bb.Open "tablo_Adi", CurrentProject.Connection
Do Until bb.EOF
For a = 1 To bb(2) ' 3. sütun yani meyve sayısını gösteren alan(1. sütun pk - bb(0))
Me.Liste_Kutusu_Adi.AddItem (bb(1)) ' 2. sütun meyve isimlerinin olduğu
Next
bb.MoveNext
Loop

Option Compare Database
 
 
 
Dim k, mktr As Integer
Dim tt As String
 
 
Private Sub Report_Open(Cancel As Integer)
k = 1
mktr = Forms!BASKI![MIKTAR]
tt = Forms!BASKI![URUN]
End Sub
 
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
If Me.URUN = tt Then
trz
Else
DoCmd.GoToRecord , "BASKI", acNext
 k = 1
mktr = Forms!BASKI![MIKTAR]
tt = Forms!BASKI![URUN]
trz
End If
End Sub
 
 
Sub trz()
If mktr <> k And Me.URUN = tt Then
  Me.NextRecord = False
  k = k + 1
 
   Exit Sub
 
End If
 
If mktr = k And Me.URUN = tt Then
  Me.NextRecord = True
 
  Exit Sub
 
 
End If
End Sub