betrifft MS Access

Problembeschreibung:

Wenn Access-Datenbanken über das Netzwerk geöffnet werden, werden Datenbankzugriff extrem langsam. Bei vielen Abfragen wird ein Arbeiten somit unmöglich.

Lösungsidee

Abhilfe kann hier eine Warnfunktion liefern, die den Benutzer mit einer Nachricht warnt, wenn die Datenbank von einem Netzlaufwerk gestartet wurde.

Programmcode

  'Code zum Testen, ob die Datenbank über ein Netzlaufwerk geöffnet wurde
  
  Dim Dateisystem As Scripting.FileSystemObject
  Dim Laufwerk As String
  Dim Text As String

  Set Dateisystem = CreateObject("Scripting.FileSystemObject")
  Laufwerk = Left(CurrentDb.Name, 1)
  ' Laufwerkstyp testen
  ' 0: Unbekannt
  ' 1: Austauschbar
  ' 2: Fest
  ' 3: Netzwerk
  ' 4: CD-ROM
  ' 5: RAM Disk
  If Dateisystem.Drives(Laufwerk).DriveType = 3 Then
    'Netzlaufwerk -> Warnung ausgeben
    Text = "!!! ACHTUNG !!!" & Chr(13) & Chr(10) & "Die Datei '" & CurrentDb.Name & "' wurde von einem Netzlaufwerk gestartet!"
    Text = Text & Chr(13) & Chr(10) & "Bitte Datenbank in einen lokalen Ordner kopieren und dann erst verwenden."
    MsgBox Text, vbOKOnly + vbCritical
  End If