Select Case

Olá pessoal, tenho 2 cx de texto no formulario, Distancia e txtChamado
Conforme eu coloco um numero em Distancia , o txtchamado informa o valor conforme o Select Case criado , exemplo abaixo.

Private Sub Distancia_AfterUpdate()
Select Case Me.Distancia
Case Is = 0
Me.txtChamado = ""
Case Is <= 2
Me.txtChamado = "R$105,00"
Case Is <= 3
Me.txtChamado = "R$115,00"
Case Is <= 4
Me.txtChamado = "R$125,00".

Funciona bem, acontece que tenho que reajustar os valores e pra nao ter que ficar entrando no modulo, nao sei como fazer isso automaticamente.
Criei uma tabela hoje chamada TblChamado com os campos Id (numeracao automatica), Distancia (numero) e Valor (moeda).
Alguem pode me ajudar ? nao entendo quase nada de programação.

Olá Jeferson,

Para agilizar a resolução do problema, compartilhe uma copia do seu banco de dados, somente objetos pertinentes ao problema (tabelas,consultas,formulários,modulos e etc.) para análise.

Att,

Alexandre Fim

Alexandre, obrigado pela sugestão, segue em anexo copia do banco de dados.
Agradeço desde já o auxilio de algum de voces.

Jeferson,

Estão faltando os subformulários que compoem o formulario "frmCliente".
Por gentileza, envie outro bd com os subformularios também.

Att,

Alexandre Fim

Alexandre, resolvi excluir as paginas, senao, teria que colocar alem dos subformularios, outras consultas e tabelas que não fazem parte da "dúvida".
Segue o bd com o formulario sem as paginas, com isso, não dará erro ao tentar abri-lo.
Agradeço sua atenção.

Jeferson,

Copie e cole o código abaixo no evento AfterUpdate do campo Distancia:

Código:



Private Sub Distancia_AfterUpdate()
'Select Case Me.Distancia
'        Case Is = 0
'        Me.txtChamado = ""
'        Case Is <= 2
'        Me.txtChamado = "R$97,00"
'        Case Is <= 3
'        Me.txtChamado = "R$108,00"
'        Case Is <= 4
'        Me.txtChamado = "R$119,00"
'        Case Is <= 5
'        Me.txtChamado = "R$129,00"
'        Case Is <= 6
'        Me.txtChamado = "R$140,00"
'        Case Is <= 7
'        Me.txtChamado = "R$151,00"
'        Case Is <= 8
'        Me.txtChamado = "R$162,00"
'        Case Is <= 9
'        Me.txtChamado = "R$172,00"
'        Case Is <= 10
'        Me.txtChamado = "R$183,00"
'        Case Is <= 11
'        Me.txtChamado = "R$194,00"
'        Case Is <= 12
'        Me.txtChamado = "R$204,00"
'        Case Is <= 13
'        Me.txtChamado = "R$215,00"
'        Case Is <= 14
'        Me.txtChamado = "R$226,00"
'        Case Is <= 15
'        Me.txtChamado = "R$237,00"
'        Case Is > 15
'        Me.txtChamado = "R$247,00"
'  End Select


    '-- Alexandre Fim - 03/01/2024-----------------
    '-- A função DLoockup faz a busca na tabela, conforme abaixo.
    '-- Buscar o conteudo da coluna "Valor", da tabela "TblChamado", onde a coluna "Distancia" é igual ao campo Distancia do formulário.
    '-- a função Nz verifica se a busca trouxe valor Nulo, e no caso, é substituido por ZERO
   
    Me.txtChamado = Nz(DLookup("Valor", "TblChamado", "Distancia = " & Me.Distancia & ""), 0)
    '----------------------------------------------


End Sub



OBS: Eu comentei as linhas anteriores pois não faz sentido fazer um Select Case com os mesmo dados existentes em uma tabela.
Veja o comentário que fiz no código.

É isso

Espero ter ajudado

Att,

Alexandre Fim

Bom dia Alexandre!

Obrigado pela ajuda meu camarada

É quase isso que estou precisando...
Tenho o problema do "menor igual" que no meu caso anterior quando o valor é "<=" ao numero (exemplo 3,6), ele selecionava o valor correspondente no select case.
Se eu agora, com o seu codigo , colocar 3,6 por exemplo, dará erro.
A lógica seria essa, se distancia <= 2 seleciona o valor correspondente da tabela ($105), se distancia <= 3 ($115) ... assim por diante
Não sei se fui claro....

Alexandre, fiz uma alteração no seu codigo, baseado na sua explicação, deduzi que seria melhor tirar o nz e acrescentar o sinal ">"
e ficou assim

Me.txtChamado = DLookup("Valor", "TblChamado", "Distancia >= " & Me.Distancia & "")

alterei o campo distancia para valor padrao 0 , para quando inserir novo registro, o campo nao ficar em branco.

Fiz uns testes e ta funcionando por enquanto.
ate o fim do dia no trabalho, se nao apresentar problemas, darei como resolvido.

Mais uma vez agradeço.

Jeferson,

Criei um "range" de distancias na tabela e desta forma é possivel incluir/alterar valores conforme tua necessidade.


No formulário, ao informar a Distância, o sistema executa a função "ObterValor" que retorna o valor conforme a distância informada.

Espero ter ajudado

Segue nova versão.

Att,

Alexandre Fim

Alexandre, meu muito obrigado
Fico admirado com tamanho conhecimento de voces, parabéns!

Cara, sem querer abusar, veja isso aqui:
quando entramos no formulario, os valores nao sao atualizados conforme a tabela, somente quando clicamos no campo distancia e alteramos o valor,
ex. busque Ademar, distancia 19, valor $247 (na tabela é $255), alteramos a distancia para 18, o valor atualiza, quando fechamos o form e abrirmos novamente, o valor volta a ficar $247 (desatualizado)
comentei o select case que tem existente no form_current, mas mesmo assim, os valores nao atualizam quando fecha e abre
Há um evento que possa ser colocado Ao carregar formulario, ou entao no form atual para atualizar os valores assim que abrir o formulario de acordo com seu codigo?
Se puder conferir o que estou dizendo vai perceber isso...

será que precisa colocar um campo na tabela cliente para armazenar essa informação do txtchamado? to pensando que possa ser isso...
mas desde já afirmo que está ficando otimo essas modificações que fez.

Jeferson,

Eu fiz uma breve análise no sistema e percebi que algumas rotinas precisam de ajustes.

Você pode enviar seu banco de dados através do Google Drive ou One Drive (ou qq outro site de compartilhamento) e compartilhar o link aqui no forum, para que eu possa baixar o sistema e poder analisar com mais detalhes.

Att,

Alexandre Fim

Alexandre, segue um link para acesso, veja se é o que voce precisa, obrigado.




https :// 1drv.ms / u / s!AvncHR3srSAnistGfcloWp9WN5txkA?e=A1sJ9q

Jeferson,

Tá ocorrendo alguns erros ao abrir o sistema.
Percebi que vc deve ter criado um bd novo e importado somente alguns objetos do bd original.
Percebi tmb que o tamanho do bd está com 169mb...tá bem grande pelo pouco de informação e objetos.

Se puder mandar todo o bd, seria melhor.
Nesta cópia, descaracterize os dados dos clientes e NF. Pode excluir, mas mantenha os dados das tabelas de dominio.

Att,

Alexandre Fim