Msg box coding

A

Alylia

Hello,

I am trying to include on the message box "The requested form is still under
construction". Can I get assistance on where that should be included on the
syntax below.

Private Sub cboSelForm_AfterUpdate()
If cboSelForm = "Training Travel Monitoring Form" Then
MsgBox Err.Description, vbExclamation, "Procuremnt Database"
Else
cmdSelForm.Enabled = True
cmdSelForm.SetFocus
End If
End Sub

Thanks
 
R

ruralguy via AccessMonster.com

Private Sub cboSelForm_AfterUpdate()
If Me.cboSelForm = "Training Travel Monitoring Form" Then
MsgBox "The requested form is still under construction", vbExclamation,
"Procuremnt Database"
Else
cmdSelForm.Enabled = True
cmdSelForm.SetFocus
End If
 
J

J. Goddard

It's in the right place where it is. err.description doesn't work
because there is no error. Just change the code to:

Private Sub cboSelForm_AfterUpdate()
If cboSelForm = "Training Travel Monitoring Form" Then
MsgBox "The requested form is still under construction",
vbExclamation, "Procurement Database"
Else
cmdSelForm.Enabled = True
cmdSelForm.SetFocus
End If
End Sub

John
 
Top