ich habe hier noch ein altes Makro in meiner Datenbank, die eine ID ausließt und dann einen entsprechenden Ordner öffnet. Existiert dieser Ordner nicht, kommt eine Fehlermeldung das der Ort nicht gefunden werden konnte.
Code: Alles auswählen
Sub openDir
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("MainForm")
oFeld1 = oForm.getByName("txtSERIENNUMMER")
stText = oFeld1.Text
stURL = "\\192.168.99.2\kunden\" & stText & "\"
oFeld2 = oForm.getByName("Unterlagen")
oFeld2.TargetURL = stURL
End Sub