CurrentDb.Execute "UPDATE MenuItems SET MenuItems.CurrentState = [CurrentState]*-1 WHERE MenuItems.SubId= " & [MnsId] & ";"