Dim a As String, b As String



a = Me.tblsatis_alt_formu![SolYön]

b = Me.tblsatis_alt_formu![SağYön]



For sayac = 1 To a

DoCmd.SetWarnings False

DoCmd.OpenQuery ("sol"), acViewNormal

DoCmd.SetWarnings True

Me.tblsatis_alt_formu.Requery

Next sayac





For ekle = 1 To b

DoCmd.SetWarnings False

DoCmd.OpenQuery ("sağ"), acViewNormal

DoCmd.SetWarnings True

Me.tblsatis_alt_formu.Requery

Next ekle

bu kodlar ile ekleme yapıyorum ancak sadece ekrandaki kayıtları ekliyor tüm siparişleri eklemeliyim