Private Sub Voeg_nieuwe_oplossing_toe_Click()

CurrentDb.Execute "INSERT INTO TblOplossingen (Oplossing) VALUES ('" & TypnieuweOplossing.Value & "')"

IDMAX = "Select MAX ID from TblOplossingen"
CurrentDb.Execute "INSERT INTO TblKruis (IDFout, IDOplossing) VALUES ('" & KiesFout.Value & "', '" & IDMAX.Value & "')"

End Sub


The IDMAX is the autonumberfield in a table.

greetz