+- 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ığı: 2 Kriterli Dlookup Fonksiyonunda Hata (/konu-2-kriterli-dlookup-fonksiyonunda-hata.html)
2 Kriterli Dlookup Fonksiyonunda Hata - truhi - 29/04/2025
Kıymetli Hocalarım merhaba,
qry_Sales sorgusunda 3 alan var, "ProductName", "Customer" ve "TotalSales"
Burada "ProductName" adına göre "TotalSales" en yüksek olanın "Customer" değerini almak;
Form Üzerinde Combobox (Product) değiştiği zaman; maksimum değeri aldıktan sonra;
bu maksimum değere göre 2 kriterli Dlookup fonkisyonu ile Customer (Müşteri Adı) almaya çalışıyorum ama; mak değerde virgül olduğu için ekli görseldeki hatayı vermekte;
Bu konuda nasıl bir çözüm yolu önerirsiniz,
destekleriniz için şimdiden teşekkürler,
Kod:
Private Sub Product_Change()
pro = Me.Product.Value
mak = DMax("[TotalSales]", "qry_Sales", "[ProductName]='" & pro & "'")
''mak = Replace(mak, ",", ".")
custom = DLookup("[Customer]", "[qry_Sales]", "([ProductName]='" & pro & "' AND [TotalSales]=" & mak & ")")
End SubRE: 2 Kriterli Dlookup Fonksiyonunda Hata - truhi - 30/04/2025
(30/04/2025, 11:29)C*e*l*o*y*c*e yazdı: Private Sub Product_Change()
Dim pro As String
Dim mak As Double
Dim makStr As String
Dim custom As String
pro = Me.Product.Value
' En yüksek satış değeri alınır
mak = DMax("[TotalSales]", "qry_Sales", "[ProductName]='" & pro & "'")
' Sql içinde kullanılacak şekilde ondalık ayraç olarak nokta kullanılmalı
makStr = Replace(CStr(mak), ",", ".")
' Bu en yüksek değere karşılık gelen müşteri bilgisi alınır
custom = Dlookup ("[Customer]", "qry_Sales", "[ProductName]='" & pro & "' AND [TotalSales]=" & makStr)
MsgBox "Müşteri: " & custom
End Sub
çok teşekkür ederim Hocam
iyi Çalışmalar.