Botón para desbloquear todos los registros bloquedos.

Tengo un formulario con todos los cuadros en Propiedades > datos > Bloqueado si, para que no se pueda editar por equivocación, ¿Se puede crear un botón para desbloquear todos los cuadros?

3 Respuestas

Respuesta
1

La manera más fácil es que te crees un botón de comando y en el evento click pongas lo siguiente:

Me.TextBox1.Locked = False
Me.TextBox2.Locked = False
.
.

Eso suponiendo que no tengas 30 campos :-P

Se podría realizar un bucle para recorrer los campos del formulario y realizar la misma acción, pero no se cuál es tu nivel de VBA.

Respuesta
1

Si se puede, pero...¿no te sería más sencillo hacerlo a nivel de formulario con la propiedad "Permitir ediciones": Sí/No?

Respuesta
1

Carlos: Si que se puede. Pon un Botón que se llame por ejemplo >> BtnDesbloquea

Private Sub BtnDesbloquea_Click()
Dim Ctrl As Access.Control
For Each Ctrl In Me.Controls
        If Ctrl.ControlType = acTextBox Or Ctrl.ControlType = acComboBox Then
                Ctrl.Locked = False
        End If
Next Ctrl
End Sub

Creo que no tendrás problemas, ya que he ido escribiendo sobre la marcha. Mis saludos >> Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir formulario para pagar con una tecla

Necesito saber si se puede tengo un formulario y subformulario de Ventas2 y DetalleVenta en ventas2 tengo un campo METODO_PAGO el cual el enfoque para cuando termine en detalleventa la selección de productos aplaste una tecla por ejemplo esc y salga...
2 respuestas

Copia de seguridad BD completa Access

Quiero saber si es posible mediante un botón en un formulario en Access crear una copia de seguridad de TODA la base de datos en una unidad USB al pulsar el botón. La unidad está en la ruta: D:\14gb\ Cuando digo TODA la BD son tablas, consultas, etc..
2 respuestas

Indices en tablas

Tengo 8 tablas dentro de la base de datos, y todas tiene en común el mismo campo, exactamente no se como relacionar todas las tablas es decir en que campo relacionarlas, si de una a muchos o todas contra todas, ademas no se si colocarles un indice a...
3 respuestas

Como pasar una importaciones guardada en Access a vba

Estoy trabajando con datos que provienen desde una base de datos de SQL server, hago los pasos de importación y los guardo en importaciones guardadas, funciona de maravilla, pero cuando no hay conectividad con el servidor falla, ya que previa a la...
2 respuestas

Consulta Expresión Demasiado Compleja Access

Soy usuario inicial de Access y quiero utilizar la expresión "SILNM" Tengo una base de datos de vehículos por VIN. En el VIN de un vehículo el 10mo. Dígito me indica el año de fabricación, es decir que si es a=2010, b=2011, c=2012; etc... Cuando...
4 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
3 respuestas

Como se copia todos los datos de un subformulario a otro subformulario

Estoy copiando datos de un formulario a otro formulario, ambos con subformularios, el problema esta en que los registros del subformulario solo me copia la primera fila. Estas son los datos: Formulario "Cotizacion" Con Subformulario...
3 respuestas

Asignar un valor a un campo y que lo repita hasta que el usuario cambie ese valor manualmente

Es usted muy amable. Siempre ayudando a quienes no contamos con suficientes conocimientos. Mi problema es el siguiente. Tengo una tabla relacionada con otras tres. Quiero en el formulario que el usuario fije un valor y añada varios registros, que...
7 respuestas

Migrar desde Access a BBDD web

Tengo una base de datos Access en red con 20 equipos conectados. Es muy extensa y consta de muchas tablas, consultas, formularios e informes. Sobre todo se trabaja con formularios para recoger datos de diferentes áreas del servicio. Estos formularios...
2 respuestas

Envio de Wasap desde Acces

Tengo una base de datos que manda wasap desde la ficha del cliente, el código que uso es el siguiente Private Sub Comando19_Click() CreateObject("Shell.Application").Open "https://api.whatsapp.com/send?phone=" + Me.telefono_cliente + "&text=" +...
1 respuesta