Automatisch Individuele Raportjes mailen per selectie

[castella]

Ik ben bezig om een programmatje toe te voegen aan onze DB waarmee ik aan iedere medewerker op regelmatige basis een update van zijn/haar actviteiten stuur.

Vanuit een resource tabel en een activiteiten tabel check ik welke resources 1+ activiteiten hebben.
Vervolgens zou obv het resultaat, Array of tabel per resource een rapportje moeten worden gredraaid die in een mailtje wordt verwerkt en vervolgens gemaild.

Iemad suggesties hoe ik dit zou kunnen doen?

M.v.g.

 

[castella]

Zover ben ik tot dusver.
Ik krijg het alleen niet voor elkaar om de report weer te laten geven met de WhereCondition

DoCmd.OpenReport "q_StatusUpdateMail", acViewPreview, tijdelijk.Id = strID

Krijg er een "Fout" 424 op. "Object vereist"

Hoop dat iemand kan helpen

Private Sub Mailen_Click()
Dim i As Long
Dim DB As Database, RS As Recordset
Dim RecordCount As Long
Dim strID As Long
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("Tijdelijk")
         ' Aantal records tellen
         RS.MoveLast
         RecordCount = RS.RecordCount
         ' Maak (zero-based) array.
         ReDim AnArray(RecordCount - 1)
         ' Vullen Array.
         RS.MoveFirst
         For i = 0 To RecordCount - 1
            AnArray(i) = RS![Id]
            RS.MoveNext
         Next i
         ' Rapport printen voor iedere medewerker
         For i = 0 To RecordCount - 1
            strID = AnArray(i)
            DoCmd.OpenReport "q_StatusUpdateMail", acViewPreview, tijdelijk.Id = strID
         Next i
         RS.Close
         DB.Close
         Exit Sub
End Sub

 

[OctaFish]

Zou je kunnen beginnen met de code netjes op te maken met de CODE knop? Dat houdt 'm leesbaar. Zo is het een rommeltje.

 

[castella]

Hi Octa,

Sorry, maar ik begin er net weer mee.
Wat bedoel je mt de code knop?

M.v.g.

 

[huijb]

Lees dit eerst voor je een vraag plaatst. wordt hier haarfijn uitgelegd.

 

[castella]

Thnx

Dacht dat het over een knop in VB ging
Ik zie dat iemand het hierboven al heeft aangepast.

M.v.g.

 

[castella]

Stapje "WhereCondition" krijg ik niet aan de praat

Ben weer een stukje verder. Begin langzaam de syntax weer een beetje te begrijpen
Maar op de een of andere manier wordt de variabele "strID" niet opgepakt.
Bij de Preview krijg een PopUp met vraag om de waarde voorde variabele in te voeren.
Maar in de Debug ziek dat de variabele aanwezig is een gevuld is.

 For i = 0 To RecordCount - 1
            strID = AnArray(i)
            DoCmd.OpenReport "q_StatusUpdateMail", acViewPreview, , "[tijdelijk.Id] = strID"
         Next i

En als iemand een suggestie heeft hoe ik de reports in individuele mailtjes krijg hou ik me aanbevolen.

 

[castella]

't is gelukt.

Vanmorgen de goede tip gekregen.

DoCmd.OpenReport "q_StatusUpdateMail", acViewReport, , "[tijdelijk.Id] = " & [intID]

Zij het al. Mijn syntax kennis schiet te kort.