Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Formulare!Formularname!Feldname
Diesen Code hab ich jetzt schon in zig Varianten probiert aber ich komm nicht weiter.DoCmd.OutputTo acOutputReport, "rep_Befundung", acFormatPDF, "d:\" & [Reports]![rep_Befundung]![txt_headline_rep] & ".pdf", False, , , acExportQualityPrint
Private Sub Button_PDF_Click()
On Error GoTo err_pdf
Dim Dateiname As String
Dim Zieldatei As String
Dateiname = Application.CurrentProject.Path & "\Reportname.PDF"
Zieldatei = "C:\users\an\ReportnameZiel.PDF"
DoCmd.OutputTo acOutputReport, "Reportname", acFormatPDF, Dateiname
FileCopy Dateiname, Zieldatei
Kill Dateiname
Msgbox ("Report wurde als PDF exportiert: " & Zieldatei)
goto noerr
err_pdf:
Msgbox "Fehler PDF-Ausgabe" & " " & Err.Number & " " & Err.Description
noerr:
on error goto 0
End Sub
Klingt logisch, aber ich wüsste gar nicht wo ich dass gemacht haben soll. Ich begebe mich mal auf die SucheDas kann eigentlich nicht sein, es sei denn, Du hast irgendwo die Systemmeldungen ausgeschaltet (Set Warnings.on = False) und sie nicht wieder eingeschaltet.
Ich bin jetzt an einem Punkt, an dem es nicht mehr so einfach ist, die DB hier rein zu stellen. Dafür sind da schon zu viele "Firmeninterna" eingebaut. Denke ich muss dann so klar kommen.Wenn Du nichts findest, kannst Du ja nochmal eine abgespeckte Version der DB hier hochladen.