1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Public SubOpenAccess () De 'open TOEGANG, beginprocedure en sluit dit werkboek Schemerige strPath als Koord, objAccess als Nieuwe Access.Application strPath = „van N:\US\US van de Verhouding & de van de Bedrijfs cliënt Cliënt die van de Ontwikkeling \ Nieuwe Cliënt \ melden die Privé \ van de Cliënt \ van de Dienst \ Sandra \- PROJECTEN melden \ JerrysProject \“ Reeks objAccess = CreateObject („Access.Application“) objAccess.Visible = Waar objAccess.OpenCurrentDatabase strPath & „PortChar.mdb“ Sub van het eind