diff options
| -rw-r--r-- | wizards/source/access2base/Root_.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/Utils.xba | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba index c6728a0841ee..052fbce80fb6 100644 --- a/wizards/source/access2base/Root_.xba +++ b/wizards/source/access2base/Root_.xba @@ -59,7 +59,7 @@ Dim vCurrentDoc() As Variant TraceLogLast = 0 TraceLogMaxEntries = 0 CalledSub = "" - Introspection = Nothing + Set Introspection = CreateUnoService("com.sun.star.beans.Introspection") Set FindRecord = Nothing Set StatusBar = Nothing Set Dialogs = New Collection diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index 0f9580342edf..12f1eacfece7 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -315,7 +315,6 @@ Public Function _hasUNOMethod(pvObject As Variant, psMethod As String) As Boolea Dim vInspect as Variant _hasUNOMethod = False On Local Error Resume Next - If IsNull(_A2B_.Introspection) Then _A2B_.Introspection = CreateUnoService("com.sun.star.beans.Introspection") vInspect = _A2B_.Introspection.Inspect(pvObject) _hasUNOMethod = vInspect.hasMethod(psMethod, com.sun.star.beans.MethodConcept.ALL) @@ -329,7 +328,6 @@ Public Function _hasUNOProperty(pvObject As Variant, psProperty As String) As Bo Dim vInspect as Variant _hasUNOProperty = False On Local Error Resume Next - If IsNull(_A2B_.Introspection) Then _A2B_.Introspection = CreateUnoService("com.sun.star.beans.Introspection") vInspect = _A2B_.Introspection.Inspect(pvObject) _hasUNOProperty = vInspect.hasProperty(psProperty, com.sun.star.beans.PropertyConcept.ALL) |