RELATORIO EMTRE DATAS - COM URGENCIA
Bem galegas e seguinte o que estou tentando fazer é seguinte
tem um cadastro de entrada no caixa e tenho o campo Emissão e Vencimento
ambos tipo TEXTO 10/10/2009.
o estou tentando fazer é um relatório e pesquisar tipo de 01/09/2009 a 15/09/2009
e lista somente este perÃodo.
Estou usando o bando de dados Acccess e o campo dada vencimento e tipo texto.
Grato
tem um cadastro de entrada no caixa e tenho o campo Emissão e Vencimento
ambos tipo TEXTO 10/10/2009.
o estou tentando fazer é um relatório e pesquisar tipo de 01/09/2009 a 15/09/2009
e lista somente este perÃodo.
Estou usando o bando de dados Acccess e o campo dada vencimento e tipo texto.
Grato
Simples.
Tem Duas opções:
Ou utilize o
Tem Duas opções:
DATA <= TXTDATA1.text and DATA >= TXTDATA2.textOu utilize o
DATA BETWEEN TXTDATA1.Text and TXTDATA2.Text
este é um problema o ideal é vc alterar o campo para o tipo data/hora, pois a assim a pesquisa será correta
veja como efetuar a pesquisa
SELEC * FROM taela WHERE data BETWEEN #01/09/2009# AND #15/09/2009#
veja como efetuar a pesquisa
SELEC * FROM taela WHERE data BETWEEN #01/09/2009# AND #15/09/2009#
só lembrando no access o format de data é mm/dd/yyyy
então ficaria assim
SQL = [Ô]SELECT * FROM tabela WHERE data = #[Ô] &Format( txtDataIni.text ,[Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] &Format( txtDataFim.Text ,[Ô]mm/dd/yyy[Ô]) & [Ô]#[Ô]
então ficaria assim
SQL = [Ô]SELECT * FROM tabela WHERE data = #[Ô] &Format( txtDataIni.text ,[Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] &Format( txtDataFim.Text ,[Ô]mm/dd/yyy[Ô]) & [Ô]#[Ô]
[ô]estou usando assim. ???
Private Sub MontarLista()
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim Criterio As String
FG1.TextMatrix(0, 0) = [Ô]CaixaID[Ô]
FG1.TextMatrix(0, 1) = [Ô]Vencimento[Ô]
FG1.TextMatrix(0, 2) = [Ô]Descrição do Lançamentos[Ô]
FG1.TextMatrix(0, 3) = [Ô]Crédito R$:[Ô]
Criterio = Chr$(39) & txtInicial & [Ô]%[Ô] & Chr(39) <--------------------------------(AQUI TA MEU ERRO) = ????????
SQL = [Ô]SELECT CaixaID, Vence, Descricao, Credito FROM CadCaixasE WHERE CadCaixasE.Emissao Like [Ô] & Criterio & [Ô] ORDER BY Emissao[Ô]
On Error Resume Next
With RS
.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly
If .EOF Then
MsgBox [Ô]Registro não encontrado[Ô], vbExclamation, [Ô] Sisnews Informções[Ô]
Limpa
FG1.TextMatrix(1, 0) = [Ô][Ô]
FG1.TextMatrix(1, 1) = [Ô][Ô]
FG1.TextMatrix(1, 2) = [Ô][Ô]
FG1.TextMatrix(1, 3) = [Ô][Ô]
Else
Limpa
Do Until .EOF
FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2) & vbTab & RS(3)
.MoveNext
Loop
FG1.RemoveItem 1
End If
.Close
End With
End Sub
Private Sub MontarLista()
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim Criterio As String
FG1.TextMatrix(0, 0) = [Ô]CaixaID[Ô]
FG1.TextMatrix(0, 1) = [Ô]Vencimento[Ô]
FG1.TextMatrix(0, 2) = [Ô]Descrição do Lançamentos[Ô]
FG1.TextMatrix(0, 3) = [Ô]Crédito R$:[Ô]
Criterio = Chr$(39) & txtInicial & [Ô]%[Ô] & Chr(39) <--------------------------------(AQUI TA MEU ERRO) = ????????
SQL = [Ô]SELECT CaixaID, Vence, Descricao, Credito FROM CadCaixasE WHERE CadCaixasE.Emissao Like [Ô] & Criterio & [Ô] ORDER BY Emissao[Ô]
On Error Resume Next
With RS
.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly
If .EOF Then
MsgBox [Ô]Registro não encontrado[Ô], vbExclamation, [Ô] Sisnews Informções[Ô]
Limpa
FG1.TextMatrix(1, 0) = [Ô][Ô]
FG1.TextMatrix(1, 1) = [Ô][Ô]
FG1.TextMatrix(1, 2) = [Ô][Ô]
FG1.TextMatrix(1, 3) = [Ô][Ô]
Else
Limpa
Do Until .EOF
FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2) & vbTab & RS(3)
.MoveNext
Loop
FG1.RemoveItem 1
End If
.Close
End With
End Sub
[txt-size=1]Você não tem um exemplo pra mim, por favor.[/txt-size]
BOA NOITE NILTON
[Ô][Ô][Ô][Ô][Ô]Criterio = Chr$(39) & txtInicial & [Ô]%[Ô] & Chr(39) <--------------------------------(AQUI TA MEU ERRO) = ????????[Ô][Ô][Ô][Ô][Ô]
TENTA ASSIM
Criterio = Chr$(39) & txtInicial.TEXT & [Ô]%[Ô] & Chr(39) [Ô][Ô][Ô][Ô][Ô][Ô][Ô]COLOQUE O .TEXT QUE DEVE FUNCIONAR...
ABRACOS...
ERIVELTON
[Ô][Ô][Ô][Ô][Ô]Criterio = Chr$(39) & txtInicial & [Ô]%[Ô] & Chr(39) <--------------------------------(AQUI TA MEU ERRO) = ????????[Ô][Ô][Ô][Ô][Ô]
TENTA ASSIM
Criterio = Chr$(39) & txtInicial.TEXT & [Ô]%[Ô] & Chr(39) [Ô][Ô][Ô][Ô][Ô][Ô][Ô]COLOQUE O .TEXT QUE DEVE FUNCIONAR...
ABRACOS...
ERIVELTON
assim da certo, so que fica faltando o txtFinal
Criterio = Chr$(39) & txtInicial & [Ô]%[Ô] & Chr(39
pra apenas pegar a data 10/10/2009 = txtInicial até 20/10/2009 = txtFinal
ai que eu nao estou achando como..
Criterio = Chr$(39) & txtInicial & [Ô]%[Ô] & Chr(39
pra apenas pegar a data 10/10/2009 = txtInicial até 20/10/2009 = txtFinal
ai que eu nao estou achando como..
VOCE JA FEZ O QUE O MARCELO TE PASSOU AQUILO é O CERTO.
EU UTILIZO O MESMO CODIGO E INCLUSIVE FOI O MESMO PROBLEMA QUE VC TEM... E O MARCELO ME PASSOU ESTA MESMA SQL E RESOLVEU O PROBLEMA.
ENTAO TENTA FAZER DE ACORDO COM O QUE O MARCELO TE PASSOU E SE DER ERRO POSTE O ERRO.
Sql = [Ô]SELECT * FROM aniversario WHERE data BETWEEN #[Ô] & Format(txt1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(txt2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
AGUARDO RESPOSTA.
ERIVELTON
EU UTILIZO O MESMO CODIGO E INCLUSIVE FOI O MESMO PROBLEMA QUE VC TEM... E O MARCELO ME PASSOU ESTA MESMA SQL E RESOLVEU O PROBLEMA.
ENTAO TENTA FAZER DE ACORDO COM O QUE O MARCELO TE PASSOU E SE DER ERRO POSTE O ERRO.
Sql = [Ô]SELECT * FROM aniversario WHERE data BETWEEN #[Ô] & Format(txt1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(txt2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
AGUARDO RESPOSTA.
ERIVELTON
vou tentar valeu mesmo..
o erra é que ele nao esta entedendo as duas textbox
txtInicial ___/ ___/ ___ até ___/ ___/ ___ txtFinal
é a comparação dos dois campos texto?
Criterio = Chr$(39) & Data <= txtInicial.Text And Data >= txtFinal.Text & [Ô]%[Ô] & Chr(39)
Tópico encerrado , respostas não são mais permitidas