Habilitar subformularios
En la red encontré un ejemplo de algo que andaba buscando y me viene bien para mi base, se trata de permitir hacer cambios o no, un botón cuyo código es el siguiente:
_____________________________________________________________________
On Error GoTo Err_Comando150_Click
If (Me.AllowEdits = False) Then
Me.AllowEdits = True
Comando150.Caption = "Guardar"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Comando143.Enabled = False
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowEdits = False
Comando150.Caption = "Modificar"
Comando143.Enabled = True
End If
Form_frmPrincipal.Refresh
Exit_Comando150_Click:
Exit Sub
Err_Comando150_Click:
MsgBox Err.Description
Resume Exit_Comando150_Click
_____________________________________________________________________
Y luego otro botón con la opción AllowAdditions
Las caracs. Del form principal están a NO (permitir ediciones, eliminación agregar y entrada de datos) mientras que a SÍ permitir filtros.
Todo bien hasta aquí, el problema es que en el form principal tengo subformularios y se ven de la siguiente manera:
Es decir, no se ve ningún registro, ¿cómo podría arreglar esto, pero seguir con las caracs. De los botones de modificar y añadir?
_____________________________________________________________________
On Error GoTo Err_Comando150_Click
If (Me.AllowEdits = False) Then
Me.AllowEdits = True
Comando150.Caption = "Guardar"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Comando143.Enabled = False
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowEdits = False
Comando150.Caption = "Modificar"
Comando143.Enabled = True
End If
Form_frmPrincipal.Refresh
Exit_Comando150_Click:
Exit Sub
Err_Comando150_Click:
MsgBox Err.Description
Resume Exit_Comando150_Click
_____________________________________________________________________
Y luego otro botón con la opción AllowAdditions
Las caracs. Del form principal están a NO (permitir ediciones, eliminación agregar y entrada de datos) mientras que a SÍ permitir filtros.
Todo bien hasta aquí, el problema es que en el form principal tengo subformularios y se ven de la siguiente manera:
Es decir, no se ve ningún registro, ¿cómo podría arreglar esto, pero seguir con las caracs. De los botones de modificar y añadir?
1 Respuesta
Respuesta de luis45ccs
1