+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Olaylar (/konu-formdaki-olaylar.html)
Formdaki Olaylar - SeferŞANLI - 08/04/2020
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 SubPublic 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 SubCvp: Formdaki Olaylar - accessman - 08/04/2020
http://access.mvps.org/access/forms/frm0031.htm
Cevabı burada yazıyor
Cvp: Formdaki Olaylar - ozanakkaya - 08/04/2020
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.
Cvp: Formdaki Olaylar - accessman - 08/04/2020
bu fonksiyona false veya true değerlerini göndererek iki ayrı fonksiyon yerine tek fonksiyon şeklinde yazabilirsiniz
Public Sub aktifOlsun(FormAdi As String)Public Sub aktifOlsun(FormAdi As String, deger as Boolean)Call aktifOlsun("frm_kurul_ana_toplanti", değer)Cvp: Formdaki Olaylar - SeferŞANLI - 08/04/2020
Teşekkürler Sayın accessman, Teşekkürler Sayın Ozankaya