What am I doing wrong?
If I change the combo box to read 126, it says it will append 0 rows.
However, if I remove the variable portion and replace it with 126, it wants to append 1 row. (i.e. WHERE tblItems.UPC = '126'; )
Code:Private Sub cboUpcScan_AfterUpdate() Dim strSQLUPCScan As String strSQLUPCScan = "INSERT INTO tblItemsSold (UPCSold, DescSold, PriceSold) SELECT UPC, DESC , List FROM tblItems WHERE tblItems.UPC = '" & Me.cboUpcScan & "';" DoCmd.RunSQL (strSQLUPCScan) End Sub