VB 6.3-Frage

Computer: Software & Programmierung Visual Basic
#1

Moin,

ich habe eine Frage zu den folgenden beiden Ausdrücken aus VB:

Private Sub btn_star_Click()
On Error GoTo Err_Star_Click
export_csx Me.Position, False

Exit_Star_Click:
Exit Sub

Err_Star_Click:
MsgBox Err.Description
Resume Exit_Star_Click

End Sub

Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click
export_csx Me.Position, True

Exit_Befehl31_Click:
Exit Sub

Err_Befehl31_Click:
MsgBox Err.Description
Resume Exit_Befehl31_Click

End Sub

Wo ist der Unterschied zwischen den beiden, abgesehen von der Befehlsbezeichnung? Ich sehe keinen, aber es muss einer da sein, weil die Ergebnisse dieser beiden Befehle erheblich voneinander abweichen.

Zur Erläuterung: es handelt sich um die „Event Procedures“ zweier Buttons. Jeder Button veranlasst den Export von Daten aus einer AccessDB nach Excel. Ergebnis sind zwei fundamental verschiedene Excel-Dateien.

Vorab vielen Dank für Antworten.

Gruß,

Florian

#2

Hallo,

ich sehe nur einen Unterschied, wenn auch einen wesentlichen.

Private Sub btn_star_Click()
On Error GoTo Err_Star_Click
export_csx Me.Position, False

Exit_Star_Click:
Exit Sub

Err_Star_Click:
MsgBox Err.Description
Resume Exit_Star_Click

End Sub

Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click
export_csx Me.Position, True

Exit_Befehl31_Click:
Exit Sub

Err_Befehl31_Click:
MsgBox Err.Description
Resume Exit_Befehl31_Click

End Sub

an die Funktion Export wird einmal True, ein mal False übergeben. Je nachdem, was da in Export steht, wird u.U. ein ganz anderes Programm ausgeführt.

Gruß, Rainer

#3

Hallo Rainer,

da hab ich mal wieder den Wald vor lauter Bäumen nicht gesehen! Danke für den Tipp. Das war genau der Hinweis, den ich brauchte.
Macht zwar meine jetzt zu lösende Aufgabe etwas schwerer, aber ich habe wenigstens den Ansatz. (Klingt jetzt sehr nach Schule, ist aber Job, kein Schummeln :wink: ).

Vielen Dank und *!

Gruß,

Florian