ItemData

L

Lana

Hi all,

I want my combo37 to offer me values as follows (every time only 3 rows, but
values depend on what i choose from other 2 combos: combo21 & ToPerson1)

Me.Combo37.[ItemData](0) = Me.ToPerson1.Column(4)
Me.Combo37.[ItemData](1) = Me.ToPerson1.Column(5)
Me.Combo37.[ItemData](2) = Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)

I have placed this code on AfterUpdate event of Combo ToPerson1. (which is
re-queried each time when Combo21 is updated)


However i was probably wrong as i get a message "run-time error 424: Object
Required" when trying to update the Combo ToPerson1.


Can anybody give me a hint where i was wrong, please?

Thank you.
Lana
 
J

Jeanette Cunningham

Hi Lana,
try moving this code to the Enter event for combo37
With the code you have, there will be an error if combo21 is empty when the
after update for ToPerson1 runs.

Jeanette Cunningham
 
L

Lana

Hi Jeanette ,

I tried to do as you suggest, but i still keep getting the same error
message "run-time error 424: Object Required" - but now it appears when i try
to update the Combo37.

Lana


Jeanette Cunningham said:
Hi Lana,
try moving this code to the Enter event for combo37
With the code you have, there will be an error if combo21 is empty when the
after update for ToPerson1 runs.

Jeanette Cunningham

Lana said:
Hi all,

I want my combo37 to offer me values as follows (every time only 3 rows,
but
values depend on what i choose from other 2 combos: combo21 & ToPerson1)

Me.Combo37.[ItemData](0) = Me.ToPerson1.Column(4)
Me.Combo37.[ItemData](1) = Me.ToPerson1.Column(5)
Me.Combo37.[ItemData](2) = Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)

I have placed this code on AfterUpdate event of Combo ToPerson1. (which is
re-queried each time when Combo21 is updated)


However i was probably wrong as i get a message "run-time error 424:
Object
Required" when trying to update the Combo ToPerson1.


Can anybody give me a hint where i was wrong, please?

Thank you.
Lana
Click to expand...
Click to expand...
 
J

Jeanette Cunningham

Lana, I have to go now, if no one else has answered by tomorrow, I will post
back.

Jeanette Cunningham


Lana said:
Hi Jeanette ,

I tried to do as you suggest, but i still keep getting the same error
message "run-time error 424: Object Required" - but now it appears when i
try
to update the Combo37.

Lana


Jeanette Cunningham said:
Hi Lana,
try moving this code to the Enter event for combo37
With the code you have, there will be an error if combo21 is empty when
the
after update for ToPerson1 runs.

Jeanette Cunningham

Lana said:
Hi all,

I want my combo37 to offer me values as follows (every time only 3
rows,
but
values depend on what i choose from other 2 combos: combo21 &
ToPerson1)

Me.Combo37.[ItemData](0) = Me.ToPerson1.Column(4)
Me.Combo37.[ItemData](1) = Me.ToPerson1.Column(5)
Me.Combo37.[ItemData](2) = Me.Combo21.Column(3) +
Me.Combo21.Column(4) +
Me.Combo21.Column(5)

I have placed this code on AfterUpdate event of Combo ToPerson1. (which
is
re-queried each time when Combo21 is updated)


However i was probably wrong as i get a message "run-time error 424:
Object
Required" when trying to update the Combo ToPerson1.


Can anybody give me a hint where i was wrong, please?

Thank you.
Lana
Click to expand...
Click to expand...
Click to expand...
 
D

Douglas J. Steele

As far as I'm aware, the ItemData collection is read-only: you cannot set
values in the way you're trying.

Instead, try:

Me.Combo37.RowSource = vbNullString
Me.Combo37.RowSourceType = "Value List"
Me.Combo37.AddItem Me.ToPerson1.Column(4)
Me.Combo37.AddItem Me.ToPerson1.Column(5)
Me.Combo37.AddItem Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)
 
L

Lana

Hi Douglas!

Thank you so much!
I tried your suggestion and it worked - i can see the data and can choose
what i want, but there is 1 problem: when i exit the combo37 i get the
"run-time error 94: Invalid use of Null".....

could this be because of some of the data in Me.ToPerson1.Column(5) or
Me.ToPerson1.Column(4) is missing? how to fix it?

Many thanx!
Lana


Douglas J. Steele said:
As far as I'm aware, the ItemData collection is read-only: you cannot set
values in the way you're trying.

Instead, try:

Me.Combo37.RowSource = vbNullString
Me.Combo37.RowSourceType = "Value List"
Me.Combo37.AddItem Me.ToPerson1.Column(4)
Me.Combo37.AddItem Me.ToPerson1.Column(5)
Me.Combo37.AddItem Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Lana said:
Hi all,

I want my combo37 to offer me values as follows (every time only 3 rows,
but
values depend on what i choose from other 2 combos: combo21 & ToPerson1)

Me.Combo37.[ItemData](0) = Me.ToPerson1.Column(4)
Me.Combo37.[ItemData](1) = Me.ToPerson1.Column(5)
Me.Combo37.[ItemData](2) = Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)

