Hi and thanks for the reply.
I currently have the following code on the "Click" event.
Private Sub Command40_Click()
On Error GoTo Err_Command40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmJobNew"
DoCmd.OpenForm stDocName, , , , acFormAdd...