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 27/3/2019, 18:32

    Bom dia, por gentileza necessito resolver esta rotina:



    Validar na Tabela três campos em Access.

    No meu Formulário de entrada de dados: digito, matricula funcional, data início e data final, após tenho que validar estes 3 campos na Tabela, para não permitir a duplicidade.

    Uma vez existindo a duplicidade devera desconsiderar o que foi digitado, para propiciar uma nova entrada de dados.

    Não estou conseguindo montar no VBA esta rotina, se possível gostaria de uma ajuda.

    Montei  a rotina usando os exemplos, abaixo porem ocorreu o erro 424i

    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

    Atenciosamente

    José Afonso Toffanello


    Última edição por José Afonso Toffanello em 3/4/2019, 20:14, editado 1 vez(es) (Razão : não resolvi estou anexando a rotina ocorreu o erro 424 e a estrutura da tabela)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4358
    Registrado : 20/04/2011

    Duplicação Empty Re: Duplicação

    Mensagem  Silvio em 27/3/2019, 18:47

    Olá, boa tarde....

    Usando o sistema de busca aqui do fórum temos vários meios para evitar a duplicação de registros

    http://www.maximoaccess.com/search?mode=searchbox&search_keywords=duplicidade&show_results=topics

    Um desses tópicos com certeza vai lhe atender perfeitamente.

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 25/5/2019, 20:48