Clear Form

[hithere]

I have a from that will allow users to create new individuals with specs for name, ID, DOB etc. However if the individual's ID is already in use a message box will appear and prevent the user from creating a new file or overwriting the existing one.

If IsNull(txtID) Then
MsgBox "Please enter Customer's ID"


Else
If DLookup("ID", "tblA", txtID) > 0 Then
MsgBox " Customer ID already exists" & vbNewLine & " " & vbNewLine & "A duplicate record cannot be created"


The code accurately premits the duplication of the record but the message continues to show even when the ID is changed to something else. Is there anyway the form can be 'reset' to clear everything out? After the message box appears and ok is selected all the old data still appears on the form. I'll adjust the ID to something else but the message still appears.

[RuralGuy]

The Criteria for your DLookup() looks like it is not proper.

[hithere]

You are actually correct. I got the message box even when I add entry where no ID already exists. Is there anyway to create a lookup to dertermine if an ID/record exists?

[ssanfu]

There is no criteria for the Dlookup() function.
Maybe try:

If IsNull(txtID) Then
MsgBox "Please enter Customer's ID"
Else
If DLookup("[ID]", "tblA", "[ID] = " & txtID) > 0 Then
   MsgBox "       Customer ID already exists" & vbcrlf & vbcrlf & "A duplicate record cannot be created"
End if

BTW, "ID" is not really a good (descriptive) field name. Especially if used in multiple tables. "ID" of what?? CustomerID?? VehicleID?? EmployeeID?? If you had 3 tables: Customer, Vehicle and Employees, all with a field named "ID", it is hard to keep track of what "ID" is being used..

[hithere]

Thanks Steve. I made the changes you suggested.