[kapetang]

Καλημέρα

Λάμπρο, δοκίμασε το κώδικα:

Private Sub Μεγαλύτερη_τιμήΤουΠοσό_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Dim dt As Date
    dt = DLookup("Ημερομηνία", "Πίνακας1", "Ποσό=" & Replace(Μεγαλύτερη_τιμήΤουΠοσό, ",", "."))
    Μεγαλύτερη_τιμήΤουΠοσό.ControlTipText = Format(dt, "dd mmm yyyy")
End Sub

Φιλικά/Γιώργος