[kapetang]

Καλησπέρα

Βαγγέλη, στη φόρμα της ΒΔ πρόσθεσα ένα κουμπί που, αν πατηθεί, εμφανίζει μήνυμα με τα ζεύγη των πωληθέντων παπουτσιών την τρέχουσα μέρα.
Η λειτουργικότητά του οφείλεται στον κώδικα.

Private Sub cmdZeugi_Click()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("zeugi")
    If rs.RecordCount > 0 Then
        MsgBox "Σήμερα πωλήθηκαν " & rs.Fields(0) & " ζεύγη.", , "Πωλήσεις"
    Else
        MsgBox "Δεν έγιναν πωλήσεις."
    End If
    rs.Close
    Set rs = Nothing
End Sub

Ελπίζω να είναι αυτό που θέλεις.

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