Mike-
Maybe this will help you see it:
Dim B (0 To 3) As String, intI As Integer
' Set values
B(0) = "A"
B(1) = "B"
B(3) = "C"
For intI = 0 To 3
Debug.Print B(inti)
End If
John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
http://www.viescas.com/
(Lahaina, HI)
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of mithomas48
Sent: Monday, January 30, 2012 8:05 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Dynamic Varialbe -- Arrays
Crystal, the array is not carrying over values in the variables. The array is
just carring over the name of the variable - not the values in them. For
example...
I am assigning different values to say, 3 variables...
B0 = "A"
B1 = "B"
B2 = "C"
In the array, with each pass, I need to first look at B0 with it's value of "A",
then second pass look at B1 with its value of "B" and so on.
The below only dumps the variable name in the array.
strArray(i) = "b" & i
Thanks again!
Mike
--- 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]
>
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar