Link to home
Start Free TrialLog in
Avatar of SteveL13
SteveL13Flag for United States of America

asked on

Don't allow new record to be added from a form if a command buttin was not clicked

I have a form which has a command button on it.  This may seem strange but I do not want the user to be able to add a record from the form if the command button was not clicked while entering data in the current record.  I do want a message box to appear letting them know they have to click the command button.

However, the command button is only visible IF certain criteria was met in another field, a combobox field, on the form named "cboToWH".  The value in that combobox has to be "AT" (without the quotes in order for this event making the user click the command button to take place.

How can I do this?

--Steve
Avatar of SteveL13
SteveL13
Flag of United States of America image

ASKER

To further explain...  here is my code:

Private Sub cmdAddRec_Click()
On Error GoTo Err_cmdAddRec_Click
   
    If Me.cboToWH = "AT" And Me.chkbxRedButton.DefaultValue = False Then
        MsgBox "Since this is a shipment for Tijuana you must click the red button!"
        Me.chkbxRedButton.SetFocus
    End If
   
   
    DoCmd.RunCommand acCmdSaveRecord

    DoCmd.GoToRecord , , acNewRec
    Me.cboPartN.SetFocus
    Me.txtJobN.TabStop = False
    Me.txtDateEntered.TabStop = False
    Me.txtDateDue.TabStop = False
    Me.txtPOn.TabStop = False
    Me.cboToWH.TabStop = False
    Me.txtCarrier.TabStop = False
    Me.txtProN.TabStop = False
    Me.txtWHlocation = ""
    Me.Command67.Visible = False

Exit_cmdAddRec_Click:
    Exit Sub

Err_cmdAddRec_Click:
    MsgBox Err.Description
    Resume Exit_cmdAddRec_Click
   
End Sub


So, after the "Me.chkbxRedButton.SetFocus" line I want the form to stop and wait for the user to click the command button.  How do I do this?
ASKER CERTIFIED SOLUTION
Avatar of Norie
Norie

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial