ListBox.AddItem In Access 2000

tready · May 16th, 2006, 01:13 PM

Is there a way to do a listbox.additem in Access 2000 VBA??

echovue · May 16th, 2006, 01:19 PM

Hi Tready,

Not directly, but you can do it in a sneaky way. Below is a Sub I keep in a module for an App I converted from VB to VBA. Instead of doing lisMyBox.AddItem ("My Item"), call ListAddItem lisMyBox, "My Item"

Code:

Sub ListAddItem(LB As ListBox, ByVal strItemToAdd As String)
    If LB.RowSource = "" Then
        LB.RowSource = IIf(LB.RowSource = "", strItemToAdd, "")
    Else
        LB.RowSource = LB.RowSource & ";" & strItemToAdd
    End If
End Sub

Hope that helps,

Mike

Mike
EchoVue.com

tready · May 16th, 2006, 01:32 PM

thnx, that worked great.

mfascino · August 17th, 2006, 01:11 PM

Hi Mike, there is a small problem with your code. You are saying LB.Rowsource="" twice in your code. I think you meant this:

Sub ListAddItem(LB As ListBox, ByVal strItemToAdd As String)
    If LB.RowSource = "" Then
        LB.RowSource = strItemToAdd
    Else
        LB.RowSource = LB.RowSource & ";" & strItemToAdd
    End If
End Sub

or maybe you were thinking about this one-liner:

Sub ListAddItem(LB As ListBox, ByVal strItemToAdd As String)
  LB.RowSource = IIf(LB.RowSource = "", strItemToAdd,LB.RowSource & ";" & strItemToAdd)
End Sub

you should also take the liberty of checking if RowSourceType="Value List" somewhere near the top of the routine.

Mario