Gerekli Bir Veya Daha Fazla Parametre İçin Girilen Değer Yok Hatası

merhabalar, alanlarımı tek tek kontrol ettim bi sıkıntı,boşluk vesair görünmüyor, ama ısrarla bu hatayı veriyor, acaba nerede hata yaptım bi bakabilir misiniz rica etsem?



Sorgu = "select [NO],[İHALENİN ADI],[İHALE KAYIT NO], [İHALE TARİHİ], [FİRMA ADI], [FİRMA ADRES VE TELEFONU],[SÖZLEŞME TUTARI],[BANKA VE ŞUBESİ], [ALINAN TEMİNAT MEKTUP/MAKBUZUN TARİHİ],[SERİ NO VEYA MEKTUP NO],[TEMİNAT TUTARI],[GEÇERLİLİK SÜRESİ],[TEMİNAT MEKTUBU SON GEÇERLİLİK TARİHİ],[SÖZLEŞMENİN BAŞLANGIÇ TARİHİ],[SÖZLEŞMENİN BİTİŞ TARİHİ] from [Sayfa1$] where [TEMİNAT MEKTUBU SON GEÇERLİLİK TARİHİ]= date()+30 or [TEMİNAT MEKTUBU SON GEÇERLİLİK TARİHİ]= date()+15 or [SÖZLEŞMENİN BİTİŞ TARİHİ]=date()+30 or [SÖZLEŞMENİN BİTİŞ TARİHİ]=date()+15"
Rs.Open Sorgu, Con, 1, 1

hangi kitap, hangi buton vsvsvs

berduş hocam kusura bakmayın eksik bilgi verdiysem ama hallettim, bu tür hata şahit oldum ki kesinlikle ve kesinlikle Excel sayfasındaki alan ile makrodaki alan arasındaki eksik veya yanlış yazım farkından kaynaklanıyor, garip de bi durum farkettim; hani biz hücreye bi yazı girdiğimizde alt+enter yapıp bir alt satıra geçiyoruz ya işte onu yaptım ve makro alt+enter yaptıktan sonraki stringi algılamıyor gibi... sadece ilk yazdığım kelimeleri algılıyor, bu yüzden hücreye cümle sığdırmaya çalışılması amacıyla alt+enter kullanılmasın diyorum, yanlışsam düzeltin hocam. çok teşekkürler, bayağı bi uğraştırdı.

kaynak dosyanızdaki alanlarda "enter" kullanılmış verileri alırken o nedenle soru çıkarıyor olabilir
alan başlıklarını aşağıdaki gibi düzenleyip dener misiniz?
kriter alanında da bu başlıklar kullanılmalı
[NO]
[İHALENİN ADI]
[İHALE KAYIT NO]
[İHALE _TARİHİ]
[FİRMA ADI]
[FİRMA ADRES VE TELEFONU]
[SÖZLEŞME_TUTARI]
[BANKA VE ŞUBESİ]
[ALINAN TEMİNAT_MEKTUP/MAKBUZUN TARİHİ]
[SERİ NO_VEYA_MEKTUP NO]
[TEMİNAT_TUTARI]
[GEÇERLİLİK_SÜRESİ]
[TEMİNAT MEKTUBU_SON GEÇERLİLİK_TARİHİ]
[SÖZLEŞMENİN_BAŞLANGIÇ_TARİHİ]
[SÖZLEŞMENİN BİTİŞ_TARİHİ]
[F16]
[F17]
[F18]
[F19]
[DURUM]

berduş hocam aynen öyle, ben de zaten enter tuşu kullanmadan direkt formül çubuğuna yazdım başlıkları sorun düzeldi, çok teşekkür ederim, kolay gelsin.

Sorgu = "select * from [Sayfa1$]"

Rs.Open Sorgu, Con, 1, 1

For Each fld In Rs.Fields

   Debug.Print "[" & fld.Name & "]"

Next fld

yukardaki kodla alanların gerçek adlarını ekrana yazdırabilirsiniz. böylece kontrol eederek yazım hatalarının önüne geçebilirsiniz

---

rica ederim
iyi çalışmalar