Formulario en accsess, salir de guardando.

Tengo un formulario con distintos campos( código, descripción y preciofinal ) estos campos en el formulario, propiedades al abrir se bloquean:

Private Sub Form_Open(Cancel As Integer)
Me.CODIGO.Locked = True
Me.DESCRIPCION.Locked = True
Me.PRECIOFINAL.Locked = True
End Sub

Bueno, luego tengo un Boton llamado Nuevo que sirve para agregar nuevos articulos al que puse una macre que me permita habilitar los campos para poder ingresar nuevos productos;

Private Sub NUEVO_Click()
On Error GoTo Err_NUEVO_Click
Me.CODIGO.Locked = False
Me.DESCRIPCION.Locked = False
Me.PRECIOFINAL.Locked = False

DoCmd.GoToRecord , , acNewRec

Exit_NUEVO_Click:
Exit Sub

Err_NUEVO_Click:
MsgBox Err.Description
Resume Exit_NUEVO_Click
End Sub

Y tengo otro botón que me permite Guardar.

Hasta ahí todo bien solo que no puedo salir de agregar, osea, para volver al formulario con los campos bloqueados tengo que presionar el botón Cerrar formulario y volver abrir dicho formulario apareciendo nuevamente con los campos cerrados. La pregunta es la siguienmte, ¿qué tengo que agregar para que al presionar la tecla Guardar vuelva tener los campos bloqueados? Aclaro no se nada de macros, esto lo arme googleando y adaptando.

Respuesta
1

Juan: Al final del procedimiento que tienes para "Guardar", añade otra vez el bloqueo con las mismas líneas de código que tienes el el Form_Open()

Interpreto que es eso lo que quieres: Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas