Hallo zusammen
wei kann ich die Bildschirmausgabe eines formulares unterdrücken ?
Gruß
Peter
Ist es das?
Schaltfläche öffnet das Formular mit Namen „Unsichtbar“ als verstecktes Formular (wenn schon geöffnet, kann man was machen…)
Gruß
Stephan
Private Sub Befehl1_Click()
'Unsichtbar = Dein Formularname
If SysCmd(acSysCmdGetObjectState, acForm, „Unsichtbar“) = acObjStateOpen Then
MsgBox „Ist bereits geöffnet!“
'und zum Beispiel folg. machen:
'DoCmd.Close acForm, „Unsichtbar“
Exit Sub
Else
'Formular versteckt öffnen
DoCmd.OpenForm („Unsichtbar“), , , , , acHidden
End If
End Sub
Nicht ganz
ich hab folgendes Problem
stDocName = „frmZahlungenNachZeitraumDruck“
DoCmd.OpenForm stDocName, acNormal
DoCmd.PrintOut
DoCmd.Close
ich möchte obenstehendes formular drucken. Was ich da oben geschrieben hab funtzt auch. Leider hab blinckt es aber kurz auf dem Bildschirm. Es muss doch ne Möglichkeit geben die Bildschirmausgabe vorher auszuschalten und nacher wieder an ?
wie z.B. DoCmd.SetWarnings = false oder so
Gruß
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Peter,
so geht es:
DoCmd.Hourglass False
Application.Echo False
ABER ACHTUNG: Es werden auch KEINE Warnmeldungen mehr angezeigt!!! (Darum - quasi als Hinweis - die Sanduhr)
Oder so?
Ich streub’ mich ja, Formulare zu drucken… (Gerade bei Zahlungen nach Zeitraum wäre es besser, sich nach gruppierten Berichten umzusehen…)
Vielleicht geht’s ja behelfsmäßig so, auch wenn’s ein bißchen gefaked ist (bei mir blinkt da nix mehr):
Private Sub Befehl1_Click()
DoCmd.Echo False
DoCmd.OpenForm („frmZahlungenNachZeitraumDruck“), acNormal, , , , acHidden
Forms!frmZahlungenNachZeitraumDruck.SetFocus
DoCmd.PrintOut
DoCmd.Close acForm, „frmZahlungenNachZeitraumDruck“
DoCmd.Echo True
End Sub
Danke erstmal jetzt funktioniert es. Ich benutze Übrigens keinen Report weil ich eine Datenbankstruktur von Dbase Dateien vorgegeben hatte
Personalnummer
Debit
Credit
Ich muss nun Immer das Saldo zu einem bestimmten Zeitpunkt ermitteln. Da ich nirgenwo eine fortlaufende Summe habe ist es mir nicht gelungen das über einen Report zu realiesieren (Ich hab das über VBA gemacht.
Gruß
Peter