如果一個(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
順便也解決了數(shù)據(jù)表型窗體無(wú)法滾動(dòng)記錄的問(wè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
順便也解決了數(shù)據(jù)表型窗體無(wú)法滾動(dòng)記錄的問(wèn)題