probleempje met programering van knop

[tepke]

hallo

ik ben met een prograamtje bezig en ik loop een beetje vast. ik ben al een heel eind op weg maar het laastse stukje wil niet lukken.
ik heb een rapport dat via een query wordt aan gestuurd. daar in staan alle orders en ik wil een order selecteren en deze wil ik mailen. in de query heb ik bij het ordernummer veld een vraag staan vul hier het ordernummer in. bij het opstarten van de button stop het programma netjes en ik moet het ordernummer invoeren. en daarna op OK drukken. vervolgens gaat de procedure verder. werkt goed maar ik wil het automatiseren.

ik moet zoeken op orderID

de procedure die nu volg is de volgende:

Const mailOnderwerp1 = "Orderbevestigingnummer : "
Const mailOnderwerp2 = " | Orderdatum : "
Const mailOnderwerp3 = " | Klantreferentie : "
Const mailTO = "hier adres invoegen"
Const mailCC = ""
Const mailBCC = ""

Dim mailtekst As String
Dim mailOnderwerp As String
Dim stDocName As String

mailtekst = "tekst"
mailOnderwerp = mailOnderwerp1 & OrderId & mailOnderwerp2 & Orderdatum & mailOnderwerp3 & Referentie
stDocName = "Orderbevestiging_mail"

DoCmd.SendObject acReport, stDocName, acFormatPDF, mailTO, mailCC, mailBCC, mailOnderwerp, mailtekst, True

wat moet ik er bij programeren om de query te filteren op het OrderID welke ook in men formulier staat waar ik dan op sta? bij rapporten afdrukken wekt het ook daar doe ik het als volgt:

Dim stDocName As String

stDocName = "Orderbevestiging"
DoCmd.OpenReport stDocName, acPreview, , "OrderId = " & [Forms]![orders]![OrderId]

 

[OctaFish]

SendObject zend altijd het volledige rapport, dus je kunt daar geen filtering aan toevoegen. Tenzij het rapport geopend is, dan wordt het huidige record gemaild. Wat je dus moet doen, is eerst het rapport openen met de code die je nu ook gebruikt (eventueel in de Hidden modus, want je hoeft het rapport waarschijnlijk niet te zien), dan de SendObject actie en vervolgens het rapport weer sluiten.

 

[tepke]

bedankt ik ga het proberen