Codejock Developer Community : Error 438 Object doesn't support this property

Error 438 Object doesn't support this property : Thank you Xander7, that fixed...

Fri, 13 May 2011 03:36:15 +0000

Author: Biox
Subject: 17936
Posted: 13 May 2011 at 3:36am

Thank you Xander7, that fixed the problem for me.

Error 438 Object doesn't support this property : Hi,Use this code in v13.2.1...

Thu, 24 Feb 2011 03:32:46 +0000

Author: Xander75
Subject: 17936
Posted: 24 February 2011 at 3:32am

Hi,

Use this code in v13.2.1 and it will work fine...


    Set ControlPopup = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")
        ControlPopup.BeginGroup = True
    Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")
    Set ControlPopup.CommandBar = PopupBar

Here it is in your sample code:


    Dim RibbonBar As RibbonBar
    Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
    RibbonBar.EnableDocking xtpFlagStretched
    RibbonBar.ShowQuickAccess = False
    
    Dim ControlFile As CommandBarPopup
    Dim Control As CommandBarControl
    Dim PopupBar As CommandBar
    Dim TabWrite As RibbonTab
    
    Dim ControlPopup As CommandBarPopup
    
    Set ControlFile = RibbonBar.AddSystemButton()
    ControlFile.IconId = ID_SYSTEM_ICON
    ControlFile.Caption = "&File"
    ControlFile.CommandBar.SetIconSize 32, 32
    
    With ControlFile.CommandBar.Controls
    
        Set Control = .Add(xtpControlButton, ID_FILE_USERS, "&Users")
           
        Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_DRIVES, "&Drives")
            Control.BeginGroup = True

        Set ControlPopup = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")
            ControlPopup.BeginGroup = True
        Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")
        Set ControlPopup.CommandBar = PopupBar
        
        Set Control = ControlPopup.Controls.Add(xtpControlLabel, 0, "Create and DisMount Drives")
    End With

Basically when major versions of software change there may be some changes to the way in which it previously worked. All I did was look at the sample code to get this working!

Error 438 Object doesn't support this property : As an update to this, I have just...

Wed, 23 Feb 2011 21:59:27 +0000

Author: Biox
Subject: 17936
Posted: 23 February 2011 at 9:59pm

As an update to this, I have just reinstalled V11.2.2 and recompile fine. Crashes on 13.2.1

The app runs perfectly using 11.2.2. So something fishy is going on :)

Error 438 Object doesn't support this property : Thanks for the reply, The confusing...

Wed, 23 Feb 2011 19:40:14 +0000

Author: Biox
Subject: 17936
Posted: 23 February 2011 at 7:40pm

Thanks for the reply,

The confusing thing for me is that this was working fine in V11 but has thrown this error when we upgraded to V13.

I have tried the mod as you suggested but now I get Error 13 type mismatch on line 190 per below.

I'll fiddle some more but if you have a thought on this I'd appreciate it.

thanks

          Dim RibbonBar As RibbonBar
80        Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
90        RibbonBar.EnableDocking xtpFlagStretched
100       RibbonBar.ShowQuickAccess = False

          Dim ControlFile As CommandBarPopup
          Dim Control As CommandBarControl
          Dim PopupBar As CommandBar
          Dim TabWrite As RibbonTab

          Dim ControlPopup As CommandBarPopup

110       Set ControlFile = RibbonBar.AddSystemButton()
120       ControlFile.IconId = ID_SYSTEM_ICON
130       ControlFile.Caption = "&File"
140       ControlFile.CommandBar.SetIconSize 32, 32
150       With ControlFile.CommandBar.Controls

160           Set Control = .Add(xtpControlButton, ID_FILE_USERS, "&Users")

170           Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_DRIVES, "&Drives")
180           Control.BeginGroup = True
' 190           Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")
190           Set ControlPopup = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")

'200           Set Control.CommandBar = PopupBar
200           Set Control.CommandBar = ControlPopup

'210           Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Create and DisMount Drives")
210           Set Control = ControlPopup.Controls.Add(xtpControlLabel, 0, "Create and DisMount Drives")

Error 438 Object doesn't support this property : Hi,The reason for this issue is...

Tue, 22 Feb 2011 04:39:27 +0000

Author: Xander75
Subject: 17936
Posted: 22 February 2011 at 4:39am

Hi,

The reason for this issue is due to the way in which you are declaring the variables used!

You are using the "Dim Control As CommandBarControl" therefore you cannot assign the PopupBarCommandBar to this. What you must do is use a variable "Dim ControlPopup As CommandBarPopup" instead.

See the MDI Ribbon sample for this.

Error 438 Object doesn't support this property : Thank for reading,Line 200 is...

Tue, 22 Feb 2011 04:07:36 +0000

Author: Biox
Subject: 17936
Posted: 22 February 2011 at 4:07am

Thank for reading,

Line 200 is giving me an error as "Error 438 Object doesn't support this property or method"

Appreciate your help as I am sure this was working previously in this project. I've migrated to a new machine and cannot compile this.

thanks

          Dim RibbonBar As RibbonBar
80        Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
90        RibbonBar.EnableDocking xtpFlagStretched
100       RibbonBar.ShowQuickAccess = False

          Dim ControlFile As CommandBarPopup
          Dim Control As CommandBarControl
          Dim PopupBar As CommandBar
          Dim TabWrite As RibbonTab

110       Set ControlFile = RibbonBar.AddSystemButton()
120       ControlFile.IconId = ID_SYSTEM_ICON
130       ControlFile.Caption = "&File"
140       ControlFile.CommandBar.SetIconSize 32, 32
150       With ControlFile.CommandBar.Controls

160           Set Control = .Add(xtpControlButton, ID_FILE_USERS, "&Users")

170           Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_DRIVES, "&Drives")
180           Control.BeginGroup = True
190           Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")

200           Set Control.CommandBar = PopupBar