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

    Duplicação

    avatar
    José Afonso Toffanello
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/07/2017

    Duplicação Empty Duplicação

    Mensagem  José Afonso Toffanello em 4/4/2019, 19:45

    Bom dia, sou novo no Negócio.
    Minha dificuldade:
    Digito três campos, Id_funcional, data_ inicio e data_final após a digitação do último campo preciso testar se os três campos digitados são iguais.
    Se forem duplicados invalida a digitação, não pode ter duplicidade de diárias com estes critérios.
    Consultando os exemplos usei o modelo abaixo porem deu erro 424:
    Fiz o “Private Sub no campo Data_Final “ já que é o 3 campo que digito não sei se está correto.

    Private Sub Data_Final_BeforeUpdate(Cancel As Integer)
    MsgBox " passe1"
    ' set variavel recordset
    Set tab_diarias_vencidas = Me.RecordsetClone
    With tab_diaras_vencidas
    ' verifica se a inforamação já existe
    .FindFirst "id_funcional=" & Me.ID_funcional & "' and [data_inicial]= '" & Me.Data_Inicial & "'"
    ' se encontrou então
    If Not .NoMatch Then
    'defaz o registro
    Me.Undo
    Cancel = True
    MsgBox "Registro existente", vbCritical, "ATENÇÃO"
    ' exibe o registro ja cadastrado
    Me.Bookmark = .Bookmark
    End If
    End With
    Set tab_diarias_vencidas = Nothing
    End Sub
    Usei esta rotina, talvez usando o comando dcount ou if (not inull(dlookup.......) serja mais fácil.
    Já tentei usar e não deu certo, estou atrapalhado, não é complicado, mas não consegui acertar.
    Em anexo estou remetendo o PRG de digitação ‘ BD_TesteDuplicidade’
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 19/08/2010

    Duplicação Empty Duplicação

    Mensagem  marcelo3092 em 6/4/2019, 02:33

    Boa noite amigo essa sua duvida ficou sem explicação vc quer comparar os campos datas do formulario ou vc quer busca na tabela e comparar o que esta lá com o digitado para melhor te ajudar seria bom vc coloca parte do projeto e envia para que possamos dar uma olhada.
    avatar
    José Afonso Toffanello
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/07/2017

    Duplicação Empty Duplicação

    Mensagem  José Afonso Toffanello em 8/4/2019, 20:23

    Estou remetendo o BD preciso testar 3 campos id_funcional/data_inicio/data_final
    avatar
    José Afonso Toffanello
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/07/2017

    Duplicação Empty Re: Duplicação

    Mensagem  José Afonso Toffanello em 8/4/2019, 20:32

    Os três campos estão sendo digitado(id_funcional/data_inicio e data_final) quando digito o ultimo data_final ele deve comparar os três com a tabela e verificar se já existe esta informação.

      Data/hora atual: 24/4/2019, 07:36