Convidado 30/4/2011, 22:24
Caro LEAM
Substitua o código do Botão EXCLUIR no DetalheVenda Subformulario 1
por este:
Private Sub Excluir_Click()
Dim apaga As Integer
Dim msg
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False
apaga = MsgBox("Deseja excluir este ítem? Depois de excluir não será possível desfazer a ação !!!", vbYesNo + vbQuestion, "Excluir")
Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
Me.Refresh
Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
msg = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click
End Sub
Fiz essa alteração para que se inadivertidamente o usuario for excluir um registro inexistente (o último botao no subformulario), o sistema não de erro de execução...
Teste ai.. tente clicar no ultimo botao.. onde nao há item ainda..
Saudações