editing a code

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

I have the following code for a subform

Private Sub Description_AfterUpdate()
If InStr(1, Me.Description, "Approval") <> 0 Then
Call MsgBox("Please, update the Approval Date on the
CASE STATUS LIST !!!")
End If
End Sub

How I can add another condition to the same Description
field after update

If InStr(1, Me.Description, "Receipt") <> 0 Then
Call MsgBox("Please, update the Receipt Date on the
CASE STATUS LIST !!!")
 
You can simply add your second condition between the End If and End Sub of
your current code.
Be sure to add an End If for it, too.

HTH
- Turtle
 
Back
Top