How to avoid duplication (1 Viewer)

Hello guys ,
I have a button in a form which i use it to transfer data to appending query ( i mean when i click on my button the data in my form transferred to another form and query) but i face some problems and i hope to find solutions, when i click on this button the data transferred successfully, but if i click on it again its added again , which is wrong , i want to avoid this duplication, is there anyway to lock this button to be one time usage only , in more details when i click it ones the data transferred , if i click it again i dont wanna any action to happen

have you tried
you could also hide the button by moving focus somewhere else and setting the visible to false.

This is the vba code for my button , shall i add that to my code

Are there any unique fields that you can index? If so you will not be able in append duplicates.

There’s not

To solve this, you need to have either a unique index or PK field so you can use an unmatched append query.
For example:

The WHERE clause prevents duplication.

You can if necessary create a composite index (with no duplicates allowed) for this purpose. If so, include all those fields with Is Null in the WHERE clause filter criteria

Hello Friends
I am making a database for Drawings Duplication Check. Fields are given below

DRAWING it is Numeric SheetFrom it is Numeric
SheetTo it is Numeric

Suppose Drawing Number is 500 and Sheet From 1 is already entered...... if I try to enter same data it gives me Duplication Message.

But Drawing Number is 500 and Sheet From is 2 ... it again gives me Duplication error and then stuck the cursor. I want it to continue Data Entry and give me Duplication Message only if Drawing Number and Sheet From is SAME. Code is below
*****************************
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim dwgNo, FromPg As String
Dim stLinkCriteria As String

dwgNo = Me.DRAWING.Value
FromPg = Me.PAGEFROM.Value

If IsNull(Me.DRAWING) Then
MsgBox "Please Enter Drawing Number. This field can not be empty" & vbCrLf & _
" ", _
vbCritical, _
"Canceling Update"
Me.DRAWING.SetFocus
Cancel = True
End If


If DCount("[Drawing]", "Drawings", "[Drawing]='" & Me.[DRAWING] & "'") > 0 Then
MsgBox "Alert . ***** This Drawing Number is already Exist" & vbCrLf & _
" ", _
vbCritical, _
"Canceling Update"

Cancel = True

End If
******************

Thanks in Advance
irsmalik

Is DrawingNumber your primary key field? If so, you cannot have duplicate values. The solution will be to create another autonumber primary key field instead e.g. DrawingID. Then create a unique index for the 2 fields you do not want duplicated

Dear Mr Isladogs

Yes, you are right... DrawingNumber is primary key in table and set to NoDuplicate. so what will be the solution.

See my previous post for the solution