Open report if checkbox is ticked

[Patience]

Hi,

I have this code:

Private Sub Kommandoknap749_Click()
On Error GoTo Err_Kommandoknap749_Click
    Dim stDocName As String
    stDocName = "Abrasion internal"
    DoCmd.OpenReport stDocName, acPreview
    stDocName = "Fire tests"
    DoCmd.OpenReport stDocName, acPreview

Exit_Kommandoknap749_Click:
    Exit Sub
Err_Kommandoknap749_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap749_Click
    
End Sub

How do I specify that the report "Abrasion internal" must only open if CheckBox A is ticked?

Thank you very much!

[pbaldy]

Wrap that one in an If/Then block:

If Forms!FormName.CheckBoxA = True Then

[Patience]

It works perfect!

Thank you a lot

[pbaldy]

Happy to help!