Microsoft Access
Ver Más instrucciones
1
Open Access , a continuación, crear una nueva tabla llamada " tabla 1 " con dos columnas : " Campo1 " y " campo2 " . Usted escribe un programa VBA para comprobar las propiedades de una de estas columnas , y la propiedad de un control de casilla de verificación.
2
Crear un formulario basado en la " Tabla 1 " haciendo clic en el botón "Form" en el menú " Crear".
3
Haga clic en la ficha del nuevo formulario y seleccione " Vista Diseño ", haga clic en el control " casilla de verificación" en la cinta ( la barra de herramientas grande). Arrastre en el área de " Encabezado del formulario " para crear la casilla
4 Haga clic en la casilla de verificación y seleccione " Properties ", escriba " justread " en el campo "Nombre" del "otro" . pestaña de la derecha de pantalla. Esta acción establece el nombre de una casilla de verificación cuya propiedad "valor" que nos visites en el código VBA.
5
Haga clic en el "..." botón en el campo " clic" de la ficha "Evento" . . Haga doble clic en " Generador de código " para entrar en el entorno de desarrollo integrado VBA ( IDE )
6
Pega el siguiente código entre las " Private Sub " y declaraciones "End Sub ":
< p > Private Sub justread_Click ()
conmigo! Campo1
If Me ! justread.value = True Luego
. Enabled = False
. Cerrado = verdadero
demás
. Habilitado = True
. Cerrado = False
End If End
Con
End Sub
Esta subrutina comprueba el " justread " la propiedad de control " valor " para el valor "True" . Si el " valor " es cierto , la subrutina desactiva la entrada de usuario en el cuadro de texto " Campo1 " .
7
Pulse " Alt -F11 " para volver a Access , a continuación, haga clic en la ficha de la forma . Seleccione " Vista formulario " para ejecutar el formulario .
8
Escriba el texto en el campo " campo1 " y marque la casilla en la parte superior del formulario. Intente escribir más texto en el campo " campo1 " . La subrutina VBA introdujo impedirá la entrada, en función del valor de la propiedad "valor" de la casilla .
9 vista
Haga clic en la tabla del formulario y seleccione " Diseño" . Vuelva a introducir el IDE haciendo clic en el "..." . botón en el campo " OnClick " del " justread " la casilla , como lo hizo en el paso 5
10
Reemplace la subrutina " justread_Click " con este código revisado :
Private Sub justread_Click ( )
conmigo! campo2
Si . BackColor = 16777215 Luego
. BackColor = 13597561
demás
. BackColor = 16777215
End If End
Con
End Sub
Esta subrutina comprueba la propiedad color de fondo (llamado " BackColor ") del segundo campo . Entonces, el programa cambia la propiedad si el color es blanco.
11
Prensa " Alt- F8 " para volver a Access , a continuación, volver a ejecutar el formulario con las instrucciones del Paso 7 .
12
marcar y desmarcar la casilla de verificación . El programa revisado se cambie el color de fondo de " campo2 ".