no duplicate records

G

Guest

Hello
I’m from Portugal and sometimes I verify your Discussion Group. I found one
verify usefully for my BD, but when I try, the code that I found, the result
was not very good, I ask you, if you can help me????
Here is the code:
Private Sub turno_BeforeUpdate(Cancel As Integer)

On Error GoTo err_exit_this_sub

Dim x1, x2 As Variant

x1 = DLookup("[data]", "[dados_desperdicio]", "[data]=#" &
Format(Forms![formulario_desperdicio]![data], "dd-mm-yyyy") & "#")
x2 = DLookup("[turno]", "[dados_desperdicio]",
"[turno]=Forms![formulario_desperdicio]![turno]")

If utilizadorbasededados = "Alda Gama" Or utilizadorbasededados = "I&D" Or
utilizadorbasededados = "Logistica" Or utilizadorbasededados = "Fornecedores"
Or utilizadorbasededados = "Teresa Forte" Or utilizadorbasededados = "Rui
Barrau" Or utilizadorbasededados = "Filipe Pinto" Or utilizadorbasededados =
"Nuno Pereira" Or utilizadorbasededados = "Marisa Gonçalves" Or
utilizadorbasededados = "Paulo Aguas" Or utilizadorbasededados = "Joaquim
Afonso" Or utilizadorbasededados = "Amelia Paulino" Or utilizadorbasededados
= "Carlos Vinhas" Then
If Not IsNull(x1) And Not IsNull(x2) Then
Beep
MsgBox "Já Existe um Registro para esta Data e Equipa", vbOKOnly,
"Atenção à Duplicação de Registros"
Cancel = True
End If
End If

exit_this_sub:
Exit Sub

err_exit_this_sub:
MsgBox Error$
Resume exit_this_sub
End Sub

PS – I need one message of error when the same person wrote the same Date
and the same shipment
 
G

Guest

hi,

Does this code generates an error or incorrect results.

PLease send the database schema so that we can verify the code against the
database.

Regards,
 
G

Guest

Hello:
This code doesn’t give me an error, the situation is, I made the login with
one of the persons who are in the cycle of IF, for example:
I made the login with Alda, I put the date and the shipment (A, B, C) all
different, and I fulfill the rest of formulary. When I pass for another
login, which is different from Alda, the code says please the record already
exists, but the login is different.
My table has this champs: user, data, chip, machine, values….

Can you help me?

Designing-Systems.com said:
hi,

Does this code generates an error or incorrect results.

PLease send the database schema so that we can verify the code against the
database.

Regards,
-------------------------------------
http://www.Designing-Systems.com
Email. (e-mail address removed)
-----------------------------------------------

Luisa said:
Hello
I’m from Portugal and sometimes I verify your Discussion Group. I found one
verify usefully for my BD, but when I try, the code that I found, the result
was not very good, I ask you, if you can help me????
Here is the code:
Private Sub turno_BeforeUpdate(Cancel As Integer)

On Error GoTo err_exit_this_sub

Dim x1, x2 As Variant

x1 = DLookup("[data]", "[dados_desperdicio]", "[data]=#" &
Format(Forms![formulario_desperdicio]![data], "dd-mm-yyyy") & "#")
x2 = DLookup("[turno]", "[dados_desperdicio]",
"[turno]=Forms![formulario_desperdicio]![turno]")

If utilizadorbasededados = "Alda Gama" Or utilizadorbasededados = "I&D" Or
utilizadorbasededados = "Logistica" Or utilizadorbasededados = "Fornecedores"
Or utilizadorbasededados = "Teresa Forte" Or utilizadorbasededados = "Rui
Barrau" Or utilizadorbasededados = "Filipe Pinto" Or utilizadorbasededados =
"Nuno Pereira" Or utilizadorbasededados = "Marisa Gonçalves" Or
utilizadorbasededados = "Paulo Aguas" Or utilizadorbasededados = "Joaquim
Afonso" Or utilizadorbasededados = "Amelia Paulino" Or utilizadorbasededados
= "Carlos Vinhas" Then
If Not IsNull(x1) And Not IsNull(x2) Then
Beep
MsgBox "Já Existe um Registro para esta Data e Equipa", vbOKOnly,
"Atenção à Duplicação de Registros"
Cancel = True
End If
End If

exit_this_sub:
Exit Sub

err_exit_this_sub:
MsgBox Error$
Resume exit_this_sub
End Sub

PS – I need one message of error when the same person wrote the same Date
and the same shipment
Click to expand...
Click to expand...
 
Top