Selected framework method wrappers

Public Function DateOnly(d As Date, Optional DefTime As Date = #12:00:00 AM#) As Date

Returns the date part only of a date/time.
Optionally sets a specific time of day (default is midnight)

Public Function DateOnlyVar(d As Variant, Optional DefTime As Date = #12:00:00 AM#) As Variant

Like DateOnly(), but will accept a variant that may be Null, a Date or a String.

Public Function dq(i As Variant) As String

Same as q() but adds and escapes double quotes.


Public Function mt(varToTest As Variant, Optional SuppressError As Boolean = False, Optional TrimStrBeforeTest As Boolean = True) As Boolean

Is the variable empty (Null, or empty string) ? This is named in the tradition of very short, much used functions like nz() and iif(). Pronounce 'Em Tee', and we use this name because Empty and IsEmpty() are already taken in VBA.


Public Function nze(varToTest As Variant, Optional varIfMt As Variant = Null) As Variant

Like the built in nz() function, but substitutes second value if mt() is true.

Public Function q(i As Variant) As String

Adds single quotes around the passed value. Quotes are escaped, so for example if the value O'Leary was passed, the result would be 'O''Leary'. This form of escaping is supported by JET and MSSQL Server. The value NULL returns empty quotes (ie. ''). Using the q() function also protexcts from SQL injection attacks and results in more readable code.


Public Function ReturnRec(sql As String, Optional DebugOn As Boolean = False, Optional SuppressError As Boolean = False) As Variant

Returns the value from the first column and row of the result set from the passed SQL. Like DLookup, but takes a full SQL statement.


Public Function subst(text As String, ParamArray ValueList()) As String

Parameter substitution: substitute the passed values for %1, %2 etc in the string

Public Function TimeOnly(d As Date) As Date

Returns the time part only of a date/time.


Public Function TimeOnlyVar(d As Variant) As Variant

Like TimeOnly(), but will accept a variant that may be Null, a Date or a String.

Public Function xf_DataList_RowSourceFunction(fld As Control, ID As Variant, row As Variant, col As Variant, code As Variant) As Variant

The special function used as the ListBox or ComboBox RowSourceType.
See help: RowSourceType Property (User-Defined Function) - Code Argument Values Because this function is called repeatedly it has a tendency to spew errors when something goes wrong. For this reason, there is a time delay on the error messaging. Once an error occurs, it waits xf_DataListErrSuspendSecs (by default 20) seconds before raising another error. This gives the user time to change to design mode or reset the code.


Public Function xf_DataListExt_GetValue(ValueControl As Control, Optional ColumnName As String = "") As Variant

Undocumented in this release

Public Function xf_DataListExt_RowSourceFunction(fld As Control, ID As Variant, row As Variant, col As Variant, code As Variant) As Variant

The special function used as the ListBox or ComboBox RowSourceType.
See help: RowSourceType Property (User-Defined Function) - Code Argument Values Because this function is called repeatedly it has a tendency to spew errors when something goes wrong. For this reason, there is a time delay on the error messaging. Once an error occurs, it waits xf_DataListErrSuspendSecs (by default 20) seconds before raising another error. This gives the user time to change to design mode or reset the code.