Skip to main content

AccessTr.neT


Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme.

Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme.

#9
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ı
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) & ") "
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Metin Kutularına Girdiğim Sayı Kadar Kayıt Ekleme. - Yazar: berduş - 06/10/2023, 22:35
Task