I am having the same issue. Here is the code I have.
Private Sub Command219_Click()
Dim MyRecordID As String
Dim Myform As String
Myform = "frmWorksheetsPrint"
MyRecordID = "[RecordID]='" & Me![RecordID] & "'"
DoCmd.GoToRecord , , acNext
DoCmd.OpenForm Myform, , , MyRecordID...