Solved: Removing Controls on the Fly

[Djblois]

I am using this code to add a control on the fly:

RNM = "ReportName"
LBL = "ReportLabel"
Email.Controls.Add bstrProgId:="Forms.Label.1", Name:=RNM, Visible:=True
Email.Controls(RNM).Top = 70
Email.Controls(RNM).Left = 6
Email.Controls(RNM).Height = 30
Email.Controls(RNM).Width = 150
Email.Controls(RNM).Caption = "What do you want to name the file?"
Email.Controls(RNM).Font.Bold = True


However, I can't figure out how to remove the same control on the fly.

Daniel

[XLGibbs]

Email.Controls(RNM).Delete ?

[Djblois]

I tried that and
email.controls(RNM).Remove

neither one works. Also adding the form is in one control_Click. and removing the control is in a different control_click.

[Djblois]

I would also like to test if the control exists before I add it?

[CBrine]

Djblois,
Are you adding the controls to a userform or a worksheet?

[Djblois]

I am adding them to a userform. That part works correctly. However, I can't remove them and I would like to test if they are there already before I add them.

[CBrine]

Djblois,
Here's the code revisions you need.

To check to see if the control exists before adding.


Private Sub CommandButton1_Click()
Dim c As Control, F As Boolean
rnm = "ReportName"
LBL = "ReportLabel"
F = False
For Each c In Me.Controls
If c.Name = rmn Then
F = True
End If
Next c
If F = False Then
Email.Controls.Add bstrProgId:="Forms.Label.1", Name:=rnm, Visible:=True
Email.Controls(rnm).Top = 70
Email.Controls(rnm).Left = 6
Email.Controls(rnm).Height = 30
Email.Controls(rnm).Width = 150
Email.Controls(rnm).Caption = "What do you want to name the file?"
Email.Controls(rnm).Font.Bold = True
Else
'Not sure what you want to do here
End If
End Sub


To remove an existing control


Private Sub CommandButton2_Click()
Email.Controls.Remove "ReportName"
End Sub



HTH
Cal

[Djblois]

Thank you,
Cbrine