[Access] Macro blijft in loop draaien - Client software algemeen

woensdag 26 maart 2014 12:23

Acties:

Bedrijfsprutser on call

Topicstarter

Voor een simpel access programma heb ik een macro die onder andere doet printen en ook 1 die als pdf het betreffende document opslaat.

Het probleem wat ik echter heb is als ik beide macro's op mijn pc uitvoer doen ze het perfect terwijl ik het op een andere pc doe gaat die alle records na om op te slaan. Op mijn pc heb ik de office 365 versie van access terwijl op de andere pc de access viewer geinstalleerd is.

De opslaan macro is als volgt:

code:

Option Compare Database

'------------------------------------------------------------
' mcro_Opslaan
'
'------------------------------------------------------------
Function mcro_Opslaan()
On Error GoTo mcro_Opslaan_Err

    With CodeContextObject
        On Error Resume Next
        If (.Form.Dirty) Then
            DoCmd.RunCommand acCmdSaveRecord
        End If
        If (.MacroError.Number <> 0) Then
            MsgBox .MacroError.Description, vbOKOnly, ""
            Exit Function
        End If
        On Error GoTo 0
        If (.Form.Type = "Hoxx_Order") Then
            DoCmd.OpenReport "rpt_4_Purchase_Order", acViewPreview, "", "[po_id]=" & Nz(.po_id, 0), acNormal
        End If
        If (.Form.Type = "Nextdeal_Order") Then
            DoCmd.OpenReport "rpt_3_Purchase_Order_ND", acViewPreview, "", "[po_id]=" & Nz(.po_id, 0), acNormal
        End If
        If (.Form.Type = "Sales_Order") Then
            DoCmd.OpenReport "rpt_5_Sales_Order", acViewPreview, "", "[so_id]=" & Nz(.so_id, 0), acNormal
        End If
        If (.Form.Type = "Credit_Note") Then
            DoCmd.OpenReport "rpt_10_Credit_Note", acViewPreview, "", "[so_id]=" & Nz(.so_id, 0), acNormal
        End If
        If (.Form.Type = "Factuur") Then
            DoCmd.OpenReport "rpt_6_Sales_Order_NL", acViewPreview, "", "[so_id]=" & Nz(.so_id, 0), acNormal
        End If
        If (.Form.Type = "Proforma") Then
            DoCmd.OpenReport "rpt_7_Proforma", acViewPreview, "", "[so_id]=" & Nz(.so_id, 0), acNormal
        End If
        If (.Form.Type = "Offerte") Then
            DoCmd.OpenReport "rpt_2_Proforma_NL", acViewPreview, "", "[so_id]=" & Nz(.so_id, 0), acNormal
        End If
        If (.Form.Type = "Packing_Slip") Then
            DoCmd.OpenReport "rpt_8_Packing_Slip", acViewPreview, "", "[so_id]=" & Nz(.so_id, 0), acNormal
        End If
        If (.Form.Type = "Hoxx_Order") Then
            DoCmd.OutputTo acOutputReport, "rpt_4_Purchase_Order", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\PO\" & Nz(.po_number, 0) & " " & Nz(.po_supplier, 0) & ".pdf", True, "", 0, acExportQualityPrint
        End If
        If (.Form.Type = "Nextdeal_Order") Then
            DoCmd.OutputTo acOutputReport, "rpt_3_Purchase_Order_ND", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\PO\" & Nz(.po_number, 0) & " " & Nz(.po_supplier, 0) & ".pdf", True, "", , acExportQualityPrint
        End If
        If (.Form.Type = "Sales_Order") Then
            DoCmd.OutputTo acOutputReport, "rpt_5_Sales_Order", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\CI\" & Nz(.so_sales_invoice, 0) & " " & Nz(.so_customer, 0) & ".pdf", True, "", 0, acExportQualityPrint
        End If
        If (.Form.Type = "Credit_Note") Then
            DoCmd.OutputTo acOutputReport, "rpt_10_Credit_Note", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\CI\" & Nz(.so_sales_invoice, 0) & " Credit " & Nz(.so_customer, 0) & ".pdf", True, "", , acExportQualityPrint
        End If
        If (.Form.Type = "Factuur") Then
            DoCmd.OutputTo acOutputReport, "rpt_6_Sales_Order_NL", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\CI\" & Nz(.so_sales_invoice, 0) & " " & Nz(.so_customer, 0) & ".pdf", True, "", , acExportQualityPrint
        End If
        If (.Form.Type = "Proforma") Then
            DoCmd.OutputTo acOutputReport, "rpt_7_Proforma", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\PI\" & Nz(.so_sales_invoice, 0) & " " & Nz(.so_customer, 0) & ".pdf", True, "", , acExportQualityPrint
        End If
        If (.Form.Type = "Offerte") Then
            DoCmd.OutputTo acOutputReport, "rpt_2_Proforma_NL", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\PI\" & Nz(.so_sales_invoice, 0) & " " & Nz(.so_customer, 0) & ".pdf", True, "", , acExportQualityPrint
        End If
        If (.Form.Type = "Packing_Slip") Then
            DoCmd.OutputTo acOutputReport, "rpt_8_Packing_Slip", "PDFFormat(*.pdf)", "z:\Administratie\" & Nz(.Year, 0) & "\PS\" & Nz(.Packing_Slip, 0) & " " & Nz(.so_customer, 0) & ".pdf", True, "", , acExportQualityPrint
        End If
        If (.Form.Type = "Hoxx_Order") Then
            If (Not IsNull(.po_id)) Then
                TempVars.Add "Huidige_id", .po_id
            End If
            If (IsNull(.po_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[po_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Nextdeal_Order") Then
            If (Not IsNull(.po_id)) Then
                TempVars.Add "Huidige_id", .po_id
            End If
            If (IsNull(.po_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[po_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Sales_Order") Then
            If (Not IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", .so_id
            End If
            If (IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[so_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Credit_Note") Then
            If (Not IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", .so_id
            End If
            If (IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[so_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Factuur") Then
            If (Not IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", .so_id
            End If
            If (IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[so_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Proforma") Then
            If (Not IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", .so_id
            End If
            If (IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[so_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Offerte") Then
            If (Not IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", .so_id
            End If
            If (IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[so_id]", .Form.RecordSource), 0)
            End If
        End If
        If (.Form.Type = "Packing_Slip") Then
            If (Not IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", .so_id
            End If
            If (IsNull(.so_id)) Then
                TempVars.Add "Huidige_id", Nz(DMax("[so_id]", .Form.RecordSource), 0)
            End If
        End If
        TempVars.Remove "Huidige_id"
        DoCmd.Close acReport, "rpt_2_Proforma_NL"
        DoCmd.Close acReport, "rpt_3_Purchase_Order_ND"
        DoCmd.Close acReport, "rpt_4_Purchase_Order"
        DoCmd.Close acReport, "rpt_5_Sales_Order"
        DoCmd.Close acReport, "rpt_6_Sales_Order_NL"
        DoCmd.Close acReport, "rpt_7_Proforma"
        DoCmd.Close acReport, "rpt_8_Packing_Slip"
        DoCmd.Close acReport, "rpt_10_Credit_Note"
    End With


mcro_Opslaan_Exit:
    Exit Function

mcro_Opslaan_Err:
    MsgBox Error$
    Resume mcro_Opslaan_Exit

End Function

Ik heb voor het makkelijk te houden de macro even geconverteerd naar vb om het leesbaar te krijgen. Ik weet dat de macro beter geschreven kan worden dus aanbevellingen zijn altijd welkom. Weet iemand hoe ik dit kan oplossen?

-Te huur

zaterdag 29 maart 2014 20:15

Acties:

Rupie

In de titel geef je aan dat de macro in een loop komt, maar hier lees ik in je topic niets over? In je topic zeg je eigenlijk alleen dat access viewer anders werkt dan access uit office 365.

Desktop | Server | Laptop

maandag 31 maart 2014 11:55

Acties:

Yagermeister

Bedrijfsprutser on call

Topicstarter

Sorry dat ik het niet helemaal goed uitleg.

Op mijn eigen pc voorzien van de volledige versie werkt de macro prima en zonder problemen. In de access viewer blijft de macro echter alle records ophalen ofwel loopen en steeds nieuwe records toe voegen tot de pdf.

In plaats dat hij het report dus 1x draait springt die op de 1 of andere manier terug naar het begin van de macro en gaat hij alle records na om ze toe te voegen.

Ik hoop dat dit duidelijker is op deze manier.

[Toevoeging]
Ik heb zojuist nogmaals eens de pdf bekeken waar het report heen schrijft en het valt me op dat de pagina instelling verkeerd is ondanks dat ik deze op gewoon A4 heb ingesteld. Ik weet even niet zeker of het probleem dan ook aan deze macro ligt of dat de viewers de pagina instellingen gewoon keihard negeren.
[/Toevoeging]

[Toevoeging #2]
Ik heb zojuist eens de instellingen op afdrukvoorbeeld gezet in plaats van meteen wegschrijven. Hier krijg ik wel de correcte weergave te zien wat ik goed kan printen/opslaan. Ofwel het lijkt erop dat de macro toch het papier formaat reset of anders instelt

[/Toevoeging #2]

[ Voor 41% gewijzigd door Yagermeister op 31-03-2014 12:03 ]

-Te huur

maandag 31 maart 2014 22:52

Acties:

Lustucru

26 03 2016

Yagermeister schreef op maandag 31 maart 2014 @ 11:55:
In plaats dat hij het report dus 1x draait springt die op de 1 of andere manier terug naar het begin van de macro en gaat hij alle records na om ze toe te voegen.

Eerder lijkt het er op dat de macro herhaaldelijk wordt aangeroepen. Hoe trap je het ding af?

De code is idd vatbaar voor 'optimalisaties'. Liever gezegd: begin van begin af aan. Dit gaat nergens over. Kijk eens naar de instructies 'select-case, if-else-endif, foutafhandeling en het gebruik van eigen procedures. Tamelijk basaal:

Visual Basic:

'aanroep:
verwerkrapport "rapportX","id=7
'procedure die het werk doet:
Sub verwerkrapport(rapportnaam as string, conditieas string)
 drukRapportAf(rapportnaam,conditie)
 slaEenPfop(rapportnaam,conditie)
End sub

regels 88 tot en met 149 zien er imho helemaal bizar uit: eerst doe je veel moeite om iets toe te voegen aan temps.var (?) en als je daar mee klaar bent dan haal je het weer weg?

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland

dinsdag 1 april 2014 10:35

Acties:

Yagermeister

Bedrijfsprutser on call

Topicstarter

De macro wordt aangeroepen door een knop.

Ik heb die macro ooit eens gevonden en heb die meerdere malen gebruikt. Dit is echter de eerste keer dat die lijkt te loopen. Zoals eerder ook aangegeven staat het papier formaat ook verkeerd. Zou dit kunnen dat de macro niet de ingestelde A4 aanhoudt maar zelf kunst en vliegwerk verricht en dan maar iets ermee doet?

Als ik die hele macro naar vba moet omzetten zal ik wel eerst wat werk moeten verrichten aangezien ik daar vrijwel nooit mee gewerkt heb. Bovenstaande is niet meer als een omzetting door access zelf om het hier te kunnen plaatsen.

-Te huur

donderdag 3 april 2014 14:05

Acties:

Yagermeister

Bedrijfsprutser on call

Topicstarter

Ik heb het probleem opgelost. Door een specifieke printer in te stellen pakt hij wel de goede printer en formaat.

-Te huur