As additional comments, the docmd.openquery works for "select" queries. You can use the RunSql code for action queries such as update, append and make table queries. I insert the debug.print function so that if the SQL string has bugs, I can go to the immediate window and copy the SQL string and paste it into a query for a quick solution to the problem. For us older programmers, that sometimes works better than trying to analyze the text in a long SQL string.
dim strsql as string
strsql = "UPDATE BudgetFLNew SET BudgetFLNew.2007Budget = '" & Format(Me.Totals1, "Currency") & "' " _
& "WHERE (((BudgetFLNew.PROPID)='" & Me.PROPID & "') AND ((BudgetFLNew.GLNO)=" & Me.GLNO & "));"
debug.print strsql
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
DoCmd.SetWarnings True