Boton editar Formulario y SubFormulario

Dudas sobre Tablas, Consultas, Formularios, Informes...
Nito
Nivel 2
Mensajes: 28
Registrado: Sab Jul 01, 2017 6:36 pm

Boton editar Formulario y SubFormulario

Mensajepor Nito » Sab Jul 29, 2017 6:07 pm

Otra vez preguntando..!
Tengo un combo que al seleccionar me abre un formulario (que tiene un subformulario)

Código: Seleccionar todo

DoCmd.OpenForm "FDenuncias", , , "[IdDenuncia] = " & vTit, acFormReadOnly

En este form que se abre tengo un botón que permite editar los registros.
Pero no los del subformulario..
Quisiera que me permita la edición en ambos
Este es el código que uso.

Código: Seleccionar todo

Private Sub cmMod_Click()
If AllowEdits = False Then
AllowEdits = True
Me.cmMod.Caption = "Modificar"
MsgBox "Se habilitó la opción de MODIFICAR el DENUNCIA.", vbInformation, "MODIFICA DENUNCIA"
End If
End Sub


Gracias!

emiliove
Colaborador
Reto04
Mensajes: 394
Registrado: Lun Nov 23, 2015 4:05 pm

Re: Boton editar Formulario y SubFormulario

Mensajepor emiliove » Sab Jul 29, 2017 6:37 pm

Puedes llamar al subformulario de esta forma:

Me![Nombredelsubformulario].Form.AllowEdits = True

Saludos.

Nito
Nivel 2
Mensajes: 28
Registrado: Sab Jul 01, 2017 6:36 pm

Re: Boton editar Formulario y SubFormulario

Mensajepor Nito » Sab Jul 29, 2017 8:20 pm

Grande emilio! así quedó y funciona OK

Código: Seleccionar todo

Private Sub cmMod_Click()
If AllowEdits = False Then
AllowEdits = True
Me.cmMod.Caption = "Modificar"
MsgBox "Se habilitó la opción de MODIFICAR el DENUNCIA.", vbInformation, "MODIFICA DENUNCIA"
End If
Me![SubDenuncias].Form.AllowEdits = True
End Sub


abrazo grande

larsmm
Nivel 1
Mensajes: 6
Registrado: Jue Mar 24, 2022 9:08 am

Re: Boton editar Formulario y SubFormulario

Mensajepor larsmm » Jue Mar 24, 2022 9:30 am

Rescato el hilo porque me sucede algo parecido. Tengo un formulario con dos subformularios ([caudales_calculo] y [obras], cada uno de ellos dentro de en una pestaña diferente en un "Control de pestaña". He indicado que el formulario no tenga permitido la edición de campos y he creado un botón para que se puedan editar. Cuando pincho en el botón Editar, puedo editar los campos del formulario, pero no puedo ni editar ni añadir en los subformularios.

Si hago lo que se propone más arriba en este hilo y doy permiso a los subformularios:

Private Sub BTNEditar_Click()

Me.AllowEdits = True
Me![caudales_calculo].Form.AllowEdits = True
Me![obras].Form.AllowEdits = True

End Sub

Cuando pincho en el botón editar me sale una ventana con el siguiente mensaje:

Se ha producido el error "2465" en tiempo de ejecución:
APLICACION no encuentra el campo "caudales_calculo" al que se hace referencia en la expresión.

Si pincho en "Finalizar" se cierra la ventana emergente y puedo editar los datos del formulario principal, pero no los de los subformularios.

Pienso que puede ser debido a que los subformularios se encuentran dentro del Control de pestaña, pero no sé cómo solucionarlo.

Muchas gracias de antemano por vuestra ayuda.

Saludos.

Paco.

Avatar de Usuario
Sveinbjorn
Moderador
Mensajes: 1390
Registrado: Sab Oct 24, 2015 10:12 pm

Re: Boton editar Formulario y SubFormulario

Mensajepor Sveinbjorn » Jue Mar 24, 2022 10:27 am

Probablemente el problema esté en que el control que contiene al subformulario "caudales_calculo", no se llame así, sino "subformulario1" o cualquier otra cosa. Compruébalo sacando las propiedades de ese control contenedor del subformulario en la Pestaña Otras -> Nombre. Lo que ponga ahí es lo que debes usar en al línea de código para permitir o no las ediciones:
Me.[nombre_control].Form.AllowEdits=True
Sveinbjorn El Rojo

larsmm
Nivel 1
Mensajes: 6
Registrado: Jue Mar 24, 2022 9:08 am

Re: Boton editar Formulario y SubFormulario

Mensajepor larsmm » Jue Mar 24, 2022 11:42 am

¡Muchas gracias, Sveinbjorn! Ahí estaba el problema. ¡Solucionado!

Saludos.

Paco.


Volver a “Objetos Access”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados