You could add a hidden textbox to the calculator form. Then when you open the calculator, set a value to that hidden textbox from  whatever button/form opened the calculator. Then make an if/then statement

If HiddenTextBox=1 Then
Forms!CustomerF!Qty = Calc
ElseIf HiddenTextBox=2 Then
Forms!ContactF!Qty = Calc
etc...

Thanks Adam! Am I correct in assuming the code you wrote is to replace the line:
Forms!BridgesF!CompsTsubform.Form!Quantity = Calc

I will try it and let you know.

Yep

Adam - What?!!  No TempVars to set Calling Form?

Missed opportunity Scott =( lol

Adam, I'm not sure how to set the value from the command button to start the calculator. This is the button:

Private Sub CalcBtn_Click()

    DoCalculator ("Quantity")
    
    
End Sub

Oh is this a global module? I thought it was a form.

If this is from Richards Calculator 7 video, it looks like he already has tempvars setup to return it to the form that opened it. You shouldn't need to do anything extra if you are using that. Is that the one you're using?

Adam Unfortunately the code as it is doesn't work with Subforms.
Would probably make a great follow up video to the Calculator series.

Oh, I'll see if Richard wants to make a video on it before I post a solution.

Yes, I'm using it in a subform (about fourteen of them). I'd love to be able to not use the calculator, but the calculations would be too complex with so many variables.

Note this is setup under the assumption that your subforms control name is the same name as the name of the form (the subform source object), was trying to automate as much as possible without having to manually send unique names for every button.

Step1
Modify the GlobalMod for DoCalculator, we need to send the FormName and ParentForm as well if neccessary

Public Function DoCalculator(FormName As String, FieldName As String, Optional ParentFormName As String)
  
    If Nz(ParentFormName, "") <> "" Then
    TempVars("CalculatorParentFormReturn") = ParentFormName
    End If
  
    TempVars("CalculatorFormReturn") = FormName
    TempVars("CalculatorFieldReturn") = FieldName
    DoCmd.OpenForm "CalculatorF"
  
End Function

Step 2
Modify the on click for buttons in a subform. Make a vba on click event in the code editor, didn't test if it works typed directly in like it is in the video (I don't think it will) Also don't send the parent form if it is not a subform, leave it blank

No Subform
    DoCalculator Me.Name, "FamilySize"
Subform
    DoCalculator Me.Name, "FamilySize", Me.Parent.Name

Step 3
Modify the on close event of the CalculatorF adding onto this section
            
If Not IsNull(TempVars("CalculatorParentFormReturn")) Then
Forms(TempVars("CalculatorParentFormReturn")).Controls(TempVars("CalculatorFormReturn")).Controls(TempVars("CalculatorFieldReturn")) = Calc
TempVars("CalculatorFormReturn") = Null
TempVars("CalculatorFieldReturn") = Null
TempVars("CalculatorParentFormReturn") = Null
Else
Forms(TempVars("CalculatorFormReturn")).Controls(TempVars("CalculatorFieldReturn")) = Calc
TempVars("CalculatorFormReturn") = Null
TempVars("CalculatorFieldReturn") = Null
End If