SendObject med trykknap på formular

Jeg mener ikke, at du kan indsætte kriterier på denne måde når du vil maile en rapport.

Flyt kriteriet til forespørgslen ved at indtaste en henvisning til formularen under kriterier for feltet løbenummer:

=[Forms]![FORMULARNAVN]![Løbenummer]

Og dog - Måske med en lille omvej. Prøv at indsætte kriteriet i rapportens OnOpen:

Me.Filter = "Løbenummer=" & Forms![FORMULARNAVN]![Løbenummer]
Me.FilterOn = True

Sakset herfra:

http://www.granite.ab.ca/access/email/reporttomultiplerecipients.htm

Jeg begrænser normalt rapporterne til kun at indeholde den ene post ved at lave min forespørgsel specifik og evt. binde den sammen med et formularfelt.

som jeg også skriver i mit svar, men måske ingolf har en grund til at gøre det på en anden måde.

Jeg tror jeg beslutter mig til at åbne rapporten v.h.a. trykknappen først, og derefter vælge send vedhæftet fil. Derved er jeg ihverfald sikker på, at jeg ikke går hen og sender alle poster til en forkert person.

Det burde du også være med min første kode. Den anden med filtrering har jeg ikke selv prøvet. Men du kan altid sætte koden til at åbne e-mailen inden afsendelse og derved åbne en vedhæftet rapport og kontrollere den:

a = Me.email
DoCmd.SendObject acReport, "Rapport1", "HTML(*.html)", a, "", "", "Hej", "Dette er en rapport fra Access", True, ""

Det sidste argument True åbner e-mailen før den sendes og giver dig mulighed for at redigere. Ændrer du argumentet til False, sendes e-mailen uden du kan redigere den.