Msg box coding

[Guest]

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

 

[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. 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