FabioPaes 26/1/2017, 16:28
Vamos fazer isso utilizando DAO.Recordset.
Vamos la, primeiro crie um formulário sem bordas, bem pequeno, com uma caixa de Texto e um Botão!
Nessa Caixa de texto o Usuário irá informar a Linha do item a ser excluído.
Então apos preencher, ele devera clicar no Botão de Excluir, que abrira um recordset na Tabela
tbl_VendasDet referente a venda Atual...
Em seguida irá mover para a linha digitada pelo usuário, e irá excluir a mesma...
Codigo do Botão Excluir:
- Código:
'Cria as Variaveis
Dim DB As Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
'Abre o Recordset da venda
Set rs = DB.OpenRecordset("SELECT * FROM tbl_VendasDet WHERE CodigoVendas = " & Forms!frmVendas!frmVendasSub!CodVenda & "")
'Move para a Linha digitada pelo usuario (inicia da linha 0 zero. então volte uma unidade.
rs.Move (Me.txtLinhaExclusao)
'Deleta a Linha
rs.Delete
'Fecha as conexoes abertas
rs.Close
DB.Close
Set rs = Nothing
Set DB = Nothing
'Atualiza o Subformulario (Teste aqui pois nao fiz teste, talvez tenha que atualizar o Formulário Principal)
Forms!frmVendas!frmVendasSub.Recalc
Coloque também uma verificação, se o valor digitado para a linha for maior que o total de registro (total de produto) para emitir alerta!
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
O importante não saber tudo, mas sim a Onde procurar!