Public VorOpenAccess ()
'Geöffneter ZUGANG, Anfangsverfahren und Abschluss dieses Arbeitsbuch
Schwaches strPath als Schnur, objAccess als neues Access.Application
strPath = „N:\US\US-Klienten-Verhältnis u. Entwicklung-\ Klienten-Bericht \ privater \ neuer Klienten-Bericht \ Klient Service \ Sandra \ PROJEKTE \ JerrysProject \“
objAccess = CreateObject („Access.Application“) einstellen
objAccess.Visible = richten aus
objAccess.OpenCurrentDatabase strPath u. „PortChar.mdb“
Enden-Unterseeboot
|