Modülde

Case acTextBox

          If .Enabled = False Then .Enabled = True

          

        Case acComboBox

          If .Enabled = False Then .Enabled = True

          

        Case acCommandButton

          If .Enabled = False Then .Enabled = True

şeklinde kod bulunmakda. bu kod ile formdaki metin kutuları, açılan kutular ve butonlar kilitleniyor.

Alt formlarında kilitlenmesi için modüle acsubform eklenmesi gerekli,

modüldeki kodlar aşağıdaki gibi olmalı

Option Compare Database

Option Explicit



Public Sub PasifOlsun(Formadi As String)

Dim ctl As Control



  ' Form üzerindeki tüm denetimleri tek tek dolaşarak aktif-pasif özelliğinin  değiştirilmesini sağlar

  For Each ctl In Forms(Formadi).Controls

    

    With ctl

      ' Bana lazım olan denetimlerin türlerini seçiyorum

      Select Case .ControlType

        

        Case acTextBox

          If .Enabled = True Then .Enabled = False

          

        Case acComboBox

          If .Enabled = True Then .Enabled = False

          

        Case acCommandButton

          If .Enabled = True Then .Enabled = False

          

        Case acSubform

          If .Enabled = True Then .Enabled = False

      End Select

      

    End With

    

  

  Next ctl

  

  

  

End Sub

Public Sub AktifOlsun(Formadi As String)

Dim ctl As Control



  ' Form üzerindeki tüm denetimleri tek tek dolaşarak aktif-pasif özelliğinin  değiştirilmesini sağlar

  For Each ctl In Forms(Formadi).Controls

    

    With ctl

      ' Bana lazım olan denetimlerin türlerini seçiyorum

      Select Case .ControlType

        

        Case acTextBox

          If .Enabled = False Then .Enabled = True

          

        Case acComboBox

          If .Enabled = False Then .Enabled = True

          

        Case acCommandButton

          If .Enabled = False Then .Enabled = True

          

        Case acSubform

          If .Enabled = False Then .Enabled = True

          

      End Select

      

    End With



  Next ctl

    

End Sub