Sub Calisiyormu()
If Me.acl_durumu = "Çalışıyor" Or IsNull([acl_durumu]) Then
Me.mtn_ayrilisnedeni.Visible = False
Me.mtn_ayriltar.Visible = False
Me.mtn_calistigigun.Visible = False
Me.Metin213.Visible = True
Me.frm_MAAS.Form.AllowEdits = True
Else
Me.mtn_ayrilisnedeni.Visible = True
Me.mtn_ayriltar.Visible = True
Me.mtn_calistigigun.Visible = True
Me.Metin213.Visible = False
Me.frm_MAAS.Form.AllowEdits = False
End If
End Sub
bu kod sadece frm_MAAS isimli alt formda kilitleme işlemini yapar