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

    [Resolvido]diividir e multiplicar com txtBox

    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 27/05/2016

    [Resolvido]diividir e multiplicar com txtBox Empty [Resolvido]diividir e multiplicar com txtBox

    Mensagem  Helden 8/8/2021, 05:09

    bom dia pessoal, podem me ajudar nessa conta?

    gostaria que : a fraçao 140-idade/txtCreatinina   multiplique por 0,85  
    o resultado divide por texto83/72



    Private Sub txtAUC_AfterUpdate()
    If txtSexo = "M" Then
       Me.txtTFG = (((140 - Idade) / txtCreatinina * 1)) / (Texto83 / 72)
       Else
       If txtSexo = "F" Then
           Me.txtTFD = (((140 - Idade) / txtCreatinina) * 0,85)) / (Texto83 / 72)


       End If
     
    End If
    End Sub



    acho q assim esta corrreto
    Me.txtTFG = (((140 - Idade) / (txtCreatinina)) * (1)) / (Texto83 / 72)

    quando digito na txtCreatinina 0,5 nao calcula certo


    Última edição por Helden em 8/8/2021, 06:50, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3054
    Registrado : 22/11/2016

    [Resolvido]diividir e multiplicar com txtBox Empty Re: [Resolvido]diividir e multiplicar com txtBox

    Mensagem  DamascenoJr. 8/8/2021, 05:49

    Em VBA não se usa vírgula para separador decimal, usa-se o ponto.

    0.85


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Helden
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 27/05/2016

    [Resolvido]diividir e multiplicar com txtBox Empty Re: [Resolvido]diividir e multiplicar com txtBox

    Mensagem  Helden 8/8/2021, 15:49

    perfeito obrigado pelo retorno , ficou assim:
    Private Sub txtTFG_Click()
    If txtSexo = "M" Then
       Me.txtTFG = ((140 - Idade) * (Texto83) / (72 * txtCreatinina))
     Else
     If txtSexo = "F" Then
     Me.txtTFG = ((140 - Idade) * (Texto83) / (72 * txtCreatinina)) * 0.85
     
       End If
     
       End If
     
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3054
    Registrado : 22/11/2016

    [Resolvido]diividir e multiplicar com txtBox Empty Re: [Resolvido]diividir e multiplicar com txtBox

    Mensagem  DamascenoJr. 8/8/2021, 17:32

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 18/9/2021, 18:07