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