This is the help from Microsoft, you can access it from the module window by
typing deletecontrol, selecting it and pressing F1.
DeleteControl Method
The DeleteControl method deletes a specified control from a form.
expression.DeleteControl(FormName, ControlName)
expression Required. An expression that returns one of the objects in the
Applies To list.
FormName Required String. A string expression identifying the name of the
form or report containing the control you want to delete.
ControlName Required String. A string expression identifying the name of
the control you want to delete.
Remarks
For example, suppose you have a procedure that must be run the first time
each user logs onto your database. You can set the OnClick property of a
button on the form to this procedure. Once the user has logged on and run
the procedure, you can use the DeleteControl method to dynamically remove
the command button from the form.
The DeleteControl method is available only in form Design view or report
Design view, respectively.
Note If you are building a wizard that deletes a control from a form or
report, your wizard must open the form or report in Design view before it
can delete the control.
Example
The following example creates a form with a command button and displays a
message that asks if the user wants to delete the command button. If the
user clicks Yes, the command button is deleted.
Sub DeleteCommandButton()
Dim frm As Form, ctlNew As Control
Dim strMsg As String, intResponse As Integer, _
intDialog As Integer
' Create new form and get pointer to it.
Set frm = CreateForm
' Create new command button.
Set ctlNew = CreateControl(frm.Name, acCommandButton)
' Restore form.
DoCmd.Restore
' Set caption.
ctlNew.Caption = "New Command Button"
' Size control.
ctlNew.SizeToFit
' Prompt user to delete control.
strMsg = "About to delete " & ctlNew.Name &". Continue?"
' Define buttons to be displayed in dialog box.
intDialog = vbYesNo + vbCritical + vbDefaultButton2
intResponse = MsgBox(strMsg, intDialog)
If intResponse = vbYes Then
' Delete control.
DeleteControl frm.Name, ctlNew.Name
End If
End Sub
"Melissa" <mk****@earthlink.net> wrote in message
news:%7*******************@newsread2.news.atl.eart hlink.net...
I need to run a one-time procedure and I was thinking of running it with a
self-destrucy button so that the procedure could not be run again!
Melissa
"Rick Brandt" <ri*********@hotmail.com> wrote in message
news:2h************@uni-berlin.de... "Melissa" <mk****@earthlink.net> wrote in message
news:1G****************@newsread3.news.atl.earthli nk.net... What is the code to delete a command button from a form? Can the code
be run from the click event of the button to be deleted?
Do you mean hide it? Why would you ever need (or want) to delete a
button from code?
--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com
---
Please immediately let us know (by phone or return email) if (a) this email
contains a virus
(b) you are not the intended recipient
(c) you consider this email to be spam.
We have done our utmost to make sure that
none of the above are applicable. THANK YOU
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.690 / Virus Database: 451 - Release Date: 22/05/2004
