1 pdf per eigenaar (of relatie nr) printen

[jwaque]

Octafish dank. Ook al is het niet mijn vraag.

 

[jwaque]

Beetje uitleg bij de code

With CurrentDb.OpenRecordset("Actievelocaties")
    .MoveFirst

In de query 'actievelocaties' word een lijst gegenereerd waarin alle locaties zitten waarvan een rapport gemaakt moet worden. Jij zou dus een query moeten maken met alle eigenaren er in ipv een dropdownmenu.

.movefirst

gaat naar het eerste record van de query
vervolgens gebeurt er iets.

!veld

verwijst naar het veld van het record waarin de loop is dus bij de eerste het eerste record.

met

.movenext

ga je naar het volgend record waarna de procedure zich herhaald met de gegevens uit het nieuwe record enzovoorts

aan het begin is gedefineerd hoelang de loop moet duren

 Do While Not .EOF (End Of File)

 

[OctaFish]

Beetje uitleg bij de code

.movefirst

gaat naar het eerste record van de query
vervolgens gebeurt er iets.

Dit kan weg; als je een recordset opent staat de cursor altijd aan het begin. Nóg een keer naar het begin gaan heeft dus geen enkele zin.

 

[jwaque]

je kan overigens ook sneller pdf's versturen. ze worden dan alleen niet opgeslagen.

Private Sub Knop44_Click()

With CurrentDb.OpenRecordset("Verzendlijst")
    .MoveFirst
    Do While Not .EOF
        'defineren ontvanger en actienemer met veld uit recordset
        Ontvanger = !Email
        actienemer = !actienemer
        
        'report openen voor eerste naam
        
       
            DoCmd.OpenReport "planpersoonverzend", acViewPreview, , "uitvoerder = '" & actienemer & "'"
            'report verzenden naar eerste ontvanger
            DoCmd.SendObject acSendReport, , acFormatPDF, Ontvanger, , , "ondewerpmail", "teskt mail ", False
            'rapportsluiten
            DoCmd.Close acReport, "planpersoonverzend", acSaveNo
            'voorgaande herhalen
            .MoveNext
      
    'herhalen tot einde van de recordset
    Loop
End With

 

[OctaFish]

Private Sub Knop44_Click()

With CurrentDb.OpenRecordset("Verzendlijst")
[B]    .MoveFirst
[/B]    Do While Not .EOF

Ik zie dat je nog even vast blijft houden aan de .MoveFirst

 

[jwaque]

tja, heb van een goede leermeester, zojuist geleerd dat de code .movefirst onzin is. Helaas is hij daarmee niet direct uit alle codes verdwenen.

 

[john614]

OctaFish en jwaque,
:thumb: Heel erg bedankt voor de hulp. Werkt perfect, precies wat ik nodig heb.
Groet,
John