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]Cálculo em formulario com combobox

    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]Cálculo em formulario com combobox Empty [Resolvido]Cálculo em formulario com combobox

    Mensagem  Helden 23/7/2021, 16:45

    Boa tarde amigos preciso de ajuda :
    tenho
    tblPaciente campo Peso, Altura, SC (campo calculado)
    tblPrescrição com tabela relacionada, campo DOSE1
    frmPrescriçãoQT com subfrmPrescrição
    No subfrmPrescrição tenho
    cboDose1 com dois itens: mg/Kg e mg/m2
    txtDose1 fonte de controle DOSE1
    gostaria que quando escolho
    mg/kg na cbo ele calcule DOSE1 * Peso     na txtDose1
    mg/m2 na cbo calcule DOSE1 * SC          na txtDose1

    Tentei o seguinte mas volta resultado 0

    Private Sub cboDose1_AfterUpdate()
    If cboDose1 = "mg/m2" Then
       Me.txtDose1 = txtDose1 * txtSC
    ElseIf cboDose1 = "mg/Kg" Then
       Me.txtDose1 = txtDose1 * Peso

      End If
    End Sub

    Acabei colocando agora um campo txtDosagem  no subformulário fonte de controle DOSAGEM1 da tblPrescrição ficando assim:
    Private Sub cboDose1_AfterUpdate()
    If cboDose1 = "mg/m2" Then
       Me.txtDosagem = txtDose1 * txtSC

       End If

    End Sub

    so preciso que me ajudem a colocar mais itens

    Private Sub cboDose1_AfterUpdate()
    If cboDose1 = "mg/m2" Then
       Me.txtDosagem = txtDose1 * txtSC
       Elseif cboDose1 = "mg/Kg" Then
       Me.txtDosagem = txtDose1 * txt_Peso
    End if
    End sub

    o elseif não funcionou!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Cálculo em formulario com combobox Empty Re: [Resolvido]Cálculo em formulario com combobox

    Mensagem  crysostomo 24/7/2021, 04:14

    Boa noite.
    Não é o ElseIf que parou, alguma linha ou campo que ele não está encontrando.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    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]Cálculo em formulario com combobox Empty Re: [Resolvido]Cálculo em formulario com combobox

    Mensagem  Helden 27/7/2021, 16:28

    Private Sub cboDose1_AfterUpdate()
    If cboDose1 = "mg/m2" Then
       Me.txtDosagem1 = txtDose1 * txtSC
    Else
       If cboDose1 = "mg/Kg" Then
           Me.txtDosagem1 = txtDose1 * txt_Peso
       ElseIf cboDose1 = "mg" Then
           Me.txtDosagem1 = txtDose1
       
       End If
    End If
    End Sub

    opa , obrigado pelo retorno , da uma olhada no codigo , esta certo? o "mg/m2" e "mg" retorna com valor certinho , sö o mg/Kg retorna 0.

    agora deu cheers , era o nome da txtPeso

    Private Sub cboDose1_AfterUpdate()
    If cboDose1 = "mg/m2" Then
    Me.txtDosagem1 = txtDose1 * txtSC
    Else
    If cboDose1 = "mg/Kg" Then
    Me.txtDosagem1 = txtDose1 * txtPeso
    ElseIf cboDose1 = "mg" Then
    Me.txtDosagem1 = txtDose1

    End If
    End If
    End Sub
    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]Cálculo em formulario com combobox Empty Re: [Resolvido]Cálculo em formulario com combobox

    Mensagem  Helden 27/7/2021, 16:37

    obrigado!!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Cálculo em formulario com combobox Empty Re: [Resolvido]Cálculo em formulario com combobox

    Mensagem  crysostomo 27/7/2021, 20:38

    Sucesso.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

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