[Resolvido]Nao Duplicação

Ola amigo pra ser mais facil ajuda-lo se possivel poste o bd.

Cumprimentos.

Kaynan,

Infelismente não será possível, primeiramente pelo tamanho do bd e tbém pelo fato de ter um contrato com o cliente que comprou o sistema de forma exclusivo e o nele prevê que não poderei disponibilizá-lo nem em parte.

Espero que vc entenda.

By Uilson Brasil

;

Boas Uilson... caso queira manter sigilo sobre o teu BD envie-me no e-mail que vejo isto pra ti... ficará mais rápida a solução.

Não terá problemas quanto a isto se enviar-me no e-mail.

Cumprimentos.

Explique as tabelas que enviou na imagem...

Eu particularmente faria assim: (colocarei o nome das tabelas apenas para ilustracão)

Supionha que tenha as tabelas tblParticipantes e tblCampanhas


Na tblParticipantes:
ID_Participante
CpNome

Na tblCampanhas
ID_Campanha
Participante_ID
CpCamapanha
etc..

Ambas relacionadas pelos campos ID_Participante e Participante_ID em uma relação de um para muitos... assim uma campanha poderia ter mais de um participante

Ex:

Campanha 1
Participante xxxx
Participante yyyy
Participante nnnn

E na hora de inserir um participante utiliza o Dcount para verificar se o participante ja está inserido na campanha
Ex:

If Dcount("*","tblCampanhas", "Participante_ID = " & Me.ComboOndeSeSelecionaOParticipante.Column(0) & " And ID_Campanha = ''& Me.CaixaTextoComIDdaCampanha & "") =>1 Then
MsgBox "Este participante já está inserido nesta campanha", VbCritical, "NEGADO"
Exit Sub
End If


Cumprimentos.

De uma descricão do que precisa...

Seleciona uma campanha, ex: Pendurata.. Nela há varios nomes cadastrados...

O que necessita?

Cumprimentos.

Pelo que entendi, nos eventos após atualizar da combo participante:

Private Sub PARTICIPANTE_AfterUpdate()
If DCount("*", "MonitoriaCamp", "IDCAMP = " & Forms![Gestão de Campanhas]!cbobcamp.Column(0) & " And Participante = '" & Me.PARTICIPANTE & "'") > 0 Then
MsgBox "Este nome ja está cadastrado", vbCritical, "REGISTRO EXISTENTE"
Me.PARTICIPANTE = ""
End If
End Sub


Cumprimentos.

Está dando erro na segunda linha... veja:

Voce tem que selecionar a campanha na cbobcamp...


Cumprimentos.

Cite o passo a passo do processo?


O que pretende fazer?

Inserir pessoas em uma campanha ja existente?
Alterar pessoas em uma campanha ja existente?
ou
Criar uma campanha, caso seja cria.. o que deseja verificar?

Cumprimentos.

Ao Cadastrar uma nova campanha, no mesmo momento são inseridos os participantes.

Eventualmente a campanha poderá sofrer alterações, excluindo ou incluindo participantes.

By Uilson Brasil

Correto amigão... Mas o que deseja realmente? veja que voce disse:

Eventualmente a campanha poderá sofrer alterações, excluindo ou incluindo participantes.

Foi o que eu fiz... seleciona a campanha ai pode incluir, excluir ou alterar....


Não estou entendendo i que voce deseja...

seja mais detalhista.


Cumprimentos.

Amigo.. entendi isto.. mas me fale o que pretende? não estou a perceber...

Mostre o passo a passo deste cadastro e quel problema não pode ocorrer.

Cumprimentos.

Então... se cadastras a campanha XXXXXXXXXxx

Ao inserir participantes, não permitir incluir o mesmo nome duas vezes... é isso?


Cumprimentos.

Eis:

Private Sub PARTICIPANTE_AfterUpdate()
Dim lngCamp As Long
lngCamp = Forms![Gestão de Campanhas]!IDCAMP
If DCount("*", "MonitoriaCampParticip", "IDCAMP = " & lngCamp & " And Participante = '" & Me.PARTICIPANTE & "'") > 0 Then
MsgBox "Este nome ja está cadastrado", vbCritical, "REGISTRO EXISTENTE"
Me.Undo
Me.PARTICIPANTE = ""
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
End Sub

Cumprimentos.

ops.... resolvido ...

O Fórum agradece o Retorno.