Wie weet raad? Waar het fout gaat heb ik in de code aangegeven.
Ben benieuwd.
Bart
Code:
DoCmd.RunSQL "DELETE * from Help"
Set tabel2 = CurrentDb.OpenRecordset("Help")
For Gint1 = 1 To 40
tabel2.AddNew
tabel2.Update
Next
tabel2.Close
Set tabel2 = CurrentDb.OpenRecordset("Help")
For Gint1 = 1 To 40
tabel2.Edit
tabel2!id = Gint1 'HIER GAAT HET FOUT
tabel2.Update
Next
tabel2.Close
Exit Function
Bart