如果一個(gè)連續(xù)窗體的有空白部分(分隔線下面的部分),會(huì)出現(xiàn)用鼠標(biāo)向下滾動(dòng)記錄后,無(wú)法用鼠標(biāo)滾動(dòng)回第一條記錄的情況,可以用下面的辦法解決:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error Resume Next
If Count < 0 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acNext
End Sub
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error Resume Next
If Count < 0 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acNext
End Sub