Try this ...
Code:
1 Create a new form.
2 Place a command button on the form (name it "cmdMyCommandButton").
3 Put the following code into the command button's Click event -
MsgBox "Here."
(
It should look like this -
Private Sub cmdMyCommandButton_Click()
MsgBox "Here"
End Sub
)
4 Change "Private" to "Public" so it looks like this -
Public Sub cmdMyCommandButton_Click()
MsgBox "Here"
End Sub
5 Save and close the form (name it "Form1").
6 Create a new module and in it a procedure like this -
Public Sub DoIt()
Form_Form1.cmdMyCommandButton_Click
End Sub
7 With the cursor within the procedure, click the "Run Sub" Toolbar icon ...
a "Here" message should display.
AND Try this.
Change the code behind the Click event of your command button from, say,
"Private Sub MyButton_Click()" to "Public Sub MyButton_Click()" then use the
line following to execute the code from, say, a module -
Form_MyForm.MyButton_Click (where "MyForm" is the name of your form)
The form does NOT have to be open.
You call the sub behind the command button with this line -
Code:
Form_frmFormName.cmdButton_Click
where frmFormName is the name of the form containing the command button and
cmdButton is the name of the command button.
BUT FIRST YOU MUST change the clcik procedure behind the command button from
Code:
"Private Sub cmdButton_Click()" to "Public Sub cmdButton_Click()".
Bookmarks