Clear textbox

[poporacer]

I have a form to input new contacts. The form has a text box for the entry of a Id# for the contact. What I want to do is check this ID# and if it already exists, let the user know and clear out the text box and return to the textbox for rentry of the correct ID#. For some reason I can't get the textbox to clear... Here is the code I am using

Private Sub txtCDCNum_BeforeUpdate(Cancel As Integer)

If Not IsNull(DLookup("[CDCNum]", "tblInmates", "[CDCNum]= '" & StrConv(txtCDCNum, vbUpperCase) & "'")) Then
Me.txtCDCNum.Undo '**<-- This doesn't clear textbox
Cancel = True
MsgBox "This CDC Number already exists. Please enter a new CDC Number.", vbOKOnly, "Duplicate CDC Number"
End If

End Sub



Any suggestions?

 

[PHV]

What about this instead ?
Me!txtCDCNum.Value = Null

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[poporacer]

That doesn't work because you cant change the value in a control in the before update event....the data isn't committed to the control until after the control is updated

 

[PHV]

And this ?

If Not IsNull(DLookup("CDCNum", "tblInmates", "CDCNum='" & Me!txtCDCNum & "'")) Then
  MsgBox "This CDC Number already exists. Please enter a new CDC Number.", vbOKOnly, "Duplicate CDC Number"
  Cancel = True
  Me!txtCDCNum.Undo
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[poporacer]

I tried that too.Still the same.