Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Access VBA Leerzeichen in Tabelle entfernen

Frage Entwicklung VB for Applications

Mitglied: e2Mario

e2Mario (Level 1) - Jetzt verbinden

05.10.2009 um 11:28 Uhr, 10642 Aufrufe, 2 Kommentare

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
Mitglied: Biber
05.10.2009 um 12:59 Uhr
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:
01.
 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
Bitte warten ..
Mitglied: e2Mario
05.10.2009 um 13:18 Uhr
Super danke dir - Frage gelöst!!!!

.... so einfach kann es sein, wenn man´s weis
Bitte warten ..
Neuester Wissensbeitrag
Heiß diskutierte Inhalte
Zusammenarbeit
Als Administrator im Großraumbüro (30)

Frage von Dopamin85 zum Thema Zusammenarbeit ...

Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...