If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.iptal.Enabled = False
MsgBox "Kayıt işlemi yapıldı", 0, " K a y ı t İ ş l e m i "
Me.Parca_Giris_Kayitli.Value = "Yes"
Me.Parca_Giris_Kayıt_Tarihi = Now()
Me.List23.Requery
Me.stok.Requery
kayıt işlemini henüz bitirmedğimi fark ettim kodu
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
Me.iptal.Enabled = False
MsgBox "Kayıt işlemi yapıldı", 0, " K a y ı t İ ş l e m i "
Me.Parca_Giris_Kayitli.Value = "Yes"
Me.Parca_Giris_Kayıt_Tarihi = Now()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.List23.Requery
Me.stok.Requery
düzeltince oldu
