DoCmd.OutputTo

[ManuNeko]

Is er een manier om de berichten die op scherm komen te onderdrukken bij DoCmd.OutputTo?

Ik heb al eens geprobeerd met "DoCmd.SetWarnings False", maar dan krijg ik mijn form met mijn progress bar niet meer te zien.

 

[OctaFish]

Als je er een voorbeeldje van kan maken, wil ik er wel even naar kijken.

 

[ManuNeko]

Dit is mijn code:

        With Forms.frmProgressBar
            .prgProgress = .prgProgress + nBarStep
            .lblMededeling.Caption = "Aanmaken lijst maaltijdcheques..."
            sSavePath = GetMCHDir & "\" & Year(Forms.frmRapporten.txtMCHMaand.Value) & "\AGH\AGH " & Format(Forms.frmRapporten.txtMCHMaand.Value, "mmmm YYYY") & ".pdf"
            DoCmd.OutputTo acOutputReport, "rptMaaltijdcheques", acFormatPDF, sSavePath
            .prgProgress = .prgProgress + nBarStep
            .lblMededeling.Caption = "Wegschrijven lijst maaltijdcheques..."
        End With

en in bijlage een afdruk van de melding die ik zou willen onderdrukken.

 

[OctaFish]

Heb je dit al geprobeerd?

With Forms.frmProgressBar
            .prgProgress = .prgProgress + nBarStep
            .lblMededeling.Caption = "Aanmaken lijst maaltijdcheques..."
            sSavePath = GetMCHDir & "\" & Year(Forms.frmRapporten.txtMCHMaand.Value) & "\AGH\AGH " & Format(Forms.frmRapporten.txtMCHMaand.Value, "mmmm YYYY") & ".pdf"
[COLOR="blue"][B]            DoCmd.SetWarnings False[/B][/COLOR]
            DoCmd.OutputTo acOutputReport, "rptMaaltijdcheques", acFormatPDF, sSavePath
[COLOR="blue"][B]            DoCmd.SetWarnings True[/B][/COLOR]
            .prgProgress = .prgProgress + nBarStep
            .lblMededeling.Caption = "Wegschrijven lijst maaltijdcheques..."
        End With

 

[ManuNeko]

Ja, dat heb ik al geprobeerd, maar dat helpt niet.

 

[OctaFish]

Dan zou ik de waarschuwingen in de Opties van Access uitzetten; allicht dat je dan de SetWarnings niet meer nodig hebt.