Calculator Control

[puforee]

Does anyone know if there is a calculator control that can be added to a form that would return the final value to a select field on the form?

 

[MajP]

maybe:

http://it.toolbox.com/wiki/index.php/Add_a_calculator_to_std_Access_TextBox

 

[MajP]

There is an access calculator form on this page

http://www.mvps.org/access/resources/downloads.htm

 

[puforee]

MajP...both look reasonable. On the second one I think I will try to modify the equal code and have it place the final value in a pre-determined field.

Thanks for the help.

 

[MajP]

This is how I modified the second one.

In a public module place this function:

Public Function getCalcValue() As Double
  DoCmd.OpenForm "zDistCalculator", , , , , acDialog
  If CurrentProject.AllForms("zDistCalculator").IsLoaded Then
    getCalcValue = Val(Forms("zDistCalculator").txtDisplay.Caption)
    DoCmd.Close acforms, "zDistCalculator"
  End If
End Function

To use this function from anywhere such as a double click on a form or a cmd button.

Me.YourcontrolName = getCalcValue

Modify the close on the calculator to the following

Private Sub cmdClose_Click()
....
Me.Visible = False
'DoCmd.Close acForm, Me.Name
End Sub

Works real well and easy to use.