Monterey
asked on
SQL & VBA
Hello All,
I am going to try to explain this the best way I know how. I am inserting data into a table from a query via SQL. Before I run the SQL, I am trapping a value in another table. I then need to get that trapped value into the table from SQL as it builds the records. That trapped value will change from record to record. My code is below and the InvoiceNo is the trapped value that I need to insert. Hope that makes sense...Thank you so much in advance.
Paula
I am going to try to explain this the best way I know how. I am inserting data into a table from a query via SQL. Before I run the SQL, I am trapping a value in another table. I then need to get that trapped value into the table from SQL as it builds the records. That trapped value will change from record to record. My code is below and the InvoiceNo is the trapped value that I need to insert. Hope that makes sense...Thank you so much in advance.
Paula
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Quick response...answered the question exactly! Brilliant!
ASKER
"INSERT INTO [tblLawsonStep2] SELECT *, '" & strInv & "' AS InvoiceNumber FROM [qryReceivedAllLawson]" & _
Thanks for the quick response, it is greatly appreciated!
Paula