Question

Private Sub Text7_BeforeUpdate(Cancel As Integer) If Text7.Text = Text5.Text Then '当文本框7等于文

除非控件获得焦点,否则您不能引用该控件的属性或方法
Private Sub Text7_BeforeUpdate(Cancel As Integer)
If Text7.Text = Text5.Text Then '当文本框7等于文本框5时
Text7.Text = "" '清空此栏
Else
MsgBox "错误"
End IfEnd Sub

初学，不是很了解，请指教修改下，谢谢了
目的:
设定文本框5指定内容,如果文本框7等于文本框5时，则自动清除文本框7里面的内容，如果不等于则显示错误并且停止

Answer 1

你这个过程所在的事件“Text7_BeforeUpdate”是自定义的嘛？还是写错了
对于一个过程来说 你必须知道它应当在什么条件下触发，比如说这个地方 应该是修改“完”text5的时候触发事件吧。
比如说用lostfocus事件就是在输入完毕并且失去控制焦点（就是键盘光标不再出现在那里）的时候触发事件。这个可能适合你的需要

Answer 2

Private Sub Text7_Change()
If Text7.Text = Text5.Text Then '当文本框7等于文本框5时
Text7.Text = "" '清空此栏
Else
MsgBox "错误"
End IfEnd Sub