CONSTRUIR CONSULTA EM DUA TABLELAS POR PERIODO

MASTER2020 02/08/2009 21:18:50
#318616
sim data1 e data 2
ANDRE.ADMVB 02/08/2009 22:34:16
#318630
Me refiro ao conteúdo das variáveis. Como as alimenta e com que valor?

Exemplo:
Dim Data1 As Date
Dim Data2 As Date

Data1 = [Ô]20/04/2008[Ô]
Data2 = [Ô]15/09/2009[Ô]
MASTER2020 03/08/2009 11:11:00
#318665
olha a unico codigo q tenho no meu sistema e este q formata a digitacao da data

Private Sub TxtDtIni2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim bRESP As Boolean
bRESP = ValidaData(TxtDtIni2.Text, [Ô]dd/mm/yyyy[Ô])
If bRESP = False Or Len(TxtDtIni2.Text) < 8 Then
MsgBox [Ô]Data Inválida !!![Ô], vbInformation, [Ô]Aviso[Ô]
TxtDtIni2.SetFocus
Else
TxtDtfim3.SetFocus
End If
End If
End Sub
MASTER2020 03/08/2009 11:30:07
#318666
veja a tela
MASTER2020 03/08/2009 11:33:04
#318668
http://img33.imageshack.us/img33/713/loja.jpg
veja a tela
MASTER2020 03/08/2009 11:38:00
#318671
MASTER2020 03/08/2009 12:02:18
#318675
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
ANDRE.ADMVB 03/08/2009 13:04:48
#318682
PATOLOCO,

O campo CODPROD da tabela 1 tem relacionamento com o campo CODPRODSAIDA da tabela 2?
Na teoria, o conteúdo de um deveria ser igual ao do outro na tabela, não?

Dá uma verificada nisso. Inicialmente vê se trata-se do mesmo produto na mesma tabela (CODPROD = CODPRODSAIDA) e se há relacionamentos no seu BD!

Creio que seja isso cara,....
MASTER2020 03/08/2009 14:37:28
#318702
ass tabelas nao estam relacionadas
Página 2 de 4 [31 registro(s)]
Tópico encerrado , respostas não são mais permitidas