Formulier opslaan in tabel

[check4646]

Ik moet ervoor zorgen dat ik een record ( dat men moet ingeven via een formulier ) opgeslagen krijg in een tabel. De tabel beschikt over 2 kolommen namelijk "ID" met autonummering en "Naam" met tektst, mijn code ziet er als volgt uit:

Private Sub btnMerkOpslaan_Click()

Dim db As Database

Dim rst As Recordset

Dim IngID As Long

Set db = CurrentDb

Set rst = db.OpenRecordset("tblMerken", dbOpenDynaset)

rst.MoveLast

IngID = rst!id

IngID = indID + 1

rst.AddNew

rst!id = IngID

rst![Naam] = txtNieuwMerk

rst.Update

End Sub

Het probleem is dat ik telkens een index fout krijg bij het klikken op mijn knop. Kan iemand mij hierbij helpen?

Alvast bedankt

[stegisoft]

Ik heb nog nooit zoiets gedaan.

Maar mijn logica zegt dat je geen ID kan geven want dat wordt automatisch gedaan door access.

Merken ingeven zou wel kunnen.

Ofwel ID als numeriek in de tabel instellen.

Maar waarom de formulier niet koppelen aan de tabel?