Expand|Select|Wrap|Line Numbers
- Private Sub Command117_Click()
- On Error GoTo Err_Command117_Click
- Dim stDocName As String
- Dim stLinkCriteria As String
- DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
- stDocName = "FOURTH_PAGE"
- stLinkCriteria = "[SUBJECT_ID]=" & "'" & Me![SUBJECT_ID] & "'"
- DoCmd.OpenForm stDocName, , , stLinkCriteria
- Forms![FOURTH_PAGE]![SUBJECT_ID].Value = Me![SUBJECT_ID].Value
- Forms![FOURTH_PAGE]![PEXAM].SetFocus
- DoCmd.Close acForm, "THIRD_PAGE"
- Exit_Command117_Click:
- Exit Sub
- Err_Command117_Click:
- MsgBox Err.Description
- Resume Exit_Command117_Click
- End Sub