Office: (Office 2013) Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument

Frohes neues ...

ich bin gerade am durchdrehen.

Folgender Code läuft auf einmal nicht mehr. Ich habe den auch in andern Modulen, selbst da läuft er nicht mehr. Er ist die ganze Zeit gelaufen. In allen Modulen (war jeweils nur Tabellennamen geändert).

Ich hatte zwei Zeilen hinzugefügt, seit dem läuft er in keinem Modul mehr. Auch nach löschen der zwei Zeilen.

Die Fehlermeldung kommt in der Zeile:
If Asc(Left(rs("WortText"), 1)) = 63 Then
Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument

Irgendein Verweis verloren oder was weiß ich?

Code:

:)

 

Wenn man VBA-Funktionen auf ein Tabellenfeld loslässt, sollte man prüfen, ob das Tabellenfeld auch NULL-Inhalte enthalten kann und wie die Funktionen darauf reagieren würden.

 

Hallo,

Asc meckert, wenn sein Argument ein Leerstring ("") oder NULL ist. Lass es weg und mach nur einen Stringvergleich:
Code:

oder so
Code:

 

Nachfolgend nochmal der ganze Code mit einigen Optimierungen:
Code:

 

Ja was soll ich sagen ...
der Fehler ist wie immer vor dem Monitor.
Erlaube mir heute mal den Vollpfosten des Tages an mich selbst.

Leerzeichen an der ersten Stelle hatte ich vor dem Recordset mit einer Abfrage entfernt oder auch leere Datensätze. Aus mir einem unbekannten Grund hatte ich die dazugehörigen Abfrage auskommentiert *biggrin.gif*

Ich gelobe Besserung ... oder jedenfalls das nächste mal erst noch eine Tasse Kaffee mehr zu nehmen.

Danke euch ...

 

\@readonly

Verhält es sich etwas seltsam:

Dein Vorschlag:
Code:

ich habe an der Stelle:
Code:

Mir ist bei einigen Datensätzen aufgefallen, das am Anfang etwas steht, aber nicht sichtbar ist.
Also hatte bei diesen seltsamen Datensätze das erste Zeichen als ASC ausgeben lassen. Hier bin ich eben auf 63 und 43 gekommen. Wenn ich jedoch das passende Zeichen an dieser Stelle ersetzen lasse, ist nix passiert.
Erst durch Code:

hat es dann funktioniert. Verstanden habe ich es nicht, aber es funktioniert nun.

 

Wie äußert sich das genau? Werden einige oder alle nicht erkannt?

Vielleicht könntest du eine mdb hochladen mit einigen Beispieldatensätzen.

Funktionieren die folgenden Alternativen auch nicht:
Code:

oder
Code:

 

\@readonly

Tach auch,

Alle.

*eek.gif* Zu spät, denn inzwischen sind alle Datensätze entsprechendbereinigt und es kommt derueit nicht vor. Was sich aber täglich ändern kann.

Bei deinen Beispielcode Nr 1, der ist auf jeden Fall nicht gelaufen.
Beispiel 2 bin ich mir nicht sicher ob ich das nicht auch hatte *frown.gif* Wenn ich es hatte, dann ging es auch nicht. Sonst hätte ich es ja gelassen.

Aber danke dir.

 

Hallo Lupus,

an und für sich werden in deinem gezeigten VBA-Code keine leeren WortText-Tabellenfelder bearbeitet, also könntest du diese leeren bereits beim Erstellen des Recordsets herausfiltern, und somit deinen alten VBA-Code verwenden, ohne einen Laufzeitfehler 5 auszulösen:
Code:

Mich würde aber trotzdem interessieren, warum meine Lösungen nicht funktionieren. Chr ist das Gegenstück zur Asc-Funktion:

? Asc("?") = Asc( Chr$(63) )
Wahr

Falls also nochmal solche Daten anfallen, wäre es nett von dir, wenn du einige Original-Datensätze in einer mdb hier reinstellen würdest, damit ich die mal genauer unter die Lupe nehmen könnte.