[Resolvido]Cancelamento de item em tempo real

Boa tarde,

tenho um formulario frmCompras e um subformulario ItensCompra, neles eu lanço todos os meus pedidos como codigoProduto,vlr,Quantidade,Subtotal...

tambem tenho um botao de comando chamado Cancelar itens, nele eu gostaria de cancelar algum item desejado e que seja reduzido o valor em tempo real, comecei a fazer aqui mas não consegui atualizar e reduzir os valores.
so uma observação: Neste evento quando os valores não forem nulos, o camando abre um formulario chamado CancelaItemCompra, neste form eu queria digitar do codigo do produto para exclui-lo, porem ainda não consegui.
alguem poderia me ajudar por favor?

Segue o camando

Private Sub CancelarItem_Click()
If IsNull(Forms!frmCompras.codigoCompra) Or IsNull(Me.codigoDetalhe) Then
MsgBox "Não há dados para Salvar...", vbCritical, "Aviso"
Exit Sub
Else 'não faz nada
End If

If MsgBox("Deseja Reamente cancelar Item de Compra?", vbYesNo, "Aviso") = vbNo Then
MsgBox "Processo cancelado pelo usuario", vbInformation, "Aviso"
Else
DoCmd.OpenForm "frmCancelaItemCompra"

End If

End Sub

Danilo... Ajudaria mais se vc pudesse postar ao menos sua aplicação com esse seu formulário...

Vendo o funcionamento fica mais fácil ajudar...

Não será a continuação deste tópico ?

Porque não faz o simples e insere um botão de excluir ao lado da linha no subform ?

Assim poderia cancelar cada item lançado sem problema algum, e até poderá apenas colocar um X nesse botão.

Olá boa noite,

Obrigado pelas respostas -> então eu gostaria de fazer desta maneira porque se encaixa melhor ao perfil do programa que estou a desenvolver. Estou disponibilizando meu Banco para analisarem.
Se for possivel agradeço muito.

Olá JPaula bom dia,

Poderia analisar este banco e me dizer se é possivel fazer da forma que mencionei por favor?

Tentei adcionar no campo excluirItensCompra currenteDb.Execute "DELETE * FROM tblitensCompra WHERE codigoDetalhe=" & Me.ExcluirItensCompra
DoCmd.RunCommand acCmdRefreshPage

Para mesmo assim ele não esta atualizando, e tambem tem o problema de como subtrair este itens apos o cancelamento.

Poderia me ajudar por favor?

e se após vc clicar em cancelar vc fazer um update no campo subtotal recalculando o valor?

Olá bom dia eu já tentei, mas não deu certo.

Private Sub ExcluirItemCompra_Click()
CurrentDb.Execute "DELETE * FROM tblItensCompra WHERE codigoDetalhe=" & Me.NumeroDetalhe
MsgBox "Item Excluído com sucesso!", vbInformation, "Aviso!"
DoCmd.Close
Forms!frmCompras.Recalc
End Sub

Funcionou direitinho obrigado mais uma vez JPaulo e RaphaelMaciel
no meu evento eu esta colocando me.recalc, deve ser por isso que não deu certo muito obrigado.!!!

Olhando bem aqui dentro do seu banco, temos muita coisa errada,

Acabei corrigindo;

Veja agora todo o funcionamento form frmCompras

http://dl.dropbox.com/u/771097/Advanced_Imagen_and_Sistem_III.rar


Estes são os dois codigos que estavam mal e que corrigi:


Private Sub CancelarItem_Click()
If IsNull(Forms!frmCompras.codigoCompra) Or IsNull(Me.codigoDetalhe) Then
MsgBox "Não há dados para Salvar...", vbCritical, "Aviso"
Exit Sub
Else 'não faz nada
End If

If MsgBox("Deseja Reamente cancelar Item de Compra?", vbYesNo, "Aviso") = vbNo Then
MsgBox "Processo cancelado pelo usuario...", vbInformation, "Aviso"
Exit Sub
Else
DoCmd.OpenForm "frmCancelaItemCompra", , , , , , Me.codigoDetalhe
End If
End Sub


Private Sub ExcluirCompra_Click()

If MsgBox("ATENÇÃO!!! Tem certeza que quer excluir esta compra ?", vbYesNo + vbQuestion, "Aviso!") = vbYes Then
CurrentDb.Execute "DELETE * FROM tblItensCompra WHERE codigoCompra=" & Me.codigoCompra
CurrentDb.Execute "DELETE * FROM tblcompra WHERE codigoCompra=" & Forms!frmCompras!codigoCompra

MsgBox "Resgistro excluído com sucesso!", vbInformation, "Aviso!"
Forms!frmCompras!codigoCompra.SetFocus
DoCmd.GoToRecord , , acNewRec
Else
Exit Sub
End If
End Sub


No form frmCancelaItemCompra

Alterei para:


Private Sub ExcluirItemCompra_Click()
CurrentDb.Execute "DELETE * FROM tblItensCompra WHERE codigoDetalhe=" & Me.NumeroDetalhe
MsgBox "Item Excluído com sucesso!", vbInformation, "Aviso!"
DoCmd.Close
Forms!frmCompras.Recalc
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.NumeroDetalhe.Value = Me.OpenArgs
End Sub

Nossa muito obrigado JPaulo,

Estava tentando resolver estes erros há um bom tempo.

Grato!!!