On Error GoTo Err_OpenBtn_Click
CurrentDb.Execute "CPSetActiveSiteToFalse"
CurrentDb.Execute "UPDATE CPSUtilitiesTbl SET CPSUtilitiesTbl.Active = TRUE " & _
"WHERE (((CPSUtilitiesTbl.SiteNum)='" & [SiteNum] & "'))"
Call ShowAccess(True, "")
Call getThisDir
DoEvents
SendKeys "^(o)"
SendKeys ThisDir & "CarlPerkins\PCPsiteY10.mde"
SendKeys "{Enter}"
|