Private Sub Form_AfterUpdate() Forms!frm_ifadedavet!txtdavetyeri.Requery End Sub
CurrentDb.Execute "UPDATE MenuItems SET MenuItems.CurrentState = [CurrentState]*-1 WHERE MenuItems.SubId= " & [MnsId] & ";"