Dlookup hem çift ölçütlü hem de tablo ve sorgulu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Dlookup hem çift ölçütlü hem de tablo ve sorgulu (/konu-dlookup-hem-cift-olcutlu-hem-de-tablo-ve-sorgulu.html) |
Cvp: Dlookup hem çift ölçütlü hem de tablo ve sorgulu - mehmetdemiral - 28/09/2013 Yani raporunuz şöyle mi olacak? Raporu çalıştırıp bakın. (Sadece firmaları yanyana yazma olayıyla uğraşmadım. İlla öyle olmalı derseniz, uğraşırız biraz.) Cvp: Dlookup hem çift ölçütlü hem de tablo ve sorgulu - mrkync - 28/09/2013 Mehmet Bey yardımlarınız için çok teşekkür ederim ama evet firmaları yanyana yazması gerekiyor. Bakanlıktan gelen bir format var ve o formattan baskasını kabul etmiyorlar bu yüzden firmalar yanyana gelmeli. Yani her hayvan ırkı bir defa yazmalı ve firmalar yanyana gelerek toplam tohum miktarını yanına yazmalı... Cvp: Dlookup hem çift ölçütlü hem de tablo ve sorgulu - mrkync - 01/10/2013 Mehmet bey sizin söylediklerinizi biraz değiştirerek istediğime bir adım daha ulaştım ancak küçük bir sorun var değeri olmayan verilere #hata diye uyarı veriyor. Bu hata kodunu nasıl gizleyebiliriz. Sorguyu ekte gönderiyorum. Cvp: Dlookup hem çift ölçütlü hem de tablo ve sorgulu - mehmetdemiral - 02/10/2013 Ben günlerdir o hata satırını düzeltmek için uğraşıyorum ya) Cvp: Dlookup hem çift ölçütlü hem de tablo ve sorgulu - mrkync - 02/10/2013 çözümünü bulursam sizinle paylaşacağım o zaman Cvp: Dlookup hem çift ölçütlü hem de tablo ve sorgulu - fatih karagöl - 04/10/2013 Selamlar Demiral üstadımız döktürmüş yine. Son sorunda benden olsun. Ek yükleyemiyorum. Aşağıdaki gibi düzenlerseniz sorun çözülür Sorgudaki deyim : Firmalar: (Yanyana([Irklar];Nz(Month([Tarih])))) Moduldeki fonksiyon : Public Function Yanyana(Irk As String, Optional Ay As String) As String On Error GoTo cikis: Dim intAy As Long intAy = Nz(Ay) Dim Kyt As Recordset, Dizi As String Set Kyt = Application.CurrentDb.OpenRecordset(" Select Firma From Tank Where ((([Irkı])='" & Irk & "') And ((Month(Tarih))=" & intAy & "))") Do Dizi = Dizi & Kyt.Fields(0) & "," Kyt.MoveNext Loop Until Kyt.EOF Kyt.Close: Set Kyt = Nothing Yanyana = Dizi Exit Function cikis: Yanyana = "" End Function |