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.

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

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.

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.

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.

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




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