PESQUISA DE DATA A DATA

FAUSTOARAXA 20/05/2010 09:23:43
#342263
ola amigos do forum retorno novamente com uma duvida ?

If Not IsDate(Format$(txts1, [Ô]##/##/####[Ô])) Then
txts1 = Date
End If

If Not IsDate(Format$(txts2, [Ô]##/##/####[Ô])) Then
txts2 = Date
End If



Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset

Dim vInclusao As Boolean
Dim query As String

Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnPDV
.CommandText = [Ô]SELECT * FROM SAIDA WHERE B5 [Ô]
Set rsSelecao = .Execute
query = [Ô]SELECT* FROM SAIDA order by B5[Ô]

While Not rsSelecao.EOF
If CVDate(rsSelecao([Ô]B5[Ô])) >= CVDate(Format(txts1, [Ô]##/##/####[Ô])) Then erro aqui
If CVDate(rsSelecao([Ô]B5[Ô])) <= CVDate(Format(txts2, [Ô]##/##/####[Ô])) Then erro aqui

With Grid7
.Row = .Rows - 1
.Rows = .Rows + 1

.TextMatrix(0, 0) = [Ô]Código[Ô]
.ColWidth(0) = 800
.TextMatrix(Grid7.Row, 0) = rs!B1

.TextMatrix(0, 1) = [Ô]Produto[Ô]
.ColWidth(1) = 3500
.TextMatrix(Grid7.Row, 1) = rs!B2


.TextMatrix(0, 2) = [Ô]Qt[Ô]
.ColWidth(2) = 800
.TextMatrix(Grid7.Row, 2) = rs!B3

.TextMatrix(0, 3) = [Ô]N°Pedido[Ô]
.ColWidth(3) = 800
.TextMatrix(Grid7.Row, 3) = rs!B4

.TextMatrix(0, 4) = [Ô]Data[Ô]
.ColWidth(4) = 1500
.TextMatrix(Grid7.Row, 4) = Format(rs!B5, [Ô]##/##/####[Ô])

rs.MoveNext

End With



If Grid7.Rows - 1 > 0 Then
Grid7.Row = 1
End If

[ô]Elimina o command e o recordset da memória:
Set rsSelecao = Nothing
Set cnnComando = Nothing
Screen.MousePointer = vbDefault
Exit Sub
End If
End If
Wend
End With
End Sub


Obs
Quero montar um pesquisa de data a data tipo umas pesquisa informa uma data inicial e outra final e faz pesquisa
amigo so esta faltando isso para fechar o programa que estou fazendo por favor me ajudem neste codigo
O banco de dados e Access 2000
NEREU1301 20/05/2010 09:41:12
#342266 Resposta escolhida
Bom dia Fausto

Eu faço assim

Private Sub cmdData_Click() [ô]filtra por data

If TxtDataInicial.Text <> [Ô][Ô] And TxtDataFinal.Text = [Ô][Ô] Then
Call Preenche_dgVendServ
rsComissoes.Open ([Ô]select * from Cons_Comissoes where Data Like #[Ô] & Format(TxtDataInicial.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# order by Data[Ô])
Call RelatVendServ
ElseIf TxtDataInicial.Text <> [Ô][Ô] And TxtDataFinal.Text <> [Ô][Ô] Then
Call Preenche_dgVendServ
rsComissoes.Open ([Ô]select * from Cons_Comissoes where Data between #[Ô] & Format(TxtDataInicial.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(TxtDataFinal.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# order by Data[Ô])
Call RelatVendServ
Else
MsgBox [Ô]Informe uma Data válida[Ô], vbInformation
TxtDataInicial.SetFocus
End If
Exit Sub
TxtDataInicial = [Ô][Ô]
End Sub

onde dgVendServ é um mshflexgrid

espero que ajude

Nereu
FAUSTOARAXA 20/05/2010 09:46:43
#342267
valeu amigo pela ajuda muito obrigado
FAUSTOARAXA 20/05/2010 16:12:59
#342313
Amigo testei esse codigo e não está dando certo poderia me ajudar novamente
XXXANGELSXXX 20/05/2010 17:51:58
#342324
Qual mensagem esta dando amigo? coloca o print ai
XXXANGELSXXX 20/05/2010 17:54:32
#342326
Qual mensagem esta dando amigo? coloca o print ai
FAUSTOARAXA 21/05/2010 08:40:15
#342358

este são os código que ja tentei e não deu certo vou passar o codigo este no form segue abaixo




Private Sub cmdProcessar_Click()


Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset

PDV.connectDatabase
If txts1.Text <> [Ô][Ô] And txts2.Text = [Ô][Ô] Then
Call Preenche_dgVendServ ERRO AQUI
rsSelecao.Open ([Ô]select * from SAIDA where B5 Like #[Ô] & Format(txts1.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# order by B5[Ô])
Call RelatVendServ EERO AQUI
ElseIf txts1.Text <> [Ô][Ô] And txts2.Text <> [Ô][Ô] Then
rsSelecao.Open ([Ô]select * from SAIDA where B5 between #[Ô] & Format(txts1.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(txts2.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# order by B5[Ô]) erro OVERFLOW
Call RelatVendServ


With Grid7
.Row = .Rows - 1
.Rows = .Rows + 1

.TextMatrix(0, 0) = [Ô]Código[Ô]
.ColWidth(0) = 800
.TextMatrix(Grid7.Row, 0) = rsSelecao!B1

.TextMatrix(0, 1) = [Ô]Produto[Ô]
.ColWidth(1) = 3500
.TextMatrix(Grid7.Row, 1) = rsSelecao!B2


.TextMatrix(0, 2) = [Ô]Qt[Ô]
.ColWidth(2) = 800
.TextMatrix(Grid7.Row, 2) = rsSelecao!B3

.TextMatrix(0, 3) = [Ô]N°Pedido[Ô]
.ColWidth(3) = 800
.TextMatrix(Grid7.Row, 3) = rsSelecao!B4

.TextMatrix(0, 4) = [Ô]Data[Ô]
.ColWidth(4) = 1500
.TextMatrix(Grid7.Row, 4) = Format(rsSelecao!B5, [Ô]##/##/####[Ô])

rsSelecao.MoveNext

End With



If Grid7.Rows - 1 > 0 Then
Grid7.Row = 1
End If



Else
MsgBox [Ô]Informe uma Data válida[Ô], vbInformation
txts1.SetFocus
End If
Exit Sub
txts1 = [Ô][Ô]



[ô]Elimina o command e o recordset da memória:
Set rsSelecao = Nothing
Set cnnComando = Nothing
Screen.MousePointer = vbDefault
Exit Sub




End Sub




Private Sub Form_Load()

Screen.MousePointer = 11
frm11.Top = (Screen.Height) / 2 - frm11.Height / 2
frm11.Left = Screen.Width / 2 - frm11.Width / 2
Screen.MousePointer = 0


End Sub


este codigo não está funcionando oque pode ser da erro OVERFLOW
Tópico encerrado , respostas não são mais permitidas
Voltar