Hallo,
mit der Hilfe von Wilfried habe ich vor einiger Zeit ein Scriptbutton in einem Formular erstellt. Dieser öffnet einen bestimmten Ordner und ergänzt den Pfad durch Inhalte der Datenbank.
https://ww3.cad.de/foren/ubb/Forum285/HTML/001092.shtml#000003
Ich müsste dieses nun ergänzen. Es geht um das gleiche Prinzip. Öffnen eines Pfades durch eine Schaltfläche. Hier gibt es allerdings das Problem, dass die Angaben nicht direkt in einer Tabelle liegen. In dem Formular wird per Auswahlfeld ein Wert festgelegt, der dann in dem Pfad auftauchen muss.
Vorhanden ist:
Public Overrides Sub Button_Click()
Dim Nummer as string
Nummer = me.StrValue("HAUSA_FILES")
Dim Funktion as string
Funktion = me.StrValue("HAUSA_FUNC")
Dim Pfad as string = "P:\Anlagen\Unterlagen\Kataster\HAUSA_FUNC\HAUSA_FILES\"
If Nummer="" then
Exit sub
end if
me.application.OpenURL (Pfad & Funktion & "\" & Nummer)
End sub
HAUSA_FILES ist der Ordner, in dem die Unterlagen liegen. Der wird auch direkt eingetragen und in den Pfadangaben korrekt eingesetzt.
Schwierigkeiten bereitet mit der Wert HAUSA_FUNC. Dieser Wert ist in der Tabelle nur mit 1, 2 oder 3 Hinterlegt. In dem Formular wird dieser Wert per Dropdown (ComboBox) ausgewählt. Der eigentliche Name, der auch im Pfad übernommen werden müsste steht in der Tabelle HAUSAN_FUNC_TBD.
Also wenn ich den Pfad aus den Angaben in der Tabelle erstellen lasse, sieht er aktuell so aus:
P:\Anlagen\Unterlagen\Kataster\2\Ordner1\
Die 2 ist falsch. Es müsste der Wert aus HAUSAN_FUNC_TBD dort eingetragen werden:
P:\Anlagen\Unterlagen\Kataster\Ölabscheider\Ordner1\
Ich hoffe, ich habe es gut beschrieben.
Kann mir hier jemand helfen?
Danke.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP