محاسبه در اکسس با تابع 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