diff options
Diffstat (limited to 'wizards/source/access2base/Form.xba')
-rw-r--r-- | wizards/source/access2base/Form.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba index 37fc0d121168..6b7a69a90c77 100644 --- a/wizards/source/access2base/Form.xba +++ b/wizards/source/access2base/Form.xba @@ -157,7 +157,7 @@ Function IsLoaded(ByVal Optional pbForce As Boolean) As Boolean Dim oDoc As Object, oDatabase As Object, oEnum As Object, oDesk As Object, oComp As Object, bFound As Boolean Dim i As Integer - Set oDoc = _A2B_.CurrentDoc(Application._CurrentDoc()) + Set oDoc = _A2B_.CurrentDocument() Select Case oDoc.DbConnect Case DBCONNECTBASE Set oDesk = CreateUnoService("com.sun.star.frame.Desktop") @@ -608,7 +608,7 @@ Dim oDoc As Object, oFormsCollection As Object, oDatabase As Object _Name = psName _Shortcut = "Forms!" & Utils._Surround(psName) If IsLoaded Then - Set oDoc = _A2B_.CurrentDoc(Application._CurrentDoc()) + Set oDoc = _A2B_.CurrentDocument() Select Case oDoc.DbConnect Case DBCONNECTBASE If Not IsNull(Component.CurrentController) Then ' A form opened then closed afterwards keeps a Component attribute |