Here you go
Private Sub cmdAddNewTemp_Click()
On Error GoTo Err_cmdAddNewTemp_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAddTemp(NewClientObservations)"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec...