Ekteki örneği inceleyiniz.
Kolay gelsin.
Kod
Private Sub YAPTIGI_ISLEM_AfterUpdate()
If Me.YAPTIGI_ISLEM = 1 Then
Me.KIRA.SourceObject = "kIRA"
Else
Me.KIRA.SourceObject = "SATIS"
End If
End Sub
If me.acilankutu= 1 then
me.subform.SourceObject="subform1" 'Subform forumunuzdaki subformun nesne adıdır.
Else
me.subform.SourceObject="subform2"
End If
Burada ifade edilen subform formunuza eklemiş olduğunuz subformun adıdır.