Обновить таблицу в Access VBA в фоновом режиме? - PullRequest
Новая
       41

Обновить таблицу в Access VBA в фоновом режиме?

0 голосов
/ 10 ноября 2018

Я хочу обновлять таблицу в Access автоматически каждый раз после нажатия кнопки «Command».Мой код ниже работает нормально, но он будет переключать / открывать таблицу.Я бы хотел, чтобы он оставался только в окне формы, а не переключался на таблицу.Любая идея ценится: 

    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

1 Ответ

0 голосов
/ 10 ноября 2018

Я предполагаю, что ваша форма также связана с Table1.

Так что вместо 

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

вы можете использовать 

Me.Requery
Me.Recordset.MoveLast
...