Add items to a combo box

[istya]

I have a combo box that I would like to be able add items to in the back end VB, but

With Forms!search!search
.Visible = True
.additem "Application"
End With

gives me a runtime error 438 on the add item line.

Can anyone point me in the right direction please?

[FishVal]

I have a combo box that I would like to be able add items to in the back end VB, but

With Forms!search!search
.Visible = True
.additem "Application"
End With

gives me a runtime error 438 on the add item line.

Can anyone point me in the right direction please?

Hi, istya.

AddItem method could not be invoked on Combobox which RecordSourceType is set to Table/Query. Is this your case?

[istya]

Hi, istya.

AddItem method could not be invoked on Combobox which RecordSourceType is set to Table/Query. Is this your case?

It's a blank combo box that is not connected to any recordsets or table/queries and the RecordSourcetype is set to value list.

[FishVal]

It's a blank combo box that is not connected to any recordsets or table/queries and the RecordSourcetype is set to value list.

"Object doesn't support this property or method."
Are you sure Forms!search!search returns you Combobox? Insert the following code

 Debug.Print TypeName(Forms!search!search)

before .AddItem or run it in immediate pane when execution stops on error.

[istya]

"Object doesn't support this property or method."
Are you sure Forms!search!search returns you Combobox? Insert the following code

 Debug.Print TypeName(Forms!search!search)

before .AddItem or run it in immediate pane when execution stops on error.

That gives me "Invalid use of Null"

This is beginning to drive me nuts!!

[istya]

That gives me "Invalid use of Null"

This is beginning to drive me nuts!!

Now it doesn't give me anything when I run the code.

[FishVal]

Now it doesn't give me anything when I run the code.

What does it mean ???
What does it send to VBA immediate window?
Put this code before With Forms!.... line.

[missinglinq]

AddItem is one of those methods that changes functionality from VB6 to VBA! In Access VBA, it only adds a list item to command bar combo boxes! It has no effect on a free-standing combobox that is part of a form!

Linq ;0)>

[FishVal]

AddItem is one of those methods that changes functionality from VB6 to VBA! In Access VBA, it only adds a list item to command bar combo boxes! It has no effect on a free-standing combobox that is part of a form!

Linq ;0)>

Sorry, Link.
It is simply not so. I've tested this just now. Additem works fine on free-standing combobox that is part of a form. Maybe you mean combobox with RowSource set to Table/Query.

[istya]

I've got it!!

I don't want additem, I want .recordsource = "val1;val2;val3"

Thanks you for the help

[missinglinq]

FishVAl: You're the first person I've heard make this claim, and I've seen this question asked literally dozens of times. I'd like to see your code for this.

From ACC2000 Help:

AddItem Method:
Adds a list item to the specified command bar combo box control.

Linq ;0)>

[FishVal]

FishVAl: You're the first person I've heard make this claim, and I've seen this question asked literally dozens of times. I'd like to see your code for this.

From ACC2000 Help:

AddItem Method:
Adds a list item to the specified command bar combo box control.

Linq ;0)>

Hi, Linq. Here it.

Private Sub Combo0_DblClick(Cancel As Integer)
    Me.Combo0.AddItem "qqq"
End Sub
 

[Combo0] - unbound combobox with RowSourceType="Value List"

AddItem is a method of Access.Combobox class (see in object browser).

Regards,

Fish

[missinglinq]

OK, Fish: Made a form, placed a combobox on it. Name is Combo0.
RowSourceType="Value List"
Placed this code in the DoubleClick event of the combobox

 Private Sub Combo0_DblClick(Cancel As Integer)
     Me.Combo0.AddItem "qqq"
 End Sub
 

Double-clicked on the combobox and I get the error:

"Method or Data Member Not Found"

and AddItem is hilited in code. What am I doing wrong? We are talking VBA here, not VB6, right?

Linq

[istya]

OK, Fish: Made a form, placed a combobox on it. Name is Combo0.
RowSourceType="Value List"
Placed this code in the DoubleClick event of the combobox

 Private Sub Combo0_DblClick(Cancel As Integer)
     Me.Combo0.AddItem "qqq"
 End Sub
 

Double-clicked on the combobox and I get the error:

"Method or Data Member Not Found"

and AddItem is hilited in code. What am I doing wrong? We are talking VBA here, not VB6, right?

Linq

I thought I was going mad when mine did that! I'm pleased it wasn't just me.

[missinglinq]

Fish, what version of Access are you running and what references are loaded?

Linq ;0)>

[FishVal]

OK, Fish: Made a form, placed a combobox on it. Name is Combo0.
RowSourceType="Value List"
Placed this code in the DoubleClick event of the combobox

 Private Sub Combo0_DblClick(Cancel As Integer)
     Me.Combo0.AddItem "qqq"
 End Sub
 

Double-clicked on the combobox and I get the error:

