SQL - Filtrar por fechas y por empresa

   
Vista:

Filtrar por fechas y por empresa

Publicado por Vanessa (1 intervención) el 30/10/2007 17:09:40
He creado un formulario en access para que me muestre la suma total de facturas recibidas, emitidas,los movimientos de bancos ( cargos y abonos) y así me diga lo que se ha pagado y lo que se debe, debido a que en un combo selecciono una empresa y que hay dos campos de fecha desde y fecha hasta para que sólo me aparezcan datos de facturas y movimientos de banco de una sola empresa en el compendio de fechas seleccionado.

El código que he creado en el procedimiento del botón es el siguiente pero no me devuelve los datos que quiero , alguien puede ayudarme?

Dim SQLa As String
Dim SQLc As String
Dim SQLfe As String
Dim SQLfr As String
Dim strcn As String
Dim rsta As New ADODB.Recordset
Dim rstc As New ADODB.Recordset
Dim rstfr As New ADODB.Recordset
Dim rstfe As New ADODB.Recordset

Dim cna As New ADODB.Connection
Dim cnc As New ADODB.Connection
Dim cnfe As New ADODB.Connection
Dim cnfr As New ADODB.Connection

strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cna.Open CurrentProject.BaseConnectionString
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cnc.Open CurrentProject.BaseConnectionString
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cnfe.Open CurrentProject.BaseConnectionString
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cnfr.Open CurrentProject.BaseConnectionString

SQLa = "select idempresa,sum(abonos)where idempresa= me.cboempresas.value and fecha between to_date('&txtfechadesde','dd/mm/yy') and to_date('&txtfechahasta','dd/mm/yy') from movimientosbancos group by idempresa"
rsta.Open SQLa, cna, adOpenKeyset, adLockOptimistic
SQLc = "Select idempresa,sum(cargos)where idempresa.value=me.cboempresas.value and me.txtfechadesde,me.txtfechahasta between fecha from Movimientosbancos group by idempresa"
rstc.Open SQLc, cnc, adOpenKeyset, adLockOptimistic
SQLfe = "select idcliente,sum(importetotalfactura) where idcliente.value=me.cboempresas.value and me.txtfechadesde,me.txtfechahasta between fecha from facturasemitidas group by idcliente"
rstfe.Open SQLfe, cnfe, adOpenKeyset, adLockOptimistic
SQLfr = "select idproveedor,sum(importetotalfactura) where idproveedor.value=me.cboempresas.value and me.txtfechadesde,me.txtfechahasta between fecha from facturasrecibidas group by idproveedor"
rstfr.Open SQLfr, cnfr, adOpenKeyset, adLockOptimistic

no sé que instrucción debo utilizar porque esta no me funciona
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder