[pero]

Γεια σας παιδιά.
Πρώτη φορά γράφω στο Forum και όσο έψαχνα να βρω λύση στο θέμα μου, εντυπωσιάστηκα από την ποιότητα των απαντήσεων.
Το πρόβλημά μου είναι πως δεν μπορώ να βρω τρόπο να πάρω απαντήσεις με ερώτημα σε VBA.
π.χ. ψάχνοντας βρήκα τον παρακάτω κώδικά :

Public Sub GetOrders()

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String

Set dbs = CurrentDb
strSQL = "SELECT pedio FROM Orders WHERE id = " & metabliti & ";"
Set qdf = dbs.CreateQueryDef("SecondQuarter", strSQL)

End Sub

Όμως πως μπορώ να διαβάσω τα περιεχόμενα του qdf;

Αυτό που θέλω να κάνω, είναι να ενημερώσω απ'ευθείας πεδία πίνακα σε υποφόρμα, ή έστω ένα μη δεσμευμένο box με το αποτέλεσμα ενός ερωτήματος που επιστρέφει μόνο μια τιμή.
Ευχαριστώ