INSERT INTO

[exarhos]

ΚΑΛΗΣΠΕΡΑ ΣΕ ΟΛΗ ΤΗΝ ΟΜΑΔΑ. ΣΤΗΝ ΠΡΩΤΗ ΒΔ ΠΟΥ ΕΦΤΙΑΞΑ ΜΕΡΙΚΑ ΧΡΟΝΙΑ ΠΡΙΝ (ΚΑΙ ΔΥΣΤΙΧΩΣ ΤΑ ΟΝΟΜΑΤΑ ΤΩΝ ΠΙΝΑΚΩΝ ΤΑ ΕΙΧΑ ΓΡΑΨΕΙ ΜΕ ΕΛΛΗΝΙΚΟΥΣ ΧΑΡΑΚΤΗΡΕΣ ΚΑΙ ΧΩΡΙΣ _ ΜΕΤΑ ΞΥ ΤΩΝ ΛΕΞΕΩΝ) ΘΕΛΩ ΝΑ ΦΤΙΑΞΩ ΤΟ ΕΞΗΣ:
ΣΕ ΜΙΑ ΔΕΥΤΕΡΕΥΟΥΣΑ ΦΟΡΜΑ "pros_arsi" (Η ΟΠΟΙΑ ΔΕΝ ΕΙΝΑΙ ΣΥΝΔΕΔΕΜΕΝΗ ΜΕ ΚΑΝΕΝΑ ΠΙΝΑΚΑ) ΜΕ ΤΟ ΚΟΥΜΠΙ SAVE ΘΕΛΩ ΝΑ ΚΑΤΑΧΩΡΕΙ ΣΤΟΝ ΠΙΝΑΚΑ ¨[U]ΑΡΣΕΙΣ ΑΠΑΓΟΡΕΥΣΕΙΣ¨[/U] ΕΓΡΑΨΑ ΤΟΝ ΠΑΡΑΚΑΤΩ ΚΩΔΙΚΑ ΑΛΛΑ ΔΕΝ ΔΟΥΛΕΥΕΙ. ΜΠΟΡΕΙ ΚΑΠΟΙΟΣ ΝΑ ΜΕ ΒΟΗΘΗΣΕΙ ΓΙΑΤΙ ΔΕΝ ΚΑΤΑΛΑΒΑΙΝΩ ΤΙ ΕΧΩ ΚΑΝΕΙ ΛΑΘΟΣ.

Dim strV As String
strV = " VALUES ('" & Me.ΩΠ_ΑΠΑΓΟΡΕΥΣΗΣ & "', '" & Me.ID_ΑΠΑΓΟΡΕΥΣΗΣ & "', '" & Me.ΩΠ_ΣΗΜΑΤΟΣ_ΑΡΣΗΣ & "','" & Me.ID_PLOIOU & "','" & Me.ΚΩΔ_ΕΚΔΟΤΗ & "','" & Me.imerom_lixis & "','" & Me.ΚΑΤΑΣΤΑΣΗ & "','" & Me.sxolia & "') & "
CurrentDb.Execute "INSERT INTO [ΑΡΣΕΙΣ ΑΠΑΓΟΡΕΥΣΕΙΣ] ([ΩΠ ΣΗΜΑΤΟΣ ΑΠΑΓΟΡΕΥΣΗΣ], [ID ΑΠΑΓΟΡΕΥΣΗΣ], [ΩΠ ΣΗΜΑΤΟΣ ΑΡΣΗΣ], ID_PLOIOU,[ΚΩΔ ΕΚΔΟΤΗ], [ΗΜΕΡΟΜΗΝΙΑ ΛΗΞΗΣ ΑΡΣΗΣ], [ΚΩΔ ΕΙΔΟΥΣ ΑΡΣΗΣ], sxolia) " & strV

ΕΥΧΑΡΙΣΤΩ ΠΟΛΥ ΕΚ ΤΩΝ ΠΡΟΤΕΡΩΝ