A COMBO of a problem

[ian_ok]

I've got a combo box which displays names and addresses, yet when you decide on which one to pick it only displays the surname, how can I get it to display the rest of the data that is originally shown in the drop down.

Ian

 

[ian_ok]

Thanks once again Pat...but!

One small problem I've used your unbound method and I get ERROR message Microsoft Access can't find the macro 'Me'

Any help?

Ian

 

[ian_ok]

OK....I didn't know you meant code!!!

This is what I've done, but I get a compiler error...ANY HELP?

Private Sub offered_AfterUpdate()
Me.txt10 = Me.txtCombo.Column2
End Sub

Ian

PS It's also my first bit of code so be kind!!!


[This message has been edited by ian_ok (edited 05-22-2001).]

 

[chrisk]

The column numbers are an array, so you need the brackets round the 2, ie

Private Sub offered_AfterUpdate()
Me.txt10 = Me.txtCombo.Column(2)
End Sub

Chris.

 

[ian_ok]

Thjanks Chris.....but!

I still get a compiler error

The private sub line gets a yellow arrow and the txtCombo is highlighted blue!

I've tried to change the word Combo to what the combo is called ie offered, but I still get the error>

Private Sub offered_AfterUpdate()
Me.txt10 = Me.txtCombo.Column(2)
End Sub

Any more help for a non coder

Ian

 

[LeslieB]

try this ...

instead of me use the name of the form

 

[Rich]

Open the property sheet for the form in design view, click on the combo box, click the "Other" tab on the property sheet the name of your combo box will be there copy and paste it after Me. add the column reference after.
HTH

 

[ian_ok]

Still not working, have tried Rich's method, the error doesn't appear but neither does the info in the text box!!

Below is my code...
The combo box is called 'offered1 and the text box is called 'test' and there is data in column 3 to copy over

Private Sub offered_AfterUpdate()
Me.txttest = Me.txtoffered.Column(3)
End Sub

What is wrong with the code?

Ian

 

[charityg]

Like Pat said, the array is zero based, so use
Private Sub offered_AfterUpdate()
Me.txttest = Me.txtoffered.Column(2)
End Sub

 

[ian_ok]

It works when I do the code given below, BUT it also updates the next offer for that person ie it adds the info in the next text box, any suggestions?

Remember this is a subform, so after you start to enter the first offer the offer under it becomes 'live'...I think this is what i need to stop?

It also changes each of the text box data to which ever offer person you choose, instead of being kept different for each offer


Private Sub offered_AfterUpdate()
Me.test = Me.offered.Column(3)
End Sub

[This message has been edited by ian_ok (edited 05-23-2001).]

 

[charityg]

Is your combobox a bound control? If it isn't, and your text boxes aren't bound, then none of the information is specific to the current record. The easiest way to fix this would be to bind the combo box to a field in the form's underlying datasource where you want to store the information that the combobox is selecting.