DoCmd.OutputTo - 2 Optionen

[bahasu]

Hi Jürgen,

bei .rar muss ich passen.

Harald

[kingwambi]

So ich hoffe jetzt gehts

[Anhang gelöscht durch Administrator]

[bahasu]

Hi Jürgen,

muss wieder passen: Beim Versuch, die .mdb zu öffnen, erhalten ich auf verschiedenen Rechnern den Fehlerhinweis:
Fehlercode 0x80004005: Unbekannter Fehler

Harald

[kingwambi]

So aber jetzt - ich habs auf nem anderen Rechner gemacht - sorry für die Umstände

[Anhang gelöscht durch Administrator]

[bahasu]

Hi,

probier mal:
nächste Prüfung: DatAdd([YMD];[Intervall]+[Intervalldiff];[Prüfdatum])
statt: nächste Prüfung: DatAdd([YMD];[effIntervall];[Prüfdatum])

Harald

[kingwambi]

Hallo Harald - es funktioniert!! Vielen Dank - schönes WE noch!!

[kingwambi]

Hallo Harald, ich wollte nun in einer Tabelle ein paar Felddatentypen abändern (von Long Integer auf Double - oder bei Text von 5 auf 10 Stellen). Jedoch erhalte ich beim speichern immer die Fehlermeldung zu viele Felder definiert. In einem Hilfetext habe ich gefunden, dass man die MaxLocksperFile erhöhen soll - dzt Wert 251c - hätte ich auf 999c gestellt. Keine Änderung. Hättest du einen Lösungsvorschlag? LG Jürgen

[bahasu]

Hi,

zur maximalen Anzahl von Feldern in einer Tabelle habe ich gefunden:
http://office.microsoft.com/de-de/access-help/access-2010-spezifikationen-HA010341462.aspx

Harald

[kingwambi]

Hallo - ich wäre überall jedoch im grünen Bereich. Ich habe es nun so hingebracht, dass ich die Tabelle kopiert und dann gegen die Originaltabelle ersetzt habe. Ich hoffe, dass ich dies nicht öfter machen muss - eigentlich nicht die eleganteste Lösung aber hat geholfen. LG Jürgen

[kingwambi]

Hallo Harald,

ich habe ein Problem bei der PDF Erstellung mittels Schleife. Ich verwende Replikate der Datenbank - deshalb habe ich auch IDs im Minusbereich - hierbei hat er Probleme. Wenn eine ID im Minusbereich liegt, so wirft er alle Seiten in ein PDF. Liegt die ID im positiven Bereich, so gibt er nur eine Seite in das PDF - so solls sein. Hast du eine Idee wie ich dies richtig stellen kann?

LG Jürgen - folgend der Code den ich verwende:

Private Sub PDF_erstellen_Click()

Dim Berichtsname As String
    Dim BerichtZusatz As String
    Dim BerichtZusatz2 As String
   
    Berichtsname = Me!Inventarnummer
    BerichtZusatz = Me!Kundennr2
    BerichtZusatz2 = Me!Prüfdatum
   
   
    ' ------------------------------------------------------------------
    ' neu
    If Nz(Datensatz_id_fuer_Bericht, 0) > 0 Then
        Me.Filter = "ID_Prüfprotokoll = " & Datensatz_id_fuer_Bericht
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
   
                 
    DoCmd.OutputTo acOutputForm, "frm_Kd_Dat_Prüfprotokoll_DVE", acFormatPDF _
                 , "D:\Protokolle\" & Berichtsname & "_" & BerichtZusatz & "_" & Format(BerichtZusatz2, "yyyymmdd") & ".pdf"

[bahasu]

Hi,

    Dim Berichtsname As String
    Dim BerichtZusatz As String
    Dim BerichtZusatz2 As String
   
    Berichtsname = Me!Inventarnummer
    BerichtZusatz = Me!Kundennr2
    BerichtZusatz2 = Me!Prüfdatum
   
   
    ' ------------------------------------------------------------------
    ' neu
    If Nz(Datensatz_id_fuer_Bericht, 0) <> 0 Then
        Me.Filter = "ID_Prüfprotokoll = " & Datensatz_id_fuer_Bericht
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
   
                 
    DoCmd.OutputTo acOutputForm, "frm_Kd_Dat_Prüfprotokoll_DVE", acFormatPDF _
                 , "D:\Protokolle\" & Berichtsname & "_" & BerichtZusatz & "_" & Format(BerichtZusatz2, "yyyymmdd") & ".pdf"

Vielleicht hilft der Austausch von > 0 in <> 0 bereits?

Harald

[kingwambi]

Hallo - Danke - du bist der Beste! Das wars!

Bei der Einzel PDF Erstellung springt er immer von dem aktuellen Datensatz, den ich gerade drucke, zum Ersten im Formular. Gibt es auch hier eine Lösung, dass er beim aktuellen stehen bleibt?

Folgend der Code

Private Sub PDF_erstellen_Click()

Dim Berichtsname As String
    Dim BerichtZusatz As String
    Dim BerichtZusatz2 As String
   
    Berichtsname = Me!Inventarnummer
    BerichtZusatz = Me!Kundennr2
    BerichtZusatz2 = Me!Prüfdatum
   
   
    ' ------------------------------------------------------------------
    ' neu
    If Nz(Datensatz_id_fuer_Bericht, 0) > 0 Then
        Me.Filter = "ID_Prüfprotokoll = " & Datensatz_id_fuer_Bericht
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
   
                 
    DoCmd.OutputTo acOutputForm, "frm_Kd_Dat_Prüfprotokoll_KFM_DFM", acFormatPDF _
                 , "D:\" & Berichtsname & "_" & BerichtZusatz & "_" & Format(BerichtZusatz2, "yyyymmdd") & ".pdf"

    ' ------------------------------------------------------------------
    ' neu
    Me.Filter = ""
    Me.FilterOn = False
    ' ------------------------------------------------------------------
End Sub

[bahasu]

Hi,

vorstellbar sind mehrere Lösungswege:
Bitte als erstes ausprobieren:

Stell die Filterbedingung im Bericht in das Ereignis "Beim Öffnen:

Private Sub Report_Open(Cancel As Integer)
    If Nz(Datensatz_id_fuer_Bericht, 0) <> 0 Then
        Me.Filter = "ID_Prüfprotokoll = " & Datensatz_id_fuer_Bericht
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If


Wenn das nicht hilft, kommen ein paar weitere Zeilen für das Zurückspringen auf den alten Datensatz hinzu.

Harald

[kingwambi]

Hallo - ich hätte es versucht - hat nicht geklappt. Ev hab ich auch was falsch gemacht. Wenn es für dich OK ist hätte ich eine Testdatei angehängt. Es geht darum wenn ich im Formular den PDF Knopf drücke soll er auf dem ausgewählten Datensatz stehen bleiben. Wäre super wenn du was finden würdest. Danke

[Anhang gelöscht durch Administrator]

[bahasu]

Hi,

kein Fehler von Dir!

Ich hatte vergessen, dass Du keinen Bericht verwendest. Sorry.

In der Sub "PDF_erstellen_Click" sind zwei Zeilen hinzugekommen:
    ' diese Zeilen kamen am 05.09.2013 hinzu
    Me.RecordsetClone.FindFirst "ID_Prüfprotokoll = " & Datensatz_id_fuer_Bericht
    Me.Bookmark = Me.Form.RecordsetClone.Bookmark

Siehe Anhang.

Harald

[Anhang gelöscht durch Administrator]