+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme (/konu-excel-vba-dan-access-veri-tabanindaki-soru-ile-veri-cekme.html)
Sayfalar:
1
2
Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme - sadiksadik - 20/03/2024
Merhabalar;
Excel Vba ile Access veri tabanında bulunan veriler sorgu ile çekmek istiyorum fakat aşağıdaki kod ile çekebiliyorum ama bazı değişkenler atadığımda sorgu çalışmıyor.
Yardımcı olabilir misiniz.
Şimdiden teşekkürler.
Kod:
Q = "SELECT " & DField & " FROM " & TableName & vbCrLf & _
"WHERE (((TLB_Firma.ID)=1) AND ((TLB_AdresDegisikligi.Tarih_Bas)<=Date()) AND ((TLB_AdresDegisikligi.Tarih_Bit)>=Date()));"Aşağıdaki kodlar değişkenlerin olacağı bölümler
TLB_Firma.ID=FirmaNo
Date() bunun yerine de bu oTarihi
umarım ifade edebilmişimdir.
RE: Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme - berduş - 20/03/2024
Q = "SELECT " & DField & " FROM " & TableName & vbCrLf & _
"WHERE (((TLB_Firma.ID)=" & FirmaNo & ") AND ((TLB_AdresDegisikligi.Tarih_Bas)<=" & oTarihi & ") AND ((TLB_AdresDegisikligi.Tarih_Bit)>=" & oTarihi & "));"örnek çalışmanız olmadığından öneriler yardımcı olamayabilir.
Not: burada hata kontrolü yapılmadığından ilgili alandaki verilerin uygun formatta eklendiği varsayılmıştır
Re: Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme - sadiksadik - 20/03/2024
(20/03/2024, 02:44)berduş yazdı:kodunu dener misiniz?Q = "SELECT " & DField & " FROM " & TableName & vbCrLf & _
"WHERE (((TLB_Firma.ID)=" & FirmaNo & ") AND ((TLB_AdresDegisikligi.Tarih_Bas)<=" & oTarihi & ") AND ((TLB_AdresDegisikligi.Tarih_Bit)>=" & oTarihi & "));"
örnek çalışmanız olmadığından öneriler yardımcı olamayabilir.
Not: burada hata kontrolü yapılmadığından ilgili alandaki verilerin uygun formatta eklendiği varsayılmıştır
Teşekkürler
Maalesef çalışmadı. Örnek çalışmayı da yüklüyorum rica etsem bakabilirmisiniz.
Tekrardan Teşekkürler
RE: Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme - berduş - 20/03/2024
where satırını aşağıdaki gibi formatlayarak almayı dener misiniz?
"WHERE (((TLB_Firma.ID)=" & FirmaNo & ") AND ((TLB_AdresDegisikligi.Tarih_Bas)<=#" & Format(oTarihi, "dd\/mm\/yyyy") & "#) AND ((TLB_AdresDegisikligi.Tarih_Bit)>=#" & Format(oTarihi, "dd\/mm\/yyyy") & "#));"
RE: Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme - berduş - 20/03/2024
bir de where satırında
(TLB_Firma.ID)=" & FirmaNo kullanmışsınız
ama fonksiyonda
Function sq_FirmaBilgi(FirmaKodNo As Integer, oTarihi As Date, Optional VeriTip As Integer = 0)
kullandığınız parametrenin adı FirmaKodNo . bu uyumsuzluk da sorun çıkarabilir
RE: Excel Vba Dan Access Veri Tabanındaki Soru İle Veri Çekme - sadiksadik - 20/03/2024
(20/03/2024, 18:39)berduş yazdı: bir de where satırında
(TLB_Firma.ID)=" & FirmaNo kullanmışsınız
ama fonksiyonda
Function sq_FirmaBilgi(FirmaKodNo As Integer, oTarihi As Date, Optional VeriTip As Integer = 0)
kullandığınız parametrenin adı FirmaKodNo . bu uyumsuzluk da sorun çıkarabilir
Teşekkürler elinize sağlık çalıştı.
iyi akşamlar