PDF de programación - Venta de dialogo para la base de datos Control de Trabajos

Venta de diálogo para la base de datos “Control de trabajos”


Vamos a crear un cuadro de dialogo donde te tiene que preguntar “Código operario”, “Fecha
inicio” y “Fecha fin” para poder visualizar el informe “Listado cobrar trabajadores”.

Recuerda que para crear el cuadro combinado debes de tener activado el asistente,



Dejaremos activada la opción “Deseo que el cuadro combinado busque los valores en una
tabla o consulta”, seleccionaremos el botón “Siguiente”.

Pere Manel Verdugo Zamora


Página 1

Seleccionaremos la tabla “Operarios”, seguido del botón “Siguiente”.



Seleccionaremos los campos Código Operario, Nombre y Apellidos y a continuación el botón
“Siguiente”.

Pere Manel Verdugo Zamora


Página 2

Seleccionaremos el campo “Apellidos” en modo ascendente, seleccionaremos el botón
“Siguiente”.



Dejaremos activada la casilla “Ocultar la columna clave (se recomienda), seguido del botón
“Siguiente”.



Pere Manel Verdugo Zamora


Página 3

Como nombre a la etiqueta “Código Operario”, seguido del botón “Finalizar.



Seleccionaremos el campo combinado y como nombre le asignaremos “Codigo” en el apartado
“Nombre” de la pestaña “Otras”-



Pere Manel Verdugo Zamora


Página 4

El siguiente paso será crear dos cuadros de texto, como nombre al primero ”Fecha inicio” y al
segundo “Fecha fin”, y en él apartado propiedades como formato “Fecha corta” es importante
asignarle dichos nombre porque en el código de Visual Básic” haremos referencia a estos
nombres.

Seleccionaremos el botón.
En la pestaña “Eventos” el apartado “Hacer clic” seleccionaremos el botón que tiene (…)



Seleccionaremos “Generador de código” seguido del botón “Aceptar”.
Escribiremos el siguiente código:



Private Sub Comando6_Click()
Dim strFiltro As String, strinforme As String
strFiltro = "[Código Operario] = Forms.dialogo.[Codigo] and [Fecha] >= Forms.dialogo.[Fecha
inicio] and [Fecha] <= Forms.dialogo.[Fecha fin]"
strinforme = "Listado cobrar trabajadores"
DoCmd.OpenReport strinforme, acViewPreview, , strFiltro
DoCmd.Close acForm, "Dialogo"
End Sub


Pere Manel Verdugo Zamora


Página 5

Cerraremos la ventana de Visual Básic.

Cerraremos el formulario que lo guardaremos con el nombre de “dialogo”.

Ejecutaremos el formulario.



Rellenaremos los siguientes datos y seleccionaremos el botón “Visualizar listado”.

Pere Manel Verdugo Zamora


Página 6

El siguiente paso será modificar la marco del siguiente botón.



Página 7

Pere Manel Verdugo Zamora




Pere Manel Verdugo Zamora


Página 8