Error de fechas en Combo Box
Publicado por Christian (23 intervenciones) el 28/09/2006 18:37:26
hola amigos, estoy tratando de hacer un programa en VB6 y access 2000 que pueda tomar transacciones desde una rango de fechas ingresadas por el usuario, y tengo este codigo:
SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '#" & Trim(CboInicio.Text) & "#' And '#" Trim(cmbfin.text) & "#') Group BY Movimiento"
Debug.Print SQL
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing
pero se cae el programa.
si yo coloco:
SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '"#01/01/2006#"' And '" & #1/12/2006# & "') Group BY Movimiento"
Debug.Print SQL
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing
me muestra todo bien, pero si quiero pasarle los valores de las combo no funciona.
notas:
las combobox tiene datos correctos
y las combo estan llenas al momento de ejecutar.
gracias, espero puedan ayudarme,
SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '#" & Trim(CboInicio.Text) & "#' And '#" Trim(cmbfin.text) & "#') Group BY Movimiento"
Debug.Print SQL
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing
pero se cae el programa.
si yo coloco:
SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between '"#01/01/2006#"' And '" & #1/12/2006# & "') Group BY Movimiento"
Debug.Print SQL
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing
me muestra todo bien, pero si quiero pasarle los valores de las combo no funciona.
notas:
las combobox tiene datos correctos
y las combo estan llenas al momento de ejecutar.
gracias, espero puedan ayudarme,
Valora esta pregunta


0