| |
VB & DatenbankenReplace-Methode in Access | | | Autor: vman | Datum: 07.01.05 23:38 |
| Hallo zusammen,
ich arbeite an einem Projekt, wo ich bestimmte Daten mittels SQL auswerten muß. Das stellt soweit kein Problem dar, aber ich muß bestimmte Daten, die identisch sind, aber ein anderes Format haben, erst in ein gleiches Format "pressen", bevor ich SQL-Statements darauf anwenden kann. Ich habe die Daten in Excel-VBA mit der Replace-Methode auf das gewünschte Format bringen können, aber in Access will mir das nicht gelingen.
Ich poste mal den Code sowie die Rohdaten und die konvertierten; vielleicht hat eine/einer eine Idee, die das Problem beheben könnte.
Sub ersetze()
Dim variable As String
Dim i As Integer
i = 2
variable = Cells(i, 1)
Do Until variable = ""
variable = Left(variable, InStr(1, variable, "\", vbBinaryCompare))
variable = Replace(variable, "-", "", , , vbBinaryCompare)
variable = Replace(variable, "\", "", , , vbBinaryCompare)
variable = Replace(variable, " ", "", , , vbBinaryCompare)
Cells(i, 1) = variable
i = i + 1
variable = Cells(i, 1)
Loop
End Sub Die Daten in der unbearbeiteten Fassung sehen so aus:
8-94902-00000-23863164-7\883
So sehen sie nach Abarbeiten des obigen Codes aus und das ist das Format, das sie auch haben müssen:
89490200000238631647
Ich weiß nicht, wie ich in Access die Felder anwählen muß, um sie bearbeiten zu können; wenn jemand eine Idee hat, würde ich mich freuen, sie zu hören.
Dann habe ich noch das Problem, daß die Datenbank eine Fehlermeldung bringt, wenn ich sie auf ein anderes Netzlaufwerk kopiere, da dann der in der DB angegebene Pfad nicht mehr stimmt. Ich kann das zwar manuell ändern, aber gibt es einen Befehl/eine Möglichkeit, das zu umgehen, daß ich den Pfad manuell ändern muß?
Danke im voraus und Gruß,
Alex. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|