Microsoft Access
Ver Más instrucciones
1
Crear una tabla de ejemplo de las ventas de películas , utilizando los datos que siguen . Introduzca la primera fila de los datos como los nombres de los campos de la tabla .
MovieTitle , SaleDate , CostoUnitario , qtysolddoc zhivogo , 1/1/2009 , $ 5.01,3 doc zhivogo , 1/3/2009 , $ 4.95,2 dirigir verrugas, 1/5/2009 , $ 1.95,1 dirigir verrugas, 01/06/2009 , $ 0.95,2 doc zhivogo , 1/13/2009 , $ 3.00,1
2
Seleccione "Crear " seguido de " informe" para crear un nuevo informe. (Los usuarios de Access 2003 , seleccione " Objetos ", haga clic en "Informes" y " New "). Haga clic en la ficha del nuevo informe y seleccione " Vista Diseño ". Haga clic en el icono de control de cuadro de texto en la barra de herramientas de acceso y, a continuación , haga clic en un espacio vacío a la derecha de los campos existentes , en la sección " Detalles" del informe.
3
Seleccione el cuadro de texto izquierdo del par de los cuadros de texto que Access ha creado de forma automática, a continuación, pulse la tecla "delete " . Haga clic en el cuadro de texto restante y seleccionar " Propiedades".
4
clic en la pestaña "Datos" de la ventana " Hoja de propiedades " , a continuación, introduzca el siguiente texto en el "Control "campo :
= [ qtysold ] * [ CostoUnitario ]
5
Haga clic en la ficha del informe y seleccione " fuente de información: Ver "para ejecutar el informe . Observe el nuevo campo calculado que ha agregado , que muestra la venta total (precio de la unidad de cantidad vendida ) .
6
Haga clic en la ficha del informe y seleccione " Vista Diseño ", luego haga clic derecho en cualquier parte del informe y haga clic en " Propiedades del informe . " haga clic en la pestaña " Eventos" de la ventana " Hoja de propiedades " , haga clic en la flecha hacia abajo en el campo " On Load " . Seleccione " Procedimiento de evento ", a continuación, haga clic en el botón "..." para entrar en el entorno de desarrollo integrado de Visual Basic ( IDE).
7
Pega el siguiente subrutina sobre la existente " Report_Load " subrutina :
Private Sub Report_Load () wday = Día de la semana ( Now ( ) ) If ( wday = vbThursday ) ThenMe.Filter =" . ( [ moviesales ] [ movieTitle ] Me gusta " " dirigir * "") " ElseMe.Filter =" ([ moviesales ] . [ movieTitle ] Me gusta " " doc * "") "End IfMe.FilterOn = TrueEnd Sub
Sustituya el texto que dice " vbThursday " con "vb Volver al acceso y volver a ejecutar el informe , con instrucciones paso inicial de 5 . Tenga en cuenta que sólo las filas que contienen " dirigir verrugas " en el display , ya que el código de macro crea un filtro dinámico de las filas particulares, los jueves . Abrir " Vista Diseño " del informe con instrucciones paso a paso inicial de 6 . Volver al evento " Report_Load " que ha introducido anteriormente ( Vea el paso 6 . ) Vuelva a colocar la "vb
8
9
.