EXLUIR NO VISUAL BASIC

USUARIO.EXCLUIDOS 13/04/2004 01:25:07
#20192
ESTOU COM DIFICULDADE NA HORA DE EXCLUIR, POIS SE JA TENHO UM REGISTRO DEPENDENTE DESDE CAMPO NÃO PODERIA DEIXAR EXCLUIR como faço pra aparecer uma mensagem pro usuário caso ja tenha um registro dependente eu fiz esse codigo mais nao deu certo

Private Sub CmdExcluir_Click()
Dim resp
Dim SqlDelete As String
'Dim SqlFuncao As String
'Dim Contador As Integer

resp = MsgBox("Deseja excluir o registro de Cargo ou Função", vbQuestion + vbYesNo, "Exclusão de Cargo ou Função")
If resp = vbYes Then
'SqlFuncao = "Select count(*) from TB_FUNCIONARIO where FUNCAO_FUNCAOCARGO =" + TxtDescricao
'Contador = SqlFuncao
'If (Contador 1) Then
'MsgBox "Existem registros dependentes desta função", vbOKOnly + vbInformation, "Cadastro e Manutenção de Cargo ou Função"
'Else
SqlDelete = "Delete from TB_CARGOFUNCAO where CAR_CODIGO=" + TxtCodigo
cn.Execute SqlDelete
MsgBox "Dados excluídos com sucesso", vbOKOnly + vbInformation, "Cadastro e Manutenção de Cargo ou Função"
LimpaCampos
Call BotoesDesliga(Me)
CamposOFF
MaskData = Date
'End If
End If
End Sub
USUARIO.EXCLUIDOS 13/04/2004 07:49:26
#20206 Resposta escolhida
_CRUZMA_
ESSE TÓ“PICO Jà EXISTE. ENCERRE UM DELES, POR FAVOR.
USUARIO.EXCLUIDOS 13/04/2004 07:56:15
#20207
Private Sub CmdExcluir_Click()
On Error GoTo ExclErr:
Dim resp As VbMsgBoxResult
Dim SqlDelete As String
resp = MsgBox("Deseja excluir o registro de Cargo ou Função", vbQuestion + vbYesNo, "Exclusão de Cargo ou Função")
If resp = vbYes Then
SqlDelete = "Delete from TB_CARGOFUNCAO where CAR_CODIGO=" + TxtCodigo
cn.Execute SqlDelete
MsgBox "Dados excluídos com sucesso", vbOKOnly + vbInformation, "Cadastro e Manutenção de Cargo ou Função"
LimpaCampos
Call BotoesDesliga(Me)
CamposOFF
MaskData = Date
End If
GoTo ExclExit:
ExclErr:
MsgBox "ATENÇÃO: " & vbCrLf & _
"Não foi possível excluir o registro" & vbCrLf & _
Err.Description, vbOKOnly + vbInformation
Err.Clear
ExclExit:
resp = Empty
SqlDelete = Empty
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar