(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ıAllah razı olsun hocam kazancın bol, ömrün uzun olsun. Ne diyeceğimi bilmiyorum. Sağ olun.
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) & ") "
Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme.
Konuyu Okuyanlar: 1 Ziyaretçi