MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Dcount para entradas duplicadas

    Compartilhe

    avaz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 27
    Registrado : 14/08/2013

    [Resolvido]Dcount para entradas duplicadas

    Mensagem  avaz em Sab 25 Out 2014, 11:07

    Bom dia a todos
    estou a tentar usar o DCOUNT para evitar duplicações
    o codigo que estou a usar é

    Private Sub Form_BeforeUpdate(Cancel As Integer)

    If DCount("*", "[Work Hours Extended]", "[Employee]= " & Me![Employee] & "' And [DateWorked] = #" & Me![DateWorked] & "#" & "' And [WO] = '" & Me![WO] & "'") Then
    Beep
    MsgBox "This name already exists in the database!" & vbCrLf & " Please check for duplicate entry.", vbExclamation, ""
    Me.Undo
    End If

    End Sub

    Mas recebo sempre o erro de syntaxe( missing Operador

    o mais estranho é que se usar um creterio de cada vez não dá erro e faz o que é suposto fazer

    os campos
    Work Hours Extended - é a tabela
    Employee é numerico
    dateWorked é date
    WO é texto

    Alguem me pode ajudar a ver aonde stou a errar ?

    Obrigado desde já

    avaz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 27
    Registrado : 14/08/2013

    Re: [Resolvido]Dcount para entradas duplicadas

    Mensagem  avaz em Sab 25 Out 2014, 16:37

    obrigado a todos mas já consegui resolver o problema
    com o codigo

    If DCount("*", "[Work Hours Extended]", "[WO]= '" & Me.[WO] & "' And [Employee Name] = '" & Me.[Employee Name] & "' And [DateWorked] = #" & Me.[DateWorked] & "#") Then
    Beep
    MsgBox "This name already exists in the database!" & vbCrLf & " Please check for duplicate entry.", vbExclamation, ""
    Me.Undo
    End If

      Data/hora atual: Qua 20 Set 2017, 21:08