Automatisierungsfehler

19/04/2011 - 15:21 von Lothar Geyer | Report spam
Ich bekomme auf einem Rechner einen Automatisierungs-Fehler, und zwar
bei folgenden Statements:

Public Sub checkAndDisplayAlarm()
Dim tF As Form

actAnzAlarmForms = 0
For Each tF In Forms
If TypeOf tF Is frmAlarm Then actAnzAlarmForms = actAnzAlarmForms + 1
Next tF
If actAnzAlarmForms >= maxAnzAlarmForms Then Exit Sub
...

Der Fehler mit der Nummer 440 kommt in der Zeile For Each tF In Forms.

Da es sich um eine MDI-Anwendung handelt, ist Forms.Count ja immer >= 1.
Woran kann das liegen? Sollte ich evtl. die Runtime neu installieren?

Lothar Geyer
 

Lesen sie die antworten

#1 Heinz-Mario Frühbeis
19/04/2011 - 15:58 | Warnen spam
Lothar Geyer fragte :
Ich bekomme auf einem Rechner einen Automatisierungs-Fehler, und zwar bei
folgenden Statements:

Public Sub checkAndDisplayAlarm()
Dim tF As Form

actAnzAlarmForms = 0
For Each tF In Forms
If TypeOf tF Is frmAlarm Then actAnzAlarmForms = actAnzAlarmForms + 1
Next tF
If actAnzAlarmForms >= maxAnzAlarmForms Then Exit Sub
...

Der Fehler mit der Nummer 440 kommt in der Zeile For Each tF In Forms.

Da es sich um eine MDI-Anwendung handelt, ist Forms.Count ja immer >= 1.
Woran kann das liegen? Sollte ich evtl. die Runtime neu installieren?

Lothar Geyer



Vlt.:
Dim tF as Object

des weiteren:
Du kannst If actAnzAlarmForms >= ... schon *in* der Schleife ausführen.
Ist zwar nicht viel, aber immerhin.

Mit Gruß
Heinz-Mario Frühbeis

Ähnliche fragen