özellikle belli aylar ve sayılar verdim ki sonucu anlayabileyim
sizin eklediğiniz tabloda
PLAN_AY=1 için (Not: bunun ocak ayı planlaması olduğunu düşünüyorum)
8 kayıt var;
2'si= 2,
6'sı= 5
bu ne anlama geliyor?
yada daha genel olarak Amacınız ne?
kayıt çoğaltma çok genel bir istek
neye göre kayıt çoğaltılacak,
neler kontrol edilecek
Yıllar önemli mi,
aylar önemli mi?
tablodaki hangi alan neye karşılık geliyor
...........................
açıklamanız bunları içermediği zaman biz sadece bize verilene göre kaba bir çözüm öneririz
ama yeterli açıklama olmadığı için bir sonraki aşamada yeni sorunlar çıkar.
eğer yine yeterli ve net açıklama yapılmazsa önerilen çözüm yeni sorunlarla geri döner.
o nedenle öncelik sistemi kafanızda oturtmak.
kurguyu kafanızda oturtun, ne olması gerektiğini tam olarak saptayın
o zaman önerilen çözümler çok yararlı olacaktır
iyi çalışmalar

(05/10/2023, 22:25)berduş yazdı: özellikle belli aylar ve sayılar verdim ki sonucu anlayabileyim
sizin eklediğiniz tabloda
PLAN_AY=1 için  (Not: bunun ocak ayı planlaması olduğunu düşünüyorum)
8 kayıt var;
2'si= 2,
6'sı= 5
bu ne anlama geliyor?
yada daha genel olarak Amacınız ne?
kayıt çoğaltma çok genel bir istek
neye göre kayıt çoğaltılacak,
neler kontrol edilecek
Yıllar önemli mi,
aylar önemli mi?
tablodaki hangi alan neye karşılık geliyor
...........................
açıklamanız bunları içermediği zaman biz sadece bize verilene göre kaba bir çözüm öneririz
ama yeterli açıklama olmadığı için bir sonraki aşamada yeni sorunlar çıkar.
eğer yine yeterli ve net açıklama yapılmazsa önerilen çözüm yeni sorunlarla geri döner.
o nedenle öncelik sistemi kafanızda oturtmak.
kurguyu kafanızda oturtun, ne olması gerektiğini tam olarak saptayın
o zaman önerilen çözümler çok yararlı olacaktır
iyi çalışmalar

Hocam kusura bakma kendimi ifade edemiyorum. Benim istediğim sarı olan ay kutularına yazdığım sayı kadar bu 5 de olur 50 de olur o kadar o ay için satır eklesin ve eklediği satırların tümünde  STOK, MALZEME ADI, VB... aynı olsun. 
Sadece ve sadece istediğim öncelikli olarak 
Ocak için 5 yazdıysam ocak ayı için 5 satır eklesin. Mart için 2 yazdıysam mart ayı için 10 satır eklesin.
PLANLANAN AY       AYLIK KAÇ SATIR
         1                         5
         1                         5 
         1                         5 
         1                         5 
         1                         5        
         3                         2
         3                         2

sorun her kayıt işleminden önce Me.PLAN_AY verisini Me.AY ile değiştirmeniz; PLAN_AY  alanı doğrudan tabloya bağlı
DoCmd.RunCommand acCmdSaveRecord ile aktif kadı kaydettiğiniz için de mart ayına gidip sayı girdiğinizde ilk kayıt üzerinde olduğunuz için ay verisi doğrudan ilk kayda yazılıyor
bundan kurtulmanın 2 yolu var
1. yol : formunuzdaki nesnelerin tablo ile ilişkisi kesilir; form yüklenirken ve kayıtlar arasında dolaşırken nesnelere veri öyle yüklenir
2. yol: güncelleme olaylarındaki  Me.PLAN_AY = Me.AY satırlarını silip güncelleme kodlarını aşağıdaki gibi düzenlemeniz

Private Sub A2_AfterUpdate()

Me.AYLIK_KAÇ_SATIR = Me.A2

Me.AY = Me.AA2

'Me.PLAN_AY = Me.AY <<== bu satır silindi



DoCmd.RunCommand acCmdSaveRecord

xSay = DCount("STOK", "S_KAYITEKLE", "STOK='" & Me.STOK & "' and PLAN_AY =" & Me.AY) + 1

For x = xSay To Nz(Me.AYLIK_KAÇ_SATIR, 0)



xSQL = "INSERT INTO [S_KAYITEKLE] ( STOK,  MALZEME,  SİPARİŞNU, SİPARİŞ_MİKTARI, PLAN_YIL, PLAN_MİKTAR_YIL, PLAN_AY ,AYLIK_KAÇ_SATIR,  PLAN_MİKTAR_AY) values " & _

"('" & Nz(Me.STOK, "") & "','" & Nz(Me.MALZEME, "") & "','" & Nz(Me.SİPARİŞNU, "") & "'," & _

     Nz(Me.SİPARİŞ_MİKTARI, 0) & "," & Nz(Me.PLAN_YIL, 0) & "," & Nz(Me.PLAN_MİKTAR_YIL, 0) & "," & _

     Nz(Me.AY, 0) & "," & Nz(Me.AYLIK_KAÇ_SATIR, 0) & "," & Nz(Me.PLAN_MİKTAR_AY, 0) & ") "

    CurrentDb.Execute (xSQL)

