Supportnet / Forum / Datenbanken
Anzeige im Unterformular auf letzten Datensatz
Frage
Hallo,
ich füge über einen Button Teilnehmer zu einer Liste. Diese wird mir dann als Unterformular in einem Hauptformular angezeigt.
Nun möchte ich gern, daß der Datensatzzeiger auf den zuletzt angefügten zeigt. Wie geht das ?
Meine Routine seht Ihr unten.
Gruß
Gudrun
Private Sub btnASPersonTeilnahme_Click()
On Error GoTo Err_btnASPersonTeilnahme_Click
Rem MsgBox " Neue Person hinzufügen zu Recordset der Kreuztabelle"
Dim rsMod As DAO.Recordset
Set rsMod = CurrentDb.OpenRecordset("tblASBelTeilnahmeKreuz")
rsMod.MoveLast
With rsMod
.AddNew
!IDASBel = Me.IDASB
!PersNrASBel = KombiPerson.Value
.Update
[b].MoveLast[/b]
End With
rsMod.Close
[b]Me.ufrmASTeilnahme.Requery[/b]
[b]Rem geht zum letzten Datensatz im Hauptformular
Rem DoCmd.GoToRecord , , acLast[/b]
Exit_btnASPersonTeilnahme_Click:
Exit Sub
Err_btnASPersonTeilnahme_Click:
MsgBox Err.Description
Resume Exit_btnASPersonTeilnahme_Click
End Sub
Antwort 1 von RalfH
Hallo Gudrun,
In etwa so:
Me![UFoSteuerelement_im_Hauptformular].SetFocus
DoCmd.GoToRecord , , acLast
Gruß Ralf
In etwa so:
Me![UFoSteuerelement_im_Hauptformular].SetFocus
DoCmd.GoToRecord , , acLast
Gruß Ralf
Antwort 2 von Gudrun11
Danke RalfH
Es funktioniert.
Gruß Gudrun
Es funktioniert.
Gruß Gudrun

