Private Sub cmdNewAdd_Click()
'add data to table
Dim strSQL As String
strSQL = "INSERT INTO Correct_Add(SKU, Warehouse,Weight,ULength,UWidth,UHeight,CLength,CWidth,CHeight," & _
" WPT,GC2,GC3,PLAT,PFactor,SAFlag,CType,ABC,ShipType,CFlag,PPType, OptmLS, OptmLSU, ORMD, SFlag, FFlag)" & _
"VALUES('" & Me.ccrtSKU & "','" & Me.ccrtWarehouse & "','" & Me.ccrtWeight & "','" & _
Me.ccrtULength & "','" & Me.ccrtUWidth & "','" & Me.ccrtUHeight & "', '" & Me.ccrtCLength & "','" & Me.ccrtCWidth & _
"','" & Me.ccrtCHeight & "','" & Me.ccrtWPT & "','" & Me.ccrtGPC2 & "','" & Me.ccrtGPC3 & "','" & Me.ccrtPLAT & "','" & _
Me.ccrtPFactor & "','" & Me.ccrtSA & "','" & Me.ccrtCtype & "','" & Me.ccrtABC & "','" & Me.ccrtSType & "','" & _
Me.ccrtCFlag & "''" & Me.ccrtPPType & "','" & Me.ccrtOptmLS & "','" & Me.ccrtOptmLSU & "','" & Me.ccrtORMD & "','" & _
Me.ccrtSF & "','" & Me.FFlag & "')"
CurrentDb.Execute strSQL
End Sub
I also tried debug.Print strSQL and hit ctrl + G to see the immediate box and I cant see anything
'add data to table
Dim strSQL As String
strSQL = "INSERT INTO Correct_Add(SKU, Warehouse,Weight,ULength,UWidth,UHeight,CLength,CWidth,CHeight," & _
" WPT,GC2,GC3,PLAT,PFactor,SAFlag,CType,ABC,ShipType,CFlag,PPType, OptmLS, OptmLSU, ORMD, SFlag, FFlag)" & _
"VALUES('" & Me.ccrtSKU & "','" & Me.ccrtWarehouse & "','" & Me.ccrtWeight & "','" & _
Me.ccrtULength & "','" & Me.ccrtUWidth & "','" & Me.ccrtUHeight & "', '" & Me.ccrtCLength & "','" & Me.ccrtCWidth & _
"','" & Me.ccrtCHeight & "','" & Me.ccrtWPT & "','" & Me.ccrtGPC2 & "','" & Me.ccrtGPC3 & "','" & Me.ccrtPLAT & "','" & _
Me.ccrtPFactor & "','" & Me.ccrtSA & "','" & Me.ccrtCtype & "','" & Me.ccrtABC & "','" & Me.ccrtSType & "','" & _
Me.ccrtCFlag & "''" & Me.ccrtPPType & "','" & Me.ccrtOptmLS & "','" & Me.ccrtOptmLSU & "','" & Me.ccrtORMD & "','" & _
Me.ccrtSF & "','" & Me.FFlag & "')"
CurrentDb.Execute strSQL
End Sub
I also tried debug.Print strSQL and hit ctrl + G to see the immediate box and I cant see anything