[skapet155]

Καλησπερα
εγραψα τον παρακατω κωδικα , βασει της δικιας σου συμβουλης και μου βγαζει το μηνυμα syntax error

Private Sub Insert_Click()
Dim strQ As String

strQ = "INSERT INTO GENIKOS (Location, area, condition, photos, notes, Date_Time_Stamp, cost, Sales price, agent fees for resale, Plot m2, dist from sea (km), link, year built, Owners) " & _
"SELECT Location, area, Type_Name_en, photos, ΠΕΡΙΓΡΑΓΗ, Date, ΤΙΜΗ, Sales price, agent fees resale, Size, dist-sea, link, year built, Owners " & _
"FROM ΟΙΚΟΠΕΔΑ where id =" & Me.id

DoCmd.RunSQL strQ
End Sub
Με εκτιμηση
Σταυρος