Hallo,
ich habe in Tabelle ALK die Spalte Eigentümer1 mit folgender Syntax,
Bahro, Elke,
Hier möchte ich nun die Kommas entfernen und den Name und Vornamen in zwei Spalten in Tabelle Eigentümer abspeichern.
Wer kann mir dabei helfen?
Wie muss ich hier vorgehen?
Danke für Hilfen.
enrico
Hallo,
ich habe in Tabelle ALK die Spalte Eigentümer1 mit folgender
Syntax,
Bahro, Elke,
Hier möchte ich nun die Kommas entfernen und den Name und
Vornamen in zwei Spalten in Tabelle Eigentümer abspeichern.Wer kann mir dabei helfen?
Wie muss ich hier vorgehen?
Hallo,
probiere es mal mit folgender Anfügeabfrage:
INSERT INTO Eigentümer ( Name, Vorname ) SELECT Left([NameVoll],InStr([NameVoll],",")-1), Right([NameVoll],Len([NameVoll])-InStr([NameVoll],",")-1) FROM ALK;
NameVoll ist dabei das Feld mit dem vollständigen Namen mit Schema
aus der Tabelle ALK.
In der Zieltabelle Eigentümer müssen die Spalten Name und Vorname enthalten sein.
Falls noch keine Tabelle Eigentümer existiert, kann man auch mit obigen Textfunktionen eine Tabellenerstellungsabfrage erzeugen.
Viele Grüße, tester
Hallo,
danke Dir für dein Tipp, habe auch so ähnlich den Code unter FAQ 2.20 gefunden und als Aktualisierungsabfrage verwendet.
HAst du noch ne Idee, wie ich die Kommas entferne?
Bahro,
Danke
Entschuldige, habe die drei Kommata am Ende übersehen. So werden auch die ignoriert:
INSERT INTO Eigentümer ( Name, Vorname ) SELECT Left([NameVoll],InStr([NameVoll],",")-1), Mid([NameVoll],InStr([NameVoll],",")+2,Len([NameVoll])-InStr([NameVoll],",")-4) FROM ALK;
tester!
Select Mid(ALK.Eigentümer, 1, Instr(1, ALK.Eigentümer, ', ')-1) as Nachname, Mid(ALK.Eigentümer, Instr(1, ALK.Eigentümer, ', ')+2) as Vorname from ALK
Diese Anweisung setzt voraus, dass zu jedem Eigentümer der Zu- und Vorname getrennt durch Komma+Leerzeichen vorhanden sind.
Hoffentlich hilfts.
EP
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hallo,
habe nochmal ne frage zum zerlegen.
aus FAQ 2.20 kann ich ein zweiteiligen Wert zerlegen, z.B. dorfstraße 14
nun habe ich aber folgenden wert, den ich zerlegen möchte.
15890 Siehdichum OT Pohlitz
soll geteilt werden in, 15890 (Spalte1) und Siehdichum OT Pohlitz (Spalte2).
Vielleicht später noch in,
15890 (Spalte1) und Siehdichum (Spalte2) und OT Pohlitz (Spalte3).
Wie muss ich hier vorgehen?
danke
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
aus FAQ 2.20 kann ich ein zweiteiligen Wert zerlegen, z.B.
dorfstraße 14
was bitte ist mit FAQ 2.20 gemeint?
nun habe ich aber folgenden wert, den ich zerlegen möchte.
15890 Siehdichum OT Pohlitz
= Adresse (ist ein Beispiel)
soll geteilt werden in, 15890 (Spalte1) und Siehdichum OT
Pohlitz (Spalte2).
Spalte1 = mid(Adresse,Start,Schritte)
Spalte1 = mid(Adresse,1,5) 'da die PLZ ja 5 Stellen hat
Spalte2 = mid(Adresse,Start) 'keine Schritte = nimm alles bis zum Ende
Spalte2 = mid(Adresse,7) 'PLZ(5) + 1 Leerzeichen = Start bei 7
Vielleicht später noch in,
15890 (Spalte1) und Siehdichum (Spalte2) und OT Pohlitz
(Spalte3).
Dir ist bekannt, dass man diese Tabellen kostenlos im Internet runterladen kann, genau so aufgeteilt, wie du es benötigst!?
Wie muss ich hier vorgehen?
den VBA - Editor starten, F1 drücken und dir die Funktion MID mal genau ansehen…
Grüße aus Raben Steinfeld (bei Schwerin)
Wolfgang
(Netwolf)
Hallo,
das hat super funktioniert, danke.
Bei meinen Straßen und hausnummern, habe ich nun unterschiedliche varianten.
Wie kann ich diese alle einzelnen erkennen lassen, damit die richtige zerlegung stattfindet?
Funktioniert bisher, Dorfstr. 14, zuzerlegen.
Aber was ist, wenn Straßenname aus zwei Worten betseht?
Beispiel, zum Waldweg 3, dann schreibt er nur in meine Tabelle Straße, zum, und in Hausnummer nix.
hast dazu noch eine hilfe für mich?
danke
Hallo,
Bei meinen Straßen und hausnummern, habe ich nun
unterschiedliche varianten.
Wie kann ich diese alle einzelnen erkennen lassen, damit die
richtige zerlegung stattfindet?Funktioniert bisher, Dorfstr. 14, zuzerlegen.
Aber was ist, wenn Straßenname aus zwei Worten betseht?
Beispiel, zum Waldweg 3, dann schreibt er nur in meine Tabelle
Straße, zum, und in Hausnummer nix.
hast dazu noch eine hilfe für mich?
nicht, dass es Internet da zig fertige Lösungen gibt,
http://www.google.de/search?source=ig&hl=de&q=access…
selbst hier bei wer-weiss-was hatten wir das Thema schon:
/t/hausnummer-aus-strassenadresse-eliminieren/581985
auch der Hersteller (M$) kommt mit einer Lösung:
http://support.microsoft.com/kb/505068/de
Grüße
Wolfgang
(Netwolf)
Vielen Dank,
die links haben mich sehr weiter gebracht.
Jetzt habe ich mir eine function zusammengestellt und getestet.
li_laenge = Len(Straße)
For li_pos = 1 To li_laenge
If IsNumeric(Mid(Straße, li_pos, 1)) Then
laengeStraße = li_pos - 1
strname = Left(Straße, laengeStraße)
End If
Next
Straße ist der Inhalt der untersucht wird,
Beispiel: Zum Waldweg 9 und Pohlitzer Mühle 13
Die Function soll den Text solange durchgehen, bis ein nummerisches Zeichen kommt, dann linke davon den Straßennamen ausgeben.
Bei Zum Waldweg klappt es, aber nicht bei Pohlitzer Mühle, dort steht Pohlitzer Mühle 1.
Weist Du warum das so ist?
Die Hausnummer lasse ich noch extra trennen durch.
Function ZahlInText(strText As String) As Integer
Dim pos As Integer, i As Integer, Result As Integer
Result = Len(strText) + 1
For i = 0 To 9
pos = InStr(strText, str(i))
If pos > 0 And pos
hallo,
danke für den Tipp, hat funktioniert.
NEues Problem.
Private Sub FLSTaktuell_Click()
Dim Nenner As Integer
Dim a, b, zaehler, FSK As String
On Error GoTo Err_FLSTaktuell_Click
FSK = Me!lst_FSK
Nenner = Right(FSK, 5)
a = Mid(FSK, 1, 14)
b = Mid(FSK, 1, 9)
zaehler = a - b
Me!lst_FLST = zaehler
Me!lst_Nenner = nenner
Exit_FLSTaktuell_Click:
Exit Sub
Err_FLSTaktuell_Click:
MsgBox Err.Description
Resume Exit_FLSTaktuell_Click
End Sub
Möcht mal im Formular probieren aus Tabelle ALK, Spalte FSKennzeichen zu zerlegen.
Beispiel: 1221360010018700002
Ich möchte Position 10-14 einzeln ausgeben in Listenfeld lst_FLST, 00187,
und die letzten 5 Zeichen ausgeben in lst_Nenner, 00002.
Was mache ich falsch, das es nicht funktioniert?
danke
Habe mich selber überrascht und das problem gelöst.
direkt als Aktualisierungsabfrage mit
mid([FSKennzeichen];10;5) und mid([FSKennzeichen];15;3)
nach dem essen kamen die gedanken, grins
enrico
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]