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