Visual Basic - Como abrir un subformulario

Life is soft - evento anual de software empresarial
 
Vista:

Como abrir un subformulario

Publicado por Miguel Angel (2 intervenciones) el 08/11/2007 09:08:57
Muy buenas a todos:
Me gustaría saber si es posible realizarlo, como puedo abrir un subformulario en el mismo sitio donde aparecía otro, es decir tengo un formulario grande, dentro del cual hay un subformulario. En el subformulario hay una serie de botones asociados a la generacion de eventos, lo que busco es la manera de que al hacer click sobre uno de los botones se me habra otro formulario en el mismo lugar donde antes estaba el primer subformulario.
Muchas gracias de antemano.

Miguel Angel
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

RE:Como abrir un subformulario

Publicado por El conejo (124 intervenciones) el 08/11/2007 12:59:55
Hola.

Formpadre
Formhijo1
Formhijo2

cargas Formhijo1, este llama a Formhijo2.

formhijo2.left= formhijo1.left
formhijo2.top=formhijo2.top
formhijo2.height=formhijo2.height
formhijo2.width=formhijo1.width

Adoptaria la posicion, lo otro es Startup position, pero ya cambiaria el resultado si el usuario desplaza la ventana fuera de la posicion pre definida.

Espero te sirva.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como abrir un subformulario

Publicado por Miguel Angel (2 intervenciones) el 09/11/2007 10:32:30
Muchas gracias pòr tu respuesta pero no sale bien, creo que porque no sé hacerlo yo.
Te mando el codigo genrado por el boton que esta en el primer subformulario, que hace (o deberia hacer) aparecer el otro formulario en su lugar.


'------------------------------------------------------------
' Botones_OfertaCalibracion
'
'------------------------------------------------------------
Function Botones_OfertaCalibracion()
On Error GoTo Botones_OfertaCalibracion_Err

DoCmd.OpenForm "SubformularioCalibracion", acNormal, "", "", acEdit, acNormal
' Forms!SubformaularioCalibracion.Left = Forms!SubformularioOferta.Left
' Forms!SubformaularioCalibracion.Top = Forms!SubformaularioCalibracion.Top
' Forms!SubformaularioCalibracion.Height = Forms!SubformaularioCalibracion.Height
' Forms!SubformaularioCalibracion.Width = Forms!SubformularioOferta.Width

DoCmd.GoToRecord , "", acLast

Botones_OfertaCalibracion_Exit:
Exit Function

Botones_OfertaCalibracion_Err:
MsgBox Error$
Resume Botones_OfertaCalibracion_Exit

End Function

Muchas gracias por tu ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como abrir un subformulario

Publicado por El conejo (124 intervenciones) el 09/11/2007 15:29:04
Hola,

' Si el formulario actual es oferta va asi.
'------------------------------------------------------------
' Botones_OfertaCalibracion
'
'------------------------------------------------------------
Function Botones_OfertaCalibracion()
On Error GoTo Botones_OfertaCalibracion_Err
DoCmd.OpenForm "SubformularioCalibracion", acNormal, "", "", acEdit, acNormal
Forms!SubformaularioCalibracion.Left = Forms!SubformularioOferta.Left
Forms!SubformaularioCalibracion.Top = Forms!SubformaularioOferta.Top
Forms!SubformaularioCalibracion.Height = Forms!SubformaularioOferta.Height
Forms!SubformaularioCalibracion.Width = Forms!SubformularioOferta.Width

DoCmd.GoToRecord , "", acLast
Forms!SubformaularioCalibracion.show

Botones_OfertaCalibracion_Exit:
Exit Function

Botones_OfertaCalibracion_Err:
MsgBox Error$
Resume Botones_OfertaCalibracion_Exit

End Function

' Si el formulario actual es calibracion va asi.
'------------------------------------------------------------
' Botones_OfertaCalibracion
'
'------------------------------------------------------------
Function Botones_OfertaCalibracion()
On Error GoTo Botones_OfertaCalibracion_Err
DoCmd.OpenForm "SubformularioCalibracion", acNormal, "", "", acEdit, acNormal
Forms!SubformularioOferta.Left=Forms!SubformaularioCalibracion.Left
Forms!SubformaularioOferta.Top=Forms!SubformaularioCalibracion.Top
Forms!SubformaularioOferta.Height=Forms!SubformaularioCalibracion.Height
Forms!SubformularioOferta.Width=Forms!SubformaularioCalibracion.Width

DoCmd.GoToRecord , "", acLast
Forms!SubformaularioOferta.show

Botones_OfertaCalibracion_Exit:
Exit Function

Botones_OfertaCalibracion_Err:
MsgBox Error$
Resume Botones_OfertaCalibracion_Exit

End Function

Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como abrir un subformulario

Publicado por Miguel Angel (2 intervenciones) el 12/11/2007 12:28:25
No sé, pero cada vez que contesto me toca hacerlo dos veces, la primera vez que envio los datos van a tu correo? o es que esto no va muy bien!!!
Bueno por si acaso no te ha llegado.
Lo siento pero no me funciona, dice que Microsoft Access no puede entcontrar el subformularioOferta al que se hizo referencia...
El subformulario Calibracion si que se abre, pero en una venta nueva, y lo que yo pretendo es que lo haga en la misma que se encuentra el subformularioOferta dentro del formulario Ofertas.
Se te ocurre algo de porque puede ser esto?
Muchisimas gracias por tu ayuda desinteresada y tu interés.
Un saludo

Miguel Angel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar