About duplicate values

[Robert30]

Hi Guys,

I want to insert unique values and i am not using any primary key to my table.Before inserting my code it should check that it is inserting unique values and if it find any duplicate values then it should give me a message that like customer name already exists.
I want it without using primary key in my table.

Can any one help ......

Thanks in advance

[rdove]

This should work good for you:

SQL = "Select * from Customers where UserID='" & UserID & "'"
 
'recordset stuff here
 
If not rs.eof AND not rs.BOF then
  'creation stuff
else
  msgbox "Create", vbexclamation, "UserID alreayd taken"
end if

[Memnoch1207]

Or this...

sql = "SELECT MAX(UserId) As 'max' FROM Customers"

if(IsNull(sql("max"))) then
   nextid = 1000   'default value if no userid exists
else
  nextid = sql("max") + 1
end if

"INSERT INTO Customers VALUES('" & nextid & "', '" & etc... & "')"

This is of course assuming that you are wanting some unique identifier for your records...