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

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

[pakos]

Καλησπέρα


για δοκίμασε κάτι τέτοιο

Me.strV = "'" & Me.ΩΠ_ΣΗΜΑΤΟΣ_ΑΠΑΓΟΡΕΥΣΗΣ & "', '" & Me.ID_ΑΠΑΓΟΡΕΥΣΗΣ & "', '" & Me.ΩΠ_ΣΗΜΑΤΟΣ_ΑΡΣΗΣ & "','" & Me.ID_PLOIOU & "','" & Me.ΚΩΔ_ΕΚΔΟΤΗ & "','" & Me.ΗΜΕΡΟΜΗΝΙΑ_ΛΗΞΗΣ_ΑΡΣΗΣ & "','" & Me.sxolia
Me.Refresh

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



στον πίνακα [ΑΡΣΕΙΣ ΑΠΑΓΟΡΕΥΣΕΙΣ] πρέπει να έχεις και το πεδίο [strV] επίσης και στην
φόρμα [pros_arsi] πρέπει να έχεις το πεδίο [strV] στο οποίο δεν θα βάζεις τιμή, θα παίρνει σύμφωνα με τον κώδικα

[exarhos]

φίλε μου καλημέρα. Σ ευχαριστω πολύ για τη βοήθεια αλλα δε δουλεύει. επισυνάπτω δειγμα τησ ΒΔ.testploia1.accdb

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

[pakos]

δες στο αρχειο

[exarhos]

φιλε μου σ ευχαριστω παρα πολύ. παίζει τέλεια. ν α εισαι καλα

[pakos]

Επειδή νόμιζα ότι το strV ήταν μια συγκεντρωτική πληροφορία σε 1 γραμμή, αλλά δεν έχει καμία σχέση, αν θες μπορείς να την διαγράψεις, από τον κώδικα, τον πίνακα και την φόρμα.

[exarhos]

σ ευχαριστω πολυ φιλε μου. με βοήθησες παρα πολυ. να εισαι καλα.