一个简单的问题
我的窗体上有三个文本框text1,text2,text3.还有一个按钮.
再三个文本框中输入数据后插入数据.但是再输入下条数据的时候我想保留text1中的内容直接聚焦到text2,输入数据.生成代码如下:
Private   Sub   确定_Click()
On   Error   GoTo   Err_确定_Click
        DoCmd.GoToRecord   ,   ,   acNewRec
Me.text2.SetFocus
Exit_确定_Click:
        Exit   Sub
Err_确定_Click:
        MsgBox   Err.Description
        Resume   Exit_确定_Click
End   Sub
但是如何讲text1中的数据保留呢?

------解决方案--------------------
用变量保存这个值，在添加下一条数据时再赋给text2不行嘛。。
------解决方案--------------------
用如下代码试试：

Private Sub 确定_Click()
On Error GoTo Err_确定_Click
Dim strTemp As String

strTemp = Me.text1

DoCmd.GoToRecord , , acNewRec

Me.text1 = strTemp

Me.text2.SetFocus
Exit_确定_Click:
Exit Sub
Err_确定_Click:
MsgBox Err.Description
Resume Exit_确定_Click
End Sub