"Method or Data Member Not Found"

and AddItem is hilited in code. What am I doing wrong? We are talking VBA here, not VB6, right?

Linq

Oh, yes.

We are talking about VBA, Access2003, WinXP SP2.
Combobox: Access.Combobox, unbound, RowSourceType="Value List"
I hope you mean particulary Access.Combobox, not e.g. MSForms.Combobox.
And I hope you don't think that I gave an example w/o having tested it first.

AddItem Method
Adds a new item to the list of values displayed by the specified list box control or combo box control.

expression.AddItem(Item, Index)
expression Required. An expression that returns one of the objects in the Applies To list.

Item Required String. The display text for the new item.

Index Optional Variant. The position of the item in the list. If this argument is omitted, the item is added to the end of the list.

Remarks
The RowSourceType property of the specified control must be set to "Value List".

This method is only valid for list box or combo box controls on forms.

List item numbers start from zero. If the value of the Index argument doesn't correspond to an existing item number, an error occurs.

For multiple-column lists, use semicolons to delimit the strings for each column (for example, "1010;red;large" for a three-column list). If the Item argument contains fewer strings than columns in the control, items will be added starting with the left-most column. If the Item argument contains more strings than columns in the control, the extra strings are ignored.

Use the RemoveItem method to remove items from the list of values.

Example
This example adds an item to the end of the list in a list box control. For the function to work, you must pass it a ListBox object representing a list box control on a form and a String value representing the text of the item to be added.

Function AddItemToEnd(ctrlListBox As ListBox, _
        ByVal strItem As String)
 
    ctrlListBox.AddItem Item:=strItem
 
End Function
 

This example adds an item to the beginning of the list in a combo box control. For the function to work, you must pass it a ComboBox object representing a combo box control on a form and a String value representing the text of the item to be added.

Function AddItemToBeginning(ctrlComboBox As ComboBox, _
        ByVal strItem As String)
 
    ctrlComboBox.AddItem Item:=strItem, Index:=0
 
End Function
 

[missinglinq]

Yes, I'm talking about the plain old, gardern variety, Access Combobox , dragged down from the controls toolbar, not an ActixeX control. And no, I don't think you'd give an example w/o having tested it first, unless you qualified it by saying that it was untested! That's why I'm trying to figure out what's different about your setup and that of mine, the OP and a whole bunch of people over the years that get the same error ! What libraries are referenced in your setup?

Linq ;0)>

[FishVal]

Yes, I'm talking about the plain old, gardern variety, Access Combobox , dragged down from the controls toolbar, not an ActixeX control. And no, I don't think you'd give an example w/o having tested it first, unless you qualified it by saying that it was untested! That's why I'm trying to figure out what's different about your setup and that of mine, the OP and a whole bunch of people over the years that get the same error ! What libraries are referenced in your setup?

Linq ;0)>

I try to figure it to. Plz post your system config, Acc version etc.
And, G..d save us, plz look at Object Browser whether you have Access.Combobox.AddItem method.

What libraries are referenced in your setup?

Just those that are referenced by default.

• VBA
• Access 11.0 Object Library (here Combobox class defined)
• DAO 3.6 Object Library
• ADO 2.1 Object Library
• OLE Automation

Regards,

Fish

P.S. Adding my example to the post.

[Scott Price]

My handy-dandy desk reference says this about AddItem:

Access 2002 finally added the AddItem method of Visual Basic list and combo boxes for populating these controls with VBA code.

Looks like if you're running Access 2000 you're out of luck with this method :-(

I think, Linq you are running 2000, no?

Regards,
Scott

p.s. I'm running Access 2003, and it works fine for me... Think Fish is running 2003 also?

[missinglinq]

Give that man (Scott) a cigar! Yes, indeed , Fish is running 2003 and I, sad to say, am running 2000! I'll put this little tidbit in my answers reference library!

This is one of those times (and there are a number of them) when you truly have to wonder, what in the world was Micro$oft thinking about? Why take an existing function and limit its application in VBA?

Happy hump day to all!

Linq ;0)>

[missinglinq]

There are only two (that I've ever been able to find) options for this problem for those running pre-ACC2002 versions, where .AddItem isn't available. The first, as istya has found out, I think, is that you can use a hack something like

YourComboBox.RowSource = YourComboBox.RowSource & ";" &  Me.ItemToAdd

Where ItemToAdd is a textbox where you enter a new item to be added. The problem with this method is that the items are only added to the RowSource for the duration of the Access session; once the form is closed the added items disappear.

The only way to permanently add items to the combobox is to base it on a small table designed for the sole purpose of populating the combobox. Then you can use a standard NotInList routine to add an item to the underlying table.

I've been trying to find a workaround that adds the item permanently without having to have a separate table for a while now, and will continue to look. Any ideas are welcome.

Linq ;0)>