Use Object Substitution

Use Object Substitution

Use object substitution to substitute a simple name with an extendedobject reference. Each “.” in the syntax represents an OLE lookup.Better performance is achieved the fewer times lookups need to be performed.For example:

 For i = 1 to 10		txt(i) = myApp.TimeSheet.Employee.NameNext I

Performs better if rewritten using substitution:

 Dim emp as New Employee' Create the substitution object variableSet emp = myApp.TimeSheet.EmployeeFor i = 1 to 10		txt(i) = emp.NameNext I


Share the Post: