diff options
| -rw-r--r-- | wizards/source/access2base/UtilProperty.xba | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba index b26555054aa2..6fbe1059e304 100644 --- a/wizards/source/access2base/UtilProperty.xba +++ b/wizards/source/access2base/UtilProperty.xba @@ -24,6 +24,8 @@ REM ============================================================================ ' Jean-Pierre Ledure Adapted to Access2Base coding conventions '********************************************************************** +Option Explicit + REM ======================================================================================================================= Public Function _MakePropertyValue(ByVal Optional psName As String, Optional pvValue As Variant) As com.sun.star.beans.PropertyValue ' Create and return a new com.sun.star.beans.PropertyValue. @@ -72,7 +74,7 @@ Public Function _FindProperty(pvPropertyValuesArray, ByVal psPropName As String) ' Find a particular named property from an array of PropertyValue's. ' Finds the PropertyValue and returns it, or returns Null if not found. -Dim iPropIndex As Integer +Dim iPropIndex As Integer, vProp As Variant iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName) If iPropIndex >= 0 Then vProp = pvPropertyValuesArray(iPropIndex) ' access array subscript |