Skip to main content

AccessTr.neT


Where Komutunu beceremedim.

Where Komutunu beceremedim.

Çözüldü #1
Herkese kolay gelsin

Ekteki formda combobox da after update sonrasında Vba da yazdığım kod çalışmıyor.
Where komutunu çalıştıramadım. Koda bakıp düzeltebilirmisiniz. Yardımınız için şimdiden teşekkürler.
.rar Doviz.rar (Dosya Boyutu: 17,8 KB | İndirme Sayısı: 12)
Cevapla
Çözüldü #2
Açılır kutuda yazdığınız her şey çalışır vaziyette. Hatanız tabloda olmayan/yanlış şeyi aramanızdan kaynaklanıyor.

Visual Basic Code
strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF=" & E & "  ORDER BY DOVIZKODU "

Burada Where kısmında Aktif isimli alanın değerinin E olmasını söylüyorsunuz. Halbuki açılır kutunuzdan böyle bir sonuç gelmemekte.

Çözüm için ipucu vereyim bakalım halledebilecek misiniz?

Açılan kutunun değerinin ne olduğunu MsgBox komutu ile anlayabilirsiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
Kusura bakmayın çözemedim. Ama benim yapmak isdeğim "Aktif" i seçtiğimde Alan değeri "E" olanları listelesin "Pasif" i seçtiğimde alan değeri "H" olanları listelesin "Hepsini seçtiğimde hepsini listelesin bunu zaten yapıyorum ama diğer seçenekleri yapamadım. Bu gün akşama kadar bununla uğraştım. Ama olmadı. Img-cray
Son Düzenleme: 22/04/2013, 23:15, Düzenleyen: merdal.
Cevapla
Çözüldü #4
Sizin Vba kodunda yazdığınız :

Visual Basic Code
strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF=" & E & "  ORDER BY DOVIZKODU "

E ne anlama gelir? E isminde bir denetim var ve onun değerini kriter olarak vermeye çalıştığınız anlamına gelir. Oradaki E harfini tırnakların dışına değil içine yazmalısınız.

Nihayetinde kod şöyle olacak:
Visual Basic Code
Select Case cbAktif
Case 1
    strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF='E' ORDER BY DOVIZKODU "
     Liste10.RowSource = strSQL
     Liste10.Requery
     
Case 2
     strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF='H' ORDER BY DOVIZKODU "
     Liste10.RowSource = strSQL
     Liste10.Requery
     
Case 3
     strSQL = "SELECT * FROM TBLDOVIZ ORDER BY DOVIZKODU "
     Liste10.RowSource = strSQL
     Liste10.Requery

End Select
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
Çok teşekkür ederim cevabınızla sorunu çözdüm
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task