[Resolved] Expected Funct or Var Issue

[DJHotIce]

Here is the code. Hopefully it is something simple. I'm still learning VB! I've been stuck on this one for quite a while! The combo box will not work correctly, however the list box does. I've tried dif combonations of the combo object and still no luck.

Thanks for the help.

'Populate UserList
    '==============================
    Dim rs As New ADODB.Recordset
    Dim cn As New ADODB.Connection
    Dim ITM As ListItem
    Dim cb As ComboItem
    
    
        cn.ConnectionString = frmMain.ConnectString
        cn.Open
            sql = "SELECT * FROM Users"
        rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
        
            ListView1.View = lvwReport
            ListView1.ColumnHeaders.Add 1, , "Autonumber"
            ListView1.ColumnHeaders.Add 2, , "User"
 
        With rs
            Do Until rs.EOF = True
            Set ITM = ListView1.ListItems.Add(1, "", Trim(!autonumber))
            Set cb = cmbAssigned.AddItem(rs.Fields("product"))
            ITM.SubItems(1) = IIf(IsNull(!User), "", Trim(!User))
            .MoveNext
            Loop
        End With
        
    'Populate Priority
    
    'Populate Status

[dglienna]

I think you are putting all the items in the first position, so that only the last shows. Take a look at this:

While Not mrsProducts.EOF
                Set itmX = lvFind.ListItems.Add(, , CStr(mrsProducts!ProductName))
                itmX.SubItems(1) = CStr(mrsProducts!SupplierID)
                itmX.SubItems(2) = mrsProducts!CategoryID
                mrsProducts.MoveNext
            Wend

[DJHotIce]

I think you are putting all the items in the first position, so that only the last shows.

Sorry to seem like a noobie. But could you boldize the item I need to look at. I'm looking hard yet see no resemblence. Maybe needs to be re-explained?

[baja_yu]

instead of this:

Set ITM = ListView1.ListItems.Add(1, "", Trim(!autonumber))

use this:

Set ITM = ListView1.ListItems.Add(, "", Trim(!autonumber))

[DJHotIce]

Baja,

That piece of code works perfectly

This one that is giving me grief is this:

Set cb = cmbAssigned.AddItem(rs.Fields("product"))

[dee-u]

cmbAssigned.AddItem rs.Fields("product")

[DJHotIce]

This gives me an end of statement error.

Set cb = cmbAssigned.AddItem rs.Fields(!User)

This gives me a Expected Funct or Var Error

Set cb = cmbAssigned.AddItem(rs.Fields(!User))

What am I doing wrong?

[techgnome]

.AddItem isn't a function.... it's a method.... it should be exaclty as dee-u showed you:

cmbAssigned.AddItem rs.Fields("product")

Tg

[DJHotIce]

TG and others, tried this

Set cb = cmbAssigned.AddItem(rs.Fields("User"))

Error above: Expected Function or Var. The .AddItem part is highlighted. I've also tried w/o the () surounding rs.Field...

[DJHotIce]

Never Mind Remove the Set = part and it works perfectly now.

[dee-u]

Did you ever read post #6 and 8?

[DJHotIce]

Did you ever read post #6 and 8?

YES! I was being a stupid Noobie eh?