Imprimir página | Cerrar ventana

Reloj de Arena

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85216
Fecha de impresión: 28/Marzo/2024 a las 22:34


Tema: Reloj de Arena
Publicado por: ximo
Asunto: Reloj de Arena
Fecha de publicación: 26/Abril/2020 a las 17:54
Hola,

Estoy adaptando un viejo código para mandar correos, de esta forma mando las facturas por correo CDO.
Me he encontrado con un problemilla que he solucionado pero me gustaría saber el porque y el como.
Como dice el asunto, no me reonoce el DoCmd.

 'docmd.Hourglass True (esto no lo reconoce (DoCmd)
    Application.Cursor = xlWait (he cambiado por esto y es el disco azul)
    ' Y ! POR FIN !  enviamos
    ObjetoMensajeLibre.Send
    'Screen.MousePointer = 0
    If Not ObjetoMensajeLibre Is Nothing Then
        Set ObjetoMensajeLibre = Nothing
    End If
    MsgBox "Factura enviada", vbInformation, "Envio Correo"
    Application.Cursor = xlDefault
    'Screen.MousePointer = vbNormal

Hay alguna forma de mostrar el reloj de arena mientras se envia el correo.


Saludos, ximo


-------------
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana



Respuestas:
Publicado por: Mihura
Fecha de publicación: 26/Abril/2020 a las 18:23
Pues tendrás que enviar tu ordenata al psicólogo ... Sonrisa maligna

Copia/Pega de una aplicación:
    DoCmd.Hourglass True

Yo juraría que es idéntico. ¿Te ocurre en otra aplicación?




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Mihura
Fecha de publicación: 26/Abril/2020 a las 18:51
Uno de los ilustres me dice por privado que soy un cateto (y tiene razón, tengo la horrosa costumbre de no fijarme en el forero que hace la pregunta ni el foro en el que la hace), en Excel no existe el objeto DoCmd.

Prueba con Application.Cursor = xlWait
el normal es Application.Cursor = xlNormal


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: ximo
Fecha de publicación: 26/Abril/2020 a las 19:02
Hola Jesús,

Pues eso el lo que he hecho, pero tenía mis aquellos, y las dudas me corroen mientras no encuentro explicación.

Gracias por todo, podemos cerrar.


-------------
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana



Imprimir página | Cerrar ventana