原来简单设置就可防止DELETE键误删数据表窗体的字段

wx0000888

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

按钮 禁用也可以。
但要防止其它可删除的途径

wx0000888

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

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

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

wx0000888

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

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

       当用户不小心单击到数据表子窗体的字段上,那么整列字段就会被选取,如果按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

原来还有更简单的办法

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

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

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