yalnız şöyle bir sorun var ana formunuz tabloya bağlı dolayısıyla siz ister kaydet deyin ister demeyin tek bir metin kutusuna veri girmişseniz kayıt otomatik olarak eklenecektir
siz ekle düğmesine basar basmaz 5 tane daha eklenecektir
yada siz kayıtlar arasında dolaşırken dalgınlığınıza geldi ekle düğmesine bastınız daha önceden 5 eklenmişti bir 5 tane daha eklenebilir
tablonun kontrolünü yapmak çalışmanızın mantığını bilmeden zor.
stokno alanı belirleyici alansa kontrol ona göre sağlanabilir belki

Private Sub Komut3_Click()

DoCmd.RunCommand acCmdSaveRecord

xSay = DCount("STOK", "T_VERİ", "STOK='" & Me.STOK & "'") + 1

For x = xSay To Nz(Me.PLAN_MİKTAR_YIL, 0)





xSQL = "INSERT INTO [T_VERİ] ( STOK,  MALZEME,  SİPARİŞNU, SİPARİŞ_MİKTARI, PLAN_YIL, PLAN_MİKTAR_YIL, PLAN_AY ,  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) & "," & Nz(Me.PLAN_MİKTAR_AY, 0) & ") "

    CurrentDb.Execute (xSQL)

Next x

Me.F_KAYIT_ALT_FORM.Requery

End Sub