Office: (Office 2016) Problem bei der DLookup Funktion

Hallo, ich habe ein Problem mit der DLooup Funktion und ich komme einfach nicht auf die Lösung.

Ich habe eine Form mit einem Edit-Feld und einem Button.
Nun soll ich beim Klicken den Inhalt in eine bestimmte Tabelle hinzufügen.
Vorher soll natürlich überprüft werden, ob der Wert bereits vorliegt.

Meine Funktion sieht so aus:

Code:

Die Tabelle heißt: Addresses
Das Attribut, in welchem die Strings vorliegen, die überprüft werden sollen heißt "Address".
Das Textfeld, welches den neuen Namen beinhaltet heißt "edt_AddAddress".

Alles andere Funktioniert in dieser Funktion bis auf diesen Teil:

Code:

Ich bekomme folgende Fehlermeldung:

"
Der Ausdruck, den Sie als Abfrageparameter eingegeben haben, hat folgende Fehler verursacht: 'Eingegebener Inhalt des Textfeldes'
"

Ich hoffe Ihr könnt mir hier weiterhelfen!

:)

 

Zum einen ist die Adresse Text, insofern müssen da Hochkommas hin.
Zum anderen würde ich nicht Dlookup verwenden, sondern Dcount.

Code:

 

Vermutlich fehlen hier nur Anführungszeichen, die den String maskieren müssen:

Code:

 

Ohje, die Lösung war anscheinend so einfach.
Habe erst heute angefangen mit VBA, wieder was dazu gelernt mit dem Strings und den Anführungszeichen.

@fredfred

Ich habe bei der Recherche dazu verschiedenes gelesen. Der Großteil war für DLookup, da Count unnötig die Datensätze zählt.

 

Ich nehme mal an, dass das keine große Rolle spielt.
Andererseits könnte ich dir aber auch nicht argumentativ begründen, warum ich zu DCount neige. *Smilie
Aber wenn du dazu recherchiert hast, dann ziehe ich meinen Hinweis mit gesenktem Haupte zurück. *tongue.gif*

Merkwürdigerweise hast du es ein paar Zeilen tiefer, richtig bei der Bildung des SQL-Strings.

Setze bei der Execute-Methode noch ein dbfailonerror als Option dazu.
Grundsätzlich kann es auch nicht schaden ein Fehlerhandling in die Prozedur zu bauen.

 

Hallo,

auch wenn das Thema eigentlich schon als abgeschlossen gekennzeichnet ist, möchte ich noch eine andere Lösungsmöglicheit aufzeigen, die vielleicht auch eine Alternative wäre.

Man könnte das Anfügen auch in der SQL-Anweisung selber überprüfen und dann mit der RecordsAffected Eigenschaft abfragen, ob ein DS hinzugefügt worden ist oder nicht:
Code:

Der Platzhalter {0} würde vorher mit Replace() durch den konkreten Wert von edt_AddAddress ersetzt werden.

Ulrich

 

Prüfung DLookup vs. DCount: Beides geht natürlich. DLookup wird schneller sein, wenn sich der gesuchte Wert in den ersten Datensätzen befindet.

Weitere Lösungsmöglichkeit mit nur einem Tabellenzugriff (Prüfen und Schreiben):
Code: