listbox??

[miiia83]

hi!

I was wondering if anyone could show me how the code to make a listbox.. The code I have in Excel VB is as shows... I want the function_code to be shown as a listbox!

Sub Get_Category()

    resrow = 3     'börjar vid cell 3,2
    rescol = 2
    Sheets("sheet1").Range("b2:j1000").ClearContents
    

    OpenConnection ("RFC")
   
    strQuery = "SELECT * FROM DESCRIPTIONS"   'DESCRIPTIONS = tabellnamn
    Set rs = ConnRFC.Execute(strQuery)
    Do Until rs.EOF
        Sheets("sheet1").Cells(resrow, rescol).Value = rs("FUNCTION_CODE")
        Sheets("sheet1").Cells(resrow, rescol + 1).Value = rs("DESCRIPTION")
        
        resrow = resrow + 1
        rs.MoveNext
    Loop
    
    KillConnection ("RFC")


End Sub

 

[jindon]

Not sure...

Sub Get_Category()
    Dim a(), n As Long
    Sheets("sheet1").Range("b2:j1000").ClearContents
   
    OpenConnection ("RFC")
   
    strQuery = "SELECT * FROM DESCRIPTIONS"   'DESCRIPTIONS = tabellnamn
    Set rs = ConnRFC.Execute(strQuery)
    Do Until rs.EOF
        Sheets("sheet1").Cells(resrow, rescol).Value = rs("FUNCTION_CODE")
        Sheets("sheet1").Cells(resrow, rescol + 1).Value = rs("DESCRIPTION")
        n = n + 1 ReDim Preserve a(1 To 2, 1 To n)
        a(1,n) = rs("FUNCTION_CODE")
        a(2,n) = rs("DESCRIPTION")
        resrow = resrow + 1
        rs.MoveNext
    Loop
    
    KillConnection ("RFC")
    With ListBox1
        .ColumnCount = 2
        .ColumnWidth = "50;50"
        .Column = a
    End With
End Sub

 

[miiia83]

thanks for reply.. don't know know if it helped yet though...

n = n + 1 ReDim preserve a(1 to 2, 1 to n)

got an error.. expected end of statement??

 

[jindon]

OOps

sorry that should be

n = n + 1 : ReDim Preserve a(1 To 2, 1 To n)

missing ":" in between

 

[miiia83]

nothing happens when I run it ?? no listbox appears

 

[jindon]

Where do you have the ListBox?

 

[eblake]

Is the listbox in a cell like validation? or is it a listbox on a form?

 

[fairwinds]

Sorry for jumping in but we were having the same thread in international forum as well. http://www.mrexcel.com/board2/viewtopic.php?t=260026
I did however not provide any suggestions.

jindon said: Where do you have the ListBox?

I believe she does not have one. She wants it to be created automaticly.

 

[jindon]

Sorry for jumping in but we were having the same thread in international forum as well. http://www.mrexcel.com/board2/viewtopic.php?t=260026
I did however not provide any suggestions.

jindon said: Where do you have the ListBox?

I believe she does not have one. She wants it to be created automaticly.

Thanks fairwinds


milla83,

It is much much easier if you add ComboBox before you import the data from db.

 

[miiia83]

Yes exactly... don't have a listbox... is it not possible to create one with info from an access table??

If I have all the values in excel and then make a listbox out of them... i still have all the values written + them in a listbox...
I just want the listbox... Did that make sence? Kinda hard to explain in english

Mia