Problema en ACCESS al enviar un correo automáticamente. Ayuda. Error 2501

[Piloto78]

Hola a todos!

Bueno más bien el problema es al no enviarlo. Me explico:

Tengo puesto esto en el evento antes de actualizar de un desplegable:

Private Sub resp9_BeforeUpdate(Cancel As Integer)
DoCmd.SendObject acSendNoObject, , , Me.resp9.Column(5), "[email protected]", , "Mensaje de control de cursos (En pruebas)", "Se le ha asignado la Planificación de la Documentación del curso " & Me.nom_curso & " para " & Me.nom_cliente & " en " & Me.provincia_curso, , False
End Sub

Esto me abre sin problemas el gestor de correo con todos los datos sólo para darle al botón enviar, el problema es cuando a lo mejor me he equivocado o simplemente no quiero mandar el correo. Si cierro el mensaje sin enviarlo me da un error en el Access y me bloquea la Base de Datos, no deja hacer nada, hay que cerrarla y volverla a abrir.

El mensaje que me sale es:
"Se ha producido el error '2501' en tiempo de ejecucion"

Alguien Sabe cómo puedo solucionar esto??
Gracias de Antemano.

[Taribo007]

Ponle un control de errores, algo asi:

Private Sub resp9_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_NoEnviar

DoCmd.SendObject acSendNoObject, , , Me.resp9.Column(5), "[email protected]", , "Mensaje de control de cursos (En pruebas)", "Se le ha asignado la Planificación de la Documentación del curso " & Me.nom_curso & " para " & Me.nom_cliente & " en " & Me.provincia_curso, , False

Exit Sub

Err_NoEnviar:
If Err.Number <> 2501 Then
MsgBox Err.Number & ": " & Err.Description
End If

Exit sub

Un saludo

[Piloto78]

Hola Tariboo, gracias por tu respuesta,

Falta poner al final un "End Sub" o al menos eso me ha dicho Access. El problema es que cuando se lo he puesto, ahora me saca el siguiente mensaje:

La macro o funcion establecida para la propiedad ReglaDeValidacion o AntesDeActualizar de este campo impide que Microsoft Office Access guarde los datos del campo

.

Lo he probado y ya no se cuelga, el problema ahora es que no es capaz de poner nada en el destinatario del mensaje, es decir no importa el "Me.resp9.Column(5)"

Alguna idea de como solucionarlo?? Gracias.

[Taribo007]

Intentalo en el evnto afterUpdate del combo

Un saludo

Efectivamente faltaba el end sub (que listo este access)

[Piloto78]

Ok muchisimas gracias.

He hecho lo que me has dicho y ya me funciona correctamente.
Gracias por tu ayuda.