Εισαγωγη δεδομένων με vba

[it0466]

Καλήσπερα στο forum. Θέλω να φτιάξω μια βάση όποτε τα δεδομένα που θα είσαγω θα αποθηκευονται στον αντιστοιχο πίνακα με το πάτημα ένος κουμπιού πχ καταχωρηση. Στη φόρμα καταχωρηση προσπάθησα μέσω κώδικα να εισάγω κάποια δεδομένα αλλά κολλάω στο πως θα αντιστοιχισω τις τίμες των πεδίων της φόρμα με τα αντίστοιχα id των συσχετιζόμενων πεδίων, έστω αυτά να καταχωρηθούν επιτυχώς στον πίνακα που θέλω. Δεν ξέρω αν γίνομαι κατανοητός, γι αυτό επισυπτω και ενα δείγμα της βασης.

[Dimitriss]

Προσπαθώντας να λύσω το πρόβλημα του φίλου έφτασα έως εδώ. Μπορεί κανείς να βοηθήσεις σε επίπεδο κώδικα; Πιστεύω κάτι τέτοιο θέλει. Ο κώδικας είναι ο ακόλουθος

CurrentDb.Execute "INSERT INTO BusDriver (idBus, idDriver, dateDrive) " & _
" VALUES  (" & Me.cmbBus & ", " & "SELECT Drivers.iddriver" & _
                                    FROM Drivers WHERE Drivers.fullnamedriver= '" & Me.cmbDriver &'" " & ", &_
                                    " & "SELECT Dates.iddate" & _
                                    FROM Dates WHERE Dates.date= '" & Me.cmbDate &'" ")"

    MsgBox "Επιτυχής καταχώρηση", vbOKOnly, "Φόρμα Καταχωρησης".

Όμως οι γνώσεις μου είναι λίγες και έχω λάθη στον παραπάνω κώδικα, όποιος μπορεί να βοηθήσει.

[kapetang]

Καλημέρα

Τα αντίστοιχα ID βρίσκονται στα ComboBoxes και επομένως δε χρειάζεται κάποια ιδιαίτερη αναζήτηση για τον προσδιορισμό τους.

Μια απλή λύση:

1) Στη σχεδίαση της φόρμας, θέτουμε την ιδιότητα Bound Column, όλων των ComboBoxes , ίση με 1.

2) Η προσάρτηση της εγγραφής γίνεται με τον κώδικα:

CurrentDb.Execute "INSERT INTO BusDriver (idBus,idDriver,dateDrive) VALUES (" & _
Me.cmbBus & "," & Me.cmdDriver & "," & Me.cmbDate & ")"

Όλα αυτά όμως είναι ανορθόδοξα.

θα μπορούσαμε να έχουμε μια φόρμα συνδεδεμένη με τον πίνακα BusDriver και μέσω αυτής να γίνεται η διαχείριση (προσθήκη, διαγραφή, τροποποίηση) των εγγραφών.

Φιλικά/Γιώργος