Bericht speichern mit Pfadvorauswahl und Speichern Dialog

[Sam]

Ich bin ja wirklich zu doof. Das habe ich irgendwie völlig übersehen. Jetzt sieht der Code so aus:

Code (vb) [Auswählen] Erweitern

Private Sub savereport_Click()
Dim sB As FileDialog
Dim saveFileAs As String
DoCmd.OpenReport "Bericht", acViewPreview, , , acHidden
Set sB = Application.FileDialog(msoFileDialogSaveAs)
With sB
'.InitialView = msoFileDialogViewList / Ist das notwendig?
.InitialFileName = "\\Pfad\02_Planing\" & Reports![Bericht].Caption & ".pdf"


  If .Show = -1 Then
    saveFileAs = .SelectedItems(1)
    DoCmd.OutputTo acOutputReport, "Bericht", acFormatPDF, saveFileAs
    Else
    MsgBox ("Der Plan wurde nicht gespeichert")
    Exit Sub
    End If
'.Execute  / Für was noch execute?
End With

DoCmd.Close acReport, "Bericht"
End Sub

Das Abbrechen funktioniert. Ich muss einfach zweimal auf Speichern klicken, das erste übernimmt es nicht. 

[Sam]

Ich habe herausgefunden man muss gar nicht zweimal klicken sondern einfach etwa 20 Sekunden warten. Dieses .show benötigt viel Zeit.

[MaggieMay]

Hallo,

das wird dann wohl am Netzwerk liegen, kannst du die Dateien nicht woanders abspeichern? Eine Wartezeit von 20 Sek. ist schon heftig...

[Sam]

Ich habe die Funktion nur noch bei mir aktiv. Die anderen User können sich den Bericht per Mail senden
Jetzt habe ich dann alles geschafft nur noch die besch... bedingte Formatierung treibt mich in den Wahnsinn, aber da habe ich noch ein paar Ideen.

[MaggieMay]

Hi,

kannst du die Probleme mit der bedingten Formatierung näher beschreiben?

[Sam]

Sicher doch. Ich möchte den Hintergrund der Felder im Endlosformular mit ca. 10 verschiedenen Farben einfärben. je nach Zelleninhalt. Mit der bedingten Formatierung aus dem Accessmenü geht es, aber es lädt nicht sauber. Das heisst, manchmal formatiert es die Felder nicht, manchmal nur einzelne Felder und nie schön synchron beim neuladen. Bei erneutem klicken geht es dann meistens. Also wollte ich es via VBA machen, aber das geht irgendwie gar nicht. Laut einigen Foren gehen da nicht mehr als 3 Bedingungen. 

[DF6GL]

Hallo,


mach mal einen Screenshot vom BF-Fenster, damit man die Einstellungen der Regeln sehen kann.

Beziehen sich die Regel-Ausdrücke auf berechnete Felder?

[Sam]

Alle bis auf eine sind Wert = x.   Die Daten kommen aus einem ID Feld.

[DF6GL]

Hallo,


offensichtlich heißt ein Feld "Datum" ..  Datum ist ein reserviertes Wort und sollte (darf) nicht verwendet werden.

Meinst Du damit aber das heutige Datum, dann sollte es so lauten:

Wochentag(Datum();2)>5

[Sam]

Ich habe es angepasst und das Feld heisst jetzt Kalendertag. Aber das ganze mit der bedingten Formatierung beeinflusst es nicht.

[MaggieMay]

Hi,

dann musst du wohl mal eine Beispiel-DB hochladen, an der man das austesten kann.

[Sam]

Hier meine Datenbank. Merrci

[DF6GL]

Hallo,

sorry, aber das ist grausam...

- keinerlei Normalisierung, bzw. gesetzte Beziehungen
- in jedem Modul fehlt (vollständiges) 
Option Compare Database
Option Explicit
- Kompilieren bringt fehlende Variablen-Deklaration zu Tage wie auch fehlende Verweise
- immer noch reservierte Wörter  (--> Wochentag)  als Namen vorhanden, wie auch Sonder- /Leerzeichen in Namen.


Nichtsdestotrotz gibt es bei der BF im Formular "Tourenplan" bei mir (A2010) keinen solchen beschriebenen Effekt.

[Sam]

Merci fürs Anschauen. Wie ist es wenn Du das Hauptformular "Planning" öffnest und ein paar "Touren" änderst?

- keinerlei Normalisierung, bzw. gesetzte Beziehungen

Beziehungen habe ich jeweils in den Abfragen gemacht, ist das nicht genügend?

- in jedem Modul fehlt (vollständiges) 
Option Compare Database
Option Explicit

Was fehlt denn da was wichtig ist?

- Kompilieren bringt fehlende Variablen-Deklaration zu Tage wie auch fehlende Verweise

Das macht es bei mir nicht, ich habe auch Access 2013. Vielleicht durchs zippen oder ich habe interne Netzwerkverweise nicht rausgelöscht.

[DF6GL]

Hallo,

Beziehungen habe ich jeweils in den Abfragen gemacht, ist das nicht genügend?

Nein. In Abfragen können keine Beziehungen gesetzt werden, allenfalls Verknüpfungen zwischen Tabellenfeldern. Beziehungen werden im Beziehungsfenster erstellt und werden vom Datenbankmodul berücksichtigt/kontrolliert.

Was fehlt denn da was wichtig ist?

Wichtig ist, dass beide Zeilen in JEDEM Modulkopf zu stehen kommen und dann die Db kompiliert wird.

Das macht es bei mir nicht, ich habe auch Access 2013. Vielleicht durchs zippen oder ich habe interne Netzwerkverweise nicht rausgelöscht.

Das macht es deswegen nicht, weil Option Explicit fehlt. Nichtsdestotrotz sind die Fehler vorhanden und sorgen ggfls. für einen DB-Absturz.

"Verweise" in Access sind keine "Netzwerkverweise"....


Ich rate dringend, die Hinweise umzusetzen, sofern Du keinen Murks bauen willst.