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.
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
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.
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.
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 ?
@tismo
Hast du dir den Pfad mal mit Debug.Print angeschaut?
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
Hallo Ekkehard,
Danke für den Tipp, '\' musste hinter DateiPfad
DoCmd.OutputTo acOutputReport, "Standesamt", acFormatPDF, DateiPfad & Rechnungsnummer & "-" & SterbefallName & ", " & Me.SterbefallVorname & " - Datenblatt Krankenhaus-Standesamt.pdf"