1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
|
" codeBody "
van Private SubcmdClose_Click ()
'>Set vorige vormVormen! frm_SupvReport_Mgr_View_DataEntry_AcuityScores aan de aanpassing van verslag op deze vorm
Vormen! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Requery
Vormen! frm_SupvReport_Mgr_View_DataEntry_AcuityScores! trackingNUmber = me! acuityScoreID
Schemerige IDString als Koord
Schemerige rs als Recordset
IDString = me! acuityScoreID.Value
Reeks rs = Vormen! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Recordset
rs.FindFirst „acuityScoreID =“ + IDString
Vormen! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Bookmark = rs. Referentie
'>End
DoCmd.close acForm, „frm_SupvReport_DataEntry_AcuityScores_Guidelines“
DoCmd.close acForm, „frm_SupvReport_Mgr_View_DataEntry_AcuityScores_Multiple“
Sub van het eind
|