** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Mover etiqueta de texto en informe impresión
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoMover etiqueta de texto en informe impresión
 Responder Responder
Autor
Mensaje
  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
12345qwerty Ver desplegable
Nuevo
Nuevo


Unido: 16/Diciembre/2019
Localización: Casa
Estado: Sin conexión
Puntos: 14 		Enlace directo a este mensaje Tema: Mover etiqueta de texto en informe impresión
    Enviado: 28/Enero/2020 a las 09:16
Buenas,

Tengo un informe que se rellena automáticamente según los valores que se introducen en la base de datos.

En ella, tengo dos campos que en caso de no rellenarse, se ocultan automáticamente. Mi problema es que los campos inferiores, al subir su posición, quedan demasiado espaciados, puesto que incluyen el espaciado existente entre los campos ocultos.

Necesitaría mover el elemento (Etiqueta67) a la posición que ocupaba originalmente el cuadro (Cuadro101). Para ello, calculo la distancia existente entre ellos y la debería de subir, pero no se como realizar esto último.

El cálculo de la distancia lo hago con estos comandos:
Dim dist_com_croq As Long
dist_com_croq = Me.Cuadro101.Top + Me.Cuadro101.Height - Me.Etiqueta67.Top

Un saludo.
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694 		Enlace directo a este mensaje Enviado: 28/Enero/2020 a las 15:18
Esto te sirve:

https://docs.microsoft.com/es-es/office/vba/api/access.form.move

Saludos.
Arriba
12345qwerty Ver desplegable
Nuevo
Nuevo


Unido: 16/Diciembre/2019
Localización: Casa
Estado: Sin conexión
Puntos: 14 		Enlace directo a este mensaje Enviado: 29/Enero/2020 a las 08:00
El problema con esto lo tengo en su implementación, no consigo hacer que funcione.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14025 		Enlace directo a este mensaje Enviado: 29/Enero/2020 a las 08:48
En DetalleFormat:

Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
    Me.Texto2.Left = 3000
    Me.Texto2.Top = 1000
End Sub



Editado por Mihura - 29/Enero/2020 a las 08:49
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable