[Resolvido]BUSCA FAIXA DE CEP

Boa tarde!!

Como eu faço para buscar um valor de um frete cobrado por CEP.

ex. eu tenho a faixa de CEP que é 001 a 009.
como eu faço para achar o valor do frete se a usuário digitar 008 eu preciso que ele encontre na faixa de 001 a 009

No aguardo.

Explique melhor como está a estrutura da tabela. Essa faixa indica os três últimos números do CEP?

Esse é o modelo da tabela.

CEP Inicial	CEP Final
1001000	        1142100
1142300	        2029901
2030010	        2066050
2066060	        2161025
2162000	        2168050
2169015	        2169015

E aonde entra o 001 a 009?

era so exemplo ele tem que procura todos os registros no cep inicial e final e trazer o melhor valor

Amigo, explique mais detalhadamente, pois ainda não entendi. O que seria o melhor valor? O maior deles? E "procura todos os registros no cep inicial e final"? Seria procurar todos os registros que tenham apenas esses dois ceps?

Ao que parece o que você quer é filtrar, no formulário, o maior valor entre essa faixa, é isso mesmo? Se for, talvez seja algo assim:

Código:

Me.RecordSource = "SELECT TOP 1 FROM NomeDaTabela WHERE CEPInicial>=" & Me.txtCepInicial & " And CEPFinal<=" & Me.txtCepFinal & ""

Estou supondo que você tenha dois campos de nome txtCepInicial e txtCepFinal no formulário, aonde digitará esses valores. Se não for bem isso, veja se adapta.

OBS: Veja que escrevi os nomes da tabela e dos campos sem espaços. É uma dica para evitar nomes com espaços, pois isso pode causar problemas.

Não eu tenho um campo para digitar o cep e uma tabela com os cep e valores de 2 trasportadora, eu presigava que ao digitar o cep ele procurasse

Preciso de ajuda gente

Amigo, em primeiro lugar, dê uma olhada no item 12 desse tópico e edite as suas duas últimas postagens.

Quanto à questão, se o que quer é o menor valor, tente substituir o Top da instrução que passei pelo Min.

Bom dia!!

Desculpa não foi minha intenção, de verdade.

Bom dia!!

Deixa eu me explicar melhor.

Eu tenho duas tabelas, cada uma com os valore de cada trasportadoras essas tabelas contem os campos:

CEP Inicial, CEP Final, e valor do frete.

Eu preciso criar um formulário que quando o usuário digitar um CEP ele procure nas duas tabelas o CEP que está entre o CEP inicial e CEP final e retorne o menor valor do frete.

Desde ja agradeço.

Att

Por que duas tabelas com a mesma estrutura? Se a intenção é separar por transportadora, o correto seria ter um campo para o nome da transportadora em uma mesma tabela.

Acabei de fazer isso, mas não consigo buscar o CEP entre a i inicial e final, nem com consulta

Talvez o campo CEP esteja como texto. Se for, tente passar ele para o formato numérico.

Não está como numérico, posso te mandar o BD para dar uma olhada?
Se não for te incomodar.

Gt

O Ivail,manda o bd,que sera mais de ajuda-lo.

Cumprimmentos Criquio.

Bom dia!!

Segue,

Muito Obrigado.

Esta dando erro

Compacte-o em zip.

Boa tarde!!

Agora sim segue.

Gt

No banco postado tem um formulário com alguns campos e tem 4 tabelas com estrutura semelhante. Explique melhor que dado de qual campo de que tabela deve ser colocado em qual campo do formulário.

Tambem notei que seus campos tem espaços e caracteres especiais nos nomes. Isso pode causar sérios problemas quando for necessário referenciar esses campos. Veja aqui algumas dicas sobre o assunto.

Bom dia Criquio!!

Primeiramente eu queria agradecer de verdade sua atenção, a tabela que mai ser usada é a "tab_faixa_cep" e a tabela que eu coloquei os valores e faixa de cep das duas transportadoras como você avia me sugerido, o formulário é para apenas consulta não precisa ficar registrados os dados.

O objetivo do sistema é:

O usuário digita o CEP.
O sistema procura na tabela Tab_faixa_cep e informa qual trasportadora tem o melhor preço. e o o prazo de entrega de cada uma.

Criquio desde ja te agradeço.

Att

Vou postar uma forma que deve dar certo. Estou renomeando os campos para retirar espaços e caracteres especiais:

Código:

Dim rs1 As Recordset, rs2 As Recordset

Set rs1 = CurrentDb.OpenRecordset("SELECT Min(VALORREAIS) As VReais from tab_faixa_cep WHERE TRANSPORTADORA='CORREIOS' And CEPINICIAL >= (Select Max(CEPINICIAL) from tab_faixa_cep WHERE CEPINICIAL<=" & Me.txtFaixa & ")")
Set rs2 = CurrentDb.OpenRecordset("SELECT PRAZOENTREGA from tab_faixa_cep WHERE TRANSPORTADORA='CORREIOS' And CEPINICIAL >= (Select Max(CEPINICIAL) from tab_faixa_cep WHERE CEPINICIAL<=" & Me.txtFaixa & ")")

Me.txtVCorreios = rs1!VReais
Me.txtPCorreios = rs2!PRAZOENTREGA

Set rs1 = CurrentDb.OpenRecordset("SELECT Min(VALORREAIS) As VReais from tab_faixa_cep WHERE TRANSPORTADORA='TOTAL' And CEPINICIAL >= (Select Max(CEPINICIAL) from tab_faixa_cep WHERE CEPINICIAL<=" & Me.txtFaixa & ")")
Set rs2 = CurrentDb.OpenRecordset("SELECT PRAZOENTREGA from tab_faixa_cep WHERE TRANSPORTADORA='TOTAL' And CEPINICIAL >= (Select Max(CEPINICIAL) from tab_faixa_cep WHERE CEPINICIAL<=" & Me.txtFaixa & ")")

Me.txtVTotalE = rs1!VReais
Me.txtPTotalE = rs2!PRAZOENTREGA

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

If Me.txtVCorreios < Me.txtVTotalE Then
    Me.txtMopção = "CORREIOS"
ElseIf Me.txtVCorreios > Me.txtVTotalE Then
    Me.txtMopção = "TOTAL"
Else
    Me.txtMopção = "VALORES IGUAIS"
End If

Descrição dos campos:

txtFaixa - aonde o usário digita o CEP;
txtVCorreios - Preço nos correios;
txtPCorreios - Prazo de entrega dos correios;
txtVTotalE - Preço na Total Express;
txtPTotalE - Prazo de entrega na Total Express;
txtMOpção - Campo que mostrará a melhor opção;
VReais - Campo auxiliar criado em tempo de execução para capturar o valor mínimo. Ele representa o campo VALORREAIS da tabela.

Boa tarde!!

Criquio muito obrigado mesmo meu amigo, você não sabe como me ajudou, fico te devendo uma.

Att

Grato pelo retorno. O fórum agradece.

Só faltou clicar no botão Resolvido. Dessa vez eu mesmo clico.