[Resolvido]Impedir dados duplicados em uma linha de registros

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


DESDE JA AGRADEÇO!

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

Aqui tem um paço a paço e exemplo http://www.usandoaccess.com.br/dicas/como-saber-se-cliente-ja-cadastrado.asp?id=1

Veja aqui tambem... https://www.maximoaccess.com/t8376-resolvidobloquear-duplicidade

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

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

Veja se Atende ao que precisa!

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

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]", ...