ricardo celso
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 03/08/2009 17:49 hs
esta consulta esta com algum problema qdo ela nao da erro no relatorio ela nao acha nada
vejam
no sistema esta assim
Dim Data1 As Date
Dim Data2 As Date
Data1 = TxtDtIni2.Text
Data2 = TxtDtfim3.Text
RSProduto.Open "SELECT sum(qtdsaida) as QtdTotalSaida FROM tblproduto, tblsaida WHERE codprod = codprodsaida AND datasaida BETWEEN #" & Data1 & "# AND #" & Data2 & "# GROUP BY codprod", cnn, 3, 3
If Not RSProduto.EOF Then
Set dptsaidadata.DataSource = RSProduto
dptsaidadata.Show
dptsaidadata.Title = "Relatório de saida do estoque"
Else
RSProduto.Close
MsgBox "Não foram encontrados Registros", vbInformation, "Aviso"
End If
|
|
|
|
|
|
|
|
Postada em 03/08/2009 19:43 hs
Você tem dados nessas tabelas que respeitam as codições do WHERE?
Sem ter a base, fica dificil achar o erro.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
ricardo celso
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/08/2009 21:18 hs
sim tem dados, tem relacionamento
|
|
|
|
|
|
Postada em 04/08/2009 07:58 hs
Procure algum software para rodar a sua SQL. Um bom exemplo é o WinSQL.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 04/08/2009 10:39 hs
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
ricardo celso
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/08/2009 11:25 hs
ASh muito obrigado pelo soft winsql vou testar e logo retorno, o Alvaro gostei da apostila vou estudar asim q eu chegar a concerto eu retorno com a solucao muito obrigado
|
|
|
|
