Message Box Pops up When Entering Field

[JamesJoey]

I have message box come up in the On Enter of field (ContactTypeID):

 Select Case MsgBox("Take care when editing this field!", vbOKCancel Or vbExclamation Or vbDefaultButton1, "Access DB")
     
 Case vbOK
     Case vbCancel
    
        Me!Listing.SetFocus
    
End Select

to warn the user that this will change the contact type of the record.

When I click the field everything works fine except I'm not able to enter the next field. All other fields I'm able to enter.

Also, when I try top enter the next field (Phone) I get the message box for the other field even though I have nop message box function for that field.

I'm totally lost.

Any help will be appreciated,
James

 

[llkhoutx]

Post the complete code for the "OnEnter" event. What you post is inadequate for me.

 

[JamesJoey]

I have the complete code in my OP.
But, I was using it to edit data on a Split Form. I have since began using editing forms. So the field doesn't exist on the Split From now.