We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim sqltext2 As String Dim rlst2 As String Dim strFac As String Dim strPO As Integer Dim strInv As String CurrentDb.Execute "DELETE * FROM [tblLawsonStep2]", dbFailOnError CurrentDb.Execute "DELETE * FROM [tblReconTemp]", dbFailOnError DoCmd.OpenQuery "qryRecontoTempRecon" Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM [tblReconTemp]") If Not rs1 Is Nothing Then rs1.MoveFirst Do While Not rs1.EOF rlst2 = "" rlst2 = Chr(34) & rs1.Fields("[ReceiverNo]").Value & Chr(34) strFac = rs1.Fields("[Facility]").Value strPO = rs1.Fields("[PO]").Value strInv = rs1.Fields("InvoiceNo").Value rlst2 = Mid(rlst2, 2, Len(rlst2) - 2) 'MsgBox rlst2 sqltext2 = "INSERT INTO [tblLawsonStep2] SELECT * FROM [qryReceivedAllLawson]" & _ " WHERE (((qryReceivedAllLawson.Facility)= " & strFac & ") AND ((qryReceivedAllLawson.[PO#])= " & strPO & ") AND ((qryReceivedAllLawson.ReceiverNo) In (" & rlst2 & ")));" 'MsgBox sqltext2 DoCmd.RunSQL sqltext2 rs1.MoveNext Loop 'MsgBox rlst2 End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.