Hallo allen,
Ik heb een code geschreven waarin ik de content van mijn query kan mailen. Ik zou deze graag ook eerst dynamisch willen filteren. Bijvoorbeeld door een rapport of formulier zodanig te filteren dat ik alleen de rijen krijg die ik wil zien. Mijn code kijkt in de query omdat ik gebruik maak van een recordset.
Iemand een idee hoe ik dit zo dynamisch mogelijk kan maken?
Gr,
Ik heb een code geschreven waarin ik de content van mijn query kan mailen. Ik zou deze graag ook eerst dynamisch willen filteren. Bijvoorbeeld door een rapport of formulier zodanig te filteren dat ik alleen de rijen krijg die ik wil zien. Mijn code kijkt in de query omdat ik gebruik maak van een recordset.
Code:
Public Sub Export_PO()
On Error GoTo EH
'Recordset variables
Dim db As Database
Dim rstOpenPurchaseOrders As Recordset
Dim strSQL As String
Dim strSubject As String
Dim strBody As String
Dim strAddresses As String
Set db = CurrentDb()
strSQL = "SELECT * FROM qry_POOpenOrdersPerVendor;"
Set rstOpenPurchaseOrders = db.OpenRecordset(strSQL, dbOpenDynaset)
If Not rstOpenPurchaseOrders.EOF Then
strBody = "blah blah blah" & vbCrLf & vbCrLf
strBody = strBody & "Partnumber" & vbCrLf
strBody = strBody & "==========" & vbCrLf
rstOpenPurchaseOrders.MoveFirst
Do While Not rstOpenPurchaseOrders.EOF
strBody = strBody & rstOpenPurchaseOrders![po_partnr] & vbCrLf
rstOpenPurchaseOrders.MoveNext
Loop
End If
strSubject = "Here's my report!"
strAddresses = "look.look@nmhg.com"
DoCmd.SendObject acSendNoObject, , acFormatTXT, asAdresses, , , strSubject, strBody, True
Exit Sub
EH:
MsgBox Err.Number & " " & Err.Description
Exit Sub
End Sub
Iemand een idee hoe ik dit zo dynamisch mogelijk kan maken?
Gr,