ich habe ein Problem mit einem Formular wo von einem Button die Auswahl für ein Verzeichnis gestartet wird.
Hier das Formular :
Die Formularobjekte werden beim Aufrufen, wenn die Ansicht aufgebaut ist, ausgelesen und Initialisiert. Der Text "!verz. noch auswählen" wird dabei eingetragen.
Code: Alles auswählen
'Textfeld unter gew. Verz.
oVerzeichnis = thisComponent.drawpage.forms.getByName("Frm_Imp").getByName("txt_gewVerz")
oVerzeichnis.Text = "!verz noch auswählen"
Über den Button wird eine Sub zur Auswahl eines Verzeichnisses aufgerufen und auch ausgeführt.
Hier jetzt die Sub und die Funktion zur Auswahl des Verzeichnisses :
Code: Alles auswählen
Sub waehleVerz
Dim tmpVerz As String
Dim s As String
tmpVerz = ""
s = get_Verz(tmpVerz)
oVerzeichnis.Text = s
' cmdAuswerten.EnableVisible = TRUE hier wird der Button "Auswahl" sichtbar
End Sub
Function get_Verz(s As string)
strVerzeichnistmp = ""
Do
strVerzeichnistmp = ChooseADirectory()
If (strVerzeichnistmp Like "*####_##_##-*") = False Then
sVar = MsgBox("Verzeichnisname enthält keinen " & chr(10) & "Bereich von jjjj_mm_tt-",1)
If sVar =2 Then
msgbox "Makro make_Import_Verz wird abgebrochen"
cmdAuswerten.EnableVisible = TRUE
' GoTo MAKRO_Abbruch:
Exit Function
End if
End if
Loop Until (strVerzeichnistmp Like "*####_##_##-*") = True Or sVar <> 2
get_Verz = strVerzeichnistmp
End Function
An was kann das liegen ? Ich habe bisher keine Lösung dazu gefunden. Kann es Daran liegen das dir Funktion "ChooseADirectory()" das Auswahlfenster aktiviert und anzeigt ?
Danke für die Hilfe im Voraus.
Roland