Vraagje code dat fout geeft

[Skylinertje]

Dit is de code:

Option Compare Database

Private Sub Form_Close()

Dim rst As Recordset

Dim rstParking As Recordset

Dim Plaats As String

Dim f As Field

Set rst = CurrentDb.OpenRecordset("select * from [qryAbonnementenParking]", DB_OPEN_DYNASET)

Set rstParking = CurrentDb.OpenRecordset("select * from [tblParkingsOverzicht]", DB_OPEN_DYNASET)

For Each f In rstParking.Fields

rstParking.Edit

f.Value = Null

rstParking.Update

Next f

If rst.RecordCount > 0 Then

rst.MoveFirst

Do Until rst.EOF

Plaats = rst![Plaats klant]

For Each f In rstParking.Fields

If f.Name = "P" & Plaats Then

rstParking.Edit

f.Value = "Abon"

rstParking.Update

End If

Next f

rst.MoveNext

Loop

End If

rst.Close

Set rst = Nothing

rstParking.Close

Set rstParking = Nothing

[Form_frmOverzichtParkings].Refresh

End Sub

Private Sub KlantID_AfterUpdate()

Me.Refresh

End Sub

MAar hij geeft telkens een fout aan de rode tekst.

Wat kan er verkeerd zijn?

18 juni 2012 aangepast door Skylinertje