Bloquear eliminación de registros en subformulario
Hola, en access tengo un formulario "Vehiculos" con un campo "Cerrado" y un subformulario "reacondicionamientos". Mi problema es el siguiente, tengo que bloquear el subformulario para edición y para eliminación de registros cuando el campo "Cerrado" este a true.
Como lo hago ahora mismo consigo bloquear de edición, pero no de eliminación :
Private Sub Form_Current()
Me.AllowDeletions = False
If Me!verificacioncerrado = True Then
Me.Subformulario_reacondicionamientos.Locked = True
Me!ESTADO.Caption = "CERRADO"
Me!ESTADO.ForeColor = 255
Me.AllowEdits = False
Else
Me!ESTADO.Caption = "ABIERTO"
Me!ESTADO.ForeColor = QBColor(2)
Me.AllowEdits = True
End If
End Sub
Alguien me puede ayudar. Gracias
Como lo hago ahora mismo consigo bloquear de edición, pero no de eliminación :
Private Sub Form_Current()
Me.AllowDeletions = False
If Me!verificacioncerrado = True Then
Me.Subformulario_reacondicionamientos.Locked = True
Me!ESTADO.Caption = "CERRADO"
Me!ESTADO.ForeColor = 255
Me.AllowEdits = False
Else
Me!ESTADO.Caption = "ABIERTO"
Me!ESTADO.ForeColor = QBColor(2)
Me.AllowEdits = True
End If
End Sub
Alguien me puede ayudar. Gracias
1 respuesta
Respuesta de Julián González Cabarcos
1
Si el código lo tienes tal como lo has escrito, el único fallo que le veo es que has puesto lo de permitir eliminaciones antes de la condición.
Suponiendo que los controles se llaman tal como los tienes puesto(convendría mirar en el diseño del formulario, en las propiedades de cada uno, en la solapa Otras)prueba a escribir:
If verificacióncerrado =true then
[subformulario_reacondicionamientos].form.allowdeletions=false
[subformularios_reacondicionamiento].form.allowedits=false
me.estado.caption=...
Cuando te refieres a un control del objeto activo no hace falta poner me.
Está probado y funciona perfectamente.
Suponiendo que los controles se llaman tal como los tienes puesto(convendría mirar en el diseño del formulario, en las propiedades de cada uno, en la solapa Otras)prueba a escribir:
If verificacióncerrado =true then
[subformulario_reacondicionamientos].form.allowdeletions=false
[subformularios_reacondicionamiento].form.allowedits=false
me.estado.caption=...
Cuando te refieres a un control del objeto activo no hace falta poner me.
Está probado y funciona perfectamente.
