Spook print

Status
Niet open voor verdere reacties.
G

Geertvdb

Gebruiker
Lid geworden
12 jan 2005
Berichten
121
Ik heb jaren geleden een programma gemaakt voor het printen van een rekening van gasten van een camping.
Met veel moeite en hulp van het forum is dat mij als leek gelukt.
Nu doet zich het volgende voor na het printen van de rekening met een kopie komt er een 2de serie uit wanneer de muis bewogen wordt.
Heeft iemand een idee wat de oorzaak is en hoe dit opgelost kan worden.

Private Sub cmdAdfrNota_Click()
DoCmd.Save acForm, "frmadres"
If Me.Dirty Then
Me.Dirty = False
End If
DoCmd.OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
DoCmd.OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
End Sub
 
En vanwaar verdenk je de muisbeweging daarvan?
 
Nadat de rekening is geprint en de muis daarna wordt bewogen komt er een 2de set rekeningen uit die gelijk zijn aan de vorige.
Verder gaat mij kennis niet dan dit te constateren.
 
Je drukt twee rapporten af. Of bedoel je dat niet?
 
Ik denk dat dit meer toeval is, en dus een PEBCAK-probleem.

Want na een print-actie wil je toch verder werken en beweeg je je muis. Dus mij ontgaat de samenhang waarom de muisbeweging de oorzaak is?
 
Laatst bewerkt:
OctaFish, er worden na de opdracht printen 1 origineel en 1 kopie geprint.
dan als je de muis beweegt dan wordt er nogmaals dezelfde set geprint daarna niet meer.

Het is vreemd voorheen werkte het goed en er zijn geen aanpassingen gedaan.
Het enige is dat er nu office 2016 gebruikt wordt en voorheen 2010.
 
Geertvdb zei:
Aar, geen idee maar het treedt op wanneer de muis bewogen wordt.
Klik om te vergroten...
Ik wil echt niet vervelend zijn, maar vanwaar die conclusie? Een muis beweeg je toch altijd om taken achter een computer uit te voeren?
Ik zie ook geen OnMouseMove-achtige functie.

Ik blijf erbij dat dit een PEBCAK-probleem is of een instelling dat hij dubbel afdrukt.
 
Laatst bewerkt:
Ik zie hetzelfde als jij ziet, OctaFish! ;-)
 
Hoe weet je dan dat er geen Mouse procedure loopt op het formulier?
 
Dan zou die code vast wel gegeven zijn, en persoonlijk vind ik sterk als er echt zoiets zou bestaan. Als dat er erin zit, dan moet het wel behoorlijk opvallend zijn.

En anders een leermoment voor de TS om wat meer relevante code te geven.
Ik heb geen glazen bol....
 
We praten hier over Access hier, niet over een flutpakketje als Excel :). Daarnaast ben ik gewend dat vragenstellers zelden complete informatie geven :d.
 
Acces, excel... Who cares.
Het lijkt mij beter om de reactie van de TS af te wachten.
 
Lijkt mij ook. Die zwijgt echter in nogal wat tongen en talen :). Persoonlijk zie ik graag een voorbeeldbestandje, zodat ik e.e.a. kan naspelen.
 
Wat Geert al eens kan doen is een breakpoint in zijn code zetten, en gaan steppen. Dan kan je alvast zien of de code nog door een andere actie wordt opgeroepen en of er nog extra code wordt opgeroepen.
 
Sowieso kan hij beginnen met de dubbele acties er uit te halen; er zit overbodige code in.

Deze variant:
Code: 
Private Sub cmdAdfrNota_Click()
     If Me.Dirty Then Me.Dirty = False
     With DoCmd
          .OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
          .OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
     End With
End Sub

Of dit:
Code: 
Private Sub cmdAdfrNota_Click()
     DoCmd.Save acForm, "frmadres"
     With DoCmd
          .OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
          .OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
     End With
End Sub

Als er óók nog eens een code staat bij een andere gebeurtenis, die deze procedure triggert, dan helpt het dubbel uitvoeren van vergelijkbare code ook niet mee. Overigens heeft de eerste variant mijn voorkeur.
 
En we kunnen ook nog denken dat de muis zijn laatste dagen heeft gehad.

Gr. Cor
 
Allen die gereageerd hebben alvast bedankt!
Ik ga morgen het voorstel van OctaFish proberen
en zal de bevinding mededelen.
 
Ik heb vandaag 16/7 zelf een tijd aan de campingcomputer gezeten en het verschijnsel dubbel printen niet kunnen reproduceren.
Het blijft voorlopig een raadsel.
Dus is het afwachten of het zich opnieuw voordoet.
Wordt hopelijk NIET vervolgd.
Nogmaals een ieder bedankt.

Gr. Geert
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan