[Resolvido]Opção do usuário incluir ou excluir dados duplicados na tabela!

Boa tarde amigos, e um bom domingo á todos!

Queria que ao salvar um registro houvesse um código que pesquisasse a tabela " TabelaPedidos" e se haver duplicidade no campo "DatadoPedido" em relação ao novo registro que estou editando me retornasse uma mensagem dizendo que já existe um registro com a mesma data, Você deseja salvar este registro assim mesmo? E que houvesse dois botões na mensagem salvar ou cancelar " o usuário optaria por salvar ou cancelar o novo registro!
No bd haverá casos em que o usuário optará por incluir um registro com a mesma data, como tambem excluir alguns novos registros com datas duplicadas. Estou anexando o bd em formatos 2010 e 2003. Onde na propriedade ao fechar do form estou usando um código do J PAULO, que exlui os registros duplicados, mas como expliquei o usuário que optará por incluir ou excluir, ou salvar ou cancelar o novo registro.

Um abraço á todos, se estiver online, Norberto para você é fichinha esse problema,

Segue o bd formato 2003!

Norberto!

Obrigado por me alertar, sobre mencionar um membro específico,
quando mencionei seu nome, é que tem me ensinado muito,
me ajudado a solucionar os problemas de programação,
venho através deste simples comentário,
pedir minhas desculpas á todos do forum,
pois o cliquio, Jungli, cafpr, o Silvio, Assis, J Paulo
e outros me ajudaram tambem, quando mencionei seu nome,
sequer imaginei em magoar alguem, não acontecerá mais,
minhas sinceras desculpas á todos,
afinal esse forum é onde passo a maioria do meu tempo,
aprendendo com todos.
Um abraço á todos!

Lupércio Porfírio Azarias.

Imagina Norberto!
Sou um homem humilde,
más ja tenho você como um grande amigo,
pois, quando posto algum problema aqui no forum,
você imediatamente me socorre, tenho um carinho por todos,
e tenho aprendido muito, mas muito mesmo, fique tranquilo
seu real vai ser depositado! "risos".
Lupércio!

Optei por verificar a quantidade de datas iguais logo que o campo DataDoPedido é preenchido.
Mantive o código no botão Fechar (inclusive fiz uma correção, pois estava dando erro na compilação), mas agora acho que poderia deletar este procedimento.

Código:


Private Sub DataDoPedido_BeforeUpdate(Cancel As Integer)
On Error GoTo Trato
Dim QuantDestaData As Integer
QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido"), 0)
  If QuantDestaData > 0 Then
    If Not Confirmar("Já existe(m) " & QuantDestaData & " pedido(s) com esta data." & vbCrLf & _
                          "Deseja manter a data?") Then
      Cancel = True
    Else
    End If
  End If
Exit Sub
Trato: MsgBox Err.Description
End Sub


Qualquer coisa, diga lá!

Norberto!

Funcionou perfeito, é o que pretendo,
só alterei a propriedade do evento,
que você deixou no antes de atualizar a data,
alterei para antes de atualizar do form,
quando clico para fechar o form,
vem a mensagem do aviso que ja exite
o registro com esta data, se confirmo
clicando em sim ele registra na tabela,
se nego clicando em não ele fecha o form
e exclui o registro!
é Norberto, estou devendo mais um real a vc!
Você é show de bola!
Até mais meu amigo, e um abraço!