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.


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