I have placed this code on AfterUpdate event of Combo ToPerson1. (which is
re-queried each time when Combo21 is updated)


However i was probably wrong as i get a message "run-time error 424:
Object
Required" when trying to update the Combo ToPerson1.


Can anybody give me a hint where i was wrong, please?

Thank you.
Lana
Click to expand...
Click to expand...
 
J

Jeanette Cunningham

Lana,

If Not IsNull(Me.ToPerson1.Column(4) then
Me.Combo37.AddItem Me.ToPerson1.Column(4)
End If

If Not IsNull(Me.ToPerson1.Column(5) then
Me.Combo37.AddItem Me.ToPerson1.Column(5)
End If


If Not IsNull(Me.Combo21) then
Me.Combo37.AddItem Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)
End If

Jeanette Cunningham



Lana said:
Hi Douglas!

Thank you so much!
I tried your suggestion and it worked - i can see the data and can choose
what i want, but there is 1 problem: when i exit the combo37 i get the
"run-time error 94: Invalid use of Null".....

could this be because of some of the data in Me.ToPerson1.Column(5) or
Me.ToPerson1.Column(4) is missing? how to fix it?

Many thanx!
Lana


Douglas J. Steele said:
As far as I'm aware, the ItemData collection is read-only: you cannot set
values in the way you're trying.

Instead, try:

Me.Combo37.RowSource = vbNullString
Me.Combo37.RowSourceType = "Value List"
Me.Combo37.AddItem Me.ToPerson1.Column(4)
Me.Combo37.AddItem Me.ToPerson1.Column(5)
Me.Combo37.AddItem Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Lana said:
Hi all,

I want my combo37 to offer me values as follows (every time only 3
rows,
but
values depend on what i choose from other 2 combos: combo21 &
ToPerson1)

Me.Combo37.[ItemData](0) = Me.ToPerson1.Column(4)
Me.Combo37.[ItemData](1) = Me.ToPerson1.Column(5)
Me.Combo37.[ItemData](2) = Me.Combo21.Column(3) +
Me.Combo21.Column(4) +
Me.Combo21.Column(5)

I have placed this code on AfterUpdate event of Combo ToPerson1. (which
is
re-queried each time when Combo21 is updated)


However i was probably wrong as i get a message "run-time error 424:
Object
Required" when trying to update the Combo ToPerson1.


Can anybody give me a hint where i was wrong, please?

Thank you.
Lana
Click to expand...
Click to expand...
Click to expand...
 
L

Lana

Thank you SO MUCH Jeanette !!!
It worked!!!
Lana


Jeanette Cunningham said:
Lana,

If Not IsNull(Me.ToPerson1.Column(4) then
Me.Combo37.AddItem Me.ToPerson1.Column(4)
End If

If Not IsNull(Me.ToPerson1.Column(5) then
Me.Combo37.AddItem Me.ToPerson1.Column(5)
End If


If Not IsNull(Me.Combo21) then
Me.Combo37.AddItem Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)
End If

Jeanette Cunningham



Lana said:
Hi Douglas!

Thank you so much!
I tried your suggestion and it worked - i can see the data and can choose
what i want, but there is 1 problem: when i exit the combo37 i get the
"run-time error 94: Invalid use of Null".....

could this be because of some of the data in Me.ToPerson1.Column(5) or
Me.ToPerson1.Column(4) is missing? how to fix it?

Many thanx!
Lana


Douglas J. Steele said:
As far as I'm aware, the ItemData collection is read-only: you cannot set
values in the way you're trying.

Instead, try:

Me.Combo37.RowSource = vbNullString
Me.Combo37.RowSourceType = "Value List"
Me.Combo37.AddItem Me.ToPerson1.Column(4)
Me.Combo37.AddItem Me.ToPerson1.Column(5)
Me.Combo37.AddItem Me.Combo21.Column(3) + Me.Combo21.Column(4) +
Me.Combo21.Column(5)


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Hi all,

I want my combo37 to offer me values as follows (every time only 3
rows,
but
values depend on what i choose from other 2 combos: combo21 &
ToPerson1)

Me.Combo37.[ItemData](0) = Me.ToPerson1.Column(4)
Me.Combo37.[ItemData](1) = Me.ToPerson1.Column(5)
Me.Combo37.[ItemData](2) = Me.Combo21.Column(3) +
Me.Combo21.Column(4) +
Me.Combo21.Column(5)

I have placed this code on AfterUpdate event of Combo ToPerson1. (which
is
re-queried each time when Combo21 is updated)


However i was probably wrong as i get a message "run-time error 424:
Object
Required" when trying to update the Combo ToPerson1.


Can anybody give me a hint where i was wrong, please?

Thank you.
Lana
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Listbox Itemdata editable at runtime? 9
Trouble adding (All) to a combo 4
problem with mulit-column value list combo box 2
Co-ordinating comboboxes 2
Noob VB code, Need help with Passing multiSelect Listbox 6
Combo box default value multiautocomplete 2
Combo Box selecting first item in list 3
Change the combo box value according to the value in a textbox on the same form 1

Top