[Resolvido]Exclusão x Campo Utilizado em outra tabela

Boa tarde

Em meu sistema tenho alguns campos relacionados. A integridade referencial está OK, porém, omito todos os retornos do access e apresento minhas mensagens tratadas. Na rotina de exclusão uso o código abaixo:

Código:


On Error GoTo ErrorHandler
    If IsNull(Me!Convenio) Then Exit Sub
        If MsgBox("Confirma a Exclusão do Convênio:" & vbCrLf & vbCrLf & Me!Convenio, vbQuestion + vbYesNo, "Exclusão...") = vbNo Then Exit Sub
            DoCmd.SetWarnings False
            CurrentDb.Execute "Delete * From tb_Convenios Where Convenio= '" & Me!Convenio & "'"
            DoCmd.SetWarnings True
            DoCmd.ShowAllRecords
            Me.Listagem.Requery
            DoCmd.GoToRecord , , acNewRec
            DoCmd.RunCommand acCmdRefresh
            Me!Convenio.SetFocus
End If

ErrorHandlerExit:
 Exit Sub

ErrorHandler:
 If err = 3021 Then ' Sem registro corrente
    Resume Next
 Else
    MsgBox "Erro Nº: " & err.Number & "; Descrição: " & err.Description
    Resume ErrorHandlerExit
 End If



Esta rotina funciona perfeitamente, porém, quando o convenio X é usado na tabela Pacientes, por exemplo, não apresento mensagem de erro, mas o registro do convenio X não é excluído. Alguém tem alguma dica de como posso antes de iniciar a exclusão indicar para o usuário que o registro não será excluido por estar em uso em outra tabela?

Att. Vinicius

Tente detectar qual o erro na situação que pretende dar mensagem. Com o código de erro, coloque-o no ErrorHandler:

Alexandre

Boa tarde

Ai é que está, não dá erro, o sistema simula como se tivesse "excluido" porém, em virtude da integridade referencial, não exclui, o que é o correto, o que pensei foi em incluir um IF antes do bloco para verificar se o registro X existe na tabela pacientes...., é aqui que estou com dificuldades.....

Att. Vinicius

On Error GoTo ErrorHandler
If IsNull(Me!Convenio) Then Exit Sub
if dcount("*","Pacientes","Convenio='" & Me!Convenio & "'")= 0 then
msgbox "escreva a mensagem."
exit sub
else
If MsgBox("Confirma a Exclusão do Convênio:" & vbCrLf & vbCrLf & Me!Convenio, vbQuestion + vbYesNo, "Exclusão...") = vbNo Then Exit Sub
DoCmd.SetWarnings False
CurrentDb.Execute "Delete * From tb_Convenios Where Convenio= '" & Me!Convenio & "'"
DoCmd.SetWarnings True
DoCmd.ShowAllRecords
Me.Listagem.Requery
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdRefresh
Me!Convenio.SetFocus
End If
end if
ErrorHandlerExit:
Exit Sub

ErrorHandler:
If err = 3021 Then ' Sem registro corrente
Resume Next
Else
MsgBox "Erro Nº: " & err.Number & "; Descrição: " & err.Description
Resume ErrorHandlerExit
End If

Alexandre

Boa tarde

Fiz o ajuste para:

--- If DCount("*", "tb_Pacientes", "Id_ConvCons='" & Me!Id_Convenio & "'") = 0 Then ---

Onde

tb_Pacientes é a tabela de Pacientes;
Id_CovCons - Código do convenio do paciente (tipo número);
Id_Convenio - Código do convênio na tabela convênios (tipo número, relacionado com o Id_ConvCons);


Ao fazer este ajuste o access (2007) retorna com o erro 2471 - A expressão que vc definiu como parametro da consulta retornou este erro id_concons.

Tem idéia de onde possa estar errado.

Obrigado pelo tempo dispensado.

Att. Vinicius

Coloque
If DCount("*", "tb_Pacientes", "Id_ConvCons=" & Me!Id_Convenio) = 0 Then

-confirme o nome do campo se é Id_ConvCons ou Id_CovCons

Bom dia Alexandre,

Corrigi meu erro no nome do campo, agora, sempre que vou excluir o sistema apresenta a mensagem "escreva a mensagem" e não entra na rotina de exclusão, independentemente do convenio ter sido usado ou não. Um detalhe que esqueci de mencionar é que o sistema está dividido em front end e back end. Tem idéia de onde possa estar errando?

Obrigado mais uma vez pela atenção

Att. Vinicius

Código:


On Error GoTo ErrorHandler
    If IsNull(Me!Convenio) Then Exit Sub
        If DCount("*", "tb_Pacientes", "Id_Convenio=" & Me!Id_Convenio) = 0 Then
            MsgBox "escreva a mensagem."
            Exit Sub
        Else
            If MsgBox("Confirma a Exclusão do Convênio:" & vbCrLf & vbCrLf & Me!Convenio, vbQuestion + vbYesNo, "Exclusão...") = vbNo Then Exit Sub
                DoCmd.SetWarnings False
                CurrentDb.Execute "Delete * From tb_Convenios Where Convenio= '" & Me!Convenio & "'"
                DoCmd.SetWarnings True
                DoCmd.ShowAllRecords
                Me.Listagem.Requery
                DoCmd.GoToRecord , , acNewRec
                DoCmd.RunCommand acCmdRefresh
                Me!Convenio.SetFocus
            End If
ErrorHandlerExit:
 Exit Sub

ErrorHandler:
 If err = 3021 Then ' Sem registro corrente
 Resume Next
 Else
 MsgBox "Erro Nº: " & err.Number & "; Descrição: " & err.Description
 Resume ErrorHandlerExit
 End If



Boa tarde,
Nunca trabalhei com vínculos, pode ser aí a diferença. Aguardaremos que algum colega o possa ajudar.

Bom dia

Obrigado pela dica e atenção, acabei resolvendo com o simples:
If Not IsNull(DLookup("[Id_Convenio]", "tb_Pacientes", "[Id_Convenio] =" & Forms![frm_Convênios]!Id_Convenio)) Then
MsgBox "Convênio Já Utilizado.", vbExclamation, "Impossível Excluir..."
'Cancel = True
Me.Undo


Att. Vinicius