Why wrong?

[feeder23]

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

[dannymking]

Try..

IDMAX = "Select MAX(ID) from TblOplossingen"

or

IDMAX = DMax("ID","TblOplossingen")

[feeder23]

VBdebugger says the fault lies in:

CurrentDb.Execute "INSERT INTO TblKruis (IDFout, IDOplossing) VALUES ('" & KiesFout.Value & "', '" & IDMAX.Value & "')"

I would think instead of Value something else but i don't know what exactly.

greetz

[techgnome]

"The IDMAX is the autonumberfield in a table." -- no it isn't.... it's a text string. You're setting it to a SELECT, but you never execute it or anything. Then in the very next line, you try to use like it's a recordset or something.

Tg

[feeder23]

Is it possible to add?