[Tasos]

Καλημέρα Τζίμη!

Εγώ στη θέση του κουμπιού θα χρησιμοποιούσα ένα υπολογισμένο πεδίο
με τον παρακάτω τύπο στην προέλευση στοιχείου ελέγχου:

=IIf(Nz(DSum("[ΤΕΛΙΚΗ ΑΞΙΑ]";"[ΕΓΓΡΑΦΕΣ]";"[ΕΠΩΝΥΜΙΕΣ] = '" & [ΕΠΩΝΥΜΙΕΣ] & "'"))=0;"Δεν έγιναν πωλήσεις";DSum("[ΤΕΛΙΚΗ ΑΞΙΑ]"
;"[ΕΓΓΡΑΦΕΣ]";"[ΕΠΩΝΥΜΙΕΣ] = '" & [ΕΠΩΝΥΜΙΕΣ] & "'"))

Τώρα στην ερώτηση σου δες 2 επιλογές:

1) Με χρήση DSUM()

Private Sub Button1_Click()
    Dim x As Currency
    If Not Me.NewRecord Then
        x = Nz(DSum("[ΤΕΛΙΚΗ ΑΞΙΑ]", "[ΕΓΓΡΑΦΕΣ]", "[ΕΠΩΝΥΜΙΕΣ] = '" & Me.ΕΠΩΝΥΜΙΕΣ & "'"))
        If x = 0 Then
            MsgBox "Δεν έγιναν πωλήσεις."
        Else
            MsgBox "ΣΥΝΟΛΙΚΕΣ ΠΩΛΗΣΕΙΣ: " & FormatNumber(x) & " €.", , "ΠΩΛΗΣΕΙΣ"
        End If
    End If
End Sub

2) Με χρήση Dao.Recordset

Private Sub Button1_Click()
    Dim df As QueryDef
    Dim rs As DAO.Recordset
    Set df = CurrentDb.QueryDefs("sam_ep")
    df![[Forms]![ΕΓΓΡΑΦΕΣ]![ΕΠΩΝΥΜΙΕΣ]] = Me.ΕΠΩΝΥΜΙΕΣ
    Set rs = df.OpenRecordset
    If rs.RecordCount > 0 Then
        MsgBox "ΣΥΝΟΛΙΚΕΣ ΠΩΛΗΣΕΙΣ " & FormatNumber(rs.Fields("ΆθροισμαΤουΤΕΛΙΚΗ ΑΞΙΑ")) & " €.", , "ΠΩΛΗΣΕΙΣ" 
    Else
        MsgBox "Δεν έγιναν πωλήσεις."
    End If
    rs.Close
    Set rs = Nothing
End Sub

Τάσος