如果一個連續(xù)窗體的有空白部分(分隔線下面的部分),會出現(xiàn)用鼠標向下滾動記錄后,無法用鼠標滾動回第一條記錄的情況,可以用下面的辦法解決:
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