Boton editar Formulario y SubFormulario

[Nito]

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]

Puedes llamar al subformulario de esta forma:

Me![Nombredelsubformulario].Form.AllowEdits = True

Saludos.

[Nito]

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]

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.

[Sveinbjorn]

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

[larsmm]

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

Saludos.

Paco.