CONSTRUIR CONSULTA EM DUA TABLELAS POR PERIODO
sim data1 e data 2
Me refiro ao conteúdo das variáveis. Como as alimenta e com que valor?
Exemplo:
Exemplo:
Dim Data1 As Date
Dim Data2 As Date
Data1 = [Ô]20/04/2008[Ô]
Data2 = [Ô]15/09/2009[Ô]
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
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
veja a tela
http://img33.imageshack.us/img33/713/loja.jpg
veja a tela
veja a tela
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
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
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,....
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,....
ass tabelas nao estam relacionadas
Tópico encerrado , respostas não são mais permitidas