Next x

Me.F_KAYIT_ALT_FORM.Requery

xSQL = "INSERT INTO [S_KAYITEKLE] ( STOK,  MALZEME,  SİPARİŞNU, SİPARİŞ_MİKTARI, PLAN_YIL, PLAN_MİKTAR_YIL, PLAN_AY ,AYLIK_KAÇ_SATIR,  PLAN_MİKTAR_AY) values " & _
"('" & Nz(Me.STOK, "") & "','" & Nz(Me.MALZEME, "") & "','" & Nz(Me.SİPARİŞNU, "") & "'," & _
    Nz(Me.SİPARİŞ_MİKTARI, 0) & "," & Nz(Me.PLAN_YIL, 0) & "," & Nz(Me.PLAN_MİKTAR_YIL, 0) & "," & _
Nz(Me.PLAN_AY , 0)  <<== sorgu kodundaki bu satır değişip  buna çevrilecek  ==>  Nz(Me.AY , 0)
"," & Nz(Me.AYLIK_KAÇ_SATIR, 0) & "," & Nz(Me.PLAN_MİKTAR_AY, 0) & ") "

(06/10/2023, 22:35)berduş yazdı: sorun her kayıt işleminden önce Me.PLAN_AY verisini Me.AY ile değiştirmeniz; PLAN_AY  alanı doğrudan tabloya bağlı
DoCmd.RunCommand acCmdSaveRecord ile aktif kadı kaydettiğiniz için de mart ayına gidip sayı girdiğinizde ilk kayıt üzerinde olduğunuz için ay verisi doğrudan ilk kayda yazılıyor
bundan kurtulmanın 2 yolu var
1. yol : formunuzdaki nesnelerin tablo ile ilişkisi kesilir; form yüklenirken ve kayıtlar arasında dolaşırken nesnelere veri öyle yüklenir
2. yol: güncelleme olaylarındaki  Me.PLAN_AY = Me.AY satırlarını silip güncelleme kodlarını aşağıdaki gibi düzenlemeniz

Private Sub A2_AfterUpdate()

Me.AYLIK_KAÇ_SATIR = Me.A2

Me.AY = Me.AA2

'Me.PLAN_AY = Me.AY <<== bu satır silindi



DoCmd.RunCommand acCmdSaveRecord

xSay = DCount("STOK", "S_KAYITEKLE", "STOK='" & Me.STOK & "' and PLAN_AY =" & Me.AY) + 1

For x = xSay To Nz(Me.AYLIK_KAÇ_SATIR, 0)



xSQL = "INSERT INTO [S_KAYITEKLE] ( STOK,  MALZEME,  SİPARİŞNU, SİPARİŞ_MİKTARI, PLAN_YIL, PLAN_MİKTAR_YIL, PLAN_AY ,AYLIK_KAÇ_SATIR,  PLAN_MİKTAR_AY) values " & _

"('" & Nz(Me.STOK, "") & "','" & Nz(Me.MALZEME, "") & "','" & Nz(Me.SİPARİŞNU, "") & "'," & _

     Nz(Me.SİPARİŞ_MİKTARI, 0) & "," & Nz(Me.PLAN_YIL, 0) & "," & Nz(Me.PLAN_MİKTAR_YIL, 0) & "," & _

     Nz(Me.AY, 0) & "," & Nz(Me.AYLIK_KAÇ_SATIR, 0) & "," & Nz(Me.PLAN_MİKTAR_AY, 0) & ") "

    CurrentDb.Execute (xSQL)

Next x

Me.F_KAYIT_ALT_FORM.Requery

xSQL = "INSERT INTO [S_KAYITEKLE] ( STOK,  MALZEME,  SİPARİŞNU, SİPARİŞ_MİKTARI, PLAN_YIL, PLAN_MİKTAR_YIL, PLAN_AY ,AYLIK_KAÇ_SATIR,  PLAN_MİKTAR_AY) values " & _
"('" & Nz(Me.STOK, "") & "','" & Nz(Me.MALZEME, "") & "','" & Nz(Me.SİPARİŞNU, "") & "'," & _
    Nz(Me.SİPARİŞ_MİKTARI, 0) & "," & Nz(Me.PLAN_YIL, 0) & "," & Nz(Me.PLAN_MİKTAR_YIL, 0) & "," & _
Nz(Me.PLAN_AY , 0)  <<== sorgu kodundaki bu satır değişip  buna çevrilecek  ==>  Nz(Me.AY , 0)
"," & Nz(Me.AYLIK_KAÇ_SATIR, 0) & "," & Nz(Me.PLAN_MİKTAR_AY, 0) & ") "

Allah razı olsun hocam kazancın bol, ömrün uzun olsun. Ne diyeceğimi bilmiyorum. Sağ olun.

Rica ederim
İyi çalışmalar )