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

3 participantes

    Dividir e pelo número de registro e apontar valor

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 18/04/2018

    Dividir e pelo número de registro e apontar valor Empty Dividir e pelo número de registro e apontar valor

    Mensagem  fernando rodrigo zanchini 19/8/2021, 15:43

    Bom dia
    Gostaria de fazer uma operação e não estou conseguindo;
    Pegar o valor total dividir pelo número de registro
    Verificar se o total e maior que o valor se for enviar uma mensagem e apontar o registro
    Anexos
    Dividir e pelo número de registro e apontar valor AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    Dividir e pelo número de registro e apontar valor Empty Re: Dividir e pelo número de registro e apontar valor

    Mensagem  Alexandre Fim 19/8/2021, 15:49

    Fernando,

    A galera aqui não tem bola de cristal !!! lkkkkkkk

    Qual é o form?
    Qual tabela?
    Qual campo?


    valeu

    []
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    Dividir e pelo número de registro e apontar valor Empty Re: Dividir e pelo número de registro e apontar valor

    Mensagem  Alexandre Fim 19/8/2021, 15:56

    Acredito que seja isso:

    Dividir e pelo número de registro e apontar valor Conta110

    Resultado:
    Dividir e pelo número de registro e apontar valor Conta210


    Boa sorte


    Segue versão

    []'s
    Anexos
    Dividir e pelo número de registro e apontar valor AttachmentExemplo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 1 vez(es)
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 18/04/2018

    Dividir e pelo número de registro e apontar valor Empty Re: Dividir e pelo número de registro e apontar valor

    Mensagem  fernando rodrigo zanchini 19/8/2021, 16:38

    Desculpe não fui muito especifico
    No Formulario  “Frm_Principal”  no Sub “Frm_Valorsub”,    no campo “ ValorTotal” digito o valor, Exemplo R$100,00,  o Valor vai ser dividido pelo numero de registro e calculado no campo “ValorUnitario”
    No Sub “Frm_Valorsub”,    No campo Valor já existe um valor pre determinado, exemplo; nome  A, Valor  R$ 40,00, Quando fazer o cálculo ele compara o “valor” com o” ValorUnitario” e se  algum “ValorUnitario” for maior que o “Valor” ele me aponte a Linha.
    Eu coloquei o exemplo mais especifico
    Anexos
    Dividir e pelo número de registro e apontar valor AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    Dividir e pelo número de registro e apontar valor Empty Re: Dividir e pelo número de registro e apontar valor

    Mensagem  Alexandre Fim 19/8/2021, 17:02

    Ok..

    Segue
    Anexos
    Dividir e pelo número de registro e apontar valor AttachmentExemplo_v3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 3 vez(es)
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 18/04/2018

    Dividir e pelo número de registro e apontar valor Empty Re: Dividir e pelo número de registro e apontar valor

    Mensagem  fernando rodrigo zanchini 19/8/2021, 17:35

    Não e bem isso
    A mensagem não e no campo valor total e sim na linha onde o ValorUnitario” for maior que o “Valor” .
    O Valor da divisão só está sendo lançando na primeira linha e não em todos as linhas.
    Minha maior duvida é como apontar a linha onde o ValorUnitario” é maior que o “Valor” nesse exemplo.
    Anexos
    Dividir e pelo número de registro e apontar valor AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 2 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 901
    Registrado : 11/11/2009

    Dividir e pelo número de registro e apontar valor Empty Re: Dividir e pelo número de registro e apontar valor

    Mensagem  scandinavo 31/8/2021, 14:55

    Substitua o código do Alexandre por este. Após fazer a divisão vai percorrer o recodset verificando linha a linha qual é o nome de maior valor acima depois da divisão

    * Aproveitando o tópico como fazer o código me trazer o resultado do menor valor utilizando a função DMin
    Tentei a adaptar a função ao código mas não consigui

    Ou seria melhor usar uma consulta em paralelo para trazer esta informação.

    Dim vCalc As Double
    Dim iCnt As Integer

    If IsNull(Me.ValorTotal) Then
    MsgBox "O valor n?o pode ser nulo.", vbExclamation, "Aviso"
    Me.ValorTotal.SetFocus
    Exit Sub
    End If

    If Me.ValorTotal <= 0 Then
    MsgBox "O valor n?o pode ser menor ou igual a ZERO.", vbExclamation, "Aviso"
    Me.ValorTotal.SetFocus
    Exit Sub
    End If


    iCnt = Nz(DCount("*", "Tb_Valor"), 0)
    vCalc = (Me.ValorTotal / iCnt)
    'CurrentDb.Execute ("UPDATE Tb_Valor SET ValorUnit = '" & vCalc & "' WHERE ID = " & Me.ID & "")
    CurrentDb.Execute ("UPDATE Tb_Valor SET ValorUnit = '" & vCalc & "'")

    Me.Requery
    Me.ValorTotal = 0
    '''''''''''''''''''''''''''''''''''''''''''''

    Dim rst As Recordset
    Set rst = Me.Recordset
    rst.MoveFirst
    Do While Not rst.EOF
    With rst
    If Me.ValorCalc < Me.Valor1 Then


    MsgBox "Menor Pre?o...." & _
    "" & Chr(13) & Chr(13) & UCase(Me.Nome.Column(1)) & _
    "" & Chr(13) & Chr(13) & Format(Me.Valor1, "R$ " & "###0.00"), vbInformation, "Menor pre?o encontrado"

    End If
    .MoveNext
    End With
    Loop
    Set rst = Nothing

      Data/hora atual: 16/10/2021, 21:30