En esta lección explico como se crea un informe de ventas por mes y años.
Debido a que me consultaron mucho esta parte decidi adelantar esta lección en la cual primero creamos una consulta en la base de datos donde relacionamos 3 tablas.
La tabla Ventas con clientes, Tipo de Ventas y Estado de Ventas en MS Access de la siguiente manera:
Luego de tener la consulta lista diseñamos el reporte de listado de ventas quedando de la siguiente manera:
Lo siguiente es el formulario donde seleccionamos el Mes y el Año:
El código el cual filtramos y enviamos la consulta al Data Report queda de la siguiente manera, voy a pegar el código completo de todo el formulario en el vídeo explico todo paso a paso.
Sub ListadoVentas() Dim RecordVentas As New ADODB.RecordSet Mes = cmdMeses.ItemData(cmdMeses.ListIndex) Anio = txtAnio.Text Sql = "Select * from clta_Litado_Ventas where Month(FechaHora) = " & Mes & " and Year(FechaHora) = " & Anio Set RecordVentas = ConexionADO.Execute(Sql) Set Dtr_ListadoVentasMes.DataSource = RecordVentas With Dtr_ListadoVentasMes .Sections("Sección4").Controls("lblNombreEmpresa").Caption = Glo_NombreEmpresa .Sections("Sección2").Controls("Etq_Mes").Caption = cmdMeses.Text .Sections("Sección2").Controls("EtqAnio").Caption = txtAnio.Text .Show End With End Sub Sub Imprimir(Opcion) Select Case Opcion Case "VentasMes": ListadoVentas End Select End Sub Private Sub cmdImprimir_Click() Call Imprimir(glob_Item_Impresion_mes) End Sub Private Sub Form_Load() cmdMeses.ListIndex = Format(Date, "mm") - 1 txtAnio.Text = Format(Date, "yyyy") End Sub Private Sub txtAnio_KeyPress(KeyAscii As Integer) If SoloNumeros(KeyAscii) = False Then KeyAscii = 0 End If End Sub
Vídeo Explicativo:
OpenAI revoluciona la interacción con IA: ChatGPT ahora interpreta imágenes En un avance significativo para la…
Bienvenido al Curso Básico de Visual Basic 6! Este curso está diseñado para llevarte a…
Introducción a la programación y Visual Basic 6.0 ¿Qué es la programación? La programación es…
📢 ¡Aprovecha al máximo tu aplicación en Visual Basic 6 con la flexibilidad de instancias!…
Si estás buscando iconos para utilizar en tus proyectos de Visual Basic 6, hay una…
Microsoft ha lanzado una versión preliminar de su motor de búsqueda Bing y navegador Edge…
Este sitio utiliza cookies desea activarlas
Deja un comentario