kayıt sidikten sonra çalışan kod
Private Sub Form_AfterDelConfirm(Status As Integer)
SqlGuncelle = "UPDATE Tbl_WH_Out_Det SET Tbl_WH_Out_Det.Mat_Queue_No = DCount('*','[Tbl_WH_Out_Det]','[WHOMRI]=' & [WHOMRI] & ' and [WHORI]<=' & [WHORI])" & _
"WHERE ((Tbl_WH_Out_Det.WHOMRI)=" & Me.WHOMRI & ");"
CurrentDb.Execute SqlGuncelle
me.requery '<==çalışmada eklenmemiş kod
End Sub
kayıt ekledikten sonra çalışan kod
Private Sub Form_AfterInsert()
SqlGuncelle = "UPDATE Tbl_WH_Out_Det SET Tbl_WH_Out_Det.Mat_Queue_No = DCount('*','[Tbl_WH_Out_Det]','[WHOMRI]=' & [WHOMRI] & ' and [WHORI]<=' & [WHORI])" & _
"WHERE ((Tbl_WH_Out_Det.WHOMRI)=" & Me.WHOMRI & ");"
CurrentDb.Execute SqlGuncelle
End Sub
silme ya da ekleme işleminden sonra F5 yaparsanız anında günceller
yada yukardaki kodlar me.requery eklenebilir