[分享]禁止鼠标滚动：来自简的原代码

secowu

原代码来自简（ACCFANS）

Public jl As Long

Private Sub Command142_Click() '禁止滚动
jl = Me.CurrentRecord '记录当前记录号
'Me.AllowEdits = True '窗体可编辑
'Me.AllowDeletions = True '窗体可删除
End Sub

Private Sub Command143_Click() '允许滚动
jl = 0
'Me.AllowEdits = False '窗体不可编辑
'Me.AllowDeletions = False '窗体不可删除
End Sub

Private Sub Form_Current()
If jl <> 0 And Me.CurrentRecord <> jl Then
   DoCmd.GoToRecord acForm, Me.Form.name, acGoTo, jl '返回原记录号
   Me.Command142.Enabled = False
   Me.Command143.Enabled = True
   Else
   Me.Command142.Enabled = True
   Me.Command143.Enabled = False

End If
End Sub

wwwwa

learn

liuxingyuabc

有BUG啊！

zhengjialon

这个方法我也用过,现在用下来还行,就是觉得应该还有更好的方法.

tmtony

一是使用API,一是使用DLL,但经常会出现一些错误
还有一种方法 ,就是使用beforeupdate事件, 如果希望不能滚动,就让beforeupdate的cancel为真

而使用保存按钮的标志来识别是否可滚动