PESQUISA ENTRE DATAS

NILTON.VIANNA 22/08/2013 21:40:52
#427974
Boa noite amigos,
tenho essa pesquisa no form e funciona perfeitamente no WindowsXP, no Windows 7
da erro de Run time erro 6 overflow


.Source = [Ô]SELECT * FROM Cad_PedidoID Where Emissao>=[ô][Ô] & Format(txtHInico, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô] and Emissao <=[ô][Ô] & Format(txtHFinal, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]
MATURIPO 22/08/2013 22:34:42
#427979
Se o banco for Access tente:

[Ô]SELECT * FROM Cad_PedidoID Where Emissao Between #[Ô] & Format(txtHInico, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format(txtHFinal, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]

Marcos
NILTON.VIANNA 22/08/2013 23:48:46
#427980
é Firebird
FILMAN 23/08/2013 11:29:06
#428004
Tente Assim:

SELECT * 
    FROM Cad_PedidoID 
    WHERE CAST(Emissao AS DATE) BETWEEN [ô][Ô] & Format(txtHInico, [Ô]yyyy-MM-dd[Ô]) & [Ô][ô] AND [ô][Ô] & Format(txtHFinal, [Ô]yyyy-MM-dd[Ô]) & [Ô][ô][Ô]
NILTON.VIANNA 23/08/2013 15:26:03
#428026
Mesmo erro.....

O PIOR é QUE FUNCIONAVA QUANDO EU ESTAVA USANDO COM XP.........
DEPOIS QUE MUDEI PRO 7 DEU ISSO.
OMAR2011 23/08/2013 18:07:52
#428034
Coloque seu código direito para os participantes verificar e tenta solucionar o problema.
O que é isso.

[txt-color=#e80000].Source[/txt-color] = [Ô]SELECT * FROM Cad_PedidoID Where Emissao>=[ô][Ô] & Format(txtHInico, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô] and Emissao <=[ô][Ô] & Format(txtHFinal, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]

Pelos menos do início até onde da o erro.

Vb6 ou Vba
NILTON.VIANNA 23/08/2013 19:00:32
#428036
Veja bem eu ja usada desta forma quando eu usava Windows XP (funcinava perfeitamete com o mesmo)
após formatar o PC e mudar o sistema para Windows 7 começou a aparecer

NILTON.VIANNA 23/08/2013 19:15:07
#428039
With rsUsuarios
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic

.Source = [Ô]SELECT * FROM Cad_UsuarID Where Data>=[ô][Ô] & Format(txtHInico, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô] and Data <=[ô][Ô] & Format(txtHFinal, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]

.ActiveConnection = CnSql
.Open
If .BOF = True And .EOF = True Then Exit Sub
FG1.Rows = .RecordCount + 1

Do Until .EOF = True
Row = Row + 1
FG1.TextMatrix(Row, 0) = !Nome
FG1.TextMatrix(Row, 1) = !UsuarioID
FG1.TextMatrix(Row, 2) = !Setor & [Ô][Ô]
FG1.TextMatrix(Row, 3) = !Data
FG1.TextMatrix(Row, 4) = !HInico & [Ô][Ô]
FG1.TextMatrix(Row, 5) = !HFinal & [Ô][Ô]
FG1.TextMatrix(Row, 6) = !Horas & [Ô][Ô]
FG1.TextMatrix(Row, 7) = !Tempo & [Ô][Ô]
FG1.TextMatrix(Row, 8) = !LoginID

With FG1
For x = .FixedRows To .Rows - 1
.TextMatrix(x, 1) = Format(.TextMatrix(x, 1), [Ô]000000[Ô])
Next x
End With
.MoveNext
LBItens.Caption = [Ô]Total de Acessos: [Ô] & Format$(FG1.Rows - 1, [Ô]000[Ô])
Loop
End With
rsUsuarios.Close
NILTON.VIANNA 23/08/2013 19:19:27
#428040
e tenho a busca

Private Sub txtHFinal_Change()

If Len(txtHFinal) = 2 Then
txtHFinal = txtHFinal + [Ô]/[Ô]
txtHFinal.SelStart = 4
End If
If Len(txtHFinal) = 5 Then
txtHFinal = txtHFinal + [Ô]/[Ô]
txtHFinal.SelStart = 7
End If

rsUsuarios.Source = [Ô]SELECT * FROM Cad_UsuarID Where Data>=[ô][Ô] & Format(txtHInico, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô] and Data <=[ô][Ô] & Format(txtHFinal, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô][Ô]

Call MontaGridLogin (que é exemplo acima)

End Sub
MARCELO.TREZE 23/08/2013 19:26:56
#428041
tente assim

.Source = [Ô]SELECT * FROM Cad_PedidoID WHERE Emissao BETWEEN [ô][Ô] & Format(txtHInico, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô] and [ô][Ô] & Format(txtHFinal, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô][Ô]
NILTON.VIANNA 23/08/2013 19:41:07
#428042
Mesmo erro

Queria entender uma coisa, porque no XP funciona...

dentei em outro PC mesma coisa
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar