vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Ereignis im Ereignis 
Autor: Nebia
Datum: 16.09.02 18:45

Habe ein kleines VB Programm in Access geschrieben um ein Formular zu automatisieren.
Das Prog enthält eine Anweisung welche die Datensätze im Formular alle 5 Sekunden wechselt und eine zweite welche überprüft ob sich im Datensatz 2 Felder gleichen und wenn ja einen Druckauftrag sendet.
Problem ist aber solange das eine läuft kann das andere nicht ausgeführt werden. Das Programm erkennt zwar das sich zwei Felder gleichen aber wenn der Druckauftrag starten soll kommt die Meldung das das eine nicht ausgeführt werden kann solange das andere läuft.
Ist aber nur bei einem Druckauftrag. Gebe ich anstelle des Druckauftrag im Code, MsgBox ein wird dieser ausgeführt.
----------------------------------
Sub Form_Load()
Me.TimerInterval = 2000
End Sub
--------------------------------

Private Sub Form_Timer()
If Me.Kontrollkästchen1 = True Then
If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
MsgBox "Ende"
Me.Kontrollkästchen1 = False
Else
DoCmd.GoToRecord , , acNext
End If
End If
End Sub
------------------------------
Private Sub Form_Current()
Dim stDocName As String
If info1 = Date Then
stDocName = "HP Color Inkjet CP1700 "
DoCmd.PrintOut (acSelection)
End If
End Sub
-----------------------------------
Habe schon ein If Block im If Block versucht...nichts , immer der selbe Fehlerbericht.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Ereignis im Ereignis106Nebia16.09.02 18:45

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel