ACCESS FEED: [MS_AccessPros] Re: Dynamic Varialbe -- Arrays

Jumat, 27 Januari 2012

[MS_AccessPros] Re: Dynamic Varialbe -- Arrays

Crystal

How would you substitute the variable? With controls you can dynamically change which one is targeted by using the Name property as in

For x = 1 to 3
Controls("Address" & x).SetFocus
Next

But you can't use such syntax with variables.

Bill

--- In MS_Access_Professionals@yahoogroups.com, Crystal <strive4peace2008@...> wrote:
>
> Hi Mike,
>
> use an array, not a regular variable.
>
> Arrays
>
> when you Dim an array, if you do not specify the number of elements then you need to ReDim to allocate space. Use the PRESERVE keyword to preserve the current values while the array is redimmed
>
> try this to learn more about using arrays:
>
> Dim strArray() as string
> ReDim strArray(0)
> strArray(0) = "element 0"
>
> for i = 1 to 3
>    ReDim Preserve strArray(i)
>    strArray(i) = "element " & i
> next i
>
> ' LBound is lower bound. This will be 0 unless you set Option Base 1
> ' UBound is upper bound
>
> for i = LBound(strArray) to UBound(strArray)
>    msgbox strArray(i),,i & " out of " & ( UBound(strArray)- LBound(strArray)+1)
> next i
>
> '~~~~~~~~~~~~~~~~~~~~~
> if you don't use Preserve, then the array gets re-dimensioned but loses its previous values
> '~~~~~~~~~~~~~~~~~~~~~
>
>
> alternately, if you know how many elements you will want, you can do this:
>
> Dim strArray(5) as string
>
> this gives you 6 elements... 0 thru 5
>
> Dim strArray(1 to 5) as string
>
> this gives you 5 elements... 1 thru 5
>
>
> *********************************
> paste this code into a general module and run it:
>
> '~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Sub testArray()
> 'Crystal 100415
>
>    'CLICK HERE
>    ' Press F5 to Run
>    '(after compiling and saving)
>
>    Dim i As Integer
>
>    Dim strArray() As String
>    ReDim strArray(0)
>    strArray(0) = "element 0"
>
>    For i = 1 To 3
>       ReDim Preserve strArray(i)
>       strArray(i) = "element " & i
>    Next i
>
>    ' LBound is lower bound. This will be 0 unless you set Option Base 1
>    ' UBound is upper bound
>
>    For i = LBound(strArray) To UBound(strArray)
>       MsgBox strArray(i), , i & " out of " & (UBound(strArray) - LBound(strArray) + 1)
>    Next i
>
> End Sub
> '~~~~~~~~~~~~~~~~~~~~~~~~
>
> and here is another version:
>
> '~~~~~~~~~~~~~~~~~~~~~~~~
> Sub testArray2()
> 'Crystal 100415
>
>    'CLICK HERE
>    ' Press F5 to Run
>    '(after compiling and saving)
>
>    Dim i As Integer
>
>    Dim strArray(4) As String
>
>    For i = LBound(strArray) To UBound(strArray)
>       strArray(i) = "element " & i
>    Next i
>
>    ' LBound is lower bound. This will be 0 unless you set Option Base 1
>    ' UBound is upper bound
>
>    For i = LBound(strArray) To UBound(strArray)
>       MsgBox strArray(i), , i & " out of " & (UBound(strArray) - LBound(strArray) + 1)
>    Next i
>
> End Sub
> '~~~~~~~~~~~~~~~~~~~~~~~~
>
>
>
> Warm Regards,
> Crystal
>
> Microsoft MVP
> remote programming and training
>
> Access Basics by Crystal
> http://www.AccessMVP.com/strive4peace
> Free 100-page book that covers essentials in Access
>
> *
>    (: have an awesome day :)
> *
>
>
>
> ________________________________
> From: mithomas48
>
> Thanks Bill, but I'm trying to stay away from using a Select Case or If Else. Isn't there a simple function or something that can dynamically change a variable? For example...
>
> In each pass the variable "b" would become b0, then the next pass b1 and so on.
>
> Thanks again!
> Mike
>
> --- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@> wrote:
> >
> > Mike
> >
> > Use a counter in the loop and a select case
> >
> > For x = 1 to 3
> > Select Case x
> > Case 1
> > v1 = Something
> > 'or
> > Something = v1
> > Case 2
> > v2 = Something
> > 'or
> > Something = v2
> > Case 3
> > v3 = Something
> > 'or
> > Something = v3
> > End Select
> > Next
> >
> > Regards,
> > Bill Mosca, Founder - MS_Access_Professionals
> > http://www.thatlldoit.com
> > Microsoft Office Access MVP
> > https://mvp.support.microsoft.com/profile/Bill.Mosca
> >
> >
> >
> > --- In MS_Access_Professionals@yahoogroups.com, mithomas48 <no_reply@> wrote:
> > >
> > > How can I dynamically reset a variable within a loop - without using a Select Case, or IF Else? For Example...
> > >
> > > First pass = v1
> > > Second pass = v2
> > > Third pass = v3
> > >
> > > So I need to dynamically set the last digit.
> > >
> > > Thanks in advance!
> > > Mike
> > >
> >
>
> [Non-text portions of this message have been removed]
>