¿Mandar un mensaje, de un registro no puede ser eliminado por que esta relacionado en otra tabla? AC

Tengo el siguiente código
If msgbox ("¿Desea eliminar el registro", vbyesno,"registro eliminado")=vbyes then
Docmd.Setwarning False
DOCMD.RUNSQL "Delete From Curso Where ID_Curso=" &Form!ID_Curso&""
Docmd.Setwarning True
Form!Curso!CursoForm.Requery
Else
End if
Me Gustaria Que Me Mandara Un Mensaje Cuando el registro no se elimino por que esta relaciondado en la tabla de las "sesiones", mediante el campo de Id_curso :)