Automatisches Scrollen zum letzten Datensatz in geteiltem Formular

[merlinuwe]

Liebe Helfer,

anbei findet ihr einen Screenshot eines von mir gebastelten geteilten Formulars. Beim Aufrufen zeigt es wie gewünscht im rechten Bereich den letzten Datensatz an.
Wie kann ich diesen letzten Datensatz auch automatisch beim Öffnen des Formulars links in der Liste anzeigen lassen? Das Programm soll quasi zum gewünschten Datensatz hinunterscrollen.

Liebe Grüße

merlinuwe

[merlinuwe]

Beim Bewegen des Focus zwischen den Feldern mit der TAB-Taste habe ich zufällig gesehen, dass die Liste nach unten scrollt. 

Daraufhin habe ich das Problem "gelöst" (eigentlich: umgangen), indem ich folgenden Code verwende:

Code [Auswählen] Erweitern

Private Sub Form_Current()
'Setzt den Focus auf das Feld "Klassifikationen", sobald ein neuer Ds. aufgerufen wird.
Me!tbl_Zahlungen_Klassifikation.SetFocus
'Springe mit der Tab-Taste ein Feld weiter ...
SendKeys "{TAB}"
'... und danach wieder eins zurück.
SendKeys "+{TAB}"

End Sub

Ich simuliere quasi das Drücken der Tab-Taste, um ins nächste Feld zu gelangen und gehe dann mit Shift-Tab wieder ein Feld zurück ins Ausgangsfeld, in dem sich der Focus auch beim Laden des Formulars befinden soll.

(Ich kann mir aber gut vorstellen, dass es eine elegantere Lösung gibt.)

Code [Auswählen] Erweitern

Function Grussformel()
'Grussformel = "HTH others"
Grussformel = "HTH others &" & vbCrLf & "Freundliche Grüße" & vbCrLf & vbCrLf & "merlinuwe"
End Function

Public Sub Gruesse()
'MsgBox Grussformel()
Debug.Print Grussformel()
End Sub

[MaggieMay]

Hi,

handelt es sich um ein geteiltes Formular oder ist das links ein ganz normales Unterformular?
Wie springst du auf den letzten Satz und sind Haupt- und Unterformular miteinander verknüpft?