أخي الكريم
حسب فهمي لموضوعك أعتقد أن الحل كالتالي
Private Sub Form_Load()
Const RecordsPerPage As Byte = 20
Dim DestinationRecord As Byte, RecordsCount As Byte
RecordsCount = DCount("*", Me.RecordSource)
If RecordsCount >= RecordsPerPage Then
DestinationRecord = 10
Else
DestinationRecord = RecordsCount / 2
End If
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, DestinationRecord
End Sub
ملحوظة : يمكنك تحديد أكبر عدد من الصفوف يمكن عرضه في الصفحة الواحدة حسب حجم نموذجك و الذي قدرته أنا ب 20 ... يمكنك تغييره من الكود
بالتوفيق إن شاء الله