e2mario
Goto Top

Access VBA Leerzeichen in Tabelle entfernen

Hallo zusammen,

kann mir jedmand bei nachstehendem "Problem" helfen.

Ich habe eine Access Tabelle (tmp_juhu) in der im Feld (Bezeichnung) am Ende des Textes unzählige Leerzeichen angehängt sind.
Hierzu habe ich mir folgenden Code organisiert

Public Function TrimExtended(ByVal strReplace As Variant)
Dim i As Integer
If IsNull(strReplace) Then Exit Function
strReplace = Trim(strReplace)
i = InStr(1, strReplace, Space(2))
While i > 0
strReplace = Left(strReplace, i - 1) & Mid(strReplace, i + 1)
i = InStr(1, strReplace, Space(2))
Wend
TrimExtended = strReplace
End Function

Wie kann ich nun den Code auf die Tabelle [tmp_juhu].[Bezeichnung] anwenden?
mit
TrimExtended ([tmp_juhu].[Bezeichnung])
funitoniert es leider nicht...


DANKE FÜR EURE HILFE! - sorry bin VBA Anfänger

Content-ID: 126453

Url: https://administrator.de/contentid/126453

Ausgedruckt am: 22.11.2024 um 02:11 Uhr

Biber
Biber 05.10.2009 um 12:59:07 Uhr
Goto Top
Moin e2Mario,

die frustrierende Nachricht vorweg - diese Funktion liefern die Redmonder schon standardmäßig mit aus bei jedem Access seit Version 2.0

Bedeutet, Du kannst auch ohne selbst geschriebene Funktion die trailing blanks bei CHAR(n)-Feldern "abschneiden".

In einem SQL-Statement wäre die Syntax:
 SELECT RTrim( tj.Bezeichnung) as Bezeichnung from tmp_juhuu tj

In diesem Klicki-Bunti-Krams, das sich "Abfrage-Entwurf" oder "Entwurfsansicht" glaubt nennen zu dürfen heißt es statt "RTrim( feld)" übersetzt ins Unterschleißheimerische dann "RGlätten(feld)".

Deine eigene Funktion kannst Du aber genauso verwenden---> setze statt "Trim(bezeichnung)" dann eben "TrimExtented(bezeichnung) " ein.

Wenn die Daten in der tmp_juhuu-Tabelle "Dir gehören", d.h. es kein weiterverarbeitendes Programm gibt, das diese Bezeichnung als CHAR(n)-Feld in fester Länger benötigt, dann ändere es EINMAL in Deiner Tabelle statt in jeder Query.

Also einmalig ein "UPDATE tmp_juhuu Set Bezeichnung = RTrim(bezeichnung)" und aus ist es mit dem täglichen Eindampfen.

Grüße
Biber
e2Mario
e2Mario 05.10.2009 um 13:18:58 Uhr
Goto Top
Super danke dir - Frage gelöst!!!!

so einfach kann es sein, wenn man´s weis face-smile