Public Sub FormGotoEnd(F As Form, Optional AddtlEmptyRowsBottom As Long = 0)
' Accessle ilgili öğrenmek istediğiniz bilgileri https://accessapplication.blogspot.com/ adresinde bulabilirsiniz.
Dim DetailSectionHeight As Long
Dim nVisible As Long
Dim nRecords As Long
 
On Error GoTo FormGotoEnd_Error
 
DetailSectionHeight = F.InsideHeight
On Error Resume Next
    If F.Section(acHeader).Visible Then
        DetailSectionHeight = DetailSectionHeight - F.Section(acHeader).Height
    End If
        
        If F.Section(acFooter).Visible Then
            DetailSectionHeight = DetailSectionHeight - F.Section(acFooter).Height
        End If
        
On Error GoTo FormGotoEnd_Error
 
nVisible = CLng(DetailSectionHeight / F.Section(acDetail).Height)
 
    If F.RecordsetClone.RecordCount > 0 Then
        F.RecordsetClone.MoveLast
        nRecords = F.RecordsetClone.RecordCount
 
        If nRecords > nVisible Then
 
            F.Bookmark = F.RecordsetClone.Bookmark
            F.SelTop = nRecords - nVisible + 2 + AddtlEmptyRowsBottom
            F.Bookmark = F.RecordsetClone.Bookmark
 
        End If
    End If
 
FormGotoEnd_Exit:
On Error GoTo 0
Exit Sub
 
FormGotoEnd_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in FormGotoEnd", vbExclamation
Resume FormGotoEnd_Exit
End Sub

Call FormGotoEnd(Me)