Instrucción VBA de formulario dentro de otro |
Responder |
Autor | |
maserrano
Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690 |
Tema: Instrucción VBA de formulario dentro de otro Enviado: 19/Marzo/2020 a las 20:58 |
Hola buenas.
Tengo una duda sobre código para hacer referencia a un formulario dentro de otro. Veamos. Para hacer referencia a un formulario hago (esto es parte del código): Me.FSubFoto.Form.AllowEdits = Status ..., pero si tengo un formulario dentro de otro, no sé si lo hago bien Me.FSubExpedientesI!FSubDocuExp.Form.AllowEdits = Status No debe de estar bien, pues no me hace la función deseada de bloquear ese subformulario. Me pueden orientar. Gracias
|
|
emiliove
Administrador Unido: 16/Junio/2009 Localización: Mexico Estado: Sin conexión Puntos: 5694 |
Enviado: 19/Marzo/2020 a las 21:14 |
En la página de Emilio Sancha tiene la sintaxis http://www.mvp-access.es/emilio/como/sintaxisparasubformularios.pdf Guárdala muy bien.
|
|
maserrano
Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690 |
Enviado: 19/Marzo/2020 a las 21:49 |
Muchas gracias.
No sé, ahora al depurar, me sale un error 2455 en tiempo de ejecución: Se ha especificado una expresión que contiene una referencia no válida a la propiedad Form/Report. (lo he marcado en color) Private Sub Form_Load() Me.cmdGoogleMaps.HyperlinkAddress = "" Me.AllowEdits = False Dim Status As Boolean Status = Me.AllowEdits Me!FSubDocus.Form.AllowEdits = Status Me!FSubFotos.Form.AllowEdits = Status Me!FSubExpedientesI.Form.AllowEdits = Status Me!FSubExpedientesI.Form!FSubDocuExp.Form.AllowEdits = Status Me!FSubInspeccionesI.Form.AllowEdits = Status Me!FSubInspeccionesI.Form!FSubDocuIns.Form.AllowEdits = Status End Sub Ese mismo control lo tengo en otros formularios y no me da el error. No sé porqué??
|
|
maserrano
Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690 |
Enviado: 19/Marzo/2020 a las 21:57 |
También pruebo con:
Private Sub Form_Load() Me.cmdGoogleMaps.HyperlinkAddress = "" Me.AllowEdits = False Dim Status As Boolean Status = Me.AllowEdits Me.FSubDocus.Form.AllowEdits = Status Me.FSubFotos.Form.AllowEdits = Status Me.FSubExpedientesI.Form.AllowEdits = Status Me.FSubExpedientesI!FSubDocuExp.Form.AllowEdits = Status Me.FSubInspeccionesI.Form.AllowEdits = Status Me.FSubExpedientesI!FSubDocuIns.Form.AllowEdits = Status End Sub y tampoco... no sé...
|
|
emiliove
Administrador Unido: 16/Junio/2009 Localización: Mexico Estado: Sin conexión Puntos: 5694 |
Enviado: 19/Marzo/2020 a las 22:18 |
Le dices que no puede hacer ediciones si le dices directo: Me!FSubDocus.Form.AllowEdits = False Te marca error también, Saludos. |
|
maserrano
Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690 |
Enviado: 20/Marzo/2020 a las 00:41 |
Perdón. No he explicado todo; tengo un botón que activa/desactiva la edición. Es por seguridad de los usuarios.
Private Sub AbreEscritura_Click() Dim Status As Boolean Status = Not Me.AllowEdits Me.AllowEdits = Status Me.FSubTaludes.Form.AllowEdits = Status Me.FSubDeposito.Form.AllowEdits = Status Me.FSubCapacidad.Form.AllowEdits = Status Me.FSubExpedientesR.Form.AllowEdits = Status Me.FSubInspeccionesR.Form.AllowEdits = Status Me.Delegaciones.Form.AllowEdits = Status MsgBox "Formulario " & IIf(Status, "Editable", "No Editable") DoCmd.RunCommand acCmdSelectRecord End Sub Lo que no entiendo es lo del error 2455 haciendo referencia al form
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14746 |
Enviado: 20/Marzo/2020 a las 11:25 |
Sobre todo asegúrate de no confundir los nombres del control subformulario y del objeto de que contiene. Habitualmente son el mismo pero los puedes cambiar (yo lo hago siempre)
Por otro lado, ese error podría indicar que el subformulario no contiene datos. Una alternativa es utilizar la propiedad Locked del control subformulario en lugar del AllowEdits.
|
|
maserrano
Colaborador Unido: 02/Abril/2014 Localización: España Estado: Sin conexión Puntos: 690 |
Enviado: 20/Marzo/2020 a las 12:36 |
Muchas gracias Xavi.
El hilo se puede cerrar.
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |