Office: (Office 2010) Verwendung von Glätten in Wenn-Formel in Abfrage

Hallo,

ich verwende eine Formel in einer Abfrage, die ein Textfeld der Tabelle um "0" ergänzen soll, wenn das Feld nur 10 Stellen hat. Ansonsten soll nichts passieren.

Grundsätzlich ist das als Wenn-Formel ganz einfach:

Code:

Nun habe ich aber gesehen, dass die Eingaben in das Textfeld teilweise leere Zeichenfolgen hinter dem Text enthalten. Deshalb wollte ich die Funktion "Glätten" integrieren:

Code:

Leider funktioniert das nicht und es werden weiterhin die leeren Zeichenfolgen mitgezählt....

Hat hier jemand eine Idee wo der Fehler liegen könnte? Oder kann ich nicht die Funktionen "Glätten" und "Länge" direkt in einer Wenn-Formel hintereinander verwenden?

Schon mal vielen Dank im voraus!!!

:)

 

Moin,
du musst erst glätten und dann zählen:
Code:

maike

 

Überprüfe was Wenn(Glätten(Länge([Textfeld])=10) ergibt...

Besser/Korrekt ist vmtl. Wenn(Länge(Glätten([Textfeld])) = 10

 

Hallo,

hab zwar keine Ahnung wozu sowas gut sein soll, probieren kannst du aber mal:

Code:

 

Ja, in der Tat ist es besser "Länge" vor "Glätten" zu setzen.

Funktioniert so weit im Prinzip auch, allerdings werden nun Textfelder, die ein Leerzeichen am Ende enthalten, beispielsweise so als Ergebnis nach dieser Formel dargestellt:

4205009000*0

Das heißt also, dass im zweiten Teil der Wenn-Formel nicht wirklich geglättet wird, sondern die "0" hinter die Zeichenfolge gesetzt wird (obwohl im ersten Wenn-Teil erkannt wird, dass ohne Leerzeichen die Zeichenfolge 10-stellig ist?!).
Ich möchte aber das Leerzeichen entfernen und die "0" direkt dahinter setzen... Hat hier noch jemand eine Idee was das Problem ist?

Schon mal vielen Dank für die Hilfe!

 

Code:

ergibt bei Test im Direktfenster "10".
Wie lautet denn deine Formel jetzt?
maike

 

Hallo Maike,

da ich diese Wenn-Glätten-Formel in einer Abfrage verwende, kann ich sie nicht im Direktfenster testen, oder doch?

Auf jeden fall habe ich die Glätten-Funktion jetzt einmal in einer neuen Abfragespalte ganz einfach getestet (ohne den Wenn-Teil):

Spaltenname: Glätten([Textfeld])

Und wenn ich nun in die Felder klicke, in denen es im Original-Feld noch Leerzeichen hinter dem Text gibt, dann ist nun immer noch ein Leerzeichen dahinter und nichts geglättet. Wirklich komisch, oder? Ich beziehe mich direkt auf eine Tabelle mit verknüpfter Untertabelle. Das Textfeld, auf das ich mich beziehe, ist in der Untertabelle. Aber daran kann es doch nicht liegen, oder?!? *frown.gif*

 

Woher kommen die Daten ursprünglich? Sicher dass es Leerschritte und nicht irgendwelche nicht darstellbaren Zeichen sind? Kannst Du ein Beispiel hochladen?

 

Moin,

hast du meinen Vorschlag aus #4 ausprobiert?

 

Hallo,

wie du es darstellst, sind nur Zahlen in diesem Feld, dann würde es auch so funktionieren...
Code:

Mit einer Aktualisierungsabfrage würde es beständig sein.
Testtabelle verwenden, nicht das alle Daten verschwunden sind.
Getestet habe ich es, aber man weiß ja nie *Smilie

PS: wie kann man am Ende eines Textfeldes eine leere Zeichenfolgen einfügen?
Die werden doch immer gleich wieder gelöscht!

 

[OT]

Hallo!

... aber nur, wenn du über die Access-Masken einfügst (Formular, Datenblatt).
Über Import, SQL-Anweisungen oder Recordset-Operationen werden Leerzeichen nicht abgeschnitten.


mfg
Josef

 

Hallo Josef,

danke für die Erklärung, sehr nett, diese Möglichkeit blieb mir bis jetzt verborgen!

 

Hallo zusammen,

ja, die Daten wurden einmalig importiert und dabei sind in dieser Spalte, auf die ich mich beziehe, auch Leerzeichen hinter den Zahlen.
Es sind zwar Zahlen, aber ich importiere und verwende sie als Text, da damit nicht gerechnet wird und führende Nullen auch nicht abgeschnitten werden sollen...

Den Vorschlag aus #4 habe ich erst jetzt getestet...:

x: Wenn(Länge([Textfeld])

 

Hallo!

Können die Werte auch mehr als 10 Stellen haben?
Falls das nicht zutrifft wäre das Anhängen relative einfach:
x: Left(Trim([Textfeld]) & "0000000000"; 10)
.. einfach genügend "0" anhängen und die ersten 10 Zeichen verwenden.


Falls auch 11- und mehrstellige vorkommen können, wird eine iif-Prüfung notwendig:
x: iif(Len(Trim([Textfeld]))

 

...habe jetzt über eine Exceleingabe Leerzeichen anfügen können *Smilie
Schon Replace versucht?
Würde auch funktionieren, aber nicht mit & 0
Code:

funktionieren auch mit & 0
Code:

mit Modul:
Code:

in Verbindung mit...
Code:

...funktioniert auch.