#1
ShowOrHideSubform.rar
(Dosya Boyutu: 15,42 KB | İndirme Sayısı: 75)
#2
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
#3
#4
Me.sfrmPaymentsSubform.Visible = falsePrivate 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)
#5
#6
