Combo Boxes

Ok lets see if I can tell you my problem without exploding.
I want to be able to choose an Item from my combo box and then based on my choice display a label telling me the full name of the choice. The Combo box will display abrev. names like Chris instead of Christopher or Dept instead of Department.
Then I want a label to say: Dept = Department. Is this possible?
I hope I was clear

null

Christopher Lond

it's very possible. Where are the long descriptions stored. Somewhere you are going to need a conversion routine. The best bet would be to store them in a table with an id the abbrv and the description. Then you store the id as the value of each item in the combo and the abbrv as the text. When an item is selected you look up the row from the id and display the results in the label.

Eric Neff
C#, ASP.Net, SQL Server, Oracle

See if This Works:
1. Create a Text File Containing all Abr & Explanations

DEPT          ;     Department
CLS           ;     Clear Screen
.             ;     .
Blah          ;     Blah

Then Read the pairs into an Array

Dim prs() 
Open sFile For Input As #99
cnt = 0
While Not EOF(99)
    cnt = cnt + 1
    Line Input #99, myLine
    LineArray = split(myLine,";")
    redim Preserve prs(2,cnt)
    prs(0,cnt) = lineArray(0)
    prs(1,cnt) = lineArray(1)
Wend
Close #1

now you can populate the combobox from prs(0,n)

for xx = 1 to cnt
 me.ComboBox1.AddItem prs(0,xx)
next

finally you can display the definition of the selected abr.

. . . inside click event 
for xx = 1 to ubound(prs,2)
   if me.ComboBox1.Text = prs(0,xx) then
        msgbox prs(0,xx) & " = " & prs(1,xx)
   end if
next

Hope this helps

This is the solution I came up with. It may not be the correct way but it works.

If CboProdDesc.Text = "asyf" Then
CboProdDesc = Format("asyf", ">")
LblProdDesc.Caption = "ASYF = Assembly Fixture"
LblProdDesc.ForeColor = vbRed
End If

Christopher Lond