Update Code Not Working
I put this on a command button and whenever i click it it says "Object Required". Any help would be great.
Dim myDb As Database
Dim strSql As String
Set myDb = CurrentDb
strSql = "UPDATE [Progress - Weld/Fit/Visual] SET [Progress - Weld/Fit/Visual].[Long Seam] = " & _
Queries![Progress_Fit]![Long Seam].Value & " WHERE ((([Progress - Weld/Fit/Visual].Type) = 'Fit'))"
DoCmd.SetWarnings False
myDb.Execute strSql
DoCmd.SetWarnings True
Set myDb = Nothing
|