Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/02/2019 13:48
Konu Sahibi
Ertugrul Kuzu
Yorumlar
7
Okunma
389
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Semih Meydan

Semih Meydan

Üye
103678
Se.... Me....
 Belirtilmemiş
 0
 1
 11/04/2019
0
 
 
 
 19/06/2019,19:03
(11/02/2019 17:33)ozanakkaya Adlı Kullanıcıdan Alıntı:
(11/02/2019 17:07)Ertugrul Kuzu Adlı Kullanıcıdan Alıntı: verdiginiz dosyayı inceledim ama anlayamadım. eki yükledim. yardımcı olursanı zçok sevinirim.
Forma eklenen açılan kutulara ve sorguya eklenen ölçütlere dikkat.
Merhaba ben sorguyu Vba içine yazdığım Sql kod ile oluşturuyorum fakat oluşturduğum sorguyu dışardan bir program okuyacağı için parametre değerini sormasını istemiyorum. Program dinamik çalışması için checkbox dan alıyorum değerleri.

Eğer sabit string değer yazarsam, sorguya girerken parametre istemiyor ama dinamik yapı için; listbox,checkbox,textbox gibi araçların value sini bağladığımda sorgu içerisindeki değerleri, bağladığım grafik ekranında ya da, list box da anlık olarak görüyorum ama direkt sorgu içine girince benden parametre istiyor. Parametre girmeden oluşturduğum sorguya girebilmek istiyorum ne yapmalıyım ne denesem olmadı. Sadece string ifadeleri tırnak içinde yazarsam oluyor ama o benim işime yaramıyor. Programın dinamik olması gerekiyor. Bilginiz var mı yardımcı olabilir misiniz?




halily

halily

Uzman
65596
ha....
 26
 1.172
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,01:05
komut12'nin kodunu aşağıdakiyle değiştirip dener misiniz?
dikkat edin sorgunuzun formdan bağımsız çalışması için en az 1 defa önce formdan bu komutun çalıştırılması lazım

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Komut12_Click()
   Dim db As DAO.Database
   Dim qdf As DAO.QueryDef
   Dim strSQL As String
   Set db = CurrentDb
   Set qdf = db.QueryDefs("Sorgu1")
   strSQL = "SELECT * " & _
            "FROM bilanco_veri_2018 " & _
            "WHERE (((bilanco_veri_2018.hisse_adi)='" & Me.Hisse_adi & "') AND " & _
            "((bilanco_veri_2018.donemi)='" & Me.donemi & "') AND ((bilanco_veri_2018.bilanco_kalemi)='" & Me.bilancokalemi & "'));"

   qdf.SQL = strSQL

   Set qdf = Nothing
   Set db = Nothing
End Sub



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Tarih Ve İki Saat Arası Sorgu Formülü furens 5 186 18/06/2019, 15:28
Son Yorum: furens
Çözüldü Sorgu'da Aynı İsimleri Teke Düşürme haziran4 2 187 07/05/2019, 16:58
Son Yorum: haziran4
Çözüldü Klasördeki Dosya İsimlerini Almak ates2014 17 577 27/04/2019, 21:14
Son Yorum: ates2014
Çözüldü Textboxta Sorgu Sonucu Gösterme icemeno 3 172 25/04/2019, 12:33
Son Yorum: icemeno
Çözüldü Sorgulanacak Alanları Formdan Seçme Erhan5106 1 149 23/04/2019, 16:06
Son Yorum: Erhan5106

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.