Laufenden Prozess abbrechen

[aurora_mk]

Ich habe folgendes Problem:
Gibt es einen Befehl, den ich in den Quellcode einbauen kann, der den gesamten Prozess(also das, was z.B. ein CommandButton oder so auslöst) stoppen kann?

Danke im Voraus!

 

[Jacka]

Hi!

An sich geht das, aber das Programm muss ja wissen, wann es abbrechen soll.
Also benötigst du schon eine Bedingung, die erfüllt werden muss damit abgebrochen wird.
Wenn bei einem Fehler abgebochen werden soll, geht das mit On Error.
Z.B.:

Private Sub Command1_Click()
   Dim ...  ' Variablen-Deklarationen

   On Error GoTo Err
       ..... ' normaler Ablauf

   Err:
      Exit Sub  ' wenn ein Fehler auftritt beendet er das Programm

End Sub

Oder du machst das mit einer If-Anweisung:

Private Sub Command1_Click()
   Dim ...  ' Variablen-Deklarationen

   If ... Then
       ..... ' normaler Ablauf
   Else 
      Exit Sub  
   End If
End Sub

Viele Grüße,
Jacka