You can use the code above. It will help you with Q1. MyControl is as is. You said you wanted to change all the comboboxes:
Used just like a control array.Code:Private Sub Combo1_Change() For Each MyControl In Me.Controls If TypeOf MyControl Is ComboBox Then MyControl.Text = Combo1.Text Next End Sub Private Sub Combo1_Click() For Each MyControl In Me.Controls If TypeOf MyControl Is ComboBox Then MyControl.Text = "Comboboxes" Next End Sub
If this is not what you want, just explain a bit more and I'll see what I can do.
Because that's what it looks like you are askin'..how to change all the text in comboboxes or something.
Than again, it's late, I'm tired, and my eyes are struggling to stay open.




Reply With Quote