Ordner aus nicht vorgegebenen Verzeichnis erstellen (Textfeld)

[tismo]

Hallo,

das letzte Problem wurde super gelöst. Jetzt darauf aufbauend habe ich folgendes Problem:

Es soll ein neuer Ordner mit der Rechnungsnummer in dem Verzeichnis, was aus Systemdaten01 im Feld pdfPfad steht, erstellt werden.

Code [Auswählen] Erweitern

Private Sub OrdnerErstellen_Click()

Dim DateiPfad As String
DateiPfad = DLookup("pdfPfad", "01Systemdaten")

Dim strKundenPfad As String


Str.Kundenpfad = DateiPfad & Me.Rechnungsnummer

'Wenn der Kundenordner vorhanden ist, dann einfach öffnen
'ist dieser nicht vorhanden, dann anlegen und öffnen
If Dir(strKundenPfad, vbDirectory) <> "" Then
    Shell "explorer.exe """ & strKundenPfad & """", vbNormalFocus
Else
    MkDir strKundenPfad
    Shell "explorer.exe """ & strKundenPfad & """", vbNormalFocus
   
    End If
   
End Sub

Hierbei kommt es zu einem Kompilerfehler in Me.Rechnungsnummer

Sobald ich allerdings ein festes Verzeichnis eingebe, wird der Ordner angelegt.

Wie sieht die korrekte vba aus?


Lars

[PhilS]

Code [Auswählen] Erweitern

Str.Kundenpfad = DateiPfad & Me.Rechnungsnummer
Str PUNKT Kundenpfad ?

Ansonsten solltest du ggfls. prüfen, ob Me.Rechnungsnummer so auch wirklich als Steuerelement in dem Formular existiert.

[tismo]

jo natürlich ...

Klappt .

Aber jetzt soll ein pdf erstellt werden und in jenem Ordner abgelegt werden.

Bei folgender vba wir das pdf (12345678-Name,Vorname - Datenblatt Krankenhaus-Standesamt.pdf)nur in dem vorgelagerten Ordner, ohne Rechnungsnummer abgelegt.

Code [Auswählen] Erweitern

Private Sub Standesamt_pdf_Click()

Dim DateiPfad As String
DateiPfad = DLookup("pdfPfad", "01Systemdaten") & Me.Rechnungsnummer

DoCmd.OpenReport "Standesamt", acViewPreview, , "Rechnungsnummer =" & Me!Rechnungsnummer, acHidden
DoCmd.OutputTo acOutputReport, "Standesamt", acFormatPDF, DateiPfad & Rechnungsnummer & "-" & SterbefallName & ", " & Me.SterbefallVorname & " - Datenblatt Krankenhaus-Standesamt.pdf"
DoCmd.Close acReport, "Standesamt"

End Sub

Wo liegt der Fehler ?

[Beaker s.a.]

@tismo
Hast du dir den Pfad mal mit Debug.Print angeschaut?

Code [Auswählen] Erweitern

DateiPfad = _
           DLookup("pdfPfad", "01Systemdaten") _
         & Me.Rechnungsnummer _
         & "-" & SterbefallName & ", " & Me.SterbefallVorname & " - Datenblatt Krankenhaus-Standesamt.pdf"
    Debug.Print DateiPfad
Vielleicht fehlt auch nur ein "\" am Ende von "pdfPfad".

gruss ekkehard

[tismo]

Hallo Ekkehard,

Danke für den Tipp,  '\' musste hinter DateiPfad

Code [Auswählen] Erweitern

DoCmd.OutputTo acOutputReport, "Standesamt", acFormatPDF, DateiPfad & Rechnungsnummer & "-" & SterbefallName & ", " & Me.SterbefallVorname & " - Datenblatt Krankenhaus-Standesamt.pdf"