Hi,
I am trying to update table from form but I am getting an [Runtime Error 3061 Too few parameters Expected 3]. Below is the code.
Any assistance would be highly appreciated
Table Details:
Table name is FormData
Table Fields are Co Code, Stage and Sub Stage (Datatype for all fields - Text)
Form Details:
Text Box1 “Stage”
Text Box2 “SubStage”
Text Box3 “CoCode”
Button “Command48
Private Sub Command48_Click()
Dim strSQL As String
Debug.Print
strSQL = "UPDATE FormData SET " & _
" [FormData].[Stage] = " & Me.Stage & "," & _
" [FormData].[Sub Stage] = " & Me.SubStage & _
" WHERE [FormData].[Co Code] = " & Me.CoCode & ";"
CurrentDb.Execute strSQL
End Sub
I am trying to update table from form but I am getting an [Runtime Error 3061 Too few parameters Expected 3]. Below is the code.
Any assistance would be highly appreciated
Table Details:
Table name is FormData
Table Fields are Co Code, Stage and Sub Stage (Datatype for all fields - Text)
Form Details:
Text Box1 “Stage”
Text Box2 “SubStage”
Text Box3 “CoCode”
Button “Command48
Private Sub Command48_Click()
Dim strSQL As String
Debug.Print
strSQL = "UPDATE FormData SET " & _
" [FormData].[Stage] = " & Me.Stage & "," & _
" [FormData].[Sub Stage] = " & Me.SubStage & _
" WHERE [FormData].[Co Code] = " & Me.CoCode & ";"
CurrentDb.Execute strSQL
End Sub