PDA

Vollständige Version anzeigen : bei click ausdrucken und in anderem feld datum aktualisieren


ichhoffe
09.08.2001, 13:53
ich möchte gerne, das wenn ich in meiner eingabemaske auf meinen druckbutton clicke, das gleichzeitig in meinem feld Druckdatum das datum des ausdrucks gespeichert wird.

das ganze sieht bis jetzt so aus:

Private Sub Druck_Werkstattauftrag_Click()
On Error GoTo Err_Druck_Werkstattauftrag_Click

Dim stDocName As String

stDocName = "Druck Werkstattauftrag"
DoCmd.OpenReport stDocName, acPreview

Exit_Druck_Werkstattauftrag_Click:
Exit Sub

Err_Druck_Werkstattauftrag_Click:
MsgBox Err.Description
Resume Exit_Druck_Werkstattauftrag_Click

End Sub

bisher wid also nur gedruckt. ich hab aber keine ahnung wie ich das mit dem datumsfeld hinkriege.

ich wär für ein bischen hilfe echt super dankbar.

Jochum Rainer
09.08.2001, 14:01
Hallo!

me!Druckdatum=date

Gruesse
Rainer Jochum

ichhoffe
09.08.2001, 14:20
vielen dank, aber wo soll ich das denn hinschreiben????

Jochum Rainer
09.08.2001, 14:27
Hallo!

Wenn du das Datum direkt beim Click auf den Druckbutton wegschreiben willst hier:

stDocName = "Druck Werkstattauftrag"
DoCmd.OpenReport stDocName, acPreview
me!Druckdatum=date
....

Gruesse
Rainer Jochum