Building Array

[jgelpi16]

I have developed an array referenced in the code below. What I want to happen is if the user enters one of the user IDs in the array, a report will display. If the user ID does not match, another form will load. However, I keep getting a "Type Mismatch" error. Any ideas?

    Dim strText0 As String
    strText0 = Form_frmRVNumber.Text0.Value
    Dim strRVNum() As String
    ReDim strRVNum(0 To 11) As String
        strRVNum(0) = "User1"
        strRVNum(1) = "User2"
        strRVNum(2) = "User3"
        strRVNum(3) = "User4"
        strRVNum(4) = "User5"
        strRVNum(5) = "User6"
        strRVNum(6) = "User7"
        strRVNum(7) = "User8"
        strRVNum(8) = "User9"
        strRVNum(9) = "User10"
        strRVNum(10) = "User11"
        strRVNum(11) = "User12"
    If strText0 Is strRVNum Then
        Dim stDocName As String
 
        stDocName = "rptTimeTrack"
        DoCmd.OpenReport stDocName, acPreview
        DoCmd.Maximize
    End If

[RuralGuy]

This line: If strText0 Is strRVNum Then
... does not seem to be referencing the array!

[jgelpi16]

Forgive me for asking.....How should I reference the array? I am not familiar with arrays.

[RuralGuy]

The same way you referenced it when you were initializing it. strRVNum(n)

[jgelpi16]

I apologize for that bout of...incompetance... However, I changed the code to the following:

    Dim strText0 As String
    strText0 = Form_frmRVNumber.Text0.Value
    Dim strRVNum() As String
    ReDim strRVNum(0 To 11) As String
        strRVNum(0) = "User1"
        strRVNum(1) = "User2"
        strRVNum(2) = "User3"
        strRVNum(3) = "User4"
        strRVNum(4) = "User5"
        strRVNum(5) = "User6"
        strRVNum(6) = "User7"
        strRVNum(7) = "User8"
        strRVNum(8) = "User9"
        strRVNum(9) = "User10"
        strRVNum(10) = "User11"
        strRVNum(11) = "User12"
    If strText0 = strRVNum() Then
        Dim stDocName As String
 
        stDocName = "rptTimeTrack"
        DoCmd.OpenReport stDocName, acPreview
        DoCmd.Maximize
    End If

And I still get the "Type Mismatch" error....

[RuralGuy]

You need an index number to point to a legal element of the array.
strRVNum(n)
Replace the n with a number from 0 to 11.

[jgelpi16]

RuralGuy - Please ignore my last post. However, I changed this line:

If strText0 = strRVNum() Then

to

If strText0 = strRVNum(4) Then

for argument sake. It did work as expected when I entered User5 it worked as expected. However, I want to check for any one of those users, User1 through User12. How would I go about doing that?

[RuralGuy]

I curious, why did you pick an array instead of a Select Case or string of If ElseIf statements?

[jgelpi16]

Because I thought array would be the best way. I am open to other methods if they are easier, or make more sense. It has been a while since I did some serious VB coding and I cannot remember how to do a Select Case. I thought about doing a string of If ElseIf statements but thought an array would cut down on the coding...

[RuralGuy]

Select Case strText0
       Case "User1"
          '.. do this
       Case "User2"
          '.. do this
       Case Else
          '.. do this
End Select

[jgelpi16]

RuralGuy - Thank you! That worked perfectly. Much appreciated.

[RuralGuy]

You're welcome. All three way would have worked but each method requires different code. I find Select Case easier to read and maintain.

[jgelpi16]

I am inclined to agree with you. I had completely forgotten about Select Case. Thanks again.