class= " lineNumbers "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
|
class=
class= cmdClose_Click " id= " codeSnippet865832 Private Sub ()
'-------формы формы >Set ранее! frm_SupvReport_Mgr_View_DataEntry_AcuityScores к сопрягая показателю на этой форме
Формы! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Requery
Формы! frm_SupvReport_Mgr_View_DataEntry_AcuityScores! trackingNUmber = я! acuityScoreID
Тусклое IDString как шнур
Тусклые rs как Recordset
IDString = я! acuityScoreID.Value
Установите rs = формы! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Recordset
rs.FindFirst «acuityScoreID =» + IDString
Формы! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Bookmark = rs. Bookmark
'------->End
acForm DoCmd.close, «frm_SupvReport_DataEntry_AcuityScores_Guidelines»
acForm DoCmd.close, «frm_SupvReport_Mgr_View_DataEntry_AcuityScores_Multiple»
Подводная лодка конца
|