Access 2003, Array als Filter für Formular

[Sieds]

Mit folgendem Code möchte ich gerne ein Array befühlen, und anhand dem Array die Geräte im Formular Kundengeräte ausgeben.

Fehler tritt dabei keiner auf, aber der Filter für Kundengeräte erfolgt nicht so wie erwartet.


Private Sub cmdGeraetAnzeigen_Click()
Dim inr As String
Dim knr As String
knr = Forms!Kundeneingabe![Kunden Nr]
DoCmd.OpenForm "Interessenten"
If Not IsNull(knr) Then

With Forms("Interessenten")
.Filter = "[kunden nr]=" & CStr(knr)
.FilterOn = True
inr = Forms!Interessenten![Interessent Nr]
End With
DoCmd.OpenForm "Kundengeräte"
With Forms("Kundengeräte")
.Filter = "[Interessent nr]=" & CStr(inr)
.FilterOn = True
End With
End If

 

[Devil24]

Hi,

ich würde grundsätzlich Formulare nicht mit Filtern öffnen, sondern beim Öffnen des Formulars den gewünschten Filter als OpenArgs an das Formular übergeben.
Dann im Form_Open-Ereignis des Formulars ("beim Öffnen") die Datengrundlage anhand des OpenArgs neu setzen. Etwa so: Me.RecordSource = "SELECT * FROM [Tabelle/View] WHERE knr = " & Me.OpenArgs