Skip to main content

AccessTr.neT


Formdaki Olaylar

Formdaki Olaylar

Çözüldü #1
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
.rar deneme.rar (Dosya Boyutu: 162,67 KB | İndirme Sayısı: 2)
Cevapla
#3
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.
Cevapla
#4
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)
Cevapla
#5
Teşekkürler Sayın accessman, Teşekkürler Sayın Ozankaya
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task