[pakos]

καλησπέρα

σύμφωνα με το δείγμα κάνεις τα:

Me.strV = "'" & Me.ΩΠ_ΑΠΑΓΟΡΕΥΣΗΣ & "', '" & Me.ID_ΑΠΑΓΟΡΕΥΣΗΣ & "', '" & Me.ΩΠ_ΣΗΜΑΤΟΣ_ΑΡΣΗΣ & "','" & Me.id_ploiou & "','" & Me.ΚΩΔ_ΕΚΔΟΤΗ & "','" & Me.imerom_lixis & "','" & Me.ΚΑΤΑΣΤΑΣΗ & "','" & Me.SXOLIA
Me.Refresh

DoCmd.RunSQL "INSERT INTO [ΑΡΣΕΙΣ ΑΠΑΓΟΡΕΥΣΗΣ] ( [ΩΠ ΣΗΜΑΤΟΣ ΑΠΑΓΟΡΕΥΣΗΣ], [ID ΑΠΑΓΟΡΕΥΣΗΣ], [ΩΠ ΣΗΜΑΤΟΣ ΑΡΣΗΣ], ID_PLOIOU, [ΚΩΔ ΕΚΔΟΤΗ], [ΗΜΕΡΟΜΗΝΙΑ ΛΗΞΗΣ ΑΡΣΗΣ], [ΚΩΔ ΕΙΔΟΥΣ ΑΡΣΗΣ], sxolia, strV) " & _
"SELECT [Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![ΩΠ_ΑΠΑΓΟΡΕΥΣΗΣ],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![ID_ΑΠΑΓΟΡΕΥΣΗΣ],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![ΩΠ_ΣΗΜΑΤΟΣ_ΑΡΣΗΣ],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]!id_ploiou,[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![ΚΩΔ_ΕΚΔΟΤΗ],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![imerom_lixis],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![ΚΑΤΑΣΤΑΣΗ],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![SXOLIA],[Φόρμες]![ΠΛΟΙΑ]![pros_arsi_ploia].[Form]![strV] " & _
";"




και Πρέπει να διορθώσεις στον πίνακα [ΑΡΣΕΙΣ ΑΠΑΓΟΡΕΥΣΗΣ]

το πεδίο [ID ΑΠΑΓΟΡΕΥΣΗΣ] Ναι (Επιτρέπονται διπλότυπα)
και τα πεδια με αριθμό χωρίς προεπιλεγμένη τιμή