[sarrpan]

Καλησπέρα ξανά προσπαθώ μέσα από την vba να εκτελέσω ένα ερώτημα με παραμέτρους. Δεν έχω καταφέρει όμως να ορίσω ότι δεν επιστρέφετε κανένα αποτέλεσμα από το ερώτημα.
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset

Set db = CurrentDb
Set qdf = db.QueryDefs("qrySinolo")
qdf.Parameters(0) = [Forms]![frmA]![A]
qdf.Parameters(1) = [Forms]![frmA]![B]
Set rst = qdf.OpenRecordset
If δεν είναι κενό (rst![ ΆθροισμαΤουSinolo]) Then
MsgBox (" ")
else
MsgBox (" ")
End If
Επίσης αυτό το "ΆθροισμαΤου" πως αλλάζει ώστε να του δώσω μια ετικέτα.
Ευχαριστώ εκ των προτέρων.