Error 3061: Too few parameters - INSERT statement

[Guest]

I am recieveing an error message too few parameters, on the following code
below using an INSERT statement.

Dim DrivePath As String
Dim dbs As Database
Dim strParkwayName As String
Dim strCustomerNo As String
strCustomerNo = Me.CustomerNo
DrivePath = "G:\Highway Travel Permit\Highway Permit Demo\"
Set dbs = OpenDatabase(DrivePath & "Copy of Highway Travel.mdb")

'Belt Parkway
If Me.BeltParkway = True Then
strParkwayName = "Belt Parkway"
dbs.Execute " INSERT INTO tblTempParkway " _
& "([CustomerNo],[ParkwayName]) VALUES " _
& "(strCustomerNo, strParkwayName);"
End If

What am I missing in this code?

Thank You.

 

[Guest]

Concatenate the values of the variables into the string expression rather
than referencing them, delimiting the values with quotes as the CustomerNo
and ParkwayName columns appear to be of text data type, judging by the fact
that you've declared both variables as String:

dbs.Execute "INSERT INTO tblTempParkway " _
& "(CustomerNo,ParkwayName) VALUES " _
& "(""" & strCustomerNo & """,""" & strParkwayName & """)"

Ken Sheridan
Stafford, England

 

[Guest]

Thank You very much.

The extra set of quotes take care of the problem.

Concatenate the values of the variables into the string expression rather
than referencing them, delimiting the values with quotes as the CustomerNo
and ParkwayName columns appear to be of text data type, judging by the fact
that you've declared both variables as String:

dbs.Execute "INSERT INTO tblTempParkway " _
& "(CustomerNo,ParkwayName) VALUES " _
& "(""" & strCustomerNo & """,""" & strParkwayName & """)"

Ken Sheridan
Stafford, England

I am recieveing an error message too few parameters, on the following code
below using an INSERT statement.

Dim DrivePath As String
Dim dbs As Database
Dim strParkwayName As String
Dim strCustomerNo As String
strCustomerNo = Me.CustomerNo
DrivePath = "G:\Highway Travel Permit\Highway Permit Demo\"
Set dbs = OpenDatabase(DrivePath & "Copy of Highway Travel.mdb")

'Belt Parkway
If Me.BeltParkway = True Then
strParkwayName = "Belt Parkway"
dbs.Execute " INSERT INTO tblTempParkway " _
& "([CustomerNo],[ParkwayName]) VALUES " _
& "(strCustomerNo, strParkwayName);"
End If

What am I missing in this code?

Thank You.