DELETANDO NO DBGRID
Olá à  todos, preciso que ao pressionar a tecla delete em algum item no dbgrid, ele me retorne uma mensagem de sim ou não. Porém estou tentando fazer isso no evento BeforeDelete do grid, mas independente de qual seja a resposta, ele deleta. Se alguém puder ajudar, ficarei grato.
Obrigado
Obrigado
Seria isso?
Private Sub DBGrid1_BeforeDelete(Cancel As Integer)
If MsgBox("Deseja realmente eliminar o registro?", vbYesNo + vbQuestion, App.FileDescription) = vbNo Then
Cancel = -1
Exit Sub
End If
End Sub
Private Sub DBGrid1_BeforeDelete(Cancel As Integer)
If MsgBox("Deseja realmente eliminar o registro?", vbYesNo + vbQuestion, App.FileDescription) = vbNo Then
Cancel = -1
Exit Sub
End If
End Sub
Tópico encerrado , respostas não são mais permitidas