PDA

Vollständige Version anzeigen : Information: Wie kann ich den Installationspfad und die Version von Access ermitteln?


Manuela Kulpa
31.12.2002, 09:03
Dafür steht dir die SysCmd-Methode zur Verfügung, welche dir Informationen zu Microsoft Access und den zugehörigen Dateien/Objekten zurückgibt.

Ruf über eine Prozedur oder Funktion die SysCmd-Funktion auf und übergebe ihr den entsprechenden Parameter. Zum Beispiel:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Public Function</span> GetAccessDir() <span class="TOKEN">As</span> <span class="TOKEN">String</span>
&nbsp;
GetAccessDir = SysCmd(acSysCmdAccessDir)
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>

Anbei noch eine kleine Übersicht der Konstanten und deren Bedeutungen:

<center><table width="95%" border="0" cellpadding="0" cellspacing="0" class="tabletext"><tr><td class="tablehead1"><p class="tabletext"><strong>Konstante</strong></p></td><td class="tablesmileyhead2"><strong>Bedeutung</strong></td></tr><tr><td class="tabletext1">acSysCmdAccessDir</td><td class="tablesmiley2">Gibt das Installationsverzeichnis von Access zur&uuml;ck</td></tr><tr><td class="tabletext1">acSysCmdAccessVer</td><td class="tablesmiley2">Gibt die Versionsnummer von Access zur&uuml;ck</td></tr><tr><td class="tabletext1">acSysCmdGetObjectState, Objekttyp, Objektname</td><td class="tablesmiley2"> Ermittelt den Status eines angegebenen Datenbankobjekts. Als R&uuml;ckgabe kann folgendes erfolgen: <table width="80%" border="0" cellpadding="0" cellspacing="0" class="tabletext"><tr><td>acObjStateOpen</td><td>Ge&ouml;ffnet</td><td>1</td></tr><tr><td>acObjStateDirty</td><td>Ge&auml;ndert, aber nicht gespeichert</td><td>2</td></tr><tr><td>acObjStateNew</td><td>Neu</td><td>4</td></tr></table></td></tr><tr><td class="tabletext1">acSysCmdGetWorkgroupFile</td><td class="tablesmiley2">Gibt den Pfad zur aktuellen Arbeitsgruppen-Datei zur&uuml;ck</td></tr><tr><td class="tabletext1">acSysCmdRuntime</td><td class="tablesmiley2">True = die aktuelle Datenbank wird unter der Runtime-Version von Access ausgef&uuml;hrt.<br> False= die aktuelle Datenbank wird unter der Vollversion ausgef&uuml;hrt.</td></tr></table></center>

Alles weitere findest du in der VBA-Online-Hilfe: Stichwort SysCmd

MDBzorro
23.06.2004, 07:56
Toll ... hier Forum ... Dickes Lob ....

:) :cool:

pegler
16.11.2008, 13:20
Hi, Super alles