Hello again,
I have the following code...when i tried inserting to the first column it works splendidly..but when i try inserting to the second column (MfgPcb) in the same table ..it doesn't give me an error but when i check my table it doesn't insert into the column either..
Any help would be much appreciated.
thank you!..
I have the following code...when i tried inserting to the first column it works splendidly..but when i try inserting to the second column (MfgPcb) in the same table ..it doesn't give me an error but when i check my table it doesn't insert into the column either..
Code:
Private Sub AddPCB_Click()
Dim Response
If Me.txtVendor <> "" Then
Response = MsgBox("Are you sure you want to add this Vendor?", vbYesNo, "Vendor")
If Response = vbYes Then
Dim StrSQL As String
StrSQL = "INSERT INTO Manufacturer (MfgPcb) VALUES (""" & Me.txtVendor & """);"
DoCmd.RunSQL StrSQL
'DoCmd.SetWarnings False
MsgBox "Vendor Added to DataBase."
ElseIf Response = vbNo Then
MsgBox "Vendor Not added to Database."
End If
Else
MsgBox "Please input Vendor Name in the box.", , "Vendor"
End If
End Sub
Any help would be much appreciated.
thank you!..