[Resolvido]verificar se registro para exclusão foi utilizado numa relação.

Ao excluir um registro se ele foi utilizado numa relação o access não permite a exclusão. Ele abre erro
Eu gostaria de criar uma mensagem agradável para o usuário.

O código é esse:
Private Sub btExcluir_Click()
Dim VarCampo As String
   VarCampo = txtAno
   If MsgBox("Deseja excluir o item: " & VarCampo & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
       DoCmd.SetWarnings False
       DoCmd.RunCommand acCmdDeleteRecord 'Função Excluir
               MsgBox ("Item excluído com sucesso"), vbInformation, "Excluir"
       Me.Refresh
   Else
   MsgBox ("Exclusão cancelada"), vbInformation, "Cancelar"
   
   End If
End Sub

Se foi utilizado numa relação dá erro. Gostaria de avisar numa msg que não pode excluir...como fazer?

Obrigada

Olá;

Concerteza que quando o Access devolve a mensagem de não poder excluir, é um erro com um numero.

Então aproveite esse numero de erro e use um tratamento de erro personalizado.

https://www.maximoaccess.com/t7058-tratamento-de-erros-personalizado

Mais ou menos assim:

Código:

If Err.Number=9999 Then
'Msgbox "Sua Mensagem"

Obrigada,

Deu certo!!

Show

Fico feliz.