Kod:
Private Sub Active_AfterUpdate()
'After Update of checkbox
'Check if Active checkbox is selected
'then show or hide subform
If Me.Active = True Then
Me.sfrmPaymentsSubform.Visible = True
Else
Me.sfrmPaymentsSubform.Visible = False
End If
End Sub