Need to Split 12-Digit Number Field into 12 Separate Fields

[minfas]

EXp 290501049125 like this number field i need this to be split 12 fileds like Field1 (2) Field2 (9) filed3 (0) filed4 (5) etc. Can Any one help to solve this issue?

[jimatqsi]

dim x(1 to 12) as string
dim y as string
dim intN1 as int
 
y = "290501049125"
for intN1 = 1 to 11
    x(intN1)=left(y,1) ' take 1 care of Y from the left
    y = mid(y,2)   ' eliminate 1 char at a time from original string
next
x(12)= y
 

Or if you prefer to do it with numbers

dim x(1 to 12) as integer
dim y as long
dim intN1 as integer
 
y = 290501049125
for intN1 = 1 to 11
    x(intN1)=y-((y/10)*10)
    y=y/10
next
x(12)=y
 

[Rodney Roe]

I think this could be simpler if you only use the mid function

Dim x(1 to 12) as integer
Dim y as String
y = cStr(290501049125)
for i = 1 to len(y)
  x(i) = mid(y,i,1)
next
 

[jimatqsi]

Yes, Rodney, nicely done. And then it may be advisable to wrap that mid function in a Cint(), thusly

    x(i) = Cint(mid(y,i,1))
 

[ADezii]

You can also populate a Table (tblSplit) with the results at the same time:

Dim y As String
Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Dim intCtr As Integer
 
Set MyDB = CurrentDb
Set rst = MyDB.OpenRecordset("tblSplit", dbOpenDynaset, dbAppendOnly)
 
y = "290501049125"
 
With rst
  .AddNew
    For intCtr = 1 To 12
      .Fields(intCtr - 1) = Mid$(y, intCtr, 1)
    Next
  .Update
End With
 
rst.Close
Set rst = Nothing