tüm siparişlerdeki sağ ve sol yön adetlerinin sayısına göre
satış tablosuna eklenmesini istiyorum

for next ile, ilgili kayıt eklenebilir mi?
veya ekleme sorgusu ile tüm kayıtları eklenebilir mi?

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

Ne yapmak istediğinizi daha anlaşılır bir Türkçe ile ifade ederseniz yardımcı olmaya çalışalım.

(20/05/2024, 00:29)atoykan yazdı: Ne yapmak istediğinizi daha anlaşılır bir Türkçe ile ifade ederseniz yardımcı olmaya çalışalım.

**her bir siparişte bulunan;
sağ ve sol yön kapıların adetleri mevcut
bu adetler sayısınca
kayıt çoğaltmak istiyorum.

konu ve soru hala anlaşılmamış durumdaysa kapatalım hocam

Formdaki butonun tıklandığında olayındaki kod ile, Sorgu1'in Sql kaynağındaki kod değiştirildi.