Office中国论坛/Access中国论坛

标题: 原来简单设置就可防止DELETE键误删数据表窗体的字段 [打印本页]

作者: wx0000888 时间: 2017-8-8 14:24
标题: 原来简单设置就可防止DELETE键误删数据表窗体的字段
本帖最后由 wx0000888 于 2017-8-15 10:54 编辑

Private Sub GetControlText(ctl As Control)
If TypeOf ctl Is TextBox Then                               ' 判断是否Textbox, 如果Combobox 则不用删除直接下拉框中选择即可
      If InStr(ctl.ControlSource, "=") = 0 Then                ' 判断数据源是直接绑定,还是间接绑定
         If ctl.Locked = False And ctl.Enabled = True Then    ' 判断控件是否锁定,和可用
            Dim strText As String
            Dim lngSelStart As Integer
            Dim lngSelLong As Integer
            Dim strNotRpl As String                         ' 截留未被选中的字符, 我们有时会把控件中其中一部分描黑(选中),两边字符留下
            lngSelStart = ctl.SelStart
            lngSelLong = ctl.SelLength
            strText = Nz(ctl.Text, "")
            strNotRpl = Left(strText, lngSelStart) & Mid(strText, lngSelStart + lngSelLong + 1)
            ctl = strNotRpl
            ctl.SelLength = 0
            ctl.SelStart = lngSelStart
         End If
      End If
End If
End Sub

Private Sub txtQuantity_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 46 Then
      KeyCode = 0
      '判断该子窗体的容器(子窗体/子报表控件),本人的子窗体/子报表控件名称与子窗体名称相同,    如果不同,如何引用?
      If Me.Parent.Form!(Me.Name).Locked = False And Me.Parent.Form!(Me.Name).Enabled = True Then GetControlText Me.txtQuantity
End If
End Sub

呵呵, 原来如此简单, 实际上只要在窗体属性中 <允许布局视图> 上选择  否

作者: tmtony 时间: 2017-8-10 09:12
按钮禁用也可以。
但要防止其它可删除的途径

作者: wx0000888 时间: 2017-8-10 09:31
本帖最后由 wx0000888 于 2017-8-10 09:46 编辑

tmtony 版主
昨天 , 我用自动Autokeys 添加了这个子宏 {Del} , 然后是 RunCode , =DisabledDelete() , 这个函数里面什么也没有, 只有这么一句 DisabledDelete=True , 确实防止了DELETE键, 但是我在子窗体的输入中却也没法用 delete 更改,删除一部分字符了.

顾得了东头,顾不了西头,怎么办?

我参考过高手们的软件,复制了一份测用于试用, 用DELETE键删除不了数据表窗体的某个列,并没有代码用于delete键,但是他们是如何做到的?

作者: wx0000888 时间: 2017-8-14 23:07
本帖最后由 wx0000888 于 2017-8-14 23:10 编辑

找到一个比较有效的办法
一般我们不会把数据表窗体单独作为一个窗体,而是作为子窗体的存在, 这样就好办了.
就是:

乾坤大挪移法---转移焦点法

   当用户不小心单击到数据表子窗体的字段上,那么整列字段就会被选取,如果按DELETE键,在2003以下版本是无所谓的, 但在2007版本以上整个字段就会被删除,那是很危险的事情, 如果用 Autokeys , {DEL} 宏进行屏蔽, 那我们就无法用 delete 键修改文本控件了, 这样就不方便了,下面的代码就解决了这个问题.
   就是当鼠标点击选取到整列字段的时候, 我们把焦点转移到主窗体上.  按delete键只会对主窗体上的控件有影响, 如果焦点开始位置设置好了,就丝毫没有影响了.

   在子窗体中的代码是如下:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 不能用Form_MouseUp事件 ,只能是这个
If IsLoaded("主窗体") Then                                  '  这里的主窗体是指你们自己的主窗体
      Me.Parent.cboCustomer.SetFocus                   ' Me.Parent  就是主窗体
      Me.Parent.cboCustomer.SelStart = Len(Nz(Me.Parent.cboCustomer.Text, "")) ' cboCustomer 为主窗体上第一个可用的组合控件
End If
End Sub

作者: wx0000888 时间: 2017-8-15 09:23
原来还有更简单的办法

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoCmd.RunCommand acCmdSelectRecord
Me.Form.Requery
End Sub

作者: wx0000888 时间: 2017-8-15 10:49
本帖最后由 wx0000888 于 2017-8-15 10:52 编辑

呵呵, 原来如此简单, 实际上只要在窗体属性中 <允许布局视图> 上选择否

,看来不从基础开始学起,确实是有后遗症啊

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