Arkadaşlar eklediğim kodla form üzerindeki denetimleri ve nesneleri aktif/pasif yapabiliyorum.

Başka bir formda bulunan liste kutusuna çift tıklayınca ana formdaki nesneleri aktif nasıl yapabilirim.

frm_kurul_ana_toplanti formundaki ara butonuna basınca frm_kurul_karar_ara1 formu üzerindeki liste kutusu çift tıklanınca frm_kurul_ana_toplanti formuna tekrar gelince denetimler aktif olsun. (bazılarını da pasif yapabileyim)

Public Sub pasifOlsun(FormAdi As String)

Dim ctrl As Control

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

For Each ctrl In Forms(FormAdi).Controls

With ctrl

'Bana lazım olan denetimlerin tiplerini 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 acListBox

  If .Enabled = True Then .Enabled = False

    End Select

  End With

Next ctrl

End Sub

Public Sub aktifOlsun(FormAdi As String)

Dim ctrl As Control

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

For Each ctrl In Forms(FormAdi).Controls

With ctrl

'Bana lazım olan denetimlerin tiplerini 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 acListBox

  If .Enabled = False Then .Enabled = True

    End Select

  End With

Next ctrl

End Sub