Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Metin kutularını nasıl pasif yaparım?

[VBA] Metin kutularını nasıl pasif yaparım?
kurt
Aktif Üye 40-100

*
Kayıt Tarihi: 29.03.2011
Toplam 11 konu açtı.
Toplam 56 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
access-sql-8  16-01-2015, 16:01 (En son düzenleme: 16-01-2015, 21:40 kurt.)
Form üzerinde bulunan ve verilerini tablodan alan açılır kutu içeriğine göre, diğer metin kutularını aktif veya pasif yapmak istiyorum. Yardımcı olacak olan arkadaşlara çok teşekkür ediyorum. Saygılarımla..


Eklenti Dosyaları
.rar   Metin Kutularını Aktif veya Pasif Yapma.rar (Boyut: 33,65 KB / İndirilme: 63)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 25 konu açtı.
Toplam 8.714 yorum yaptı.
Toplam 948 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 47 / 211
#2
17-01-2015, 02:34
Sn kurt; acilan kutu satir kaynagnda ki birinci sutun degeri aldigindan
Private Sub EgitimKonusu_AfterUpdate()
If Me.EgitimKonusu = 1 Then
...
ElseIf Me.EgitimKonusu = 2 Then
...
elseIf Me.EgitimKonusu = 3 Then
...
End If
End Sub
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
kurt
Aktif Üye 40-100

*
Kayıt Tarihi: 29.03.2011
Toplam 11 konu açtı.
Toplam 56 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
17-01-2015, 11:08
Sn dsezgin83260; ilginiz için teşekkür ederim, fakat olmadı galiba.
Lütfen örneği düzenler misin, benim bu konularda fazla bilgim yoktur. Zamanınızı almamak için örnek form üzerinde tüm açıklamalarımı yaptım. Örnek formda dikkat ederseniz açılan kutu verilerini başka bir tablodan alıyor. Düzenlemeye yardımcı olmak için form üzerindeki kodları silmedim. Bana bu çok lazım lütfen



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 25 konu açtı.
Toplam 8.714 yorum yaptı.
Toplam 948 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 47 / 211
#4
17-01-2015, 11:31
(17-01-2015, 11:08)kurt demiş ki: Sn dsezgin83260; ilginiz için teşekkür ederim, fakat olmadı galiba.
Lütfen örneği düzenler misin, benim bu konularda fazla bilgim yoktur. Zamanınızı almamak için örnek form üzerinde tüm açıklamalarımı yaptım. Örnek formda dikkat ederseniz açılan kutu verilerini başka bir tablodan alıyor. Düzenlemeye yardımcı olmak için form üzerindeki kodları silmedim. Bana bu çok lazım lütfen

Formun uzerinde ki VBA edioru acip, EgitimKonusu guncelleme olayinda ki kod if satirlarinda ki esit isaretinden sonra ki tirnak icindeki kriter metinlerini kaldirip, numerik kriterleri yazmaniz yeterli olacaktir. Acilan kutunun satir kaynaginda ki soruyu calistirin ve orada ki ilk sutunun numerik veri oldugunu goreceksiniz. iliskili sutunun ilk oldugu icin kriterin de numerik olmasi gerekir. Once ki mesajimda ... yazili satirlar sizin orneginizde ki yazili olan satirlar olarak tekrar etmek istemedigim icin ... seklinde yazmistim.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
kurt
Aktif Üye 40-100

*
Kayıt Tarihi: 29.03.2011
Toplam 11 konu açtı.
Toplam 56 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#5
17-01-2015, 12:06
Sn Sezgin; emeğine sonsuz saygılarımı sunarım ama olmadı. Sizleri çok meşgul ettiğimi biliyorum özür diliyorum. Lütfen örneği düzenleyip yüklerseniz çok sevinirim.
Saygılarımla..



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 25 konu açtı.
Toplam 8.714 yorum yaptı.
Toplam 948 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 47 / 211
#6
17-01-2015, 12:29
(17-01-2015, 12:06)kurt demiş ki: Ama olmadı.
Visual Basic
  1. Private Sub EgitimKonusu_AfterUpdate()
  2. If Me.EgitimKonusu = 1 Then
  3. Me.EgitimAlanKadinSayisi.Enabled = True
  4. Me.EgitimAlanErkekSayisi.Enabled = True
  5. Me.EgitimAlanErkekOgrenciSayisi.Enabled = False
  6. Me.EgitimAlanKizOgrenciSayisi.Enabled = False
  7. Me.EgitimAlanOgretmenSayisi.Enabled = False
  8. End If
  9. If Me.EgitimKonusu = 2 Then
  10. Me.EgitimAlanKadinSayisi.Enabled = False
  11. Me.EgitimAlanErkekSayisi.Enabled = False
  12. Me.EgitimAlanErkekOgrenciSayisi.Enabled = True
  13. Me.EgitimAlanKizOgrenciSayisi.Enabled = True
  14. Me.EgitimAlanOgretmenSayisi.Enabled = True
  15. End If
  16. If Me.EgitimKonusu = 3 Then
  17. Me.EgitimAlanKadinSayisi.Enabled = False
  18. Me.EgitimAlanErkekSayisi.Enabled = False
  19. Me.EgitimAlanErkekOgrenciSayisi.Enabled = False
  20. Me.EgitimAlanKizOgrenciSayisi.Enabled = False
  21. Me.EgitimAlanOgretmenSayisi.Enabled = False
  22. End If
  23. End Sub
  24. Private Sub Form_Current()
  25. Call EgitimKonusu_AfterUpdate
  26. End Sub


kodu form altina tasiyin.
Olmaz ise siz olmayan VT ornegi gonderin?
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Buzdolabı Stok Takip Programı Nasıl Yaparım. mertkevlar 3 98 13-04-2024, 01:35
Son Mesaj: dsezgin
  [FORM] Butonlara Yetkiye Göre Aktif Pasif Olsun Ahmet51 5 151 15-01-2024, 15:49
Son Mesaj: Ahmet51
  İade Miktarlarını eksi nasıl yaparım mecnun022 3 99 09-09-2023, 21:18
Son Mesaj: mecnun022
  Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz? adnnfrm 2 201 06-08-2023, 03:51
Son Mesaj: adnnfrm
  Metin Kutusu Boş Sa Diğer Metin Kutusundan Değer Alması özgülapt 4 260 29-05-2023, 18:01
Son Mesaj: feraz
  [FORM] Sürekli Form Düzeninde Her Kayıt Için Ayrı Ayrı Alanların Pasif Olması Hk. dormin 1 176 09-12-2022, 15:36
Son Mesaj: onur_can
  Excelle Aktarırken Tarih Aralığını Pasif Etme angelos 8 283 08-10-2022, 17:15
Son Mesaj: alperalper
  Metin Kutusuna Girilen Bir Değeri Başka Metin Kutunda Arama farukozgursoy 3 245 18-09-2022, 09:31
Son Mesaj: alperalper

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi