محاسبه در اکسس با تابع eval

[~M*E*H*D*I~]

درود

کاربران حرفه ای اکسل حتما با تابع Evaluate آشنا هستند ، اما تابعی به مراتب قوی تر در اکسس وجود دارد که حتی با آن می توان یک ماشین حساب جهت محاسبات لگاریتمی یا مثلثاتی اسفاده کرد ، کد و فایل زیر مثال ساده ای در اینباره ارائه می کند.

Private Sub txtExpression_AfterUpdate()
On Error GoTo Err_txtExpression_AfterUpdate

txtResult = Eval(Me.txtExpression)

Exit_txtExpression_AfterUpdate:
    On Error Resume Next
    Exit Sub

Err_txtExpression_AfterUpdate:
    Select Case Err.Number
        Case 0, 2482, 2436
            Resume Exit_txtExpression_AfterUpdate:
        Case Else
            MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in module Form_frmExpCalc - sub txtExpression_AfterUpdate"
            Resume Exit_txtExpression_AfterUpdate:
    End Select
End Sub