Voraussetzungen:
Das Bsp ist unter A97,A00, AXP, A03 lauffähig, unter A07 wurde es nicht getestet.

Erstmal werden die beiden Funktionen im Modul "mod_prop" benötigt.
Die Funktion "GetProp" liest die Property aus und "SetProp" schreibt den Wert in die Property "LastDS".
Listing s. Bsp-DB

Beim öffnen des Forms wird die Property ausgelesen und zu diesem DS gegangen.

Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    Dim x As Long
    x = GetProp("LastDS")
    DoCmd.GoToRecord , , acGoTo, x
End Sub

Und beim Schliessen wird der aktuelle DS zurück in die Property geschrieben.

Private Sub Form_Unload(Cancel As Integer)
    Dim DSNr As Long
        DSNr = Me.CurrentRecord
    SetProp "LastDS", DB_LONG, DSNr
End Sub

Dateien:

Speichern der letzten Datensatz-Position in einer Property Beliebt

(0 Stimmen)

Speichern der letzten Datensatz-Position in einer Property

ab A97

Die Zip-Datei enthält ein Version für A97 und eine ab A00

 05.02.2018

 47.01 KB

 3.315

Download

Ähnliche Artikel

You have no rights to post comments