| Hallo Karl,
entschuldige bitte die späte Antwort (war durch ILA verhindert).
Das Problem tritt auch bei neu erstellten Formularen auf.
Das Formular enthällt nur die Tabelle als RowSource, einige Textboxen sowie eine Liste.
Bis zum Hinzufügen der Liste lief alles sauber durch (z.B. Durchblättern der Tabelle mit der Navigationsschaltfläche)
Nach Einfügen der Liste (als Auswahl zum Anzeigen des entsprechenden Eintrags) tritt der Fehler auf (Quelle: Ereignis AfterUpdate)
Hier der Quellcode:
Private Sub lstAenderungen_AfterUpdate()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strKriterium As String
Set db = CurrentDb
Set rst = db.OpenRecordset("tblAenderungen", dbOpenDynaset)
strKriterium = "AenderungID = " & lstAenderungen
rst.FindFirst strKriterium
Me.Bookmark = rst.Bookmark
End Sub
_________________
Gruß Dirk |