DataValidation

[newby2VBA]

I just created the following:

Private Sub ContractControlNum_AfterUpdate()
Dim L2result As String
L2result = Left(Me![ContractControlNum], 2)
If L2result <> "AB" Then
'or L2result <> "TR" Then
MsgBox "You must enter either the letters TR or AB in front of the Number."

End If

End Sub
This works for AB but when I uncomment for TR to also be a choice for the entry I get error 13 type mismatch?
Any way to fix this ?

 

[SOS]

It would be:

If L2result <> "AB" OR L2result <> "TR" Then

 

[newby2VBA]

It would be:

If L2result <> "AB" OR L2result <> "TR" Then

That's correct but it does not work when I do that. Anyone have a solution for me?

 

[SOS]

That's correct but it does not work when I do that. Anyone have a solution for me?

Sorry, replace the OR with an AND

 

[kwhweb]

MsgBox (resultant action) should be on the same line as the "If ... Then" test
or you must use an "If ... Then ... Else ... End If" line-by-line structure

 

[newby2VBA]

Thank you that worked like a charm