The next example triggers a Click event as if the user had clicked a button on a form. This example uses the Eval function to call each function in the series. The following example assumes that you have a series of 50 functions defined as A1, A2, and so on. Result: current system date + current month, displayed in the column 'NewDate'. SELECT Eval('Date()+month(date())') AS NewDate FROM ProductSales Group by Eval('Date()+month(date())') Įvaluates the string value, identifies the functions and execute them.

SELECT Eval('15+3') AS Expr1 FROM ProductSales GROUP BY Eval('15+3') Įvaluates the string value and calculates the result. IntState = Eval('Forms!Orders!ShipRegion In ' _ Note that you use single quotation marks (') to include a string within another string. If the field contains one of the abbreviations, intState will be True (–1). The next example determines whether the value of a ShipRegion control on an Orders form is one of several specified state abbreviations. For example, you can't use the SQL operators Between.And or In directly in your code, but you can use them in an expression passed to the Eval function. You can use the Eval function to access expression operators that aren't ordinarily available in a Visual Basic for Applications (VBA) module. MsgBox ('The current value of ' & ctl.Name & _ It then displays the current value of the control in a dialog box.

The following example passes a string containing a full reference to a control to the Eval function. You can use the Eval function to determine the value stored in the Value property of a control.

For example, Eval('Smith') results in an error. If you pass to the Eval function a string that doesn't contain a numeric expression or a function name but only a simple text string, a run-time error occurs. The argument stringexpr must be an expression that is stored in a string. The Eval function returns a Variant that is either a string or a numeric type. You can use the Eval function in a calculated control on a form or report, or in a macro or module. For example: ' ShowNames is user-defined function.ĭebug.Print Eval('StrComp(''Joe'',''joe'', 1)') Note: If you are passing the name of a function to the Eval function, you must include parentheses after the name of the function in the stringexpr argument.

Function in visual basic