Form listbox button commmand

[PATRICK]

I have a listbox in my form that has 4 coluns showing name,code,price of produtcs. then I have 45 command button in the form "cmditem1 .. to cmditem45". What Im trying to do is: i need to read the listbox and then rename the caption of the buttons command to the product name like:



cmditem1.caption = listaproduto.Column(1, 0)

so with that I have rename the caption of one button to the fist name of product in the list box. great! but now,how can I do a loop or whatever to rename the caption the rest of the buttons with the rest of the products names because I dont want to repeat that for each one.

[pbaldy]

Not sure about the practicality of 45 buttons, but you could have a For/Next loop and use the loop variable in your code:

For x = 1 To 45
Me("cmditem" & x).caption = listaproduto.Column(1, x-1)

[PATRICK]

Thanks Paul, I adapted your code its working very good. the thing is like I have only 45 buttons and then some categories had less itens then 45 and was rename the buttons but after I had a error message because didn't had data for the rest of the buttons, so here what I did for someone that wants to use it:

//
For X = 0 To listaproduto.ListCount - 1
For Y = listaproduto.ListCount To 44
Me("cmditem" & X).Caption = listaproduto.Column(1, X)
Me("cmditem" & Y).Caption = " " or .visible = false //if you want to hide the rest
//


where "x" represents the total of products in the listbox will rename the caption. If the list box has only 15, the code will rename only 15 buttons. and "Y" is the rest of the buttons that you can hide the caption or the button.

[pbaldy]

Happy to help.