如何限制对记录或列选中的复制 -张志
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 综合其它


如何限制对记录或列选中的复制

发表时间:2007/6/13 评论(0) 浏览(8692)  评论 | 加入收藏 | 复制
   
摘 要:有如何限制对记录或列选中的复制?
思路是建立一个Autokeys宏来实现对Ctrl+C的截获,但这里还需要一个判断,判断当前选中的是字符型还是记录或列数据,此功能需要全程序通用,无论是针对某一个窗体、主窗体或子窗体。
正 文:

一、如下
问题:

  如何限制对记录或列选中的复制?
在Windows的环境中,可用 Ctrl+C 执行复制,Ctrl+V 执行粘帖。而且,即便窗体中没有记录选择器,在ACCESS中也可以用 Ctrl+A 执行(多)记录选中。
由于程序功能的需要,在需要限制用户的一部分复制功能,只对字符型的选中可执行复制,对记录集型或列选中都不允许。
思路是建立一个Autokeys宏来实现对Ctrl+C的截获,但这里还需要一个判断,判断当前选中的是字符型还是记录或列数据,此功能需要全程序通用,无论是针对某一个窗体、主窗体或子窗体。

 

回答:

  首先,要完全阻止用户导出数据几乎是不可能的,因为即使封杀了 ACCESS 所有的方面,只要用户能看到数据,就必定能用 OCR 软件截图并进行识别,最终还是能批量导出数据的。
其次,要限制复制粘贴,除了限制快捷键还要限制系统菜单、工具栏、快捷菜单中的复制、粘贴操作。这些方面本站都有详细的文章进行介绍,各位网友可以使用 http://access911.net 的文章搜索功能进行搜索,这里就不一一列举了。

思考方向分两个方面
一、在 CTRL+C 时判断当前操作,判断被操作的是对象?是数据表视图?是行列?或是文本控件?然后区别对待。
二、在已经复制到剪贴版以后用 WIN API 去判断整个剪贴板中的数据,然后再做取舍。当然,这方面操作可以用 VB 或者 VC 来创建 ActiveX 类库,然后在 ACCESS 中引用后使用,这样更加方便。

这里主要介绍第一种思路。
判断当前控件是否文本控件,用 Screen.ActiveControl 来判断,判断当前是否选取整条记录,如果是文本框,而且没有选中整条记录则激活 CTRL+C ,否则用自己的代码代替系统的 CTRL+C。如何用自己的操作来代替 Ctrl+C 本站有相关的文章可以参考

    如何禁用ctrl+c?如何定义一个我自己的快捷键?
    http://access911.net/?kbid;77FAB41E

具体操作代码如下:

'===========================================================
' 过程及函数名:  DoCopy
' 版本号      :  1.0
' 说明        :  本函数作用:根据CanCopy的返回值,如果允
'                 许 COPY 就执行 COPY代码
' 引用        :  --
' 输入参数    :  --
' 输出值      :  --
' 返回值      :  true  允许COPY
'                 false 不允许 COPY
' 调用演示    :  DoCopy()
' 最后修改日期:  2007-6-4 19:09:00
' 示例地址    :  http://access911.net/?kbid;72FABE1E14DCEBF3
' 作者        :  cg1
' 网站        :  http://access911.net
' 电子邮件    :  access911@gmail.com
' 版权        :  作者保留一切权力,
'                 请在公布本代码时将本段说明一起公布,谢谢!
'===========================================================
Public Function DoCopy()
On Error GoTo DoCopy_Err

    If CanCopy = True Then
        DoCmd.RunCommand acCmdCopy
    Else
        MsgBox "不允许 COPY 该数据"
    End If
   
    Exit Function
DoCopy_Err:
    Debug.Print Err.Number, Err.Description
End Function


'===========================================================
' 过程及函数名:  CanCopy
' 版本号      :  1.0
' 说明        :  本函数作用:判断是否允许COPY
'                 以下情况不允许COPY:
'                     当前对象是数据表视图且选定了多行或者多列、
'                     当前控件不是文本框、
'         &


Access软件网交流QQ群(群号:198465573)
 
 相关文章
禁止复制窗体数据  【纵云梯  2012/2/9】
【access入门】得寸进尺--对输入的数据选中后复制粘贴的示例  【麥田  2012/5/7】
【Access入门】土豪金的外壳--仅复制表结构,不复制表中数据的...  【麥田  2013/11/13】
【Access示例】复制数据库的结构  【缪炜  2014/6/20】
【Access示例】复制文件的另一种方法\复制文件至指定的文件夹下  【缪炜  2014/11/14】
用参数查询复制表的记录  【Aaron  2015/4/14】
常见问答
技术分类
相关资源
文章搜索
关于作者

张志

文章分类

文章存档

友情链接