Private Sub btn_openf01_Click() On Error GoTo Err_btn_openf01_Click DoCmd.OpenForm "Form02" If Me.Check1.Value = True Then DoCmd.OpenForm "Form03" If Me.Check2.Value = True Then DoCmd.OpenForm "Form04" Exit_btn_openf01_Click: Exit Sub Err_btn_openf01_Click: MsgBox Err.Description Resume Exit_btn_openf01_Click End Sub
access07 - otvaranie formularov pomocou zaskrtavacieho policka