diff options
| -rw-r--r-- | wizards/source/access2base/Form.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba index 66962d1c3de5..4ae6404e53b4 100644 --- a/wizards/source/access2base/Form.xba +++ b/wizards/source/access2base/Form.xba @@ -923,7 +923,7 @@ Dim i As Integer, oObject As Object If Not ( oObject._BOF And oObject._EOF ) Then oObject.MoveFirst() ' Do nothing if resultset empty Set _PropertyGet = oObject Case UCase("RecordSource") - _PropertyGet = DatabaseForm.ActiveCommand + _PropertyGet = DatabaseForm.Command Case UCase("Visible") _PropertyGet = ContainerWindow.IsVisible() Case UCase("Width") |