Hallo liebe Gemeinde bin da gerade über etwas gestolpert:
Bei einer Fehlerbeahndlung ist mir aufgefallen, dass er den selben Fehler mal abfängt mal auf nen Poller läuft.
Hier der Code der nicht immer funktioniert :
For i = Lbound(vDatabases) To Ubound(vDatabases)
strPath = vDatabases(i)
On Error Goto NextDatabase
Set dbCurrent = s.GetDatabase(strServer,strPath)
If dbCurrent.IsOpen Then
If CreateDBDocument(dbCurrent, dbThis) Then
Print Cstr(i) + " Datenbanken bearbeitet"
End If
End If
NextDatabase :
Next
und hier der Code der funktioniert :
For i = Lbound(vDatabases) To Ubound(vDatabases)
strPath = vDatabases(i)
On Error Goto ErrorMark
Set dbCurrent = s.GetDatabase(strServer,strPath)
If dbCurrent.IsOpen Then
If CreateDBDocument(dbCurrent, dbThis) Then
Print Cstr(i) + " Datenbanken bearbeitet"
End If
End If
NextDatabase :
Next
ErrorMark :
Resume NextDatabase
Warum klappt es bei der 2. Version und bei der ersten nur einmal ???