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.
Q = "SELECT " & DField & " FROM " & TableName & vbCrLf & _
"WHERE (((TLB_Firma.ID)=" & FirmaNo & ") AND ((TLB_AdresDegisikligi.Tarih_Bas)<=" & oTarihi & ") AND ((TLB_AdresDegisikligi.Tarih_Bit)>=" & oTarihi & "));"
kodunu dener misiniz?
ö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
(20/03/2024, 02:44)berduş yazdı: [ -> ]Q = "SELECT " & DField & " FROM " & TableName & vbCrLf & _
"WHERE (((TLB_Firma.ID)=" & FirmaNo & ") AND ((TLB_AdresDegisikligi.Tarih_Bas)<=" & oTarihi & ") AND ((TLB_AdresDegisikligi.Tarih_Bit)>=" & oTarihi & "));"
kodunu dener misiniz?
ö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
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") & "#));"
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
(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