[AccessD] A2k: Creating an Array from Start and End Numbers

[Gustav Brock]

Hi Darren

Join is useful here:

    Const StartNumber   As Integer = 1024
    Const EndNumber     As Integer = 1031
    
    Dim Series()        As String
    Dim Item            As Integer
    
    ReDim Series(0 To EndNumber - StartNumber)
    
    For Item = LBound(Series) To UBound(Series)
        Series(Item) = CStr(StartNumber + Item)
    Next
    
    Me!ComboSeries.RowSource = Join(Series, ";")

/gustav

________________________________________
Fra: AccessD <accessd-bounces at databaseadvisors.com> på vegne af Darren <darren at activebilling.com.au>
Sendt: 22. marts 2015 14:39
Til: 'Access Developers discussion and problem solving'
Emne: [AccessD] A2k: Creating an Array from Start and End Numbers

Hi All,
I want to create a sequential array from a start number and an end number, that I can present as a 1 column combo list.
For example:
1024 is the start Number
1031 is the end Number

I'd like to see the following  8 items in my combo list after building the array.
1024
1025
1026
1027
1028
1029
1030
1031

Any pointers?

Many thanks in advance

Darren