我有一个访问表单,我在其中输入数据以插入表中进行存储,我使用的代码是
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
我想知道是否有可以添加的代码,以便在插入数据后,文本框和组合框会自动清除?
答案 0 :(得分:1)
使用控件的属性。具体来说,请尝试将.Text
或.Value
属性设置为""
:
txtTextBox.Text = ""
或者:
txtTextBox.Value = ""