Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
18/09/2011 22:04
Konu Sahibi
iscinar
Yorumlar
3
Okunma
1577
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

iscinar

İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
19/10/2017,15:22
Çözüldü 
Öncelikle rowsource ile liste kutusu kaynağını degiştirme konulu soruma verdiği cevaptan ötürü Sn.POWER'e teşekkür ediyorum.
Yukarıda linkini verdiğim konuda açılır kutu ile Liste kutusunun kayıt kaynağını değiştirmiştik bu sorum aynı konu ile bağlantılı olarak kaynağını değiştirdiğimiz liste kutusunun çifttıklandığında olayına aynı formülü uygulamak.

Örnek:
Açılır kutudan Zimmeti seçtiğimizde Listekutusunun kaynağı Tbl_Zimmet oluyor çift tıkladığımda Column() değerini metin kutularına aktarıyorum.
Soru:
Açılan kutunun değeri değiştiğinde kaynağını değiştirdiğimiz gibi çifttıklandığında olayını da değiştirebilirmiyiz? mesela Ödenmemiş cezalar seçilirse liste kutusuna çifttıkladığımızda bir form açsın, Ödenmiş cezalar seçilirse başka bir eylem gerçekleştirsin.

SQL Code
1
2
3
4
5
6
7
8
Private Sub Cezaacilan_AfterUpdate()
If [Cezaacilan] = "Zimmet" Then 
'Column değerini getir'
If [Cezaacilan] = "Ödenmiş Cezalar" Then
'Rapor Yazdır'
If [Cezaacilan] = "Ödenmemiş Cezalar" Then 
'Bir form aç'
End Sub

gibi.
Ben bu aralara bir kaç kod yerleştirdim ama çalıştıramadım. Şu an sadece yukarıda bahsettiğim column() değerini getiri kullanıyorum. Üzerinde çalıştığım projem işyerinde olduğu için örnek ekleyemedim sanırım derdimi anlatabilmişimdir. Aslında istediğim sadece yol gösterilmesi kalanını birazda ben uygulayarak öğreneyim.


Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,17:01
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
Private Sub Cezaacilan_DblClick(Cancel As Integer)
    Select Case Cezaacilan
        Case "Zimmet"
        MsgBox ("zimmet")
        Case "Ödenmiş Cezalar"
        MsgBox ("Ödenmiş Cezalar")
        Case "Ödenmemiş Cezalar"
        MsgBox ("Ödenmemiş Cezalar")
    End Select
End Sub


koda msgbox olarak yazdığım yerleri değiştir.


Cevapla

iscinar

İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
19/10/2017,15:22
Çözüldü 
Teşskkürler Sn.sledgeab
Formuma uygulayıp geri dönüş yapacağım.


Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

iscinar

İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
860
30/05/2011
275
İstanbul
Ofis 2013 64 Bit
19/10/2017,15:22
Çözüldü 
Sn.sledgeab tekrar teşekkürler. İstediğim gibi olmuş.

SQL Code
Private Sub Cezaacilan_DblClick(Cancel As Integer)

olan bölümde dün akşam kodu kopyala yapıştır yaptıktan sonra Cezaacilan_DblClick yerine Liste186_DblClick yazmayı unutmuşum Ozur bu arada uygulamada onu da bulmuş oldum.
Kod bloğu

SQL Code
Private Sub Liste186_DblClick(Cancel As Integer)

ile başlayacaktı. İlgilenen arkadaşların da bilgisi olsun istedim.
Zaten soruya bakıldığında Listekutusuna çifttıkladığımızda olay yordamı değişsin istiyordum oradan da hata ortaya çıkıyor.


Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama mehmetb84 6 175 18/09/2017, 12:20 mehmetb84
Çözüldü Çoklu Form Bağlantılarına Kısıtlama orhantanriverdi 2 223 23/07/2017, 12:38 orhantanriverdi
Çözüldü Butonda Her Zaman Olay Yordamı Kulanımı ates2014 10 756 10/06/2017, 09:16 ates2014
Çözüldü Liste Box In İçindeki Verilerin Hizalanması erensimsek 3 276 19/05/2017, 14:05 erensimsek
Çözüldü Seçime Göre Açılır Liste blue_wall 5 394 11/05/2017, 17:06 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.