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