Solved open form with last record

[kobiashi]

Hi all,

Im trying to open a form to the last record via a button but cant seem to find the correct command so i currently have

sub CmdOpenForm_Click()
       DoCmd.OpenForm FormName:="FrmEventNewTrackPart", DataMode:= acLastRecord
End Sub

But that doesnt work

can i run a DoCmd.OpenForm followed by DoCmd.GoToRecord from the button?

 

[vhung]

Hi all,

Im trying to open a form to the last record via a button but cant seem to find the correct command so i currently have

sub CmdOpenForm_Click()
       DoCmd.OpenForm FormName:="FrmEventNewTrackPart", DataMode:= acLastRecord
End Sub

But that doesnt work

can i run a DoCmd.OpenForm followed by DoCmd.GoToRecord from the button?

Try:
DoCmd.GoToRecord , , acLast

 

[kobiashi]

Try:
DoCmd.GoToRecord , , acLast

will that work from the button click?
also what would that openm a specific form?

 

[vhung]

will that work from the button click?
also what would that openm a specific form?

Could be applied using "Button" after open a form
DoCmd.OpenForm "FrmEventNewTrackPart"

then set on "Event Procedure" during "Form Load" that if last record is required always to viewed.
DoCmd.GoToRecord , , acLast

 

[The_Doc_Man]

As you have been advised by others, "Last" is a questionable term in a relational database. If "Last Record" means the record changed most recently then then you must have a way to remember either WHEN something was changed (like a date/time field for "last updated on") or IN WHAT ORDER something was changed (like some sort of autonumbering scheme that updates record numbers of updated records.

 

[arnelgp]

Sub CmdOpenForm_Click()
       DoCmd.OpenForm FormName:="FrmEventNewTrackPart"
      
       'arnelgp
       With Forms!FrmEventNewTrackPart.Recordset
            If Not (.BOF And .EOF) Then
                .MoveLast
            End If
        End With

End Sub

 

[vhung]

Or by using cmdOpenForm button then insert;

DoCmd.OpenForm "FrmEventNewTrackPart": DoCmd.GoToRecord , , acLast

MsgBox "FormLoaded goto LastRecord... " _
& vbCrLf & "ID: " & Forms![FrmEventNewTrackPart]![ID] & "= " _
& Forms![FrmEventNewTrackPart]![ranyfield], vbInformation

 

[kobiashi]

thanks everyone for your replies, ive resolved this issue now by use of Docmd.GoToRecord ,, acLast. this did what i wanted