Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Superwagtel

Registro sem repetição

Recommended Posts

Como faço para que o access não aceite registros repetidos em uma coluna?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Prezado Superwagtel:Você não especifica que de forma manipula os registros (se diretamente no modo "folha de dados" da tabela, através de formulários cuja origem seja uma tabela ou consulta, por meio de consultas em formulário não acoplados, etc.). Para os dois primeiros casos, creio que basta entrar no modo estrutura da tabela, selecionar o campo que não pode ter valores idênticos, e na propriedade "Indexado", especificar "Sim, (Duplicação não autorizada)".Para o último caso, deve ser implementado um código que faça com que uma consulta verifique se o registro já não existe na tabela, baseado num critério EXCLUSIVO, como o número de RG de uma pessoa, a placa de um veículo, ou a associação de 2 ou mais campos, como o nome de um produto e sua marca.O código abaixo, "disparado" a partir do evento OnClick de um botão de comando do formulário, verifica se um município (cujo nome foi inserido numa caixa de texto) já não existe numa tabela chamada "tblMunicipios" ANTES de inclui-lo; se ele já estiver cadastrado, é gerada uma mensagem de alerta ao usuário e o processo é interrompido:Dim db As DatabaseDim strCriterio As StringSet db = CurrentDbstrCriterio = txtMunicipiostrMunicipio = "[Municipio] = '" & strCriterio & "'"Set rst = db.OpenRecordset("tblMunicipios", dbOpenDynaset)rst.FindFirst strCriterioIf rst.NoMatch Thendb.Execute "INSERT INTO tblMunicipios (NomeDoMunicipio) VALUES (""" & strCriterio & """)ElseDoCmd.BeepMsgBox "Município já cadastrado.", 48, "Banco de Dados"End IfEspero que eu tenha ajudado.Abraços.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.