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,

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

(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.

R.Ederim,sizede iyi çalışmalar