Hallo Gemeinde,
ich habe auf meinem Laufwerk Ordner mit personenbezogenen Daten der Mitarbeiter - aus Datenschutzgründen habe ich diesen versteckt, damit unwissende Personen nicht auf diesen zugreifen.
Jetzt findet Access natürlich diesen Ordner auch nicht! Davor konnte ich diesen Ordner mit follgendem Code Dim strPfad As String
Dim strVerzeichnis As String
strPfad = "XXXX"
strVerzeichnis = strPfad & Me!MitarbeiterID
If Dir(strVerzeichnis, vbDirectory) <> "" Then
FollowHyperlink strVerzeichnis
Else
FollowHyperlink strPfad
End If
ansteuern und einen bestimmten Ordner nach MitarbeiterID öffnen. Gibt es die Möglichkeit den Code so zu verändern, dass Access den versteckten Ordner ansteuert und öffnet?
Danke im Voraus
MfG
Mustermann
Schau mal in die VBA Hilfe.
Da gibt es eine Liste aller Attribute. Die Müssen als "Bitmask" übergeben werden.
Wenn es ein verstecktes Verzeichnis ist, dann z.B. so:
If Dir(strVerzeichnis, vbDirectory or vbHidden)
oder
If Dir(strVerzeichnis, vbDirectory + vbHidden)
Oder
Dir(strVerzeichnis, 18)
Alle drei Anweisungen sind in diesem Fall immer das gleiche.
LG Markus
Vielen Dank, das habe ich gesucht!)
Hallo,
noch eine andere Frage.
Wie kann ich den Code erweitern, sodass Access einen Ordner in dem Verzeichniss "XXX" anlegen, wenn dieser nicht vorhanden ist?
Name des Ordners = soll die Zahl "MitarbeiterID" sein.
Danke
Mit den Funktionen unter Feststellen, ob Datei bzw. Verzeichnis existiert (http://vb-tec.de/fdexists.htm) könntest Du feststellen, ob ein Ordner bzw. eine Datei existiert und falls nicht, mit der MkDir-Anweisung einen Ordner anlegen.
Also ich habe jetzt den Code für das Prüfen und Anlegen von Ordnern zusammengebastelt, sieht folgendermaßen aus:
Dim strPfad As String
Dim strVerzeichnis As Integer
strPfad = "XXX" & [MitarbeiterID] 'alles eine Zeile
If Dir(strPfad, vbDirectory + vbHidden) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
strVerzeichnis = MsgBox("Der Ordner ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If strVerzeichnis = vbYes Then
MkDir strPfad
MsgBox "Ordner wurde angelegt!"
Else
MsgBox "Es wurden keine Änderungen vorgenommen"
Exit Sub
End If
End If
End Sub
Habe aber Schwierigkeiten diesen Code mit dem Code, Ansteuern und Öffnen von Ordnern, zu verknüpfen:
Dim strPfad As String
Dim strVerzeichnis As String
strPfad = "XXX\"
strVerzeichnis = strPfad & Me!MitarbeiterID
If Dir(strVerzeichnis, vbDirectory + vbHidden) <> "" Then
FollowHyperlink strVerzeichnis
Else
FollowHyperlink strPfad
End If
Wie verknüpfe ich diese beiden Codes, so dass nach dem der Ordner erstellt wurde, dieser auch geöffnet wird oder falls dieser schon vorhanden, einfach geöffnet wird?