Letzten DS anwählen bei Formular öffnen

[Helles58]

Hallo zusammen,

hab ein Makro aus dem Handbuch das ich anpassen möchte und habe aber keine Info gefunden ab das so geht.
Wenn das Formular geöffnet wird soll dann der Corsur auf dem letzten DS stehen,
Geht das mit dem Makro überhaupt?

Sub Formular_oeffnen_schliessen(oEvent AS OBJECT)
DIM stZiel AS String
aFormStart() = Split(thisComponent.Title, thisComponent.UntitledPrefix)
stZiel = oEvent.Source.Model.Tag
ThisDatabaseDocument.FormDocuments.getByName( Trim(stZiel) ).open
ThisDatabaseDocument.FormDocuments.getByName( Trim(aFormStart(1)) ).close
End Sub

Hat jemand einen Tip?
Bin dankbar für jede Hilfe

Gruß Helles58

[F3K Total]

Moin,
du weißt schon, dass dieses Makro von einer Schaltfläche gestartet werden muss, die sich in einem ersten Formular befindet? In der Zusatzinformation der Schaltfläche muss der Name des zu öffnenden zweiten Formulares eingetragen sein.
Das Makro öffnet dann das zweite Formular und schließt das Erste.
Um im neu geöffneten zweiten Formular auf den letzten Datensatz des strukturellen Hauptformulares zu springen, habe ich das Makro wie folgt erweitert:

Code: Alles auswählen

Sub Formular_oeffnen_schliessen(oEvent AS OBJECT)
    DIM stZiel AS String
    aFormStart() = Split(thisComponent.Title, thisComponent.UntitledPrefix)
    stZiel = oEvent.Source.Model.Tag
    oFormZiel = ThisDatabaseDocument.FormDocuments.getByName( Trim(stZiel) ).open
    ThisDatabaseDocument.FormDocuments.getByName( Trim(aFormStart(1)) ).close
    oStruktFormZiel = oFormZiel.Drawpage.Forms(0)'strukturelles Haupformular
    'Abwarten bis das Formular geladen ist
    do
        wait 10
    loop until oStruktFormZiel.isloaded
    'zum letzten Datensatz springen
    oStruktFormZiel.Last
End Sub

Gruß R

[Helles58]

Hallo F3K Total,

danke für die schnelle Beantwortung.

Wünsche dir ein Frohes Wochenende.

Gruß Helles58