[Resolvido]Valor Aproximado

Olá Pessoal,

Tenho uma consulta que retorna o total de registros entre 2 (duas) datas inseridas pelo usuário "Contar()", tenho uma tabela que existe alguns valores padrões já cadastrados, gostaria de uma função para quando o Contar() do formulário retornar o resultado o Access me sugerisse o valor aproximado da tabela de valores padrões. Exemplo:

tblValoresPadroes
CmpValor
25
50
100

tblPedidos
Campo do Formulário: txtResultado = 46

Sugestão no Formulário:
50

Agradeço a ajuda desde já!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Fala Jeferson....

Cara, você já tem algum código pronto????

Se tiver facilita, p/ saber quais os nomes dos campos você precisa p/ a condição.....

A princípio, vc pode guardar a quantidade de registro em uma variável (46).... Depois, faz um DSum() no campo dos valores e guarda em outra variável..... Por fim, vc divide ~~> ("QuantidadeDeRegistro" / "TotalDeValor")...

Com isso, vc faz a média de valores e acaba sugerindo um valor.....

Seria +/- isso???

Faz os teste e vamos falando!!!

Desde já agradeço....

Abraço a todos!!!!!

Ok, não deu muitos detalhes não é? deve ser por que é madrugada ainda... kkkkkk... então vamos lá!

A empresa usa um tipo de ficha de despesas onde estas têm 25 folhas, 50 folhas e 100 folhas, cada folha é usada para discriminação de despesas algumas todos os fins de semana outas quinzenalmente e outras mensalmente. A empresa manda um novo "Talão" de despesas somente quando acaba o antigo correto?

Para isso acontecer é necessário um controle de fichas ou seja, o sistema precisa calcular quantas vezes é feito balanço da "Filial da Empresa" (Semanal, Quinzenal ou Mensal) no ano! e depois sugerir quantas folhas serão usadas! A partir deste valor então seria a sugestão da Ficha! Exemplo:

Filial de São Paulo: 250 'Total de Balanços na Filial por Ano
Filial de Curitiba: 75 'Total de Balanços na Filial por Ano
Filial de Belo Horizonte: 25 'Total de Balanços na Filial por Ano

O total de balanços também serve como total de folhas do "Talão" de Despesas a filial irá gastar.

Sugestão Para São Paulo: 2 Talão de 100 Folhas e um de 50 Folhas
Sugestão Para Curitiba: 1 Talão de 50 Folhas e 1 Tação de 25 Folhas
Sugestão Para Belo Horizonte: 1 Talão de 25 Folhas

Ainda não criei nada porque não tenho ideia por onde começar!

Desde já agradeço a ajuda amigão!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Acho que é mais ou menos isso:

Código:

Dim Aproximado As String, rs As Recordset, nMaior As Double, nMenor As Double

If DCount("*", "NomeDaTabela", "NomeDoCampo=" & Me.NomeDoCampo) > 0 Then
   Aproximado = Me.NomeDoCampo
Else
    Set rs = CurrentDb.OpenRecordset("SELECT NomeDoCampo FROM NomeDaTabela ORDER BY NomeDoCampo")

    rs.FindFirst "NomeDoCampo > " & Me.NomeDoCampo
    nMaior = rs!NomeDoCampo

    rs.MovePrevious
    nMenor = rs!NomeDoCampo

    If nMaior - Me.NomeDoCampo < Me.NomeDoCampo - nMenor Then
       Aproximado = nMaior
    ElseIf nMaior - Me.NomeDoCampo > Me.NomeDoCampo - nMenor Then
       Aproximado = nMenor
    Else
       Aproximado = nMenor & " e " & nMaior
    End If

    rs.Close
    Set rs = Nothing
End If

Me.CampoDoAproximado = Aproximado

Os "NomeDoCampo" que estiverem precedidos de "Me." (Me.NomeDoCampo) se referem aos campos do formulário e os que não estiver se referem ao campo da tabela.

A ideia que tive é de guardar a Quantidade de Folhas das Fichas em uma variável e depois fazer os cálculos com eles através do valor total do Campo (TotalDeBalancos) no Formulário (fmrControleDeBalancos):

Código:

Dim TalaoPequeno
Dim TalaoMedio
Dim TalaoGrande

TalaoPequeno = 25
TalaoMedio = 50
TalaoGrande = 100

Só não sei como fazer os cálculos...

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Olá Criquio, vou tentar aqui depois retorno. Valeu pela ajuda!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

O que eu entendi do primeiro post era que você queria o valor mais aproximado, podendo ser maior ou menor. Se o que você precisa é o valor igual ou o maior mais próximo, pode descartar a parte de pegar o menor valor aproximado.

Fala Jeferson.....

Temos novidades a respeito da ideia do Criquio????

Desde já agradeço....

Abraço a todos!!!!

Opa! Claro deu certíssimo, desculpem a demora do retorno Galera! Valeu Criquio funcionou perfeitamente!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Grato pelo retorno. O fórum agradece.