No funciona acCmdCopy

   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