Office: Letzten DS beim nächsten Start wieder anzeigen funktioniert nicht.

Hallo
Ich möchte beim Schliessen einer Access-Anwendung den aktuellen DS den ich in dem Moment im Formular habe, speichern und beim erneuten Start der Anwendung wieder im Formular einstellen.
Dazu habe ich eine Tabelle erstellt, die die Parameter speichert.
Dann habe ich im Load-Ereignis und im Close-Ereignis vom Formular entsprechenden Code eingebaut.

ParamLoad und ParamUpdate sind eigene Funktionen für das Speichern bzw. Lesen in die Tabelle und funktionieren auch. Das ist nicht das Problem

Im Load-Ereignis habe ich diesen Code drin, der auch funktioniert.
(Über die Variable X um besser testen zu können)
Es wird der «FL_ICAO_Code» gespeichert bzw. wieder geladen.

Code:

Private Sub Form_Load()
    Dim X
    X = ParamLoad("tblParamTMP", "LastView")
    Debug.Print X
    FL_ICAO_Code.SetFocus
    DoCmd.FindRecord X
End Sub

Im Close-Ereignis habe ich diesen Code drin.

Code:

Private Sub Form_Close()
    Dim Rc
    ‘Testausgabe
    Debug.Print "----------------------------"
    Debug.Print Me.FL_ICAO_Code
    Debug.Print Me.FL_Name
    Debug.Print Me.FL_ID
  
    'Die Werte vom letzten Satz speichern
    'Aufruf:
    '                Tabelle,       Satz,              Parameter welcher gespeichert werden soll
    Rc = ParamUpate("tblParamTMP", "LastView", Me.FL_ICAO_Code)
 
End Sub

Im Close-Ereignis speichert er mir nicht den aktuellen DS, sondern immer der erste DS mit welchem ich sortiert habe.
Beispiel: Ich sortiere nach «ID»
ID = 1
FL_ICAO_Code = «NTGA» (vom ersten DS)
Ich stelle im Formular FL_ICAO-Code = «LSZH» ein (hat ID = 9222)
Ich schliesse das Formular und dabei sollte er «LSZH» in die Tabelle speichern und dies beim nächsten Start wieder anzeigen/einstellen.
Er speichert mir aber immer «NTGA»
Ist immer der erste DS mit dem Ich sortiert habe.

Habe noch einen TestButton eingebaut.
Debug.Print Me.FL_ICAO_Code
Im TestButton zeigt er mir den aktuellen DS an, also «LSZH». Das ist richtig.

Debug.Print Me.FL_ICAO_Code
In Form_Close-Ereignis zeigt er mir immer den ersten DS an mit welchen ich sortiert habe, also «NTGA». Also nicht den aktuelle DS im Formular. Komplett unlogisch.

Ich hoffe, ich habe mich verständlich ausgedrückt.
Was habe ich falsch gemacht?
Wie muss ich es richtig machen?

Vielen Dank für Eure Hilfe.
Gruss Rosenauer

 

Hallo,
das Verhalten ist normal, weil beim Close das Recordset quasi in den Uhrzustand gesetzt wird.
Auf welchem Datensatz aktuell der Focus liegt, kann aber im Current-Ereignis abgefragt werden und dann in einer Varablen bis zum Close konserviert werden. Gehe wie folgt vor:

Dimensioniere am Anfang des Formularcodes, also unmittelbar vor der ersten Prozedur, eine übergreifende Variable, z.B.

Code:

Dim FL_ICAO_Code_Merker as String

Im Current-Ereignis des Formulars weist Du dieser Variable den Codestring zu, der später beim Close gespeichert werden soll:

Code:

Private Sub Form_Current()
.....
     FL_ICAO_Code_Merker = Me.FL_ICAO_Code
.....
End Sub

Dann kannst Du die Variable im Close-Ereignis an deine Update-Funktion übergeben:

Code:

Private Sub Form_Close()
    Dim Rc
    .......
    'Die Werte vom letzten Satz speichern
    'Aufruf:
    '                Tabelle,       Satz,              Parameter welcher gespeichert werden soll
    Rc = ParamUpate("tblParamTMP", "LastView", FL_ICAO_Code_Merker)
 
End Sub

 

Grüezi Andreas (Andifau)

Nach meiner Logik sollte ein Feld aus einem Formular auslesen immer gleich funktionieren.
Aber dass beim Close-Ereignis das Recordset quasi in den Uhrzustand gesetzt wird und dadurch den "falschen" DS liefert, liess mich verzweifeln.
Ich habe den Vorschlag eingebaut und funktioniert einwandfrei.
Andreas, vielen Dank für Deine Hilfe.
Gruss Rosenauer