All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
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
|Need to fix 3 LEFT JOIN on same column||24||46|
|How to place a condition in a filter criteria in t-sql?||12||36|
|Updating ms sql with special characters||8||25|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!