Hallo Zusammen,
ich bin absolute VBA Anfängerin, mein Problem ist:
Ich habe ein Formular in dem ein String in der Spalte "betr_BR" in dem folgenden Format aufgelistet ist
z.B. 20150699C205FW (YYYYMMDDBBBAA)
die ersten 8 Stellen sind das Datum (YYYYMMDD) die nächsten 3 eine Baureihe (BBB) und die letzten 2 eine Ausführungsart(AA) von einem Produkt.
Ich möchte den String YYYYMMDDBBBAA so splitten, dass ich in einer neuen Spalte immer den Teil BBB habe und in einer weiteren neuen Spalte den Teil AA eines Strings habe.
Alle Spalten (betr_BR, BR(von BBB) und AA befinden sich im selben Formular).
Bisher sieht das so aus und funktioniert überhaut nicht!
Wahrscheinlich sind es Syntax, Logik und alle Fehler die man machen kann auf einmal.
Wäre für eure Hilfe sehr dankbar.
'String Split für BR und AA
Dim Insert As String
Dim baureihe, ausfuehrungssart As String
rsource = "[tbl_CMM_overview].BR='" & Mid(Me.Controls([tbl_cmmrequest].[betr_BR], 9, 4))"
ausfuehrungsart = Mid(Me.Controls([tbl_cmmrequest].[betr_BR], 14, 1))
Insert = "INSERT INTO BR " &
'"(BR) " & _
'"VALUES (Mid(rsource([tbl_cmmrequest].[betr_BR], 9, 4))"
Insert = "INSERT INTO AA " & _
"(AA) " & _
"VALUES (ausfuehrungsart)"
DoCmd.RunSQL Insert
MsgBox (rsource)
Debug.Print (rsource)
Me!Navigationsunterformular.Form.Filter = rsource
Me!Navigationsunterformular.Form.FilterOn = True
'Me!Navigationsunterformular.Form.FilterOn = False
Me![rsource_temp] = rsource
End Function
Grüße Anastasia |