On Błąd Rozpoczynający Err_OpenBtn_Click
CurrentDb.Execute "CPSetActiveSiteToFalse"
CurrentDb.Execute "AKTUALIZACJA CPSUtilitiesTbl USTALONY CPSUtilitiesTbl.Active = PRAWDZIWY" & _
"DOKĄD (((CPSUtilitiesTbl.SiteNum) = '" & [SiteNum] & "'))"
Wywoławczy ShowAccess (Prawdziwy, "")
Wywoławczy getThisDir
DoEvents
SendKeys "^ (o)"
SendKeys ThisDir & "CarlPerkins \ PCPsiteY10.mde"
SendKeys "{Wchodzić Do}"
|