Access - Error tamaño del formulario activo

   
Vista:

Error tamaño del formulario activo

Publicado por MrsVB (4 intervenciones) el 11/02/2014 10:24:24
Hola,

Antes de nada mil gracias por dedicar un minuto en leer mi post.

Estoy ejecutando una aplicación en access con visual basic 7.0. Tengo un módulo independiente en el que tengo una función que redimensiona los formularios, y la llamo cada vez que abro uno. Pero al abrir un formulario a veces me da un error de que el formulario es demasiado grande:

"The control or subform control is to large for this location"

He pensado en ajustar el tamaño, de manera que si se pase, tome el valor de Screen.ActiveForm.Form.InsideHeight
En Access 2010 me funciona a la perfección, y si hago un MsgBox de Screen.ActiveForm.Form.InsideHeight me da un valor numérico. Pero en Access 2003 (con vba 6.5), al debugear, encima de la instrucción Screen.ActiveForm.Form.InsideHeight me sale: "You entered an expression that requires a form to be the active window"

¿Qué estoy haciendo mal?
Mil gracias!

Saludos


Dim height_max As Long
Dim width_max As Long
height_max = Screen.ActiveForm.Form.InsideHeight
width_max = Screen.ActiveForm.Form.Width

For i = 0 To Screen.ActiveForm.Controls.count - 1
Set myControl = Screen.ActiveForm.Controls.Item(i)
If myControl.Parent.name <> "tab*" Then 'Then 'And myControl.name <> "label37" And myControl.name <> "label41" Then
moverx = myControl.top + mover1
movery = myControl.left + mover2


'Screen.ActiveForm.Form.Visible = True
If moverx > height_max Then
moverx = height_max
End If

If movery > width_max Then
movery = width_max
End If

myControl.Move movery, moverx
End If
Next i


Sin embargo, no supera el tamaño, ya que:
moverx = 11808
heigth_max = 15030

movery= 6848
width_max = 15825


Gracias de nuevo!
Saludos y buen día.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder