I
iholder
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.
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.