TKSoft-Online

Access-Verzeichnis ermitteln PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel MS-Access System und PC-System
  
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr

Problemstellung:

Wie ermittle ich das Access-Verzeichnis? 


Public Function GetAccessDir() As String
'*******************************************
'Name:      GetAccessDir (Function)
'Purpose:   ermittelt das Access Programmverzeichnis
'Author:    Thomas Keßler
'Date:      Januar 28, 2003, 04:58:53
'Inputs:
'Output:
'*******************************************
On Error GoTo 
GetAccessDir_err

  GetAccessDir = SysCmd(acSysCmdAccessDir)

GetAccessDir_Exit:
    
Exit Function

GetAccessDir_err:
    MsgBox Err.Number & "  " & Err.Description
    
Resume 
GetAccessDir_Exit
End Function

Aufruf:


Dim x As String
x = GetAccessDir()

Das Ergebnis wäre x = "D:\Programme\Microsoft Office 97\Office\"

DatumKlicks
Total2154
Di. 221
Mo. 212
So. 206
Sa. 191
Fr. 182
Do. 171
Mi. 166
Aktualisiert ( Donnerstag, den 01. Juli 2010 um 12:48 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173416 Downloads