Hi all
Having a bit of issue with the VBA code below, keeps throwing up a syntax error and I not sure on what's causing it?
Code:
SQL = "INSERT INTO ITEM-GradeBrand (ItemCode,GradeBrand,GBValue,GBDescr) " _
& "VALUES ('" & IC & "','" & GB & "','" & GV & "','0');"
The IC, GB and GV codes are originating from a string variable
The full version of the Sub
Code:
Private Sub StockType_AfterUpdate()
Dim SQL As String
Me.GST_Applies = DLookup("GST", "LUP-ITEM-Stockgroup", "[Type]='" & Me.StockType & "'")
Me.GRN_Item = DLookup("GRN", "LUP-ITEM-Stockgroup", "[Type]='" & Me.StockType & "'")
Dim CMode As Integer, GB As String, GV As String, IC As String
Dim db As Database
Set db = Application.CurrentDb
IC = Me.ItemCode
CMode = 1
Do While CMode < 10
Select Case CMode
Case 1
GB = "Brand"
GV = "0"
Case 2
GB = "Grade"
GV = "0"
Case 3
GB = "Size"
GV = "ND"
Case 4
'exit loop
Exit Sub
End Select
SQL = "INSERT INTO ITEM-GradeBrand (ItemCode,GradeBrand,GBValue,GBDescr) " _
& "VALUES ('" & IC & "','" & GB & "','" & GV & "','0');"
DoCmd.RunSQL SQL
CMode = CMode + 1
Loop
End Sub
any help would be appreciated