Creating Userform Controls on Frame
 

Hi all,

How can I create "on the fly" other controls on a Frame, if the frame itself
is to be created on the fly. The following code (simplified to create a
CheckBox on a Frame) failed.

Private Sub Userform_Initialize()
Dim x as Control, y as Control
Set x = Me.Controls.Add("Forms.Frame1.1")
Set y = Me..Frame1.Controls.Add("Forms.CheckBox1.1")
End Sub

The code balks at "Frame1" with "Method or data member not found" error
message. Apparently, the code fails to detect the Frame purported to have
been created earlier.

Any help will be appreciated.

Creating Userform Controls on Frame
 

The code you purport to partially work appears to have errors. Anyway, this
worked for me:

Private Sub Userform_Initialize()
Dim x As Control, y As Control
Set x = Me.Controls.Add("Forms.Frame.1", Name:="Frame1")
Set y = x.Controls.Add("Forms.CheckBox.1", Name:="Chkbx1")
End Sub

--
Regards,
Tom Ogilvy


"David Myle" wrote in message
...
Hi all,

How can I create "on the fly" other controls on a Frame, if the frame
itself
is to be created on the fly. The following code (simplified to create a
CheckBox on a Frame) failed.

Private Sub Userform_Initialize()
Dim x as Control, y as Control
Set x = Me.Controls.Add("Forms.Frame1.1")
Set y = Me..Frame1.Controls.Add("Forms.CheckBox1.1")
End Sub

The code balks at "Frame1" with "Method or data member not found" error
message. Apparently, the code fails to detect the Frame purported to have
been created earlier.

Any help will be appreciated.

Creating Userform Controls on Frame
 

Many thanks Tom.

DM


"Tom Ogilvy" wrote in message
...
The code you purport to partially work appears to have errors. Anyway,
this
worked for me:

Private Sub Userform_Initialize()
Dim x As Control, y As Control
Set x = Me.Controls.Add("Forms.Frame.1", Name:="Frame1")
Set y = x.Controls.Add("Forms.CheckBox.1", Name:="Chkbx1")
End Sub

--
Regards,
Tom Ogilvy


"David Myle" wrote in message
...
Hi all,

How can I create "on the fly" other controls on a Frame, if the frame
itself
is to be created on the fly. The following code (simplified to create a
CheckBox on a Frame) failed.

Private Sub Userform_Initialize()
Dim x as Control, y as Control
Set x = Me.Controls.Add("Forms.Frame1.1")
Set y = Me..Frame1.Controls.Add("Forms.CheckBox1.1")
End Sub

The code balks at "Frame1" with "Method or data member not found" error
message. Apparently, the code fails to detect the Frame purported to
have
been created earlier.

Any help will be appreciated.