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) & ") "