Hallo Access Spezialisten
... möchte folgendes realisieren und kommen einfach nicht weiter, vieleicht könnt Ihr mir helfen.
Vor dem schließen des erstellten Angebotes soll abgefragt werden ob das geöffnete Angebot im abgelegt werden soll.
Bei Ja, wird
1.) geprüft ob alle Ordner vorhanden sind, wenn nicht werden diese angelegt
2.) Drucker auswählen in meinem Fall ist es der Amyuni PDF Converter
3.) unter folgendem Dateinamen speichern, Dateiname setzt sich wie folgt zusammen (Kundennummer, Geschäftsstelle_Angebotnummer_Datum_Uhrzeit)
Beispiel: 5899725_2011052_20110418_1012 121642
Funkt soweit, nur das mir das Angebot nicht im Ordner Angebot sondern eine Ebene höher im Geschäftsstellenordner abgelegt wir.
Hat jemand eine Idee worann da liegen kann.
On Error GoTo Err_Ablage_Click
Dim strMsg As String, strTitle As String
Dim sMldg As String
Dim aTitel As String
Dim iRes As Integer
Dim Pfad As String
Dim Dateiname As String
Dim fs, f
Dim AlterDrucker As String
[Form_Angebot].Refresh
Me.Requery
aTitel = "Angebot ablegen"
sMldg = "Soll dieses Angebot abgelegt werden?"
iRes = MsgBox(sMldg, vbYesNo + vbQuestion + vbDefaultButton1 + vbSystemModal, aTitel)
Select Case iRes
Case vbYes
Rem -------- Kundenordner anlegen ---------
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\" & Me.N1) = 0 Then
Set f = fs.CreateFolder("c:\" & Me.N1)
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma)
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot")
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder")
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan")
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges")
Rem -------- Geschäftsstelle im Kundenordner anlegen ---------
Else
If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma) = 0 Then
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma)
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot")
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder")
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan")
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges")
End If
End If
Rem -------- Prüfen ob alle Ordner im Geschäftsstellenordner vorhanden sind ---------
Rem -------- wenn fehlt angelegt ---------
If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot") = 0 Then
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot")
End If
If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder") = 0 Then
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Bilder")
End If
If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan") = 0 Then
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Plan")
End If
If fs.FolderExists("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges") = 0 Then
Set f = fs.CreateFolder("c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Sonstiges")
End If
' Drucker auswählen
AlterDrucker = Application.Printer.DeviceName
Set Application.Printer = Application.Printers("Amyuni PDF Converter")
' Bericht öffnen
Rem DoCmd.OpenReport "Angebot_Berichtvorschau_KB1", acPreview, , "AngebotNr =" & Me!AngebotNr
' Dateinamen vergeben
Dateiname = ConvertReportToPDF("Angebot_Berichtvorschau_KB1", vbNullString, _
"c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot" _
& Me.N1 & Me.N2 & "_" & [Angebotnummer] & "_" & "V" & Format$(Now, "yyyymmdd hhmmss") & ".pdf", False, True, 0, "", _
"", 0, 0)
Ohne deinen Code jetzt weiter geprüft zu haben, aber ich glaube bei der Pathangabe fehlt nach Angebot ein \
...
Dateiname = ConvertReportToPDF("Angebot_Berichtvorschau_KB1", vbNullString, _
"c:\" & Me.N1 & "\" & Me.N2 & " -" & Me.Firma & "\Angebot\" _
& Me.N1 & Me.N2 & "_" & [Angebotnummer] & "_" & "V" & Format$(Now, "yyyymmdd hhmmss") & ".pdf", False, True, 0, "", _
"", 0, 0)
... SUUUPER genau das war es
DANKE