Eu estou usando este código pra deletar produtos de um pedido em edição, porém quando, se o usuario digitar um codigo errado, poderá apagar um item de outra venda, neste caso gostaria de saber se voces tem como me ajudar, Grato.
Lembrando que temos os campos vendanumero que é automatico
e no subform tem o vendanumero que cria o vinculo, tem o CodigoOrdemProdutos,
ao abrir o form, filtra pelo vendanumero, e aparece todos os produtos lançados.
On Error GoTo Err_Delete
Dim numOrdem As Integer
numRecord = InputBox("Informe o Código do Produto #:", "Exclusão de Produtos")
If MsgBox("Deseja Excluir o Produto Cadastrado " & numRecord & "?", vbQuestion + vbYesNo, "Exclusão de Produtos!") = vbYes Then
Dim SQL As String
DoCmd.SetWarnings False
SQL = "DELETE * FROM VendaProdutos WHERE CodigoOrdemProdutos = " & numRecord
DoCmd.RunSQL SQL 'Executa consulta
Forms!OrdemServico![VendaProdutosSub].Requery
Else
End If
Exit_Delete:
Exit Sub
Err_Delete:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Sistema"
Resume Exit_Delete
End If
Lembrando que temos os campos vendanumero que é automatico
e no subform tem o vendanumero que cria o vinculo, tem o CodigoOrdemProdutos,
ao abrir o form, filtra pelo vendanumero, e aparece todos os produtos lançados.
On Error GoTo Err_Delete
Dim numOrdem As Integer
numRecord = InputBox("Informe o Código do Produto #:", "Exclusão de Produtos")
If MsgBox("Deseja Excluir o Produto Cadastrado " & numRecord & "?", vbQuestion + vbYesNo, "Exclusão de Produtos!") = vbYes Then
Dim SQL As String
DoCmd.SetWarnings False
SQL = "DELETE * FROM VendaProdutos WHERE CodigoOrdemProdutos = " & numRecord
DoCmd.RunSQL SQL 'Executa consulta
Forms!OrdemServico![VendaProdutosSub].Requery
Else
End If
Exit_Delete:
Exit Sub
Err_Delete:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Sistema"
Resume Exit_Delete
End If