one final project ! resolved!!!!

ok this is it, the last program for class, and i think its hard. its a simple idea but i cant put it into code. it for a car repair garage, and they sell there own spark plugs. you would use this prog to look up the garages part number of the spark plug. the user picks brand, then input part number, presses Lookup, and it should display the Garages part number equivenlet to the brand and part number input by user.
i have once basic form, where user will select the Brand from (lstBrand) and then in a text box(txtPartNumber) the user will input the part number. so im pretty sure i have to either create a two-dimension table, or an array of user-def date type. i am perfering the 2Dtable. i have command button (cmdLookUp) and then in one last label it displays the Garages part number in a Label (lblVBPartNumber).
-so far thsi is all i have for the table

VB Code:

Dim strPartNumber(0 to 8, 0 to 3) as String

i have 9x4 tabl for the data..any help would be great !! thanks - justin

ok i got this going for me so far...

VB Code:

Private Sub Form_Load()
 
    mstrPartNumber(0, 0) = "PR214"
    mstrPartNumber(0, 1) = "MR43T"
    mstrPartNumber(0, 2) = "RBL8"
    mstrPartNumber(0, 3) = "14K22"
    mstrPartNumber(1, 0) = "PR223"
    mstrPartNumber(1, 1) = "R43"
    mstrPartNumber(1, 2) = "RJ6"
    mstrPartNumber(1, 3) = "14K24"
    mstrPartNumber(2, 0) = "PR224"
    mstrPartNumber(2, 1) = "R43N"
    mstrPartNumber(2, 2) = "RN4"
    mstrPartNumber(2, 3) = "14K30"
    mstrPartNumber(3, 0) = "PR246"
    mstrPartNumber(3, 1) = "R46N"
    mstrPartNumber(3, 2) = "RN8"
    mstrPartNumber(3, 3) = "14K32"
    mstrPartNumber(4, 0) = "PR247"
    msrtPartNumber(4, 1) = "R46TS"
    mstrPartNumber(4, 2) = "RBL17Y"
    mstrPartNumber(4, 3) = "14K33"
    mstrPartNumber(5, 0) = "PR248"
    mstrPartNumber(5, 1) = "R46TX"
    mstrPartNumber(5, 2) = "RBL12-6"
    mstrPartNumber(5, 3) = "14K35"
    mstrPartNumber(6, 0) = "PR324"
    mstrPartNumber(6, 1) = "S46"
    mstrPartNumber(6, 2) = "J11"
    mstrPartNumber(6, 3) = "14K38"
    mstrPartNumber(7, 0) = "PR326"
    mstrPartNumber(7, 1) = "SR46E"
    mstrPartNumber(7, 2) = "XEJ8"
    mstrPartNumber(7, 3) = "14K40"
    mstrPartNumber(8, 0) = "PR444"
    mstrPartNumber(8, 1) = "47L"
    mstrPartNumber(8, 2) = "H12"
    mstrPartNumber(8, 3) = "14K44"
    
End Sub

that'll load my data into the table. and the part number that is supsoed to come up in the label at the end will always be in Column "0"..ex(0,1)(0,6). eveything in column "1" is Brand A. Column "2" is Brand B. and Column "3" is Brand X...

if anyone still wants to help heres my code so far....

VB Code:

Option Explicit
 
'Dimension the 2d array.
Dim mstrPartNumber(8, 3) As String
Private Sub cmdLookUp_Click()
'What happens when you click Look up
 
'Dimension Variables.
Dim strPartNumber As String
 
'convert text input in to a variable
strPartNumber = UCase(txtPartNumber.Text)
 
'used case to decide on brand and part number.
Select Case lstBrand.Text
 
'case for brand a
    Case "Brand A"
        If strPartNumber = UCase(mstrPartNumber(0, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(0, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(1, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(1, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(2, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(2, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(3, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(3, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(4, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(4, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(5, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(5, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(6, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(6, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(7, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(7, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(8, 1)) Then
            lblVBPartNumber.Caption = mstrPartNumber(8, 0)
        End If
'case for brand b
    Case "Brand B"
        If strPartNumber = UCase(mstrPartNumber(0, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(0, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(1, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(1, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(2, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(2, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(3, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(3, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(4, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(4, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(5, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(5, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(6, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(6, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(7, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(7, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(8, 2)) Then
            lblVBPartNumber.Caption = mstrPartNumber(8, 0)
        End If
'Case for brand X
    Case "Brand X"
        If strPartNumber = UCase(mstrPartNumber(0, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(0, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(1, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(1, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(2, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(2, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(3, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(3, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(4, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(4, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(5, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(5, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(6, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(6, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(7, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(7, 0)
        End If
        If strPartNumber = UCase(mstrPartNumber(8, 3)) Then
            lblVBPartNumber.Caption = mstrPartNumber(8, 0)
        End If
End Select
        
End Sub
Private Sub Form_Load()
'loads the table ito memory at load.
 
 
'the variable mstrPartNumber
    mstrPartNumber(0, 0) = "PR214"
    mstrPartNumber(0, 1) = "MR43T"
    mstrPartNumber(0, 2) = "RBL8"
    mstrPartNumber(0, 3) = "14K22"
    mstrPartNumber(1, 0) = "PR223"
    mstrPartNumber(1, 1) = "R43"
    mstrPartNumber(1, 2) = "RJ6"
    mstrPartNumber(1, 3) = "14K24"
    mstrPartNumber(2, 0) = "PR224"
    mstrPartNumber(2, 1) = "R43N"
    mstrPartNumber(2, 2) = "RN4"
    mstrPartNumber(2, 3) = "14K30"
    mstrPartNumber(3, 0) = "PR246"
    mstrPartNumber(3, 1) = "R46N"
    mstrPartNumber(3, 2) = "RN8"
    mstrPartNumber(3, 3) = "14K32"
    mstrPartNumber(4, 0) = "PR247"
    mstrPartNumber(4, 1) = "R46TS"
    mstrPartNumber(4, 2) = "RBL17Y"
    mstrPartNumber(4, 3) = "14K33"
    mstrPartNumber(5, 0) = "PR248"
    mstrPartNumber(5, 1) = "R46TX"
    mstrPartNumber(5, 2) = "RBL12-6"
    mstrPartNumber(5, 3) = "14K35"
    mstrPartNumber(6, 0) = "PR324"
    mstrPartNumber(6, 1) = "S46"
    mstrPartNumber(6, 2) = "J11"
    mstrPartNumber(6, 3) = "14K38"
    mstrPartNumber(7, 0) = "PR326"
    mstrPartNumber(7, 1) = "SR46E"
    mstrPartNumber(7, 2) = "XEJ8"
    mstrPartNumber(7, 3) = "14K40"
    mstrPartNumber(8, 0) = "PR444"
    mstrPartNumber(8, 1) = "47L"
    mstrPartNumber(8, 2) = "H12"
    mstrPartNumber(8, 3) = "14K44"
    
End Sub

...it works great when you look up. but the olny problems i think i might encounter is that when some one enters wrong info. some sort of validatiion. would i use soem type of boolean varibale to give it a check ? any help would be appericated - justin.

for a wrong part number, or a wrong brand ? The part number would be a little harder. Just use a CASE ELSE and a message.

well, you could have another SELECT CASE within the first SELECT CASE, that would allow a CASE ELSE for that, too.

well....the case part wont be hard, they have to chose that from a list, so i could just use,

VB Code:

lstBrand.listindex = -1

for that one i thoguht. u kno if nothing is selceted from the list. but ya, it the number part..if its really hard i think i could just skip that, and instead just make sure that there is something in the text of txtPartNumber.
thank you for your help, if you can help more please - justin

more something like this.....

VB Code:

'check to make sure somethign is selceted in list.
    If lstBrand.ListIndex = -1 Then
        MsgBox "Please Select Your Brand!!", vbDefaultButton3, "Error!"
        Exit Sub
    End If
    
'check to make sure there is text in text box.
    If txtPartNumber.Text = "" Then
        MsgBox "Please Enter Your Part Number!!", vbDefaultButton4, "Error!!"
        Exit Sub
    End If

how about if i were to change all the if statments in each seperate case, and then used an else/if, and then have a msgbox ? did you alreayd suggest that, sorry it just came to me, woudl that work though ? ill post an example here in a minute, jsut let me try to figure it out.

here i think this might be it, does it seems alright ?

VB Code:

'case for brand a
    Case "Brand A"
        If strPartNumber = UCase(mstrPartNumber(0, 1)) Then
        If strPartNumber = UCase(mstrPartNumber(1, 1)) Then
            If strPartNumber = UCase(mstrPartNumber(2, 1)) Then
            If strPartNumber = UCase(mstrPartNumber(3, 1)) Then
                If strPartNumber = UCase(mstrPartNumber(4, 1)) Then
                If strPartNumber = UCase(mstrPartNumber(5, 1)) Then
                    If strPartNumber = UCase(mstrPartNumber(6, 1)) Then
                    If strPartNumber = UCase(mstrPartNumber(7, 1)) Then
                        If strPartNumber = UCase(mstrPartNumber(8, 1)) Then
    lblVBPartNumber.Caption = mstrPartNumber(8, 0)
Else
    lblVBPartNumber.Caption = mstrPartNumber(7, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(6, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(5, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(4, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(3, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(2, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(1, 0)
        End If
Else
    lblVBPartNumber.Caption = mstrPartNumber(0, 0)
        End If
Else
        MsgBox "Not a valid part number!!"
End If

easier to make them SELECT CASE / ELSE

can you give me an example david, it would be helpful !

Code:

---

Select Case lstBrand.Text
'case for brand a
Case "Brand A"
  Select Case strPartNumber
    case  UCase(mstrPartNumber(0, 1))
      lblVBPartNumber.Caption = mstrPartNumber(0, 0)
    case UCase(mstrPartNumber(1, 1))
      lblVBPartNumber.Caption = mstrPartNumber(1, 0)
:
:
:
    case UCase(mstrPartNumber(8, 1))
      lblVBPartNumber.Caption = mstrPartNumber(8, 0)
    case else
        msgbox "You must enter a valid part number!"
    end select
  Case "Brand B"
:
:  enter the same format code as above...
:      ' *    < ---------  Place optional code HERE
    end select
'      enter a msg here if there could be a Brand Name problem, but I don't
'      think there could be if it is a dropdown, in a case else
  end select

---

Something like that would be easier to read then nested IF's

first id like to say thansk for all your help. you've been a great help man. so heres is what i ened up with and i think its pretty solid.

Code:

---

Private Sub cmdLookUp_Click()
'What happens when you click Look up

'Dimension Variables.
    Dim strPartNumber As String

'check to make sure somethign is selceted in list.
    If lstBrand.ListIndex = -1 Then
        MsgBox "Please Select Your Brand!!", vbDefaultButton3, "Error!"
        Exit Sub
    End If
   
'check to make sure there is text in text box.
    If txtPartNumber.Text = "" Then
        MsgBox "Please Enter Your Part Number!!", vbDefaultButton4, "Error!!"
        Exit Sub
    End If
   
'convert text input in to a variable
strPartNumber = UCase(txtPartNumber.Text)

'used case to decide on brand and part number.
Select Case lstBrand.Text

'case for brand a
    Case "Brand A"
'case for the part number specifc to Brand A.
        Select Case strPartNumber
            Case Is = UCase(mstrPartNumber(0, 1))
                lblVBPartNumber.Caption = mstrPartNumber(0, 0)
            Case Is = UCase(mstrPartNumber(1, 1))
                lblVBPartNumber.Caption = mstrPartNumber(1, 0)
            Case Is = UCase(mstrPartNumber(2, 1))
                lblVBPartNumber.Caption = mstrPartNumber(2, 0)
            Case Is = UCase(mstrPartNumber(3, 1))
                lblVBPartNumber.Caption = mstrPartNumber(3, 0)
            Case Is = UCase(mstrPartNumber(4, 1))
                lblVBPartNumber.Caption = mstrPartNumber(4, 0)
            Case Is = UCase(mstrPartNumber(5, 1))
                lblVBPartNumber.Caption = mstrPartNumber(5, 0)
            Case Is = UCase(mstrPartNumber(6, 1))
                lblVBPartNumber.Caption = mstrPartNumber(6, 0)
            Case Is = UCase(mstrPartNumber(7, 1))
                lblVBPartNumber.Caption = mstrPartNumber(7, 0)
            Case Is = UCase(mstrPartNumber(8, 1))
                lblVBPartNumber.Caption = mstrPartNumber(8, 0)
            Case Else
                MsgBox "Not a Valid Part number for this Brand!!", vbOKOnly, "error!!"
            End Select
           
'case for brand b
  Case "Brand B"
'case specific to Brand B
        Select Case strPartNumber
            Case Is = UCase(mstrPartNumber(0, 2))
                lblVBPartNumber.Caption = mstrPartNumber(0, 0)
            Case Is = UCase(mstrPartNumber(1, 2))
                lblVBPartNumber.Caption = mstrPartNumber(1, 0)
            Case Is = UCase(mstrPartNumber(2, 2))
                lblVBPartNumber.Caption = mstrPartNumber(2, 0)
            Case Is = UCase(mstrPartNumber(3, 2))
                lblVBPartNumber.Caption = mstrPartNumber(3, 0)
            Case Is = UCase(mstrPartNumber(4, 2))
                lblVBPartNumber.Caption = mstrPartNumber(4, 0)
            Case Is = UCase(mstrPartNumber(5, 2))
                lblVBPartNumber.Caption = mstrPartNumber(5, 0)
            Case Is = UCase(mstrPartNumber(6, 2))
                lblVBPartNumber.Caption = mstrPartNumber(6, 0)
            Case Is = UCase(mstrPartNumber(7, 2))
                lblVBPartNumber.Caption = mstrPartNumber(7, 0)
            Case Is = UCase(mstrPartNumber(8, 2))
                lblVBPartNumber.Caption = mstrPartNumber(8, 0)
            Case Else
                MsgBox "Not a Valid Part number for this Brand!!", vbOKOnly, "error!!"
'end the specific case.
            End Select
       
'Case for brand X
    Case "Brand X"
'case specific parts numbers for Brand X
        Select Case strPartNumber
            Case Is = UCase(mstrPartNumber(0, 3))
                lblVBPartNumber.Caption = mstrPartNumber(0, 0)
            Case Is = UCase(mstrPartNumber(1, 3))
                lblVBPartNumber.Caption = mstrPartNumber(1, 0)
            Case Is = UCase(mstrPartNumber(2, 3))
                lblVBPartNumber.Caption = mstrPartNumber(2, 0)
            Case Is = UCase(mstrPartNumber(3, 3))
                lblVBPartNumber.Caption = mstrPartNumber(3, 0)
            Case Is = UCase(mstrPartNumber(4, 3))
                lblVBPartNumber.Caption = mstrPartNumber(4, 0)
            Case Is = UCase(mstrPartNumber(5, 3))
                lblVBPartNumber.Caption = mstrPartNumber(5, 0)
            Case Is = UCase(mstrPartNumber(6, 3))
                lblVBPartNumber.Caption = mstrPartNumber(6, 0)
            Case Is = UCase(mstrPartNumber(7, 3))
                lblVBPartNumber.Caption = mstrPartNumber(7, 0)
            Case Is = UCase(mstrPartNumber(8, 3))
                lblVBPartNumber.Caption = mstrPartNumber(8, 0)
            Case Else
                MsgBox "Not a Valid Part number for this Brand!!", vbOKOnly, "error!!"
'end the specific case Brand X
            End Select
'end all the brand cases.
End Select
       
End Sub

---

...so i understand, and thanks again. this one is resolved.