Office中国论坛/Access中国论坛

标题: [分享]禁止鼠标滚动：来自简的原代码 [打印本页]

---

作者: secowu    时间: 2006-1-12 23:21
标题: [分享]禁止鼠标滚动：来自简的原代码
原代码来自简（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    时间: 2006-1-13 17:04
learn

---

作者: liuxingyuabc    时间: 2006-5-9 17:13
有BUG啊！

---

作者: zhengjialon    时间: 2006-5-9 17:22
这个方法我也用过,现在用下来还行,就是觉得应该还有更好的方法.

---

作者: tmtony    时间: 2006-5-9 20:36
一是使用API,一是使用DLL,但经常会出现一些错误
还有一种方法 ,就是使用beforeupdate事件, 如果希望不能滚动,就让beforeupdate的cancel为真

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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3