一个录入界面，我想新增一笔记录后，不退出界面，界面的内容清空，继续添加。怎么处理。

Question

如题。

Answer 1

Private sub command1_click()
   rs.addnew
   rs(0)=text1
   rs(1)=text2End sub

Answer 2

Private sub command1_click()
   rs.addnew
   rs(0)=text1
   rs(1)=text2
   rs.update
   
IF Msgbox("已加入，是否再增加？",vbOkCancel )=vbok then
text1.text=""
text2.text=""
else
  unoad me
end if
End sub

Answer 3

同上:
 rs.addnew
   rs(0)=text1
   rs(1)=text2
   rs.update
text1.text=""
text2.text=""

Answer 4

还没有解决吗？把他的文本内容设为空就好了
控件不同变一下就好了
combo1.text = ""text2.text=""

Answer 5

dim ctl as control
rs.addnew
   rs(0)=text1
   rs(1)=text2
 rs.update
for each ctl in me.controls
  if typeof(ctl) is textbox then
    ctl.text=""
  endif
next