Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Función DSum con fecha

380 views
Skip to first unread message

Luis Miguel Peñaranda

unread,
May 29, 2002, 4:03:11 AM5/29/02
to
Hola me encuentro el siguiente problema al utilizar la funcion DSum

Mensaje de Error

No coinciden los tipos de datos en la expresion de criterios

== CAMPOS DE LA TABLA == == TIPO DE DATOS ==
ImporteD Moneda
ImporteA Moneda
FecMov Fecha/Hora


==== CRITERIOS EN LA FUNCION DSUM ====

DSum("[ImporteD]-[ImporteA]", "Movimientos", "[FecMov] < 'Date' ")


Con cualquier otro criterio me funciona pero con date o fecha() no.


Búho

unread,
May 29, 2002, 5:20:54 AM5/29/02
to
Creo que así debería funcionarte. Además es conveniente poner el If-Else
para discriminar si hay movimientos o no, pues en otro caso, la funcion Dsum
pocría devolver un valor nulo y posiblemente dar error.
No he revisado bien los parentesis.
Creo que tu problema está en las comillas simples de Date

If IsNull(DSum("[ImporteD]-[ImporteA]", "Movimientos", "[FecMov] <" &
Date)) Then
Total = 0
Else
Total = Round(DSum("[ImporteD]-[ImporteA]", "Movimientos", "[FecMov] <" &
Date), 2)
End If

--
Saludos
Francisco García Aguado
Búho
"Luis Miguel Peñaranda" <infor...@distfish.com> escribió en el mensaje
news:eRIKebuBCHA.1300@tkmsftngp04...

Luis Miguel Peñaranda

unread,
May 30, 2002, 6:44:06 AM5/30/02
to
Round no me lo reconoce access, es lo mis mo que run????


"Búho" <pagaagQ...@hotmail.com> escribió en el mensaje
news:#pICQFvBCHA.2596@tkmsftngp05...

Búho

unread,
May 29, 2002, 6:51:37 AM5/29/02
to
Es la funcion de redondeo de Access 2000.
Quitala de la expresión. Es decir:
Total = DSum("[ImporteD]-[ImporteA]", "Movimientos", "[FecMov] <" & Date)


--
Saludos:
Francisco J. García Aguado
Bhúo

.---. .-----------
/ \ ____ / ------
/ / \( (..) )/ -----
////// ' \/ ` ---
//// / // : : ---
// / / / ` '--
// // .. \\
/ ===UU====UU====
'//||\\`

"Luis Miguel Peñaranda" <infor...@distfish.com> escribió en el mensaje

news:O3#ff1vBCHA.2024@tkmsftngp04...

marjan

unread,
May 29, 2002, 6:33:42 PM5/29/02
to
Y si... (en el evento al activar el registro...)
Private Sub Form_Current()

Dim curX As Currency
curX = DSum("[ImporteD]-[ImporteA]", "Movimientos", "[FecMov] < #" & Date &
"#")
Me.Texto0 = curX ' (Texto0 = Es un cuadro de texto que he creado para la
ocasión)
Me.Refresh

End Sub
(Hay otra ...solución)
Saludos.

"Luis Miguel Peñaranda" <infor...@distfish.com> escribió en el mensaje

news:eRIKebuBCHA.1300@tkmsftngp04...


> Hola me encuentro el siguiente problema al utilizar la funcion DSum
> Mensaje de Error
> No coinciden los tipos de datos en la expresion de criterios

> ==== CRITERIOS EN LA FUNCION DSUM ====

Luis Miguel Peñaranda

unread,
May 30, 2002, 12:54:01 AM5/30/02
to
Bingo!!!!!!!!!!!!!!!


Marjan este funciona......muchas gracias


"marjan" <Centr...@hotmail.com> escribió en el mensaje
news:aHcJ8.202651$kC5.1...@telenews.teleline.es...

0 new messages