|
Fehler gefunden,
'Fehler Abfangroutine 2
If rs.RecordCount = 0 Then
intWahl = MsgBox("Ihr Suchkriterium wurde nicht gefunden.", vbRetryCancel, "Microsoft Access")
End If
If intWahl = vbRetry Then
GoTo InputBoxSprungmarke
Else
End If
bei Else darf nicht Exit Sub oder Sendkeys drinne stehen, aber ich muss über Else ein Exit Sub einfügen. Warum nutzt er den Befehl überhaupt, selbst wenn Treffer vorhanden sind?
|