Guten Tag,
ich nutze folgenden Code, zum Wechseln des Datensatzes zum nächsten Datensatz:
Private Sub cmdGoToNext_Click()
On Error GoTo Err_cmdGoToNext_Click:
DoCmd.GoToRecord , , acNext
Exit_cmdGoToNext_Click:
Exit Sub
Err_cmdGoToNext_Click:
MsgBox Err.Description
Resume Exit_cmdGoToNext_Click
End Sub
Ich frage mich, ob man diesen Code nicht etwas abkürzen könnte?
Frage: ist die letzte Anweisung
Resume Exit_cmdGoToNext_Click
nicht überflüssig? Die Prozedur wird doch am Ende so oder so beendet.
Dann könnte man doch den ganzen Exit_cmdGoToNext und Exit Sub Quatsch weglassen (habe ich im Folgenden auskommentiert), und den Code kürzen auf folgende Zeilen:
Private Sub cmdGoToNext_Click()
On Error GoTo Err_cmdGoToNext_Click:
DoCmd.GoToRecord , , acNext
'Exit_cmdGoToNext_Click:
'Exit Sub
Err_cmdGoToNext_Click:
MsgBox Err.Description
'Resume Exit_cmdGoToNext_Click
End Sub
Ist das so korrek, oder übersehe ich da was?
Vielen Dank im Voraus für Eure Mithilfe!
|