Antes de realizar cualquier tipo de programación , necesitará datos de ejemplo. Empezar a crear estos datos mediante la apertura de acceso y elija el comando "Nuevo" para crear una nueva base de datos. Crear una tabla de películas por la primera a escribir sus nombres de campo y seleccionar su tipo en la ficha " Tabla 1 " . Estos son los nombres de campo y tipos para participar:
campo Texto: Campo de texto "Título " , el campo Número " director ", " year_released "
Ingrese dos filas de datos en la tabla , correspondientes a los campos que acaba de crear . (No incluya las comas o comillas . )
Fila 1 : " Star Wars", "lucas ", 1977row 2 : "Excalibur ", " Boorman , " 1980
Save the base de datos, la introducción de " películas " para el nombre de la tabla cuando se le solicite .
Crear un formulario de entrada de datos
Su programa orientado a eventos requiere una forma de trabajar . Hacer una seleccionando " Crear> Asistente para formularios, " la elección de los "Campos disponibles" excepción "ID " para copiar al " Campos seleccionados " área de texto y haga clic en " Finish ".
Access abrirá el formulario en Formulario. Haga clic en cualquier lugar en el formulario y seleccione " Vista Diseño ".
Agregar un Evento Procedimiento
Ahora vamos a crear un procedimiento de evento para el campo película " Título " . Cuando el usuario intenta pestaña fuera de ese campo después de cambiarlo , el programa mostrará un cuadro de mensaje que le exigía para confirmar o cancelar su elección .
Inicio , haga clic en el cuadro de texto " Título " y luego haciendo clic en el " Evento " pestaña en la " Hoja de propiedades " . En la sección " Antes de actualizar" fila , haga clic en la flecha hacia abajo y seleccione " Procedimiento de evento ", y luego haga clic en el botón situado a la derecha de la flecha hacia abajo.
Escribir código para mostrar el mensaje de confirmación
Usted entrará automáticamente el entorno de desarrollo integrado de Visual Basic ( IDE ) dentro de un procedimiento que se ejecutará cuando el usuario cambia el título de la película y luego presiona la tecla Tab. Pega el siguiente código de programa en este procedimiento por lo que aparece de la siguiente manera :
Private Sub title_BeforeUpdate ( Cancel As Integer ) Dim respresp = MsgBox ( "¿Realmente desea cambiar este registro ? " , VbMsgBoxStyle.vbYesNo ) Si ( resp = VbMsgBoxResult.vbYes ) Then Exit SubCancel = TrueEnd Sub
Enable macros
Volver al acceso , y garantizar que las macros están habilitadas para esta base de datos haciendo clic en el " botón Contenido " Habilitar. Si el programa no funciona , cambie los ajustes de macro del Centro de confianza haciendo lo siguiente: Seleccione " Archivo> Opciones > Centro de confianza > Configuración del Centro de confianza > Configuración de macros ", y luego haga clic en la opción "Habilitar todas las macros "
.
probar un programa
doble clic en el formulario de " películas " en la ventana " Todos los objetos de acceso " para probar el código . Haga clic en el campo " Título " ( película ) de cualquier registro , escribir o borrar un texto y pulse la tecla Tab. El mensaje aparecerá . Haga clic en " No" para mantener el cursor en el cuadro de texto "Título" o " Sí" para pasar al campo de "Director" .
Experimento
Este ejemplo mostró cómo crear una respuesta para un tipo de evento. Pero se puede ver claramente en la vista de diseño de muchos otros tipos de eventos del formulario. Experimente con diferentes respuestas a esos eventos al mostrar mensajes o cambiar el texto de otros campos con declaraciones como la siguiente :
director = " director's