+- 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