[resolvido] Consulta não Retorna

Moderador: Avelino Sampaio

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

[resolvido] Consulta não Retorna

Mensagempor PauloMaia » 04 Mai 2017, 00:16

Estou usando esta consulta em um campo , que após atualizar inseri esse critério ;

Código: Selecionar todos

Dim StrSQL As String
StrSQL = "SELECT * FROM viewContasPagar WHERE NUMERONF='" & Me!txtBuscaNF & "';"
Me.RecordSource = StrSQL


Porem não retorna nada, e eu inseri uma mensagem para o rst.RecordCount = 0
E ela aparece , Me diz que nada foi achado !

Mas o nº da Nota Fiscal digitada para consultar existe SIM e esta na tabela e na consulta referencia do formulário !

Veja !

Consulta.png


e tbm ;

Tabela.png



O critério de Consulta usado esta errado , como corrigir ?
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2160
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Consulta não Retorna

Mensagempor Avelino Sampaio » 04 Mai 2017, 13:23

Paulo,

acrescente a caixa de mensagem (parte vermelha) e me diga o que é exibido ao realizar a consulta:

Código:
Dim StrSQL As String
msgbox Me!txtBuscaNF
StrSQL = "SELECT * FROM viewContasPagar WHERE NUMERONF='" & Me!txtBuscaNF & "';"
Me.RecordSource = StrSQL


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Consulta não Retorna

Mensagempor PauloMaia » 04 Mai 2017, 20:12

OK, Avelino
inseri a linha conforme me orientou,

Digitei 7 no campo de pesquisa e dei ENTER -> mostrou 7 na caixa de mensagem msgbox e depois a minha mensagem de que nada encontrou, depois inseri para um desvio else a condição de mostrar tudo que tem na consulta

assim ;

Código: Selecionar todos

StrSQL = "SELECT * FROM viewContasPagar"
Me.RecordSource = StrSQL


E me retorna certinho tudo que esta na consulta.

Só não retorna com critério .

.......
Att.
Paulo Maia

Avatar do usuário
Avelino Sampaio
Mensagens: 2160
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Consulta não Retorna

Mensagempor Avelino Sampaio » 04 Mai 2017, 20:33

Veja,

vc esta comparando 0000000007 (valor na tabela) com 7 , e isso é diferente. Experimente assim:

Código:
Dim StrSQL As String
msgbox Me!txtBuscaNF
StrSQL = "SELECT * FROM viewContasPagar WHERE Val(NUMERONF)=" & Me!txtBuscaNF & ";"
Me.RecordSource = StrSQL


Ou assim:

Código:
Dim StrSQL As String
msgbox Me!txtBuscaNF
StrSQL = "SELECT * FROM viewContasPagar WHERE NUMERONF='" & format(Me!txtBuscaNF,"0000000000") & "';"
Me.RecordSource = StrSQL


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Consulta não Retorna

Mensagempor PauloMaia » 04 Mai 2017, 20:49

OK, Avelino

Deu certo ! pelo que eu entendi , precisava tratar a consulta "a forma com que o critério fazia a busca na tabela" - eu não sabia !

Muito Obrigado ! Considere este Tópico como RESOLVIDO.



-------------------------
Minhas Considerações e Agradecimentos à ;

Avelino Sampaio

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 5 visitantes