Kod:
Me.sfrmPaymentsSubform.Visible = false
Kod:
Private Sub Active_AfterUpdate()
(bu kod bu olayın Active isimli nesne için yapılacağını belirtiyor)
If Me.Active = True Then
(Eğer active isimli onay nesnemiz true (yani işaretli) ise)
Me.sfrmPaymentsSubform.Visible = True
(sfrmPaymentsSubform isimli altformun visible(görünürlük) özelliğini True(evet) yap)
Else
(Else, yani değilse)
Me.sfrmPaymentsSubform.Visible = False
(sfrmPaymentsSubform isimli altformun visible(görünürlük) özelliğini False(hayır) yap)
End If
(if olayını bitir)
End Sub
(Bu alt kodlamayı bitir)