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
ASKER
Private Sub cmdAddRec_Click()
On Error GoTo Err_cmdAddRec_Click
If Me.cboToWH = "AT" And Me.chkbxRedButton.DefaultV
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.SetFocu