MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Achar centena dezena e unidade em consulta access

    avatar
    adilsongv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/04/2013

    Achar centena dezena e unidade em consulta access Empty Achar centena dezena e unidade em consulta access

    Mensagem  adilsongv 1/7/2013, 19:32

    Boa tarde a todos, estou criando um formulario para digitação de horas extras semanais até ai sem problemas, mais fiquei preso na hora de calcular o troco para o pagamento dessas horas pois funciona dessa maneira:

    HE = 173
    Troco 100 = 1 50= 1 20= 1 2= 1 e 1=1 ou seja 100+50+20+2+1

    outro exemplo

    HE = 188
    Troco 100=1 20=4 2=4


    Será que é possivel??? Tentei right(campo) e cheguei perto mais ainda não é isso, eu terei que saber quantidade de cada nota irei precisar para troco.

    No aguardo:affraid: 
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Achar centena dezena e unidade em consulta access Empty Re: Achar centena dezena e unidade em consulta access

    Mensagem  criquio 1/7/2013, 20:20

    O esquema é mais ou menos pegar o total e dividir por 100, depois pegar do segundo dígito em diante e dividir por 10 e depois pegar o resto:

    Seja o campo vTotal:

    Código:
    ="Troco= " & Left([vTotal];1) & " notas de 100, " & Mid([vTotal];2;1) & " notas de 10 " & Mid([vTotal];3;1) & " notas de 1"

    Mais ou menos por aí. Veja se consegue adaptar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    adilsongv
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/04/2013

    Achar centena dezena e unidade em consulta access Empty Achei uma solução paliativa

    Mensagem  adilsongv 2/7/2013, 19:16

    Criei um formulario com vba, fiz a digitação do troco manual e ao fim ele calcula para ver se esta certo o troco, caso esteja certo vai para o proximo, caso não, volta ao primeiro campo para correção.
    Exemplo:

    RS 1 = 1 | RS 2 = 1 | RS 5 = 0 | RS 10 = 1 | RS 20 = 1 | RS 50 = 0 | RS 100 = 1
    a=1;b=2;c=5;d=10;e=20;f=50;g=100
    SE total = (RS 1* a)+(RS 2* b)+(RS 5* c)+(RS 10* d)+(RS 20* e)+(RS 50* f)+(RS 100* g)
    Ok
    ou campo.setfocus 'para a correção'

    Total = 133

    Espero ter conseguido me fazer entender
    Vlw a ajuda

    Conteúdo patrocinado


    Achar centena dezena e unidade em consulta access Empty Re: Achar centena dezena e unidade em consulta access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 00:12