Imprimir página | Cerrar ventana

No funciona acCmdCopy

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84715
Fecha de impresión: 26/Marzo/2026 a las 22:25


Tema: No funciona acCmdCopy
Publicado por: arodrigu
Asunto: No funciona acCmdCopy
Fecha de publicación: 23/Septiembre/2019 a las 14:29
Buenos días,

Tengo que copiar el contenido de un campo al portapapeles. Utizaba el siguiente código y funcionaba bien pero ha dejado de funcionar.
Si lo ejecuto paso a paso, funciona, pero si lo hago con el evento click de un botón devuelve el error "el comando copiar no está disponible ahora".
El botón está en un formulario emergente y modal (no sé si tendrá que ver).

If Me.Campo.SelLength = 0 Then
	If Me.Campo.SelStart = Len(Me.Campo.Text) Then
		Me.Campo.SelStart = 0
		Me.Campo.SelLength = Len(Me.Campo.Text)
	End If
End If
'Copiamos la selección en el portapapeles.
DoCmd.RunCommand acCmdCopy


-------------
Fuerza y honor.
Saludos de Arturo desde Madrid


Respuestas:
Publicado por: emiliove
Fecha de publicación: 23/Septiembre/2019 a las 15:51
Hola Arodrigu

¿Que Access y Windows tienes, en Excel por ejemplo si funciona o en Windows?

Saludos.

Publicado por: arodrigu
Fecha de publicación: 23/Septiembre/2019 a las 15:57
Hola Emilio.
Windows 10 Pro
Access 2013


-------------
Fuerza y honor.
Saludos de Arturo desde Madrid

Publicado por: emiliove
Fecha de publicación: 23/Septiembre/2019 a las 16:11
¿En Excel por ejemplo si funciona o en Windows?

Y si no es modal y emergente ¿hiciste pruebas?

Saludos.

Publicado por: Mihura
Fecha de publicación: 23/Septiembre/2019 a las 16:30
Quita .text en todas las líneas:

If Me.Campo.SelStart = Len(Me.Campo) Then
Me.Campo.SelLength = Len(Me.Campo)


-------------
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: arodrigu
Fecha de publicación: 23/Septiembre/2019 a las 16:43
Emilio,
Lo he probado en un formulario que no es ni emergente ni modal. No funciona.
En excel no sé programar y en windows....no sé a qué te refieres.

Jesús,
He hecho lo que dices. Mismo resultado, mismo mensaje.


-------------
Fuerza y honor.
Saludos de Arturo desde Madrid

Publicado por: Mihura
Fecha de publicación: 23/Septiembre/2019 a las 17:55
Por no leer, el mensaje de error nos está diciendo cuál es el problema, para poder usar la propiedad SelTest / SelStart el campo al que estemos haciendo referencia debe tener el enfoque, si lo haces desde un botón el que tiene el enfoque es el botón y entonces te casca.

Debes hacer la selección de lo que se va a copiar en el propio campo.



-------------
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: arodrigu
Fecha de publicación: 23/Septiembre/2019 a las 18:57
Hola Jesús.

Ya le enviaba el foco previamente a invocar el acCmdAcopy pero, se me ha ocurrido poner la aplicación en otro equipo de la oficina, y funciona perfectamente, lo que quiere decir que el código está bien y supongo que será un tema de windows.

Hablaré con los informáticos a ver que me cuentan.
Gracias a todos.
Por mi se puede cerrar el hilo.


-------------
Fuerza y honor.
Saludos de Arturo desde Madrid


Imprimir página | Cerrar ventana