Code Problems

[Ielamrani]

Hi,
Can anyone tell me what's wrong with this code?

Private Sub cmbProvWrkCde_LostFocus()
If txtProviderID = "*P" And cmbProvWrkCde = "P-X" Then
MsgBox "Inactivating PCP Office Location Needs Approval From Director Of Department", vbOKOnly, "Password"

End If
End Sub


I am trying to send a message box everytime txtProviderID = Number that end with P (e.g. 145879P) and cmbProvWrkCde = P-X.

Thanks in advance.
Ismail

 

[PHV]

If Right(txtProviderID, 1) = "P" And cmbProvWrkCde = "P-X" Then

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Ielamrani]

Man that was quick and it worked. Thank you very much.
Ismail

 

[psemianonymous]

Please also move the data validation code to the comboboxes' BeforeUpdate() event; this will prevent people from saving the changes before "losing focus" on the combobox. That or the form's BeforeUpdate() event. Note that you can prevent changes in these events (whereas in the LostFocus() event you cannot prevent anything).

 

[Ielamrani]

Sorry to reply late. Thank you for your suggestions. I will change ther the data validation code.
Ismail