ayuda con select

[Tadeo Giner]

Hola a todos y gracias por vuestras respuestas


Tengo un formulario llamado Totales Diarios donde tengo un campo fecha, y un
subformulario donde calculo los movimientos diarios de los albaranes
dependiendo de la fecha que se introduzca en ese campo.

Con los datos en una base de datos mdb no he tenido problemas, pero al pasar
los datos a sqlserver y atacar a estos datos con un proyecto adp la cosa
cambia y me deja de funcionar.

La solucion adpotada ha sido al abrir el subformulario:

Private Sub Form_Open(Cancel As Integer)
Dim scr As String
scr = "SELECT sum(dbo.[Linea de Albarán].Unidades) as SumaUnidades,
sum(dbo.[Linea de Albarán].[Importe Neto Eu]) AS SumaImporte,
count(dbo.Artículos.Referencia) AS CuentaReferencia,
dbo.Representados.Representado, COUNT(DISTINCT(dbo.Albaranes.[ID de
Albarán])) AS CuentaAlbaranes, count(dbo.[Linea de Albarán].[ID de Linea de
Albarán]) AS CuentaLineas, sum(dbo.[Linea de Albarán].[Margen Eu]) AS
SumaMargen FROM dbo.Representados RIGHT OUTER JOIN dbo.Albaranes ON
dbo.Representados.[ID de Representado] = dbo.Albaranes.[ID de Representado]
RIGHT OUTER JOIN dbo.[Linea de Albarán] ON dbo.Albaranes.[ID de Albarán] =
dbo.[Linea de Albarán].[ID de Albarán] LEFT OUTER JOIN dbo.Artículos ON
dbo.[Linea de Albarán].[ID de Artículo] = dbo.Artículos.[ID de Artículo]
WHERE (dbo.[Linea de Albarán] .Unidades > 0) and (dbo.Albaranes.[fecha de
Albarán]=" & Forms![Totales diarios]![Fecha] & ") GROUP BY Representado "
Me.RecordSource = scr
Me.Requery
End Sub

pero no me funciona, si quito el campo fecha y lo calculo de toda la base de
datos si me funciona pero al acotar por fecha siempre me devuelve una
consulta vacia

Podeis ayudarme?
Gracias de antemano

 

[Tadeo Giner]

Sorry, I made a mistake sending the post