OK/Cancel Buttons?

[fujiyama17]

Can someone give me the script for simple OK/cancel buttons on a form? With the focus on the OK button like Windows? That would be awesome!! Thanks!!

~Brian

[ttingen]

Draw two buttons on the form. Name on cmdOK and the other cmdCancel.

Make the caption on cmdOK "&OK" and change the default property to "True".

Make the caption on cmdCancel "&Cancel".

Then place the statement Unload Me in cmdCancel.

Private Sub cmdCancel_Click()
    'Unloads the Form
    Unload Me
End Sub

[Joacim Andersson]

Also if you set the Cancel property to True for the Cancel button the user can press the Escape key and the Click event will be raised.

[HeSaidJoe]

'<< or >>

'a command button called Quit

Private Sub Quit_Click()

    Dim lResult As Long
    
    lResult = (MsgBox("Do You Really Want To Quit?", vbYesNo, "Quit Application"))
    
    If lResult = 6 Then
       Dim Form As Form
         For Each Form In Forms
             Unload Form
             Set Form = Nothing
          Next Form
    Else
        Exit Sub  'or whatever you want to do
    End If

End Sub