Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Reinaldo »

Não sei se ainda necessita,mas segue alterações no modo filtro, inclusive para o Carbono
Alterei do modo que julgue/entendi.
É possível entre datas ou apenas acima/igual de uma data inicial ou abaixo/igual de uma data final
Um ou mais produto/mes/ano/categoria.....
Carbono, entre valores ou maior/igual que valor inicial ou menor/igual que valor final
FormularioPesquisa.zip
(252.31 KiB) Baixado 175 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Diovanino Cassio
Colaborador
Colaborador
Mensagens: 53
Registrado em: Qua Mar 15, 2017 11:31 am

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Diovanino Cassio »

Valeu, Reinaldo!

Muito obrigado pela aujda.

Sds.


Diovanino Cassio
Colaborador
Colaborador
Mensagens: 53
Registrado em: Qua Mar 15, 2017 11:31 am

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Diovanino Cassio »

Reinaldo, boa noite!

Aproveitando as suas sugestões e alterações apresentadas como exemplo, resolvi incluir mais alguns campos para pesquisa, como no exemplo que vou anexar, pesquisa do SC.
Acontece que criei a pesquisa mais a mesma não está me retornando somente os dados dentro do range escolhido, veja dentro do arquivo anexo (PrintConsulta.jpg).
Me parece que está havendo algum problema de formatação, pois estou pesquisando valores dentro do range Inicial: 5,00 a Final: 6,00, mas estou tendo como resposta, além de valores dentro deste range, mas também valores do tipo: 52,09 - 51,13 - 51,3 e 51,88

Sds,
Anexos
FormularioPesquisa.zip
(216.49 KiB) Baixado 160 vezes
PrintConsulta.jpg
PrintConsulta.jpg (261.11 KiB) Exibido 8912 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Reinaldo »

Muito provavelmente a coluna/dados existentes são considerados como texto, o que justifica retornar 52 depois de 5 e antes do 6.
Experimentou utilizar o mesmo conceito aplicado ao firtro do Carbono (Carbini/CarbFim)?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Diovanino Cassio
Colaborador
Colaborador
Mensagens: 53
Registrado em: Qua Mar 15, 2017 11:31 am

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Diovanino Cassio »

Tanto a coluna do carbono como a coluna do SC, estão formatadas como texto.
Mas já fiz a alteração da coluna do SC para número, mas acontece a mesma coisa.
Estou utilizando o mesmo conceito do filtro carbono.
Todos os outros filtros que vou criar, vai seguir o mesmo conceito, ok?

Sds,


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Reinaldo »

Altere o filtro Carbono conforme abaixo

Código: Selecionar todos

'pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp
'Carbono
Dim decCarbIni As Currency, decCarbFim As Currency
If Me.txtCarbIni.Text <> "" Then
    decCarbIni = Format(Me.txtCarbIni.Text, "##.00")
Else
    decCarbIni = 0#
End If
If Me.txtCarbFin.Text <> "" Then
    decCarbFim = Format(Me.txtCarbFin.Text, "##.00")
Else
    decCarbFim = 999.99
End If
If sqlWhere <> vbNullString Then sqlWhere = sqlWhere & " AND"
sqlWhere = sqlWhere & " C_Enc >= " & Str(decCarbIni) & " AND C_Enc <= " & Str(decCarbFim)
Para o filtro na coluna SC_enc, inclua o trecho abaixo, logo após o filtro daColuna Carbono

Código: Selecionar todos

'pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp
'Carbono
Dim decCarbIni As Currency, decCarbFim As Currency
If Me.txtCarbIni.Text <> "" Then
    decCarbIni = Format(Me.txtCarbIni.Text, "##.00")
Else
    decCarbIni = 0#
End If
If Me.txtCarbFin.Text <> "" Then
    decCarbFim = Format(Me.txtCarbFin.Text, "##.00")
Else
    decCarbFim = 999.99
End If
If sqlWhere <> vbNullString Then sqlWhere = sqlWhere & " AND"
sqlWhere = sqlWhere & " C_Enc >= " & Str(decCarbIni) & " AND C_Enc <= " & Str(decCarbFim)
No modelo anterior aparentemente funcionou conforme expectativa


Diovanino Cassio
Colaborador
Colaborador
Mensagens: 53
Registrado em: Qua Mar 15, 2017 11:31 am

Re: Modelo de Aplicativo de Cadastro - ListView - Não retorna os valores da consulta que tem zeros depois da vírgula

Mensagem por Diovanino Cassio »

Reinaldo,

Efetuei os testes aqui e os resultados foram muito satisfatórios, e era realmente o que eu estava precisando.
Valeu mesmo pela força...!

Sds,
:D


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder