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]Impedir dados duplicados em uma linha de registros

    Compartilhe

    Roberto_8961
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/03/2016

    [Resolvido]Impedir dados duplicados em uma linha de registros

    Mensagem  Roberto_8961 em Seg 28 Mar - 18:07

    Boa Noite Amigos,


    Preciso de uma maneira para impedir dados duplicados em um registro; abaixo esta mais ou menos o que estou querendo desenvolver.


    Ex: eu tenho uma tabela que corresponde ao ano chamada de: [tbl_Ano] ; e outra que corresponde aos meses chamada de: [tbl_Mes], ja relacionei as tabelas e criei um formulário onde posso  ingressa para cada ANO vários MESES porem queria que ao inserir um mês que ja estivesse cadastro num determinado ano fosse apresentado uma mensagem de duplicidade para o ano selecionado e cancelar o evento sem efeito.


    ANO____MÊS

    2016____JANEIRO
    2016____JANEIRO (IMPEDIR QUE ESSE CADASTRO SEJA EFETUADO)
    2016____FEVEREIRO

    Very Happy Very Happy Very Happy
    DESDE JA AGRADEÇO!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3007
    Registrado : 14/08/2013

    Re: [Resolvido]Impedir dados duplicados em uma linha de registros

    Mensagem  FabioPaes em Seg 28 Mar - 18:51

    Aqui no fórum tem Inúmeros exemplos debatidos sobre o assunto...

    Aqui tem um paço a paço e exemplo [Você precisa estar registrado e conectado para ver este link.]

    Veja aqui tambem... [Você precisa estar registrado e conectado para ver este link.]

    Roberto_8961
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/03/2016

    Re: [Resolvido]Impedir dados duplicados em uma linha de registros

    Mensagem  Roberto_8961 em Qui 31 Mar - 12:35

    boa tarde!

    agradeço a ajuda no entanto ainda não é o que eu quero. Continuando com o EXEMPLO ano, mês.

    ANO____MÊS

    2016____JANEIRO
    2016____JANEIRO (IMPEDIR QUE ESSE CADASTRO SEJA EFETUADO)
    2016____FEVEREIRO
    2017____JANEIRO
    2017____FEVEREIRO

    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3007
    Registrado : 14/08/2013

    Re: [Resolvido]Impedir dados duplicados em uma linha de registros

    Mensagem  FabioPaes em Qui 31 Mar - 13:16

    Veja esse Exemplo BASEADO NAS INSTRUÇÕES anteriores...

    Veja se Atende ao que precisa!
    Anexos
    BDTeste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 24 vez(es)

    Roberto_8961
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/03/2016

    Re: [Resolvido]Impedir dados duplicados em uma linha de registros

    Mensagem  Roberto_8961 em Qui 31 Mar - 13:44

    Boa tarde!

    Fabio Paes vlw cara...

    adaptei o código e ficou da seguinte forma:

    Private Sub MÊS_AfterUpdate()

    If DLookup("[IDTBLANO]", "TBLMES", "[MES] ='" & Me!MES & "' and IDTBLANO = " & Me.IDTBLANO & "") > 0 Then
    'A função DCount() contou um ou mais registros existentes
    MsgBox "O MÊS " & Me!ELETRICISTA & " JÁ EXISTE PARA O ANO SELECIONADO"
    Me.Undo 'Limpa o campo
    Cancel = True 'mantém o foco no campo.
    End If

    End Sub


    Agradeço a ajuda obrigado mesmo
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3007
    Registrado : 14/08/2013

    Re: [Resolvido]Impedir dados duplicados em uma linha de registros

    Mensagem  FabioPaes em Qui 31 Mar - 14:24

    Bacana! Ate a próxima!


    Só a titulo de Aprendizado, também da pra fazer com a Função DCount... e o Codigo fica do mesmo Jeito, mudando apenas de Dlookup para Dcount.

    If DLookup("[IDTBLANO]", ...

    If DCount("[IDTBLANO]", ...

      Data/hora atual: Qui 30 Mar - 14:31