Manejo de errores on error go to

[franko1809]

Tengo 2 tablas empleado y cargo relacionas por medio del CodCargo
ahora cuando intento eliminar un registro de la tabla cargo y este esta siendo utilizado en la tabla empleado me aparece este error
Imagen obviamente por la relacion de FK como puedo enviar un mensaje para cancelar la operacion en caso se produsca el error

'Eliminar registro
Dim mensaje
mensaje = MsgBox("Esta seguro de eliminar el registro", vbYesNo)
If mensaje = 6 Then rsCargo.Delete

[ReViJa]

Lo puedes hacer así:

Código:

On Error GoTo VerError



Exit Sub
VerError:
Select Case Err.Number
  Case -2147467259
    MsgBox "bla, bla, ...."
  Case Else
    MsgBox "Error sin determinar :-)", vbInformation, "Control de errores..."
End Select

Saludos.

[franko1809]

Perfecto Revija
Controlo el error de esta manera

'Eliminar registro
On Error GoTo VerError

Dim mensaje
mensaje = MsgBox("Esta seguro de eliminar el registro", vbYesNo)
If mensaje = 6 Then rsCargo.Delete

Exit Sub

VerError:

If Err.Number = -2147467259 Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description, , "Error controlado"

End If

Al cargar mi form lleno el datagrid de esta manera
Set DataGrid1.DataSource = rsCargo
Y al producirse el error igual se borra el registro del datagrid, el registro solo vuelve aparecer cuando cargo nuevamente el formulario he intentado colocando despues del mensaje de error rscargo.cancel y datagrid1.refresh y nada