diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2015-12-06 15:47:06 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-12-06 15:47:06 +0100 |
| commit | 77801cd501af08f41099feef36a72001ee6c84b4 (patch) | |
| tree | 8883767fa9aca664c0d2f84e9561590c936cfadb /wizards | |
| parent | 22d4b98da59c9821e72cc1d4f9d94d57b7a12d51 (diff) | |
Access2Base - Option Explicit in UtilProperty module
Change-Id: Iab982421be37e670201561b67cc66fb91d30de91
Diffstat (limited to 'wizards')
| -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 |