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