class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
|
class= de
class= cmdClose_Click secondaire de >Private " de l'id= " codeSnippet865832 de Set ! frm_SupvReport_Mgr_View_DataEntry_AcuityScores au disque assorti sur cette forme
Formes ! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Requery
Formes ! frm_SupvReport_Mgr_View_DataEntry_AcuityScores ! trackingNUmber = je ! acuityScoreID
Faible IDString comme corde
Faibles rs comme Recordset
IDString = je ! acuityScoreID.Value
Placer les rs = les formes ! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Recordset
rs.FindFirst « acuityScoreID = » + IDString
Formes ! frm_SupvReport_Mgr_View_DataEntry_AcuityScores.Bookmark = rs. Repère
'------->End
acForm de DoCmd.close, « frm_SupvReport_DataEntry_AcuityScores_Guidelines »
acForm de DoCmd.close, « frm_SupvReport_Mgr_View_DataEntry_AcuityScores_Multiple »
Sous-marin d'extrémité
|