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 28/3/2016, 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!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 28/3/2016, 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 31/3/2016, 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


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 31/3/2016, 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 20 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 31/3/2016, 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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 31/3/2016, 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: 3/12/2016, 14:42