dbl action command button

J

Joanne

I have a command button that, when clicked, I want it to prompt the
user to proofread their input before sending to the printer - then
when they click the ok button, I change the caption on the buttton,
but I can't figure out how to get it to do the second action, which is
to make the next form active.

My form is a tab form with two pages (tabs) on it.
The action begins on the 'EmpCompPage1" part of the form

This is what I have so far

Private Sub cmdPrintStopToProofread_Click()

Dim msgProof As Byte
Dim mymsg As String
mymsg = "Please proofread your input before printing."

msgProof = MsgBox(mymsg, vbOKOnly, "Please Proofread")


If msgProof = vbOK Then
cmdPrintStopToProofread.Caption = "Ready to Print"

Here is where the trouble is ************************************

cmdPrintStopToProofread.OnClick = EmpCompPage2.GotFocus

******************************************************************
End If

End Sub

The last line is where I am stuck. I am trying to tell the program to
go to the 'EmpCompPage2" part of the form to choose the docs to
printout.

Any advice is always appreciated.
TIA
Joanne
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top