1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
|
" codeBody "
Private SubForm_AfterUpdate ()
DoCmd.SetWarnings Vals
DoCmd.OpenQuery „qry_Update_EditPersonComputer“, acViewNormal, acEdit
DoCmd.SetWarnings Waar
DoCmd.RunCommand acCmdSubdatasheetCollapseAll
Sub van het eind
|