Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/02/2019 13:48
Konu Sahibi
Ertugrul Kuzu
Yorumlar
7
Okunma
533
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?




berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
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ü Sorgu Düzenleme conquerora 6 233 16/08/2019, 08:33
Son Yorum: conquerora
Çözüldü Alt Formdan Başka Tabloya Kayıt Yapmak aydint33 9 255 31/07/2019, 20:07
Son Yorum: aydint33
Çözüldü Webbrowserda (input Type Disable) Olan Alandan Veri Almak mustinba 4 211 03/07/2019, 22:08
Son Yorum: mustinba
Çözüldü İki Tarih Ve İki Saat Arası Sorgu Formülü furens 5 332 18/06/2019, 15:28
Son Yorum: furens
Çözüldü Sorgu'da Aynı İsimleri Teke Düşürme haziran4 2 257 07/05/2019, 16:58
Son Yorum: haziran4

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