ListBox_AfterUpdate proceedure causing loop

[j_Southern]

Dear members,
I am still stuck on my continuous loop problem.
The folowing code causes the trouble. As soon as an order is selected in ListBox1 The proceedure goes into a loop as if the ListBox is continualy being updated. I have used this technique before without problem, but can't see what I am doing differently. Help would be greatly appreciated.
I have attached an extract drom the workbook in case that helps. The password is "magpie"

Please Login or Register  to view this content.

[snb]

Please Login or Register  to view this content.

[j_Southern]

snb
Thanks a lot for your reply.
Although your code is much neater than mine, I cant see any difference in principle. I will try it anyway and let you know how I get on.
John

[j_Southern]

sbn
I have tried your code but I still get caught in the loop. If I put in a code line such as STOP or a MsgBox then the code (yours and mine) works and the text boxes are populated. However it should work in such a way that as soon as I highlight the ListBox1 value, the Form is populated, and if I change the ListBox1 value, the form should repopulate with new values. I have similar code doing this job on other projects, and I cannot see why it doesn't work on this one.

[snb]

Please Login or Register  to view this content.

But is much simpler to read into listbox1 all the possible values:

Please Login or Register  to view this content.

and use this code on listbox1_change

Please Login or Register  to view this content.

[j_Southern]

snb
I am gob smacked that you have put so much effort into solving my problem. Thank you so much.
I understand that you are suggesting I use the _Change rather than _Update event. The use of list and listindex is new to me so it will take a little while for me to understand it, but I am certainly going to try, and will let you know how I fare
Regards
John

[snb]

I will monitor your progress....

[nimrod]

The original looping error was caused by the line ".ListBox1.BoundColumn = 1" if you delete that line you can get your OrderNo by ...

OrderNo = .ListBox1.Column(0, .ListBox1.ListIndex)

.. and then the loop issue will stop happening.

[j_Southern]

snb,
The list listindex method worked perfectly thank you. I shall use it in future it saves a lot of coding.

nimrod,
Thank you too for your contribution. Your solution ties in well with the above.