[Resolvido]Controle contra Duplicação de Cadastro

Boa tarde caros amigos

tenho a seguinte situação sobre controle de duplicidade....

tenho uma ferramenta que cadastra Edifício e seus respectivos Apartamento

Como faço para não duplicar o cadastro do apartamento de seu respectivo edifício? (tendo em vista que se pode cadastrar o mesmo numero de apartamento porem não para o mesmo edifício)

ex:
Edifício TesteA
Apa. 101
Apa. 102
Apa. 103

Edifício TesteB
Apa. 101
Apa. 102
Apa. 103

Dentro da tbl_CadastroApartamento possuo uma chave estrangeira ID_CadEdificio a qual vincula o apartamento ao Edifício.

Que tal uma DCount?

Dim ContApart as Integer
ContApart = Dcount("[NomeAP]","TabAPs","[CodEdificio]=" & txtCodEdificio And "[NomeAp]=" & txtNomeAP)
If ContApart > 0 Then
MsgBox "Você já cadastrou esse apartamento!"
DoCmd.CancelEvent
End If

Coloque no evento Ao Sair da sua caixa de texto onde escreve os nomes dos apartamentos.

Obrigado leandro pelo rápido retorno...

Mas consegui ter sucesso....adaptei seu Código mas apresenta erro 13
veja com eu fiz:

Dim ContApart as Integer
ContApart = DCount("[NumeroApartamento]", "tbl_Apartamento", "[ID_CadObra]=" & txtID_CadObra And "[NumeroApartamento]=" & txtNumeroApartamento)
If ContApart > 0 Then
MsgBox "Você já cadastrou esse apartamento!"
DoCmd.CancelEvent
End If

Lembrando que o campo [NumeroApartamento] é campo texto
O campo [ID_CadObra] é campo numero (Chave estrangeira)

Ambas na Tabela [tbl_Apartamento]

O que fiz de errado????

mesmo assim mantem o erro Leandro

"Erro em tempo de execução 13"
"Tipo incompatível"

Deu Bug em mim!!! rsrsrs

É só isso:

Dim ContApart as String
ContApart = DCount("[NumeroApartamento]", "tbl_Apartamento", "[ID_CadObra]=" & txtID_CadObra)
If ContApart > 0 Then
MsgBox "Você já cadastrou esse apartamento!"
DoCmd.CancelEvent
End If

Desculpe Leandro mas ainda dar um errinho

e não consigo entende-lo

Agora é erro 3075
Operador faltando [ID_CadObra]=

Provavelmente [ID_CadObra] está nulo nesse momento.
Tente assim:

Código:

ContApart = DCount("[NumeroApartamento]", "tbl_Apartamento", "[ID_CadObra]=" & Nz(txtID_CadObra, 0))

Bom dia Marcelo, desculpe ter deixado sem resposta ontém, tive que sair as pressas e não pude respondê-lo á noite.

A forma que eu consegui fazer é assim:

Private Sub txtNApartamento_Exit(Cancel As Integer)
Dim contAps As String
Dim contObras As Integer
contObras = DCount("[NApartamento]", "Aps", "[IdCodObra]=" & Me!txtIdCodObra)
contAps = DCount("[NApartamento]", "Aps", "[NApartamento]='" & Me!txtNApartamento & "'")
If contObras And contAps > 1 Then
MsgBox "Apartametno já existe nesse edifício!"
DoCmd.CancelEvent
End If
End Sub

Creio que o problema dos tipos incompatíveis é pelo fato do critério de texto e numérico na mesma variável.

Agora sim.....

Unindo sua rotina com a dica do Claudio Más deu na medida.

Obrigado Leandro e Cláudio....pelo rápido retorno....

Dou por encerrado.....

at.

Marcelo, dará erro mesmo assim, ele está contando depois de atualizado, e isso vai contar um dado que já está é melhor você colocar o código no evento Antes de Atualizar.

Assim:

Private Sub txtNApartamento_BeforeUpdate(Cancel As Integer)
Dim contAps As String
Dim contObras As Integer
contObras = DCount("[IdCodObra]", "Aps", "[IdCodObra]=" & Me!txtIdCodObra)
contAps = DCount("[NApartamento]", "Aps", "[NApartamento]='" & Me!txtNApartamento & "'")
If contObras And contAps > 1 Then
MsgBox "erro"
DoCmd.CancelEvent
End If
End Sub

Intromissão minha,

Para ficar na mosca, devem utilizar a função Nz,


contObras = Nz(DCount("[IdCodObra]", "Aps", "[IdCodObra]=" & Me!txtIdCodObra), 0)
contAps = Nz(DCount("[NApartamento]", "Aps", "[NApartamento]='" & Me!txtNApartamento & "'"), 0)

E como o BeforeUpdate(Cancel As Integer), tem declarado o Cancel As Integer, em vez do DoCmd.CancelEvent, devem utilizar o :

Cancel=True

Agora código estável.....
Boas dicas....

Obrigado Leandro e Mestre JPaulo

Obrigado pelo retorno o forum agradece.

É esse o objetivo deste fórum, "ajudar" enriquecendo os conhecimentos.

O merito aqui é do Amigo Leandro.

Desculpe sei que esta solucionado, mas gostaria de acrescentar uma forma segura de garantir que nunca vai ter registros duplicados, na estrutura da tabela poderia colocar um indice único em dois campos ao mesmo tempo, dessa forma a própria tabela vai evitar as duplicidades, e a depuração poderia cair sobre o erro de duplicidade. No modo de estrutura das tabela, clicar em > Índices < na coluna "Nome do Índice" escreva algo que pode ser qualquer palavra - > Único < depois escolha os campos, vou tentar por abaixo um exemplo, pois o nome do índice só entra na primeira linha, e deve manter seus outros índices caso exista...

Nome do Índice	Nome do Campo	Ordem de Classificação
Único	Bloco	Crescente
	Apartamento	Crescente

Na linha onde esta escrito único, em propriedade do índice que fica logo abaixo onde esta escrito > Exclusivo < mude p Sim , com isso a combinação dos campos Bloco e Apartamento não poderam repetir, caso isso aconteça o próprio access emitirá uma mensagem de erro, mensagem de duplicidade de registros..., onde esse erro também pode ser depurado.

Sou mais Brasil!

Abs...

Optima contribuíção Marcio.

E pode sempre alterar a mensagem padrão;

http://maximoaccess.forumeiros.com/t9395-indexado-e-sua-mensagem-confusa

Obrigado pelo retorno Marcelo.

JPaulo, sua nobreza e humildade são peculiares!

Hoje eu recebo alguns "obrigados", mas devo muito disso às suas ajudas fóruns a fora, hoje achei o meu primeiro post num fórum, veja quem me ajudou:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=11521&OB=DESC


Abraço

É verdade, nesse ae desde 2006 e já conta com 7.906 Mensagens.