Public Okręt podwodny OpenAccess ()
'Otwarty DOSTĘP, początek procedura i zamykać ten workbook
Ciemnawy strPath Jako Sznurek, objAccess Jako Nowy Access.Application
strPath = "N:\US\US Klient Związek & Rozwój Biznesu \ Klient Reportaż \ Intymny \ Nowy Klient Reportaż \ Klient Usługa \ Sandra \ PROJEKT \ JerrysProject \"
Ustalony objAccess = CreateObject ("Access.Application")
objAccess.Visible = Prawdziwy
objAccess.OpenCurrentDatabase strPath & "PortChar.mdb"
Końcówka Okręt podwodny
|