[Tasos]

Καλημέρα και χρόνια πολλά!

Ο κώδικας αυτόςπεριέχει ένα συντακτικό λάθος δηλαδή:
το Customers.Τκωδ" & _ θα πρέπει να είναι Customers.Τκωδ " & _ (ένα κενό μετά το Τκωδ ).

H γραμμή: DoCmd.RunSQL StrSql δεν θα επιστρέψει κάτι.

Η συμβολοσειρά που δημιουργεί ο κώδικας παραπέμπει σε ερώτημα επιλογής.

Θα πρέπει λοιπόν να υπάρχει και ένα αντικείμενο RecordSet και να γίνει χρήση του
της μεθόδου OpenRecordset του αντικειμένου CurrentDb (DAO.Database) όπου το πρώτο όρισμα θα είναι η μεταβλητή StrSql δηλαδή:

Sub test()
    Dim rs As DAO.Recordset
    Dim StrSql As String
    StrSql = "SELECT Customers.Ονομα, Customers.Επωνυμο, Customers.Τηλεφωνο, " & _
             "Customers.Τηλεφωνο2, Customers.Τκωδ " & _
             "FROM Customers " & _
             "WHERE Customers.Επωνυμο =" & Me.ΟΝΟΜΑ.Value 'Αν το επώνυμο είναι αριθμός (πχ. ID από ComboBox)
    ' Αν το επώνυμο είναι κείμενο τότε:
    ' "WHERE Customers.Επωνυμο ='" & Me.ΟΝΟΜΑ.Value & "'"
    Set rs = CurrentDb.OpenRecordset(StrSql, dbOpenDynaset)
    '.........
End Sub

Φιλικά

Τάσος