[sakis297]

Γιώργο, κατ' αρχάς σ' ευχαριστώ πολύ για την ανταπόκριση.
Το πεδίο ΗΜΕΡΟΜΗΝΙΑ στον πίνακα ΠΡΟΠΟΝΗΣΕΙΣ απατείται.
Οπότε δοκίμασα τον παρακάτω κώδικα, αλλά δε συμβαίνει κάτι.

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [ΠΡΟΠΟΝΗΣΕΙΣ] ([ΠΕΛΑΤΗΣ],[ΣΥΜΦΩΝΙΑ], [ΗΜΕΡΟΜΗΝΙΑ]) VALUES ('" & Me.ΚΩΔ_ΠΕΛ & "','" & Me.ΣΥΜΦΩΝΙΑ& "', Date())"
DoCmd.SetWarnings True

Επίσης, εγώ είχα δοκιμάσει και τον παρακάτω κι επίσης δε συμβαίνει κάτι.
Dim StrSQL As String
StrSQL = "INSERT INTO ΠΡΟΠΟΝΗΣΕΙΣ ( ΠΕΛΑΤΗΣ, ΣΥΜΦΩΝΙΑ, ΗΜΕΡΟΜΗΝΙΑ)" & _
"SELECT [Forms].[ΕΛΕΓΧΟΣ_ΔΙΑΘΕΣΙΜΟΤΗΤΑΣ].[ΚΩΔ_ΠΕΛ] AS Eκφρ1, [Forms].[ΕΛΕΓΧΟΣ_ΔΙΑΘΕΣΙΜΟΤΗΤΑΣ].[ΣΥΜΦΩΝΙΑ] AS Eκφρ2, Date() AS Eκφρ3;"
DoCmd.RunSQL StrSQL