PESQUISA POR DATA

FAUSTOARAXA 21/05/2010 17:18:25
#342435
Olá amigos do vbmania por favor estou precisando um explicação é o seguinte estou terminando de fazer um sistema de controle de estoque e preciso de fazer uma pesquisa informando a data inicial e a data final o codigo esta com problema e não consigo resolver so vcs do vb mania vai conseguir me ajudar o codgo segue abaixo

Banco Access 2000 conexão esta perfeita é uma conexão ado 2,6 em um modulo tudo esta funcionando menos a pesquisa

Private Sub cmdData_Click() [ô]filtra por data

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

If Txts1.Text <> [Ô][Ô] And Txts2.Text = [Ô][Ô] Then
[txt-color=#e80000]Call Preenche_grid7 ERRO AQUI [/txt-color]
rsSelecao.Open ([Ô]select * from SAIDA where B5 Like #[Ô] & Format(Txts1.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# order by B5[Ô])
[txt-color=#e80000]Call RelatVendServ ERRO AQUI [/txt-color]
ElseIf Txts1.Text <> [Ô][Ô] And Txts2.Text <> [Ô][Ô] Then
[txt-color=#e80000]Call Preenche_dgVendServ ERRO AQUI[/txt-color]
rsselecao.Open ([Ô]select * from SAIDA where B5 between #[Ô] & Format(Txts1.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(Txts2.Text, [Ô]MM/dd/yyyy[Ô]) & [Ô]# order by B5[Ô]) [txt-color=#e80000]ERRO AQUI OVERFLOW [/txt-color]
Call RelatVendServ [txt-color=#e80000]ERRO AQUI [/txt-color]
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
TxtDataInicial.SetFocus
End If
Exit Sub
TxtDataInicial = [Ô][Ô]
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

Está faltando so esta pesquisa para eu fechar o sistema oque poderia alguem da equipe do vb mania poderia me ajudar a resolver este problema

agradeço todos que me ajudarem
TECLA 21/05/2010 17:32:08
#342443 Resposta escolhida
Na verdade, qual é a linha que apresenta a ?
Tópico encerrado , respostas não são mais permitidas
Voltar