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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 126453
Url: https://administrator.de/contentid/126453
Ausgedruckt am: 13.11.2024 um 09:11 Uhr
2 Kommentare
Neuester Kommentar
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:
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
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