Wert in einem JA/NEIN Feld in einer Tabelle ändern

12/06/2009 - 16:22 von Hans-J.Bacher | Report spam
.Guten Tag liebe Accessgemeinde
Win XP SP2/ A97 Pro.

in einem Bericht habe ich beim Schließenereignis folgenden Code stehen:

Private Sub Report_Close()
Dim db As DATABASE
Set db = CurrentDb
CurrentDb.Execute "UPDATE Belegungsdaten SET Belegungsdaten.bolGedruckt = -1
" _
& "WHERE (((Belegungsdaten.BelNr)= " & BelNr & ")); "
Forms.frm_Umsatzberichte.SetFocus
Forms.frm_Umsatzberichte!lsfGedruckt.Requery
Forms.frm_Umsatzberichte!LfFiE.Requery
Forms.frm_Umsatzberichte!lsfGedruckt.Enabled = True
Forms.frm_Umsatzberichte!lsfGedruckt.Requery
Forms.frm_Umsatzberichte!lsfMA.Requery
End Sub

Es handelt sich bei diesem Bericht um Rechnungen die gedruckt werden sollen.
Obiger Code sorgt dafür, daß der gedruckte Bericht nicht mehr in der zu
druckenden Berichte Liste (LfFiE) zu sehen ist sondern im Listenfeld der
gedruckten berichte erscheint (lsfGedruckt)
Wenn ich nun diesen Bericht nur zur Kontrolle in der Seitenansicht öffne und
danach wieder schließe, wird logischer weise auch dieser Code ausgeführt.
Ich suche jetzt nach einem Weg, diesen Code nur ausführen zu lassen wenn er
tatsàchlich gedruckt wird und danach geschlossen.

Habt ihr mir die eine oder andere Idee?

Gruß aus dem sonnigen Bad Liebenzell
Hans
 

Lesen sie die antworten

#1 Stefan Dase
12/06/2009 - 17:12 | Warnen spam
Hallo Hans-J.!

(...)
Wenn ich nun diesen Bericht nur zur Kontrolle in der Seitenansicht öffne und
danach wieder schließe, wird logischer weise auch dieser Code ausgeführt.
Ich suche jetzt nach einem Weg, diesen Code nur ausführen zu lassen wenn er
tatsàchlich gedruckt wird und danach geschlossen.



Dein Betreff ist etwas irreführend. Es gab vor einigen Jahren mal eine
àhnliche Frage. Zum Thema: Erkennen, ob ein Report gedruckt wurde, kam
damals folgendes Zitat:

From the Access developer's website:
Detecting Print from Preview
Vadim Frenkel, Xenergy, Inc. of Burlington, Massachusetts USA.

RE: Print Preview Mode vs. Print Mode: Which One Did the User Open the
Report With? by Mike Divis.

How would I determine, in the code associated with a Report, whether the
user opened the Report in Print Preview mode vs. in Print mode?
Use report Activate and Deactivate events to detect Preview Mode.
Activate/Deactivate doesn't happend in Print Mode.
There 's also way to detect Print from Preview. MS Knowledge Base article
Q154894 describes it, but example there is wrong! Here is my version:

Dim Printing As Integer
' Use global if you want to test from subreport

Private Sub Report_Activate()
Printing = -1
End Sub

Private Sub Report_Deactivate()
Printing = 0
End Sub

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)
Printing = Printing + 1
End Sub

Private Sub Report_Close()
If Printing >= 1 Then
' This only works if report was printed, including print from preview!
End If
End Sub

Ich hoffe, das hilft dir weiter?!
Stefan

Ähnliche fragen