On Störung Goto- Err_OpenBtn_Click
CurrentDb.Execute „CPSetActiveSiteToFalse“
CurrentDb.Execute „UPDATE GESETZTES CPSUtilitiesTbl CPSUtilitiesTbl.Active = RICHTEN“ u. _ aus
„, WO (((CPSUtilitiesTbl.SiteNum) = '“ u. [SiteNum] u. „'))“
Anruf ShowAccess (, "" ausrichten)
getThisDir benennen
DoEvents
SendKeys „^(o)“
SendKeys ThisDir u. „CarlPerkins \ PCPsiteY10.mde“
SendKeys „{hereinkommen}“
|