[Resolvido]Valor Superior quantidade embalagem

Bom dia, tenho uma duvida :
Tenho em meu formulario o campo "IndiceCompra", ele determina a quantidade do pacote do produto
tipo pacotes de 1, 4, 6, 10 cada produto tem seu valor, e tenho o campo que informa a quantidade a ser pedida "QtdPedida"
o que precizo é um arredondamento da QtdPedida, Exemplo

IndiceCompra = 4 QtdPedida = 3 então QtdPedida = 4
IndiceCompra = 4 QtdPedida = 7 então QtdPedida = 8
IndiceCompra = 6 QtdPedida = 3 então QtdPedida = 6
IndiceCompra = 6 QtdPedida = 13 então QtdPedida = 18

Sempre arredondando para valor superior

Talves Mod possa me ajudar, mas eu não sei como aplicar
Fico agradecido se alguem puder me ajudar.

Olá, seja bem vindo ao fórum! Eu não entendi bem a relação entre os três campos. Poderia explicar melhor o cálculo?

Oi criquio, antes de tudo obrigado pela interesse na minha causa, sempre acompanho você la no comunidade.itlab, sou novo aqui mas ja tenho uns 4 anos nessa que venho pesquizando e aprendendo.

Bom o calculo que precizo seria mais ou menos assim, imagine,
é um programa de venda de mercadorias ele gera um formulario de faltas,
exemplo um produto tenho a falta de 02 peças mas a distribuira so vende pacotes deste produto com 6 peças
então não posso pedir 02, e sim as 6.
imagine se um produto me faltar 13 e a distribuidora vender pacotes de 12, tenho que pedir 24

O "IndiceCompra" é o pacote da distribuidora - esse campo ja existe possui varios valores de acordo com o produto (1,2,4,6,12 e 24)

A "QtdPedida" é as faltas - esse campo ja existe possui valores de falta (1,2,3,4...) os numeros são pecados pois se vende no varejo, então os pacotes são abertos.

E "QtdCompra" seria o valor correto da compra ja calculado(inventei esse campo para ficar mais claro) é aqui que preciso chegar a QtdCompra, precizo que ou entrar neste campo, se a QtdPedida for 02 e o IndiceCompra for 6, então QtdCompra tem que ser 6, ou se a QtdPedida for 07 e o IndiceCompra for 06 a QtdCompra tem que ser 12.

Espero não ter complicado.

criquio, usei a formula do Avelino Sampaio e parece que deu certo

Dim j As Byte
For j = 0 To 9
If (Me.QtdPedida + j) Mod Me.IndiceCompra = 0 Then
Me.QtdCompra = QtdPedida + j
Exit For
End If
Next
*************************************************************
Vou fazer um texte .... logo retorno.
Obrigado

Dim j As Byte
For j = 0 To 100 ' mudei aqui para 100, não estava dando certo
If (Me.QtdPedida + j) Mod Me.IndiceCompra = 0 Then
Me.QtdCompra = QtdPedida + j
Exit For
End If
Next

j = Empty ' esta comando é necessario para limpar ?

se alguem poder dar uma opinião agradeço ...

Bom dia, egnaldo, e bem-vindo ao fórum
Eu utilizaria
No acontecimento AoSair do controlo TxtQtdPedida

Dim I as integer
if TxtQtdPedida>TxtIndiceCompra Then
i=1
do
if TxtIndiceCompra * i < TxtQtdPedida then
i=i+1
else
TxtQtdPedida=TxtIndiceCompra * i
exit do
end if
loop
else
TxtQtdPedida=TxtIndiceCompra
end if
loop

Bom dia Alexandre, agradeço você por me dar uma força, vou testar seu codigo.
Alexandre um detalhe fora deste assunto, porque o horario das postagem não são as da realidade ?
Igual agora é 6:18 mas no post anota que são 11:17

Boa tarde, gostaria que se fosse possivel da uma olhada no código abaixo, ele esta funcionado, mas sera que esta escrito da maneira correta, obriado

Dim DB As DAO.Database
Dim RS3 As DAO.Recordset
Dim j As Byte
Set RS3 = DB.OpenRecordset("SELECT * FROM COTAÇÃODETALHES INNER JOIN PRODUTOS ON COTAÇÃODETALHES.CodigoDoProduto = PRODUTOS.CodigoDoProduto WHERE NumeroCotação = " & Forms!Cotação!NumeroCotação & "")
Do While Not RS3.EOF
For j = 0 To 100
RS3.Edit
If (RS3("QtdLoja") + j) Mod RS3("IndiceCompra") = 0 Then
RS3("QtdLoja") = RS3("QtdLoja") + j
Exit For
End If
Next
j = Empty
RS3.Update
RS3.MoveNext
Loop
Set RS3 = Nothing
Set DB = Nothing

Boa tarde, egnaldo
Como posso saber se está bem, se não sei o que pretende com ele?
Se for nova dúvida, crie novo tópico.