2010 MS Access 'RefreshAll' Automation

[Tomfernandez1]

Hello All!

I have created a Form with a command button that moves the current record from one Table to another. The code behind the command button is provided below.
The problem is, after the code is executed, all that remains on the Form fields is "deleted". Is there something I can add to the end of the code that would RefreshAll?
I hit the RefreshAll button and it worked, but I am hoping to automate this step through VBA code.

Thanks, in advance, for your attention to my post!

Tommy



Private Sub Command640_Click()

DoCmd.SetWarnings False
DoCmd.OpenQuery "TEST_QUERY_APPEND", acViewNormal, acEdit
DoCmd.SetWarnings False
DoCmd.OpenQuery "TEST_QUERY_DELETE", acViewNormal, acEdit
DoCmd.RefreshRecord

End Sub

[Tomfernandez1]

I found the answer to my question after doing some online research. The answer is in an article through this link: http://office.microsoft.com/en-us/ac...41940.aspx#BM4

As a result, here is the code revised:

Private Sub Command640_Click()

DoCmd.SetWarnings False
DoCmd.OpenQuery "TEST_QUERY_APPEND", acViewNormal, acEdit
DoCmd.SetWarnings False
DoCmd.OpenQuery "TEST_QUERY_DELETE", acViewNormal, acEdit
Me.requery
End Sub