Parse or Split Individual Characters with no Delimiter

[Lennybig]

Have used Access for years but am still a beginner when it comes to code...

I have a table with field "Store_Auth" that is a set 220 characters long with no delimiter similiar to:

AAUU AU U AAA AAA UU UUUU UA UAUAA AA U AAUAUAUUA A

you get the picture... Each character represents item authorization for a particular store (185,000 items in the table). "A" is authorized, "U" is unauthorized and blank is for a currently closed store.

I need to parse or split (not exactly sure what the difference is) this field so that each character (also blanks) is it's own individual column so I can marry it up with the proper store number. Code is easy to find and make work when there is a delimeter present, but I have yet to find anything that will work with this scenario. Any help would be appreciated. - Thanks!

[Rawb]

Use the Mid() Function in a For loop to pull out each individual character:

Dim i As Long
Dim strCurrentAuth As String ' The current A, U, or blank space being looked at

For i = 0 To Len(rst("Store_Auth")) - 1 Step 1
  ' set variable strCurrentAuth to the character at location i in rst("Store_Auth")
  strCurrentAuth = Mid(rst("Store_Auth"), i + 1, 1)

  ' Do your stuff here
  If strCurrentAuth = "A" Then
    ' If the character is an A
  ElseIf strCurrentAuth = "U" Then
    ' If the character is a U
  ElseIf strCurrentAuth = " " Then
    ' If the character is a blank space
  Else
    ' If any other character is encountered
  End If
Next i