在VBA中单击清除文本框

我对VBA比较陌生，正在为我的雇主开发一个小型数据库。 我试图创build一个文本框，当点击时，删除我已经把它的内容。 例如，我有一个文本框，上面写着“第一个”，表示要放入成员的名字。 当他们点击它，我希望我的文字消失，以便他们可以input他们想要的东西。 （它只能执行一次的问题很容易用if语句解决）。 我已经看了下面的问题，但都没有答案为我工作;

在点击文本框中清除文本

下面的代码什么也没做

Private Sub TextBox1_GotFocus() TextBox1.Text = "" End Sub 

下面的代码给我一个“处理”的“预期，结束语句”编译错误;

 Private Sub txtNewNameHere_GotFocus() Handles txtNewNameHere.GotFocus txtNewNameHere.Text = "" End Sub 

不知道为什么这些不为我工作，但正如我所说，我是相对新的这一点。 任何帮助不胜感激。

Answer 1

这将清除焦点上的文本框，如果它没有焦点：

 Private Sub TextBox1_Enter() TextBox1.Value = "" End Sub 

每次点击时都不会清除文本框。 这有帮助吗？

Answer 2

假设您的文本框的名称是“Text1”以下事件将执行您正在寻找的内容：

 Private Sub Text1_GotFocus() If Me.Text1.Value = "First" Then Me.Text1.Value = "" End If End Sub 

我总是把我。 在对象前面引用表单。

我不清楚你的文本框的名称是从上面的代码示例'TextBox1'或'txtNewNameHere'，所以我只是在上面的代码中使用了一个通用的'Text1'。

如果您不确定自己的文本框名称是什么，请右键单击文本框并select“属性”

更新：假定文本框位于表单对象中。