diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2017-07-03 18:12:51 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-07-03 18:16:22 +0200 |
| commit | 6845c370a7371a142458fc18716687d6c97d397a (patch) | |
| tree | f6f5ac96306fee5c418696019b9a3778c6fb4abe /wizards | |
| parent | b2745804d73204b5948abc62ebddd6559e8f71f5 (diff) | |
Access2Base - RecordSource property of Form class
Use Command instead of ActiveCommand
which delivers only SQL statements while expected
command type should be table, query or sql
Change-Id: I824a02cf5dab7b59f70b3a0ae9ba9f874e86733b
Diffstat (limited to 'wizards')
| -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") |