Hoi,
Bedankt voor jullie reactie. Ik heb een poging gedaan om dit te verken in de code maar het lukt me niet.
In het formulier heb ik een knop gemaakt waaran ik een actie wil laten uitvoeren. Deze actie is het printen van een dokument(4x)
Echter als er geen data is print hij dit toch.
Zou iemand mij hiermee verder kunnen helpen ?
De volgende code staat nu achter deze procedure :
Private Sub Knop4_Click()
On Error GoTo Err_Knop4_Click
Dim stDocName As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Zijn de CMR dokumenten geprint?" ' Definieert bericht.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Definieert knoppen.
Title = "BELANGRIJK !!!!" ' Definieert titel.
stDocName = "CMR"
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' Gebruiker koos Ja.
DoCmd.RunMacro "cmr printing succeed" ' Voert bepaalde handeling uit.
Else ' Gebruiker koos Nee.
MyString = "Nee" ' Voert bepaalde handeling uit.
End If
Exit_Knop4_Click:
Exit Sub
Err_Knop4_Click:
MsgBox Err.Description
Resume Exit_Knop4_Click
End Sub