1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Private Sub Form_AfterUpdate() DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Update_EditPersonComputer", acViewNormal, acEdit DoCmd.SetWarnings True DoCmd.RunCommand acCmdSubdatasheetCollapseAll End Sub