Private Sub cmdClose_Click()
'------->Set previous form Forms!frm_SupvReport_Mgr_View_DataEntry_AcuityScores to matching record on this form
Forms!frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Requery
Forms!frm_SupvReport_Mgr_View_DataEntry_AcuityScores!trackingNUmber = Me!acuityScoreID
Dim IDString As String
Dim rs As Recordset
IDString = Me!acuityScoreID.Value
Set rs = Forms!frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Recordset
rs.FindFirst "acuityScoreID = " + IDString
Forms!frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Bookmark = rs.Bookmark
'------->End
DoCmd.close acForm, "frm_SupvReport_DataEntry_AcuityScores_Guidelines"
DoCmd.close acForm, "frm_SupvReport_Mgr_View_DataEntry_AcuityScores_Multiple"
End Sub
|