Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
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.
Join the community of 500,000 technology professionals and ask your questions.