Fokus im ufo auf Eingabe eines neuen Wertes

[hajott]

Hallo Wissende,

Ich habe (vereinfacht) eine Tabelle "Wertpapiere" und eine Tabelle "Kurse". Durch die Wertpapiere navigiere ich mittels Formular, und die Kurse (mehrere Daten) gebe ich über ein gebundenes UFO ein. Nun möchte ich, dass bei Navigation auf ein neues Wertpapier nicht nur der Fokus im Kurs-UFO steht, sondern dass auch der neue Datensatz bereits aktiviert ist.

Ich habe bereits im VBA-Code des Hauptformulars

Code [Auswählen] Erweitern

Private Sub Form_Current()

    Forms![ofoFormular]!ufoKurse.SetFocus

End Sub
und im Unterformular

Code [Auswählen] Erweitern

Private Sub Form_GotFocus()

    DoCmd.GoToRecord , , acNewRec

End Sub
Das mit dem Fukuserhalt funktioniert. Allerdings wird nicht nach dem Fokuserhalt zum neuen Datensatz gesprungen. Was mache ich falsch?

Vielen Dank im voraus und ein frohes Fest!
Hans-Jürgen

[Knobbi38]

Hallo Hans-Jürgen,

so sollte es eigentlich funktionieren:

Code [Auswählen] Erweitern

Me!SubFormName.setfocus

DoCmd.GoToRecord , , acNewRec

[SubFormName].Form.[FieldName].setfocus
Es kommt auf die Reihenfolge an.

Knobbi38

[hajott]

Hallo Knobbi38,

super, vielen Dank, es hat funktioniert!

Merker an mich: Alles in das FormCurrent des Hauptformulars:

Code [Auswählen] Erweitern

Private Sub Form_Current()

    Forms!ofoFormular!ufoKurse.SetFocus
    DoCmd.GoToRecord , , acNewRec
    ufoKurse.Form.Kursdatum.SetFocus

End Sub