VBA Befehl 'Zu Record springen'

Computer: Software & Programmierung Microsoft Access
1

Ich habe eine DB erstellt und stosse jetzt auf folgendes Problem:

Durch ein SQL Statement finde ich die ID eines bestimmten Records heraus.

Jetzt möchte ich im aktuellen Formular zu dem Record springen, welcher die gefundene ID hat.

Wie kann ich dies tun?

thanks
urs

2

Das macht man üblicherweise so:

Dim RS as DAO.Recordset
Set RS = Me.Recordsetclone
RS.FindFirst "ID = " & ID
If Not RS.Nomatch then Me.Bookmark = RS.Bookmark
RS.CLose

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)

3

Oder kürzer in einem Zweizeiler und ohne Dimensionierung:
me.RecordsetClone.FindFirst „ID=“ & ID
If IsNull(Me.RecordsetClone) = False Then me.Bookmark = me.RecordsetClone.Bookmark

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Nee - das ist nicht genial - der Vergleich

If IsNull(Me.RecordsetClone) = False Then

ist Nonsense!

Gruß aus dem Norden
Reinhard Kraasch

Oder kürzer in einem Zweizeiler und ohne Dimensionierung:
me.RecordsetClone.FindFirst „ID=“ & ID
If IsNull(Me.RecordsetClone) = False Then me.Bookmark =
me.RecordsetClone.Bookmark

5

Na ja, von genial hab’ ich ja auch nicht gesprochen, aber hsat schon recht, hab’ beim Eintippen was vergessen:
Hätte heißen müssen:
me.RecordsetClone.FindFirst „ID=“ & ID
If IsNull(Me.RecordsetClone. BOOKMARK ) = False Then me.Bookmark =
me.RecordsetClone.Bookmark

Und das ist erheblich kürzer und ohne Dimensionierung und schneller!

Sorry und Gruß aus dem Westen

Majordomo