AccessTr.neT

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

http://access.mvps.org/access/forms/frm0031.htm
Cevabı burada yazıyor

Merhaba, liste kutusunun çift tıklandığında olayına eklediğiniz aşağıdaki kod çalışmaz.

Forms![frm_kurul_ana_toplanti].aktifOlsun = "frm_kurul_ana_toplanti"

Modüldeki,

Public Sub atkifOlsun(FormAdi As String)

kodunu, liste kutusunun çift tıklandığında olayına

Call aktifOlsun("frm_kurul_ana_toplanti")

kodu ekleyerek çalıştırabilirsiniz.

bu fonksiyona false veya true değerlerini göndererek iki ayrı fonksiyon yerine tek fonksiyon şeklinde yazabilirsiniz

Public Sub aktifOlsun(FormAdi As String)

yerine

Public Sub aktifOlsun(FormAdi As String, deger as Boolean)

fonksiyonu çağırırken

Call aktifOlsun("frm_kurul_ana_toplanti", değer)

Teşekkürler Sayın accessman, Teşekkürler Sayın Ozankaya