Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Recordset Kaynağını Sorgu Olarak Tanımlama

[VBA] Recordset Kaynağını Sorgu Olarak Tanımlama
alperalper
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 624 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#1
access-sql-3  22-08-2022, 10:24
Arkadaşlar herkese günaydın. Aşağıdaki recordset'in kaynağını tablo değilde oluşturduğum bir sql den almak istiyorum. bu sorguyu kaydettiğim zaman alıyor sorun yok ama sql builder ile yaptığım zaman almayor. bunu nasıl alabilirim...


Visual Basic
  1. Dim strSQL As String
  2. strSQL = "SELECT tbl_hesap_tablosu_hizmet.*, tbl_hesap_tablosu_hizmet.donem_id, tbl_hesap_tablosu_hizmet.hizmet_ustgrup_id"
  3. strSQL = strSQL & " FROM tbl_hesap_tablosu_hizmet"
  4. strSQL = strSQL & " WHERE (((tbl_hesap_tablosu_hizmet.donem_id)=" & donem_id & ") AND ((tbl_hesap_tablosu_hizmet.hizmet_ustgrup_id)=" & hizmet_ustgrup_id & "));"
  5.  
  6. Set db = CurrentDb
  7. Set rst = db.OpenRecordset("strSQL", dbOpenDynaset) 'BURADA İÇERİ ALAMIYORUM. HATAYA DÜŞÜYOR.
  8. With rst
  9.     Do While Not .EOF
  10.         Debug.Print ![id], ![donem_id], ![hizmet_ustgrup_id], ![hizmet_altgrup_id], ![hizmet_turu], ![hizmet_sinifi], ![kdv_oranı], ![hesaplanan_taahhut_tutarı], ![fiyat_farki_tutari], ![hesaplanan_tutar], ![hesaplanan_kesinti_tutari], ![hesaplanan_damga_vergisi], ![hesaplanan_kdv], ![kdv_tevkifat_orani], ![hesaplanan_kdv_tevkifati], ![hesaplanan_kdv0_hizmet], ![kesintiler]
  11.         
  12.         If donem_id = rst![donem_id] And hizmet_ustgrup_id = ![hizmet_ustgrup_id] Then
  13.         
  14. '//////KOD BLOĞUM
  15.         
  16.         .MoveNext
  17.     Loop
  18.     .Close
  19. End With
  20.                 
  21. Set rst = Nothing
  22. db.Close
  23. Set db = Nothing





  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
22-08-2022, 10:40
Set rst = db.OpenRecordset("strSQL", dbOpenDynaset)
"strSQL" baştaki ve sondaki tırnakları kaldırıp dener misiniz?
tırnak içine aldığınızda access bunun belli bir tablo yada sorgu olduğunu düşünüp o ada sahip tablo/sorgu arar



  Bul
  Alıntı
Bu mesajı beğenenler:
alperalper
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 624 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#3
22-08-2022, 13:40
(22-08-2022, 10:40)halily demiş ki: Set rst = db.OpenRecordset("strSQL", dbOpenDynaset)
"strSQL" baştaki ve sondaki tırnakları kaldırıp dener misiniz?
tırnak içine aldığınızda access bunun belli bir tablo yada sorgu olduğunu düşünüp o ada sahip tablo/sorgu arar

Wacko halily eyvallah. hiç dikkat etmemişim. Peki aklıma gelmişken birşey sormak istiyorum. mesela strSQL içeriği boş olduğunda recordset olarak ayarlasam hata verir. strSQL içini nasıl denetleyebilirim öncesinde. dcount("*") şeklinde olmuyor.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#4
22-08-2022, 13:44
tam olarak anlamadım recordsette kayıt var mı yok mu o mu kontrol edilecek yoksa sorgu kodu olan strSQL değişkenine değer atanıp atanmadığı mı?



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#5
22-08-2022, 13:45
strSQL boş mu değil mi kontrol etmek için len(strSQL  & "")>0 ise değer atanmış demektir



  Bul
  Alıntı
Bu mesajı beğenenler:
alperalper
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 624 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#6
22-08-2022, 19:24
(22-08-2022, 13:45)halily demiş ki: strSQL boş mu değil mi kontrol etmek için len(strSQL  & "")>0 ise değer atanmış demektir

Aynen strsql içine değer atanmış mı ona balacaktım. Revordset'i kontrol edebiliyorum. Len ile deneyim teşekkürler.



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [MAKRO] Alt Formda Filtrelemenin Iptali Ve Alt Formun Liste Olarak Görünmesi. M_Kemal_Askeri 2 172 21-04-2026, 23:57
Son Mesaj: M_Kemal_Askeri
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 164 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  [SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz? abkbek 2 440 13-08-2024, 21:18
Son Mesaj: abkbek
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 987 01-08-2024, 10:28
Son Mesaj: dsezgin
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 465 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  Virgülle Ayrılmış Verilerin Her Bir Değerini Yeni Kayıt Olarak Ekleme adnnfrm 5 702 28-11-2023, 01:37
Son Mesaj: dsezgin
  Formu Pdf Olarak Kaydetme snapper 8 914 01-11-2023, 22:59
Son Mesaj: dsezgin
  12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk. adnnfrm 2 566 05-10-2023, 03:16
Son Mesaj: adnnfrm

Foruma Git:


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