使用后让Textboxes清除

时间:2013-04-03 19:15:35

标签: vba ms-access

我有一个访问表单,我在其中输入数据以插入表中进行存储,我使用的代码是

Private Sub cmd_go_Click()
Dim insertstring As String

insertstring = "INSERT INTO KWTable (KW, Source, Code) VALUES('" & text_key.Value & "','" &         combo_source.Value & "','" & txt_code.Value & "');"

DoCmd.RunSQL insertstring

End Sub

我想知道是否有可以添加的代码,以便在插入数据后,文本框和组合框会自动清除?

1 个答案:

答案 0 :(得分:1)

使用控件的属性。具体来说,请尝试将.Text.Value属性设置为""

txtTextBox.Text = ""

或者:

txtTextBox.Value = ""