| |
Fortgeschrittene ProgrammierungFehlerbehandlung mit Select Case MsgBox | | | Autor: Dirk.B | Datum: 29.01.10 12:43 |
| Hallo zusammen!
Ich bin gerade dabei, mir eine Fehlerbehandlung mit Select Case MsgBox ... zu erstellen.
Es geht um folgendes:
- Es wird ein Verzeichnis durchlaufen.
- Aus dem Verzeichnis werden Dateien geladen.
- Es könnte eine fehlerhafte Datei einen Laufzeitfehler mit der Beschreibung
"Referenz auf sich selbst" auslösen, den ich entsprechend verarbeiten möchte.
- Wird dieses erkannt, soll mir an dieser Stelle eine MsgBox weiterhelfen.
- Beim ButtonClick auf Abbrechen sollen Einstellungen zurückgesetzt werden und das
Programm beendet werden.
- Beim ButtonClick auf Ignorieren, soll das Programm mit der nächsten Datei fortfahren.
Do While Dateiname <> ""
ThisDrawing.SetVariable "ATTMODE", 0
'Dim InsPkt(2) As Double
InsPkt(0) = 0: InsPkt(1) = 0: InsPkt(2) = 0
On Error GoTo MyErrorHandler2 '###Fehlerbehandlung
'###beim Einfügen einer Datei könnte hier der Laufzeitfehler ausgelöst
' werden
Set BlockDef = ThisDrawing.ModelSpace.InsertBlock(InsPkt, ImportPfad & _
Dateiname, 1, 1, 1, 0)
BlockDef.Update
...
...
Dateiname = Dir
If ProgressBar1 + 1 > ProgressBar1.Max Then Exit Do
ProgressBar1 = ProgressBar1 + 1
DoEvents
Loop
ProgressBar1.Value = 0
NewDoc.Close
With ThisDrawing
.Application.Preferences.Display.GraphicsWinModelBackgrndColor = color2
.SetVariable "ATTMODE", 1
.WindowState = acMax 'Standardgröße
End With
Me.Caption = "Durchlauf beendet"
Me.CmbOK.SetFocus
Exit Sub
MyErrorHandler2:
If Err.Description = "Referenz auf sich selbst" Then
'###MsgBox Dateiname & "! " & "Fehlerhafte Datei, bitte prüfen", 64, "Hinweis"
Select Case MsgBox(Dateiname & "! " & "Fehlerhafte Datei, bitte" & _
"prüfen", _
vbInformation + vbRetryCancel, "Hinweis")
Case vbCancel '###Abbrechen / Einstellungen zurücksetzen
NewDoc.Close
With ThisDrawing
.Application.Preferences.Display.GraphicsWinModelBackgrndCo_
lor = color2
.SetVariable "ATTMODE", 1
.WindowState = acMax
End With
Exit Sub
Case vbRetry '###Ignorieren / it der nächsten Datei fortfahren
' ????
Resume Next '####dieses funktioniert noch nicht????
End Select
End If
End Sub Das mit dem abbrechen funktioniert.
Was muß ich aber beim Ignorieren / Fortfahren ändern????
Vielen Dank im voraus für Eure Hilfe.
VG
Dirk | |
| 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 |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|