2 verschillende filters

[snj2804]

Hoi,

ik heb voor mijn database 2 formulieren gemaakt met dezelfde werken.
Alleen de resultaten zijn anders.
De opzet is gelijk.
Echter krijg ik bij formulier 2 een foutmelding.
Ik heb de code opgezocht en is identiek aan formulier 1 (los van de veldnamen).

Hierbij de filter code van formulier 1:

' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Loading_Reference_1] = '" & Me![List56] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Hierbij de filter code van formulier 2:

' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CMR NUMBER] = '" & Me![List40] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Ik heb de eigenschappen van de formulieren nagekeken en kan geen verschillen ontdekken

 

[Guus2005]

Wat is de foutmelding?

 

[snj2804]

zie bijlage

 

[Guus2005]

Hier kom ik ook niet verder mee.
Kan je de database uitkleden, compacten, posten?