Ms access 如果用户开始从文本框中删除数据，请执行操作

我有一个带有文本框的访问表单，用户可以使用列表框或直接编辑它来更新它。如果用户开始从此文本框中删除，如果他开始添加数据，我需要执行一个操作。只有当他开始从该文本框中删除时，没有问题，例如：

Private Sub textbox_AfterUpdate()

   If Me.[textbox].SelStart = Len(Me.[textbox].Text) - 1 Then

    ' do something
   else

    ' do something else

   End If


End Sub

---

您可能希望使用

KeyDown

事件，而不是

AfterUpdate

这将捕获退格和Del按钮

---

在其他情况下，文本可能会被删除，例如Ctrl+X，这样您就可以捕获所有这些内容。

您可能希望使用

向下键

事件，而不是

更新后

这将捕获退格和Del按钮

---

在其他情况下，文本可能会被删除，例如Ctrl+X，这样您就可以捕获所有这些内容。

您可能希望使用

向下键

事件，而不是

更新后

这将捕获退格和Del按钮

---

在其他情况下，文本可能会被删除，例如Ctrl+X，这样您就可以捕获所有这些内容。

您可能希望使用

向下键

事件，而不是

更新后

这将捕获退格和Del按钮

---

可以有其他文本删除的例子，例如CTRL+X，这样可以捕获所有这些。

< P>您可能想考虑更改事件，Text属性是控件的当前未保存内容，并且Value属性是控件的焦点保存内容。

更改的优点是用户不能简单地将字母插入现有字符串，例如，用户不能将20米更改为200米

Private Sub AText_Change()
''If the current content is the same as the 
''previous content with something added 
If Me.AText.Text Like Me.AText.Value & "*" Then
    ''Ok
Else
    ''Problem
    MsgBox "Not allowed"
    Me.AText = Me.AText.Value
End If
End Sub

---

您也可以将保存的内容作为当前内容的子字符串。

您可能想考虑更改事件，text属性是控件的当前未保存内容，并且值属性是控件的焦点保存内容。 更改的优点是用户不能简单地将字母插入现有字符串，例如，用户不能将20米更改为200米

Private Sub AText_Change()
''If the current content is the same as the 
''previous content with something added 
If Me.AText.Text Like Me.AText.Value & "*" Then
    ''Ok
Else
    ''Problem
    MsgBox "Not allowed"
    Me.AText = Me.AText.Value
End If
End Sub

---

您也可以将保存的内容作为当前内容的子字符串。

您可能想考虑更改事件，text属性是控件的当前未保存内容，并且值属性是控件的焦点保存内容。 更改的优点是用户不能简单地将字母插入现有字符串，例如，用户不能将20米更改为200米

Private Sub AText_Change()
''If the current content is the same as the 
''previous content with something added 
If Me.AText.Text Like Me.AText.Value & "*" Then
    ''Ok
Else
    ''Problem
    MsgBox "Not allowed"
    Me.AText = Me.AText.Value
End If
End Sub

---

您也可以将保存的内容作为当前内容的子字符串。

您可能想考虑更改事件，text属性是控件的当前未保存内容，并且值属性是控件的焦点保存内容。 更改的优点是用户不能简单地将字母插入现有字符串，例如，用户不能将20米更改为200米

Private Sub AText_Change()
''If the current content is the same as the 
''previous content with something added 
If Me.AText.Text Like Me.AText.Value & "*" Then
    ''Ok
Else
    ''Problem
    MsgBox "Not allowed"
    Me.AText = Me.AText.Value
End If
End Sub

您还可以允许保存的内容成为当前内容的子字符串