如何完善示例的完整

Option Compare Database
Option Explicit

Private Sub Form_Load()

End Sub

Private Sub m1_Click()

m2.Top = m1.Top + m1.Height + subfrm.Height
m3.Top = m1.Top + 2 * m1.Height + subfrm.Height  '*
m4.Top = m1.Top + 3 * m1.Height + subfrm.Height  '*
m5.Top = m1.Top + 4 * m1.Height + subfrm.Height  '*
subfrm.Top = m1.Top + m1.Height

subfrm.Form.Section(acDetail).Height = 7900
subfrm.Form.Image6.Left = subfrm.Form.Image5.Left
subfrm.Form.Image6.Top = subfrm.Form.Image5.Top + 2300

End Sub

Private Sub m2_Click()
subfrm.Form.Section(acDetail).Height = 1500

m2.Top = m1.Top + m1.Height
subfrm.Top = m1.Top + 2 * m1.Height

subfrm.Form.Image6.Left = subfrm.Form.Image1.Left + 1500
subfrm.Form.Image6.Top = subfrm.Form.Image1.Top

Me.subfrm.Requery
End Sub
Private Sub m3_Click()
subfrm.Form.Section(acDetail).Height = 1500

m3.Top = m1.Top + 2 * m1.Height
subfrm.Top = m1.Top + 3 * m1.Height

subfrm.Form.Image6.Left = subfrm.Form.Image1.Left + 1500
subfrm.Form.Image6.Top = subfrm.Form.Image1.Top

Me.subfrm.Requery
End Sub
Private Sub m4_Click()
subfrm.Form.Section(acDetail).Height = 1500

m4.Top = m1.Top + 3 * m1.Height
subfrm.Top = m1.Top + 4 * m1.Height

subfrm.Form.Image6.Left = subfrm.Form.Image1.Left + 1500
subfrm.Form.Image6.Top = subfrm.Form.Image1.Top

Me.subfrm.Requery
End Sub
Private Sub m5_Click()
subfrm.Form.Section(acDetail).Height = 1500

m5.Top = m1.Top + 4 * m1.Height
subfrm.Top = m1.Top + 5 * m1.Height

subfrm.Form.Image6.Left = subfrm.Form.Image1.Left + 1500
subfrm.Form.Image6.Top = subfrm.Form.Image1.Top

Me.subfrm.Requery
End Sub
请问是在哪个引用错误？