New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
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.