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!
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!