[Tasos]

Καλημέρα.
Για απλή προβολή δεδομένων θα πρέπει να δημιουργήσεις μια έκθεση που θα περιέχει τα πεδία
από τον πίνακα "Customers" που θα ανοίγεις με την παρακάτω εντολή:

DoCmd.OpenReport "Το_Όνομα_της_Έκθεσης", acViewReport, , "Επωνυμο ='" & Me.Επωνυμο  & "'"

ή να δημιουργήσεις ένα ερώτημα που θα ανοίγεις από τη φόρμα μετον παρακάτω κώδικα:

Private Sub cmdOpenQuery_Click()
    Dim StrSql As String
    Dim Qry As QueryDef
    StrSql = "SELECT Customers.Ονομα, Customers.Επωνυμο, Customers.Τηλεφωνο, " & _
             "Customers.Τηλεφωνο2, Customers.Τκωδ " & _
             "FROM Customers " & _
             "WHERE Customers.Επωνυμο ='" & Me.Επωνυμο & "'"
    Set Qry = CurrentDb.QueryDefs("Το_Όνομα_του_Ερωτήματος")
    Qry.SQL = StrSql
    DoCmd.OpenQuery "Το_Όνομα_του_Ερωτήματος"
End Sub

Καλή συνέχεια!

Τάσος