Access Form

[pukhton]

Have a question about Access form.

Total Dose (TextBox)
Total Dose Unit (Combobox) (mg,mcg)
Total Volume (TextBox)
Final Dose (TextBox)
Final concentration (Combobox) (mg.mcg)

What I want to do is to divide TotalDose/ Total volume to get Final dose. but in order to get the final concentration, WE have to see what is the Total dose Unit is? if its mcg, multiply the final dose by 1000 or if its mg multiply by 1.
Here is the code I have, but its not working.

 
End SubPrivate Sub Total_Dose_Unit_AfterUpdate()
 
If TotalDoseUnit = "mcg" Then
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume) * 1000
Else
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume)
 
End If
 
End Sub 

Private Sub Total_Dose_Change()
If TotalDoseUnit = "mcg" Then
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume) * 1000
 
Else
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume)
 
End If
 
End Sub
 

I have the same code under

 Private Sub Total_Dose_LostFocus()

 Private Sub Total_Volume_ml_Change()

 Private Sub Total_Volume_ml_LostFocus()

Any help would be really appreciated.

[puppydogbuddy]

Have a question about Access form.

Total Dose (TextBox)
Total Dose Unit (Combobox) (mg,mcg)
Total Volume (TextBox)
Final Dose (TextBox)
Final concentration (Combobox) (mg.mcg)

What I want to do is to divide TotalDose/ Total volume to get Final dose. but in order to get the final concentration, WE have to see what is the Total dose Unit is? if its mcg, multiply the final dose by 1000 or if its mg multiply by 1.
Here is the code I have, but its not working.

 
End SubPrivate Sub Total_Dose_Unit_AfterUpdate()
 
If TotalDoseUnit = "mcg" Then
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume) * 1000
Else
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume)
 
End If
 
End Sub 

Private Sub Total_Dose_Change()
If TotalDoseUnit = "mcg" Then
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume) * 1000
 
Else
Me.Final_Dose_ml = (Me.Total_Dose / Me.Total_Volume)
 
End If
 
End Sub
 

I have the same code under

 Private Sub Total_Dose_LostFocus()

 Private Sub Total_Volume_ml_Change()

 Private Sub Total_Volume_ml_LostFocus()

Any help would be really appreciated.

The following code should work if the correct names of your objects are used. Which is correct? Total_Dose_Unit or TotalDoseUnit? Final_Dose_ml or Final Dose? Total Volume or Total_Volume? Total Dose or Total_Dose? You should avoid spaces in the names for your objects, but if you do have spaces, you must enclose the names in brackets.

Private Sub [Total Dose Unit]_AfterUpdate()
 
If [Total Dose Unit].Value = "mcg" Then
Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value) * 1000
Else
Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value)
 
End If
 
End Sub
 

[pukhton]

Thanks for your response.
I think some how I got that thing to work. But i have a lillte slide problem.
On my form I have Medication combo box, which has list of medication and standrard concentration for each medication, that is workign fine, but
There are 2 medications " Fentanyl" and "Remifentanil" and they are always in mcg. so when user picks the above 2 medications, i want to show the FinalConcentration units in mcg rather than in mg.

For example : total dose = 2500mcg
Total Volume= 50ml
If you do the math you should get 50 mg or 50000 mcg. but I want 50 mcg for this. I am not sure If I have clear it up or not? please let me know, if you need more info on it.

[puppydogbuddy]

Thanks for your response.
I think some how I got that thing to work. But i have a lillte slide problem.
On my form I have Medication combo box, which has list of medication and standrard concentration for each medication, that is workign fine, but
There are 2 medications " Fentanyl" and "Remifentanil" and they are always in mcg. so when user picks the above 2 medications, i want to show the FinalConcentration units in mcg rather than in mg.

For example : total dose = 2500mcg
Total Volume= 50ml
If you do the math you should get 50 mg or 50000 mcg. but I want 50 mcg for this. I am not sure If I have clear it up or not? please let me know, if you need more info on it.

Something like this:

Private Sub [Total Dose Unit]_AfterUpdate()
 
If [Total Dose Unit].Value = "mcg" And (Me!Medicine_Name = "Fentanyl" Or Me!Medicine_Name = "Remifentanil”) Then
     Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value)
End If
If [Total Dose Unit].Value = "mcg" And (Me!Medicine_Name <> "Fentanyl" And Me!Medicine_Name <> "Remifentanil”) Then
     Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value) * 1000
Else
     Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value)
 
End If
 
End Sub
 

[pukhton]

Something like this:

Private Sub [Total Dose Unit]_AfterUpdate()
 
If [Total Dose Unit].Value = "mcg" And (Me!Medicine_Name = "Fentanyl" Or Me!Medicine_Name = "Remifentanil”) Then
     Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value)
End If
If [Total Dose Unit].Value = "mcg" And (Me!Medicine_Name <> "Fentanyl" And Me!Medicine_Name <> "Remifentanil”) Then
     Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value) * 1000
Else
     Me![Final Dose].Value = (Me![Total Dose].Value / Me![Total Volume].Value)
 
End If
 
End Sub
 

GOT IT THANKS.... HAVE A GOOD DAY