Pop up function for calculation

[afs24]

I'm trying to create, in a form, a pop up where I can punch in two number to get a percentage. Say I want to know what percentage 5000 is of 25000. How would I do this and could you give me an example?

 

[Corticus]

Hi afs24,

First put a button on the form from which you want to display the popup, with code like:

Private Sub CmdPopup_Click()

    DoCmd.OpenForm ("Frm_Popup")

End Sub

adjust the names as necessary.

You will then need a new form (frm_popup) with three textboxes (TxtNumerator, TxtDenominator, and TxtPercent) as well as a button (CmdCalculate).

Right click on the button and create an event, and enter this code:

Private Sub CmdCalculate_Click()

    If IsNull(TxtDenominator) Or TxtDenominator = 0 Then
        MsgBox ("Please complete 'of:' field on this form")
        Exit Sub
    End If
    
    TxtPercent = Format(TxtNumerator / TxtDenominator, "0.00%")

End Sub

Here's an example:
http://theillumni.com/posts/pop-up_calc.zip

HTH,