Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Seçime Göre Alt Form Gösterme / Gizleme

derzulya
derzulya
Access Cevaplanmış Soruları
3
649

Seçime Göre Alt Form Gösterme / Gizleme

Çözüldü #1
derzulya
Aktif Üye
derzulya
Bul
Aktif Üye
Adı Soyadı: Bu.... ES....
Yaşı: 45
Konum: Bursa
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 02/09/2024,18:27
Yorumları: 186
Konuları: 53
Kayıt Tarihi: 09/03/2009
Teşekkür Puanı: 23
Mesleğiniz: Muhasebe
Ekteki uygulamada Talepler formunun içerisine alt formları ekledim ve açılışta olayına gizlenmesi kodunu yazdım. çünkü form açıldığında görünmesini istemiyorum.

Kod:
Private Sub Form_Open(Cancel As Integer)
Me.satinalma.Visible = False
Me.fatura_islemleri.Visible = False

End Sub
ardından Birim adlı açılır kutudaki seçime göre açılmasını istedim. bunun içinde şöyle bir kod kullandım.

End Sub


Kod:
Private Sub birim_AfterUpdate()
Me.talep_birimi.Requery

If Me.birim.Value = "Satın Alma" Then Me.satinalma.Visible = True
If Me.birim.Value = "Muhasebe" Then Me.fatura_islemleri.Visible = True

End Sub

fakat hiç bir şekilde görünmesini sağlayamadım. hatayı nerede yaptım? yardımcı olabilir misiniz.
.zip Database4.zip (Dosya Boyutu: 165,19 KB | İndirme Sayısı: 4)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 10/03/2020, 16:06, Düzenleyen: derzulya.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,19:45
Yorumları: 8.506
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
çalışmamasının sebebi açılır kutu ilk sütunla (0. sütun) ilişkili ama karşılaştırma 2. sütunla (1. sütun) yapılıyor dolayısıyla sonuç hatalı çıkıyor. kodu aşağıdaki gibi düzenlemeniz daha doğru olur
If Me.birim.Column(1) = "Satın Alma" Then Me.satinalma.Visible = True Else Me.satinalma.Visible = False

If Me.birim.Column(1) = "Muhasebe" Then Me.fatura_islemleri.Visible = True Else Me.fatura_islemleri.Visible = False
Cevapla
#3
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,19:45
Yorumları: 8.506
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
Else Me.satinalma.Visible = False eklemezseniz bir defa göründükten sonra hep görünür kalır bir şekilde onu tekrar görünmez yapmanız gerek
Cevapla
#4
derzulya
Aktif Üye
derzulya
Bul
Aktif Üye
Adı Soyadı: Bu.... ES....
Yaşı: 45
Konum: Bursa
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 02/09/2024,18:27
Yorumları: 186
Konuları: 53
Kayıt Tarihi: 09/03/2009
Teşekkür Puanı: 23
Mesleğiniz: Muhasebe
Teşekkür ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da