[Resolvido]Impedir duplicação de registros por data.

Olá Mestres, necesito de ajuda.

Minha situação:

Possuo um fomulário principal não vinculado à tabela alguma. Neste formulário existe um subformulário vinculado à tabela tblReposição.
Neste subformulário existe 4 campos, DtReposição(Valor Padrão = Data()), Produto(Combox que faz uma busca na tblProdutos por Produto e Apresentação), Apresentação e Quantidade.

O que pretendo é que quando o usuário selecionar um Produto o sistema verifique se este produto já foi selecionado na DtReposição.
Se sim oferece ao usuário a possibilidade de mante-lo e se o usuário optar por sim após a atualização de Produto o campo Apresentação receba o valor da coluna 2 e o cursor vá para o campo Quantidade. Se Não, o registro seja excluído.

Por fim, se o produto não tenha sido selecionado na data DtReposição após atualização da combox Produto o campo Apresentação seja preenchido e o cursor remetido para o campo Quantidade.

Já tentei o seguinte:

No evento Após Atualizar da combox Produto inseri:

Private Sub Produto_AfterUpdate()
If IsNull(DLookup("Produto", "tblReposição", "[DtReposição] = " & Me.DtReposição & "")) Then
'If MsgBox("O Produto ... " & Me!Produto.Column(1) & " ... já foi reposto nesta data!   " & Chr(13) & "Você pretende adicionar mais este ítem ?   ", vbYesNo, "   InfoBasic Smart System") = 6 Then
Me.Apresentação=Me.Produto.Column(2)
Me.Quantidade.SetFocus

Else

'MsgBox "O Produto ... " & Me!Produto.Column(1) & " ... já foi reposto nesta data! O evento será cancelado.", vbOKOnly, Me.Caption
'Me.Undo
'DoCmd.CancelEvent

End If
End If

End Sub

A coisa até funciona direitinho contudo se o usuário seleciona um outro produto ainda não constante nesta data toda a situação acima se repete.

Já queimei bilhões de neurônios e não consigo sair dessa arapuca.

Para dar uma idéia melhor, segue a imagem do formulário.

Abraços, WSenna

WSenna

Eu tenho um caso parecido, então o Gr JPaulo para não variar ,,,,, resolveu + ou - assim só mudei os nomes dos campos.
Nao custa nada testar, mas sem o seu exemplo fica mais dificil.

Private Sub Produto_AfterUpdate()
Dim x As Integer
x = DCount("[Produto]", "tblReposição", "[DtReposição] = #" & Format(Me.DtReposição, "mm/dd/yyyy") & "#")
If x = 1 Then
MsgBox "O Produto " & Me!Produto.Column(1) & " já existe na Tabela Nessa Data.", vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Else
Me.Apresentação=Me.Produto.Column(2)
Me.Quantidade.SetFocus
'MsgBox "O Produto ... " & Me!Produto.Column(1) & " ... já foi reposto nesta data! O evento será cancelado.", vbOKOnly, Me.Caption
End If
End Sub

Grande Assis, bom dia.

Não funcionou, veja o exemplo abaixo:

Abraços, WSenna

Wsenna

Não veio formulario

Desculpe-me Assis.

O formulário está marcado como oculto.
Vá em Ferramentas >>> Opções e na aba Exibir marque a caixa Objetos Ocultos.

Esquecí de retirar essa propriedade antes de enviar.

Abraços, WSenna

Bom dia aos dois e demais;

Um Pitaco;

Código:

Private Sub Produto_BeforeUpdate(Cancel As Integer)
Dim X As Integer
Dim Y As Integer
Y = Me.Produto.Column(0)
X = DCount("[Produto]", "tblReposição", "[DtReposição] = #" & Format(Me.DtReposição, "mm/dd/yyyy") & "# AND [Produto]=" & Y & "")
If X = 1 Then
MsgBox "O Produto ... " & Me!Produto.Column(1) & " ... já foi reposto nesta data! O evento será cancelado.", vbOKOnly, Me.Caption
Me.Undo
Cancel = True 'cancela o evento.
Else
Me.Apresentação = Me.Produto.Column(2)
'Me.Quant.SetFocus
'MsgBox "O Produto ... " & Me!Produto.Column(1) & " ... já foi reposto nesta data! O evento será cancelado.", vbOKOnly, Me.Caption
End If
End Sub

Grandessíssimo JPaulo, finalmente funfou esplendidamente.

Mestres dos Mestres, um grande abraço e um beijo em vosso coração.

Abraços, WSenna

WSenna

Falei no Mestre e ele apareceu e resolveu ,,,, né ?

Obrigado JPaulo por mais uma lição.

Obrigado pelo retorno o fórum agradece.

Olá Assis, boa tarde.

Amigão, fiquei tão contente com a solução do JPaulo que aé esqueci de lhe agradecer também.
O "Mago" JPaulo não tem nem um termo que possa qualificar essa Fera.
Não existe arapuca que o JPaulo não saia com facilidade e entrega de bandeja para nós.

De qualquer forma, fico-lhe grato também, não fosse a sua chamada ...

Abraços, WSenna