From Close

24/10/2007 - 12:31 von Felix Uesbeck | Report spam
Unload = False

Private Sub Form_Unload(Cancel As Integer)
If Unload Then
Close
Else

'Hier wird eine Procedur aufgerufen, auf der Access kein einfluß hat.
Call Form_frm_TWS.eTws.reqExecutions

'Zeit für den Ablauf
Me.TimerInterval = 2000

Cancel = True
End If
End Sub

Private Sub Form_Timer()
Me.TimerInterval = 0
Unload = True
Call Form_Unload(0)
End Sub

Ablauf wenn das Fromular geschossen wird
1. Sub Form_Unload
2. Es wird eine Abfrage an ein anderes Programm gestellt "eTws" (Access
selber verarbeitet nur die empfangendaten)
das über WithEvents antwortet und dazu TimerInterval = 2000 zeit hat.

3. über Form_Timer Call Form_Unload soll das Formular geschossen werden
nur gehtŽs nicht.

Hàtte da jemand eine Lösung zu?

mfg
Felix Uesbeck
 

Lesen sie die antworten

#1 Mark Doerbandt
24/10/2007 - 13:00 | Warnen spam
Hallo, Felix,

Felix Uesbeck:

Unload = False

Private Sub Form_Unload(Cancel As Integer)
If Unload Then
Close
Else

'Hier wird eine Procedur aufgerufen, auf der Access kein einfluß hat.
Call Form_frm_TWS.eTws.reqExecutions

'Zeit für den Ablauf
Me.TimerInterval = 2000

Cancel = True
End If
End Sub

Private Sub Form_Timer()
Me.TimerInterval = 0
Unload = True
Call Form_Unload(0)
End Sub

Ablauf wenn das Fromular geschossen wird
1. Sub Form_Unload
2. Es wird eine Abfrage an ein anderes Programm gestellt "eTws" (Access
selber verarbeitet nur die empfangendaten)
das über WithEvents antwortet und dazu TimerInterval = 2000 zeit hat.

3. über Form_Timer Call Form_Unload soll das Formular geschossen werden
nur gehtŽs nicht.



hast Du denn mal einen Haltepunkt gesetzt? Warum rufts Du denn so
umstaendlich nochmal Form_Unload auf? Da weisst Du doch, dass Du raus
willst.

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen