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

Deneyiniz. Sorgu = "Select [HesapKodu],Null,[HesapAdı],[Tarih],[Fiş No],[Evrakno],[Açıklama],[Borc],[Alacak] From [" & Kaynak_Sayfalar(X) & "$] Where Len([HesapKodu])=3" 2. sorunuz için varolan kodu deneyin bakalım sonuç üretecek mi?

Korhan bey merhabalar: Yukarıda yazmış olduğunuz kod çok işimi görüyor sağolun. Sadece ek olarak iki husus sormak istiyorum. 1. Aşağıda yazan bölüm de diyelim ki A sütununda Hesap Kodu var B sütununu boş bırakıp Hesap adı başlığını C sütununa kaydırınca yani arada boş bir sütun bıraktım yada...

Aşağıdaki kodu deneyin: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1]) Is Nothing Then Exit Sub Set s1 = Sheets("BAĞLAMA KÜTÜĞÜ") eski = WorksheetFunction.Max(3, Cells(Rows.Count, "S").End(3).Row) son = WorksheetFunction.Max(7, s1.Cells(Rows.Count...

Deneyiniz. Sorgu satırını dilerseniz aşağıdaki gibi değiştirebilirsiniz. Sorgu = "Select * From [" & Kaynak_Sayfalar(X) & "$] Where Len([HesapKodu])=3" Option Explicit Sub Verileri_Aktar() Dim Dosya As String, Baglanti As Object, Sorgu As String Dim Kayit_Seti As Object, Sayfa As...

Deneyiniz. Option Explicit Sub Verileri_Aktar() Dim Dosya As String, Baglanti As Object, Sorgu As String Dim Kayit_Seti As Object, Zaman As Double Zaman = Timer Set Baglanti = CreateObject("AdoDb.Connection") Dosya = ThisWorkbook.Path &...

Bence on numara çalışma oldu Haluk bey, Elinize sağlık. umarım faydalı bir çalışma forum kullanıcıları için. Merak edenler için VBNET kodları aşağıdaki gibidir. Sub RAPORLA() Dim cn As OleDbConnection Dim objReader As OleDbDataReader Dim objDataset As DataSet = New...

Borçbakıye ve Alacakbakiye olarak almak istenildiğinde bu kodlar kullanılabilir zira artık bu şekilde hazırladım kodlarımı. BAKIYE = "SELECT SUM(IIF(BA='B',TUTAR,TUTAR*-1,)) FROM CARTH001 WHERE CARKOD=A.CARKOD AND TARIH<=A.TARIH " SORGU1 = "SELECT A.CARKOD,A.TARIH,IIF(A.BA='B',A.TUTAR,0)AS...

Tek sql sorgusunda çözüme ulaşamayınca databasedeki TARIH alanını "10.03.2020 00:00:01" (tarıh-saat) formatında değiştirdim. Aynı güne kayıt girdiğimde ise saniye alanını 1 artırıp kaydediyorum. Bu sayede tek sorguda işi çözmüş oldum. Tabi bu benim için bir çözüm yolu.. Sorgu= BAKIYE = "SELECT...

Kodlarda biraz değişiklikler yaptım sütunlarında yerleri değişebilir düşüncesiyele sutunları değişkene atadım,borçbakiye ve alacakbakiye ekledim. Ek olarak her cari değişikliğinde alt toplam aldım.Fakat burada ek son carinin toplamını aldıramadım. Alternatif kod öneriniz varsa...

Sub TÜMVERİLER() Cells.ClearContents Set Con = CreateObject("Adodb.Connection") Set RS = CreateObject("Adodb.RecordSet") yol = ThisWorkbook.Path & "\Veritabanı.mdb" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & "" SORGU = " SELECT A.CARKOD...

Dün neredeyse bir günü bu işe ayırdım yüzlerce yazı okudum ama haliyle aynı yerdeyim, Normalde oracledan veri çekerken kendi sorgusu var SUM(SalePrice) OVER(PARTITION BY OrderCategory order BY orderDate) aynı sorgu excelde ya da vb.net de çalışmıyor. Muhtemelen de dediğiniz gibi çalışmayacak...

Access için yürüyen bakiye uygulamalarında sub-query hem zahmetli, hem de pek ideal çözüm olduğu söylenemez. Bunun iki nedeni var: Birincisi, outer ifadenin her kaydı için, tüm kayıtlarda yeni inner query (sum) çalışacağı için sorgu performansı oldukça düşecektir. İkincisi, kayıtları...

Merhaba; İki farklı tablom ve bunlarla sorgu yapıp birleştiriyorum. Amacım; Powerquery'de birebir ilişkiden ziyade tarih aralığındaki fiyatını getirtmek. Basit bir örnek hazırladım; SorguA; Birleştirilen ve İstenilen SorguB ise; Cevaplarınız için şimdiden teşekkürler.