在后台刷新 Access VBA 中的表格？

Question

我想在每次单击命令按钮后自动刷新 Access 中的表。我下面的代码工作正常，但它会切换/打开表格。我想让它只留在窗体窗口中，而不是切换到表中。 任何想法表示赞赏：

    Private Sub Command0_Click()
    ''MsgBox Time
    Dim db As Database
    Set db = CurrentDb

    currID = Time
    n = "lala"

    db.Execute "INSERT INTO Table1 ([Task],[From],[To]) VALUES ('" & n & "',#" & currID & "#,#" & currID & "#)", dbFailOnError
    Set db = Nothing

    DoCmd.SelectObject acTable, "Table1"
    DoCmd.Requery
    DoCmd.GoToRecord acDataTable, "Table1", acLast

    End Sub

Answer 1

我假设你的表格也绑定到

Table1

.

所以而不是

DoCmd.SelectObject acTable, "Table1"
DoCmd.Requery
DoCmd.GoToRecord acDataTable, "Table1", acLast

你可以使用

Me.Requery
Me.Recordset.MoveLast

Answer 2

我.Requery

我.Recordset.MoveFirst

也为我工作，并按照我通常喜欢的方式定位活动记录。

Answer 3

尝试

Me.Recordset.Requery

这个命令确实重新查询并保留当前记录。