diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2017-07-13 17:17:43 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-07-13 17:17:43 +0200 |
| commit | 3cf9b747141bc5f74dc64cefbc5d5b2611ab0a4d (patch) | |
| tree | ace02018ede410fd7d357ed8f7048dfe48a56db6 /wizards | |
| parent | de0acf13b2dee2f7ad25de43f17acab73f1c7eac (diff) | |
Access2Base - RecordSource property of SubForm class
Use Command property i.o. ActiveCommand
because Command is additionally valid when form opened in Design mode
Change-Id: I0c9e545419ec99d444ac15b20466c838d53f738f
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/SubForm.xba | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/access2base/SubForm.xba b/wizards/source/access2base/SubForm.xba index ac452412ad3d..bead65c95248 100644 --- a/wizards/source/access2base/SubForm.xba +++ b/wizards/source/access2base/SubForm.xba @@ -124,6 +124,11 @@ Public Function pName() As String ' For compatibility with < V0.9.0 End Function ' pName (get) REM ----------------------------------------------------------------------------------------------------------------------- +Property Get ObjectType() As String + ObjectType = _PropertyGet("ObjectType") +End Property ' ObjectType (get) + +REM ----------------------------------------------------------------------------------------------------------------------- Property Get OnApproveCursorMove() As Variant OnApproveCursorMove = _PropertyGet("OnApproveCursorMove") End Property ' OnApproveCursorMove (get) @@ -259,11 +264,6 @@ Property Let OnUnloading(ByVal pvValue As Variant) End Property ' OnUnloading (set) REM ----------------------------------------------------------------------------------------------------------------------- -Property Get ObjectType() As String - ObjectType = _PropertyGet("ObjectType") -End Property ' ObjectType (get) - -REM ----------------------------------------------------------------------------------------------------------------------- Public Function OptionGroup(ByVal Optional pvGroupName As Variant) As Variant ' Return either an error or an object of type OPTIONGROUP based on its name @@ -642,7 +642,7 @@ Dim oDatabase As Object, vBookmark As Variant, oObject As Object End With Set _PropertyGet = oObject Case UCase("RecordSource") - _PropertyGet = DatabaseForm.ActiveCommand + _PropertyGet = DatabaseForm.Command Case Else Goto Trace_Error End Select |