Hayırlı akşamlar. Hocalarım benim bir sorum olacak. Acceste kayıt ekleme sayfam var, verileri tüm kutulara giriyorum ve Kaydet butonuna bastığım zaman Yıllık Plan Miktarı kutusuna yazdığım sayı kadar yazdıklarımı kopyalayarak satır eklemesini istiyorum bu konuda bana yardımcı olursanuız sevinirim. Şimdiden teşekkür ederim.

Yıllık Plan Miktarı en fazla ne kadar olabilir,
genelde ne kadar oluyor

(30/09/2023, 22:01)berduş yazdı: Yıllık Plan Miktarı en fazla ne kadar olabilir,
genelde ne kadar oluyor

Sınır  yok hocam ama şimdiye kadar 100 'ün altı.

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

Teşekkür ederim hocam işin mantığını kavradım sayılır. Ufak tefek pürüzleri çözerim inşallah.

rica ederim
iyi çalışmalar