Sorgu için arama sonuçları: sorgu tarih

Haluk Hocam merhaba, TXT dosyasına veri eklemek için kod üzerinde aşağıdaki gibi bir düzenleme yaptım, yalnız ekli hata mesajını verdi, nasıl bir düzenme yapmak gerekir? ilginiz için şimdiden teşekkürler, Sub txtado() Set con = CreateObject("ADODB.Connection") myPath = ThisWorkbook.Path...

Merhaba alttaki sorguya gelen sonucunun dışında satır eklemek mümkünmüdür . SELECT DEPO, ISNULL([1],0)Ocak, ISNULL([2],0)Subat, ISNULL([3],0)Mart, ISNULL([4],0)Nisan, ISNULL([5],0)Mayıs, ISNULL([6],0)Haziran, ISNULL([7],0)Temmuz, ISNULL([8],0)Agustos, ISNULL([9],0)Eylul, ISNULL([10],0)Ekim...

Korhan Hocam çok teşekkürler, versiğiniz sorgu kodu gayet güzel çalışmakta; müsadelerinizle bu konuda bir şey daha sormak istiyorum. Tarih_Saat formatında oluşturuan (15.11.2022 11:21) [Tarih-Saat] alanından saatten bağımsız olarak sadece tarihe göre gruplandırmak için aşağıdaki kodu...

Merhaba, Formüldeki sorgu kriterlerini yani "kağıthane / tarih ve şube gibi parametreleri sabit değil de değişken olarak aldığımızda formülü nasıl düzenlemeliyiz. Hücreye atanmış değişken yaptığımızda hatalı sonuç döndürüyor.. Yani kağıthaneyi bir hücreden, tarihi ayrı bir hücreden alacak ...

Selamlar, EPDK üstünden aşağıdaki gibi veri çekmeye çalışıyorum. Normalde verilerin yayınlandığı adres: link EPDK bunları çekebilmemiz için bize web servisi hizmeti sunuyor. Listede ikinci sırada yer alıyor. Resimdeki tabloda olduğu gibi tarih / yakıt tipi girildiğinde ilgili...

Hocam bu sorgu ile doğru sonuç geliyor İşlem_Yap_TC = "11111111111" tarih1 = "01.01.2022" tarih2 = "29.12.2022" tarih3 = "27.06.2022" ''2 tarih arası işlem yapılan tc query = "SELECT * FROM [" & ARALIK & "] " & _ "WHERE AYRILIS >=" & CLng(CDate(tarih1)) & _ "and KATILIS...

Merhabalar; Aşağıda gönderdiğim sorgu ile itemin kodunu, adını, tüm zamanlardaki satış toplamları ve son 90 gündeki satış miktarlarını çekiyorum ve doğru veriler geliyor . Bir diğer kolonda da son satınalma tarihinden itibaren ileriye doğru 90 gün satış miktarını çekmek istiyorum ama bu değer...

Merhabalar, Bir çalışmamda iki tarih arası veriyi çekmekteyim. Bu çalışmaya şu koşulu eklemek istiyorum. Başlangıç tarihi, bitiş tarihinden büyükse ya da iki tarihten herhangi bölümünden birisi boşken çalıştırılırsa sorgu Msgbox ile uyarı versin ve kod çalışmasın. Saygılarımla.

Merhaba, Asıl dosyanızda örnek dosyada belirtmediğiniz durumlar var. Bunları düzeltmeniz gerekir. Aşağıdaki kırmızı renkli 2 değerini 15 yapmanız gerekiyor. Çünkü asıl dosyanızda veriler 15. satırdan başlıyor. My_Data = Sh.Range("A2:M" & Sh.Cells(Sh.Rows.Count, 1).End(3).Row).Value Ayrıca...

Teşekkürler Erdem Hocam, zamanla öğrenmiş olacağız.

Mantığı basit aslında. Vba kod penceresinde Locals ekranında, sorgu değişkenindeki tarih ile ilgili kısmı sayı olarak görürseniz (44583 gibi) muhtemelen sonuç gelir.

çok teşekkürler Haluk Hocam, şu Tarih formatlarını kafamda bir türlü oturtamadım. iyi çalışmalar.

sorgu = "select * from [Data$] where [Tarih-Saat]> " & CDbl(dt) .

Merhabalar Ekli dosyadaki [Tarih-Saat] alanında; tarihi bir ay öncesinden büyük olanları filtrelemek için aşağıdaki sorguda hata veriyor, özetle 17.10.2022 tarihinden büyük olanları almak istiyorum. Sub Tarihsorguu() Dim dt As Date Set Con = VBA.CreateObject("adodb.Connection")...

. Bunu bir dener misiniz. LIKE komutu bunun içinde stkmalıncinsi Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim strConn As String, sorgu As String Sub ServerMerkez() Call sil If UserForm1.CheckBox1 = "True" Then tarih1 = Format(Sayfa5.Range("AB1").Value, "yyyy-mm-dd") tarih2...

Teşekkür ederim buyrun kod alttadır. Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim strConn As String, sorgu As String Sub ServerMerkez() Call sil If UserForm1.CheckBox1 = "True" Then tarih1 = Format(Sayfa5.Range("AB1").Value, "yyyy-mm-dd") tarih2 =...

Hocam bu şekilde ekledim . Fakat textboxa sadec dove yazınca getiriyor ama dove,arko yazınca hiçbirşey getirmiyor Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim strConn As String, sorgu As String Sub ServerMerkez() Call sil If UserForm1.CheckBox1 = "True" Then tarih1 =...

Korhan & Necdet hocam çok teşekkürler,

Necdet beyin kastettiği bölümü bold olarak belirttim. sorgu = "select * from[Data$] where Day([Tarih-Saat]) = 12"

Merhaba, Ekli dosyada aşağıdaki tarih sorgusu neden hata veriyor olabilir? gün' e göre verileri sorgulatmak istiyordum; Sub Tarihsorguu() Set Con = VBA.CreateObject("adodb.Connection") Sayfa2.Activate Cells.ClearContents yol = ThisWorkbook.FullName Con.Open...