[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, "Φόρμα Καταχωρησης".

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