Ik heb een standaard stukje code waarmee een rapport per mail verzonden kan worden.
Private Sub btnTrainingStatusPerTeam_Click()
On Error GoTo Err_btnTrainingStatusPerTeam_Click
Dim stDocName As String
stDocName = "rptTrainingStatusPerTeam"
DoCmd.SendObject acReport, stDocName
Exit_btnTrainingStatusPerTeam_Click:
Exit Sub
Err_btnTrainingStatusPerTeam_Click:
MsgBox err.Description
Resume Exit_btnTrainingStatusPerTeam_Click
End Sub
In het rapport wordt met een filter input gevraagd.
[qryTrainingStatusPerTeam].team like [geef teamcode op]
Nu wil ik dat afhankelijk van de opgegeven "teamcode" de header en footer achtergrondkleur aangepast wordt naar een bij het team passende kleur.
wie kan mij op het juiste pad zetten?
vast dank, Jos
Private Sub btnTrainingStatusPerTeam_Click()
On Error GoTo Err_btnTrainingStatusPerTeam_Click
Dim stDocName As String
stDocName = "rptTrainingStatusPerTeam"
DoCmd.SendObject acReport, stDocName
Exit_btnTrainingStatusPerTeam_Click:
Exit Sub
Err_btnTrainingStatusPerTeam_Click:
MsgBox err.Description
Resume Exit_btnTrainingStatusPerTeam_Click
End Sub
In het rapport wordt met een filter input gevraagd.
[qryTrainingStatusPerTeam].team like [geef teamcode op]
Nu wil ik dat afhankelijk van de opgegeven "teamcode" de header en footer achtergrondkleur aangepast wordt naar een bij het team passende kleur.
wie kan mij op het juiste pad zetten?
vast dank, Jos