Easy Combobox ?

[AricC]

I'm trying to hard code values to a combo box using the following code:

Private Sub Form_Load()
Me.cmbPrinter.AddItem "Item1"
Me.cmbPrinter.AddItem "Item2"
 
End Sub

I have the the Row Source Type set to Value List. When the form loads nothing is added to the combo box. What am I missing here?

Thanks,
Aric

[Tanis]

You need the On Not In List event of the combo box. Look around, there are plenty of examples.

[missinglinq]

If you're hard wiring these values in, why bother putting them in code? Why not simply enter them under Row Source i.e.

"Item1";"Item2";"Item3" etc.

[AricC]

I have Row Source Type = Value List then Row Source = "Item1";"Item2";"Item3" still nothing shows.

[AricC]

I also tried: ( Not working )

Private Sub cmbPrinter_NotInList(NewData As String, Response As Integer)
Me.cmbPrinter.AddItem "Item1"
Me.cmbPrinter.AddItem "Item2"
End Sub

[AricC]

Never mind PEBKAC error.

[MMcCarthy]

I also tried: ( Not working )

Private Sub cmbPrinter_NotInList(NewData As String, Response As Integer)
Me.cmbPrinter.AddItem "Item1"
Me.cmbPrinter.AddItem "Item2"
End Sub

AddItem doesn't work in standard VBA. Try this:

 
Private Sub cmbPrinter_NotInList(NewData As String)
Dim strRowSrc As String
 
  ' you can only add one item at a time
  strRowSrc = Me.cmbPrinter.RowSource
  Me.cmbPrinter.RowSource = strRowSrc & ";'" & NewData & "'"
  Me.cmbPrinter.Requery
 
End Sub
 
 

[NeoPa]

Never mind PEBKAC error.

Wrong Keyboard? or should that be PEBOAC?