Kaydet (Commit) 37973799 authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure

Access2Base - Correct CommandBarControls collection

Make the Item property of the CommandBarControls collection work correctly
thanks to a complete initialization of the object.

Change-Id: I714d1034d69be197f68702b0e2d7b21ff64ffff8
üst e783cc71
...@@ -170,6 +170,7 @@ Dim oObject As Object ...@@ -170,6 +170,7 @@ Dim oObject As Object
Set oObject = New Collect Set oObject = New Collect
oObject._CollType = COLLCOMMANDBARCONTROLS oObject._CollType = COLLCOMMANDBARCONTROLS
oObject._ParentType = OBJCOMMANDBAR oObject._ParentType = OBJCOMMANDBAR
oObject._ParentName = _Name
oObject._Count = iItemsCount oObject._Count = iItemsCount
Case Else ' pvIndex is numeric Case Else ' pvIndex is numeric
Goto Trace_IndexError Goto Trace_IndexError
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment