diff options
Diffstat (limited to 'wizards/source/access2base/Root_.xba')
-rw-r--r-- | wizards/source/access2base/Root_.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba index 01f50923b6cd..a95fe87ca1f3 100644 --- a/wizards/source/access2base/Root_.xba +++ b/wizards/source/access2base/Root_.xba @@ -202,7 +202,7 @@ Public Function CurrentDocument(ByVal Optional piDocIndex As Integer) As Variant ' Returns the CurrentDoc(...) referring to the current document or to the argument Dim iDocIndex As Integer - If IsMissing(piDocIndex) Then iDocIndex = CurrentDocIndex() Else iDocIndex = piDocIndex + If IsMissing(piDocIndex) Then iDocIndex = CurrentDocIndex(, False) Else iDocIndex = piDocIndex If iDocIndex >= 0 And iDocIndex <= UBound(CurrentDoc) Then Set CurrentDocument = CurrentDoc(iDocIndex) Else Set CurrentDocument = Nothing End Function |