MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 26
    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 : 26
    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: Sab 10 Dez 2016, 04:53