Viewing duplicate entry

[ashenton]

Hi,

I have a stock database and have recently solved an issue with duplication.

When a user enters a duplicate value in the 'DAMS_Number' field on a form, a message box alerts the user that the value already exists.

What I would like is for the form to display the corresponding record as soon as the user clicks 'Ok' on the message box.

The code I have for the duplicate alert (which I obtained from this site btw!) is as follows:

Private Sub DAMS_Number_AfterUpdate()
 
Dim tmpID As Long
 
   tmpID = Nz(DLookup("[DAMS Number]", "DAMS Stock", "[DAMS Number]=" & Me!DAMS_Number), 0)
   If tmpID <> 0 Then
        MsgBox "This DAMS asset already exists in the database", vbOKOnly
   End If
 
End Sub

Can anybody help me with this?

Thanks!

[puppydogbuddy]

Try replacing your code above with the following revised code:

Private Sub DAMS_Number_AfterUpdate() 
 
Dim tmpID As Long 
 
   tmpID = Nz(DLookup("[DAMS Number]", "DAMS Stock", "[DAMS Number]=" & Me!DAMS_Number), 0) 
   If tmpID <> 0 Then 
        MsgBox "This DAMS asset already exists in the database", vbOKOnly 
       Me.Filter = "[DAMS Number] = " & Me!DAMS_Number
       Me.FilterOn = True
   End If 
 
End Sub

[ashenton]

When I try the revised code I get this error:

Run-time error '3314':

The field 'DAMS Stock.Model' cannot contain a Null value because the Required property for this field is set to true. Enter a value in this field.

I need certain values to be entered when creating a new record where one does not exist, but having the Required property set to true results in the above error.

If I set all the Required properties to False, I get this error:

Run-time error '3022':

The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

The primary key is a field which is set to AutoNumber and has no real purpose other than to number each entry. The index for 'DAMS_Number' is set to 'Yes (No Duplicates) to prevent duplicate entries for the same asset.

Any ideas?

[ashenton]

Also, if I set the Index to Yes (Duplicates ok) I get a pop-up box asking for the 'DAMS_Number' value which I have just entered in the form. When I enter the value in the box and press enter it goes to the existing entry.

Having duplicates allow whilst it automatically notifies and takes the user to the corresponding record I can live with, but I really don't want the user to have to type the asset number in twice!

[puppydogbuddy]

please undo all the changes you made other than the changes I gave you.....otherwi se you will be giving me a moving target. The code I gave you should work (if you make the correction below) because it is in the same loop that generates the message box and uses the same criteria.

If you've made the correction and it still does not work, please post your code and provide details.....but do not make any other changes.


Just change this line:
Me.Filter = "[DAMS Number] = " & Me!DAMS_Number

To this:
Me.Filter = "[DAMS Number] = " & tmpID

[ashenton]

It still doesn't work. I've returned everything to how it was before you sent me the code (except the code of course!) and changed the line you specified.

Certain values are set to be required and the Required property of DAMS_Number is set to 'Yes (No Duplicates)'

The code now reads

Private Sub DAMS_Number_AfterUpdate()
 
Dim tmpID As Long
 
   tmpID = Nz(DLookup("[DAMS Number]", "DAMS Stock", "[DAMS Number]=" & Me!DAMS_Number), 0)
   If tmpID <> 0 Then
        MsgBox "This DAMS asset already exists in the database", vbOKOnly
       Me.Filter = "[DAMS Number] = " & tmpID
       Me.FilterOn = True
   End If
 
End Sub

I still get run-time error 3314 after clicking 'ok' in the message box.

According to VB it is the line which contains 'Me.FilterOn = True' which is causing the issue (I'm guessing anyway as it is highlighted in yellow)

[puppydogbuddy]

I think all you need to do now is set the Required property of DAMS_Number to No. Is that a problem for you in terms of control? If it is, I will need to give you another method. Let me know.

[ashenton]

I set the required property for DAMS_Number to no but there are several other fields which are required (as well as DAMS_Number) which create the 3314 error.

DAMS_Number is the stock asset number and is required for more or less everything I do. It is the primary identifier on our stock so must be included in the database :)

[puppydogbuddy]

You should not have to set the required of any field other than the DAMS Number. We are only filtering on the DAMS number. What message did you get exactly?

[puppydogbuddy]

See if this works for you without changing the field settings that you had.

Private Sub DAMS_Number_AfterUpdate() 
 
Dim tmpID As Long 
Dim strFilter As String
 
tmpID = Nz(DLookup("[DAMS Number]", "DAMS Stock", "[DAMS Number]=" & Me!DAMS_Number), 0) 
   If tmpID <> 0 Then 
        MsgBox "This DAMS asset already exists in the database", vbOKOnly 
       strFilter = "[DAMS Number] = " & tmpID 
       DoCmd.OpenForm Me, , , strFilter 
   End If 
 
End Sub