CurrentDb.Execute "UPDATE MyTable SET Field1 = 0" [COLOR="Green"]'sets all field1 to 0[/COLOR]
Debug.Print DLookup("Field1", "MyTable") [COLOR="Green"]'displays 0 in the immediate pane[/COLOR]
DBEngine(0).BeginTrans
CurrentDb.Execute "UPDATE MyTable SET Field1 = 1" [COLOR="Green"]'set all field1 to 1[/COLOR]
Debug.Print DLookup("Field1", "MyTable") [COLOR="Green"] 'still displays 0 in the immediate pane[/COLOR]
DBEngine(0).CommitTrans
Debug.Print DLookup("Field1", "MyTable") [COLOR="Green"]'displays 1 in the immediate pane[/COLOR]