I've added a commandbar (see code below) to my userform, which pops up
another userform. The first time I open this command bar and click on the
POC Info button, it opens the second form properly, but when I select click
on the label that pops this menu up a second time, there is a check in front
of the POC Info option, and clicking on it does nothing.

Any ideas what I am doing wrong?

Sub OptionsMenu()

Dim CmdBar As Office.CommandBar
Dim ctrl As Office.CommandBarControl

On Error Resume Next
Application.CommandBars("MyOptions").Delete
On Error GoTo 0

Set CmdBar = Application.CommandBars.Add(Name:="MyOptions", _

Position:=msoBarPopup, _
temporary:=True)

Set ctrl = CmdBar.Controls.Add(Type:=msoControlButton)
With ctrl
.Caption = "POC info"
.OnAction = "POC_Info"
End With

End Sub

Public Sub POC_Info()

Userform1.Hide
frm_POC_Info.Show
Userform1.Show

End Sub

Dale
--
Don''t forget to rate the post if it was helpful!

Email address is not valid.
Please reply to newsgroup only.

I resolved this by setting the CommandBarButton State property to msoButtonUp
in the subroutine that was called during the OnAction call.

It was either that, or changing: Userform1.Show
to: Userform1.Show 0

Dale
--
Don''t forget to rate the post if it was helpful!

Email address is not valid.
Please reply to newsgroup only.


"Dale Fye" wrote:

I've added a commandbar (see code below) to my userform, which pops up
another userform. The first time I open this command bar and click on the
POC Info button, it opens the second form properly, but when I select click
on the label that pops this menu up a second time, there is a check in front
of the POC Info option, and clicking on it does nothing.

Any ideas what I am doing wrong?

Sub OptionsMenu()

Dim CmdBar As Office.CommandBar
Dim ctrl As Office.CommandBarControl

On Error Resume Next
Application.CommandBars("MyOptions").Delete
On Error GoTo 0

Set CmdBar = Application.CommandBars.Add(Name:="MyOptions", _

Position:=msoBarPopup, _
temporary:=True)

Set ctrl = CmdBar.Controls.Add(Type:=msoControlButton)
With ctrl
.Caption = "POC info"
.OnAction = "POC_Info"
End With

End Sub

Public Sub POC_Info()

Userform1.Hide
frm_POC_Info.Show
Userform1.Show

End Sub

Dale
--
Don''t forget to rate the post if it was helpful!

Email address is not valid.
Please reply to newsgroup only.

Dale,
I've had that too. I can't explain why your setup doesn't work,
but this does.

Dim gblUF2% ' a global variable

Sub Main()
Call OptionsMenu ' your make popup routine
Do
UserForm1.Show
If gblUF2 Then
UserForm2.Show ' your frm_POC_Info
gblUF2 = 0
Else
Exit Do
End If
Loop
End Sub

Public Sub POC_Info()
' Don't show from here.
' Flag gblUF2 for Main to show.
gblUF2 = 1
UserForm1.Hide
End Sub

Dale wrote:
I've added a commandbar (see code below) to my userform, which pops up
another userform. The first time I open this command bar and click on the
POC Info button, it opens the second form properly, but when I select click
on the label that pops this menu up a second time, there is a check in front
of the POC Info option, and clicking on it does nothing.

Any ideas what I am doing wrong?

Sub OptionsMenu()

Dim CmdBar As Office.CommandBar
Dim ctrl As Office.CommandBarControl

On Error Resume Next
Application.CommandBars("MyOptions").Delete
On Error GoTo 0

Set CmdBar = Application.CommandBars.Add(Name:="MyOptions", _

Position:=msoBarPopup, _
temporary:=True)

Set ctrl = CmdBar.Controls.Add(Type:=msoControlButton)
With ctrl
.Caption = "POC info"
.OnAction = "POC_Info"
End With

End Sub

Public Sub POC_Info()

Userform1.Hide
frm_POC_Info.Show
Userform1.Show

End Sub

Dale


----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

Dave,

I think it had to do with the fact that in the OnAction code, I was hiding
the current form, then eventually showing it again (but as modal). This was
preventing the commandbar menu from completing its processing. I could tell
this because other command buttons on the menu worked properly (I would
click, it would do something, and when I opened the menu again, the item
would not have a check next to it (msoButtonDown)). When I changed it to
show the form as non-modal (Show 0), it worked properly.

Dale

--
Don''t forget to rate the post if it was helpful!

Email address is not valid.
Please reply to newsgroup only.


"Dave D-C" wrote:

Dale,
I've had that too. I can't explain why your setup doesn't work,
but this does.

Dim gblUF2% ' a global variable

Sub Main()
Call OptionsMenu ' your make popup routine
Do
UserForm1.Show
If gblUF2 Then
UserForm2.Show ' your frm_POC_Info
gblUF2 = 0
Else
Exit Do
End If
Loop
End Sub

Public Sub POC_Info()
' Don't show from here.
' Flag gblUF2 for Main to show.
gblUF2 = 1
UserForm1.Hide
End Sub

Dale wrote:
I've added a commandbar (see code below) to my userform, which pops up
another userform. The first time I open this command bar and click on the
POC Info button, it opens the second form properly, but when I select click
on the label that pops this menu up a second time, there is a check in front
of the POC Info option, and clicking on it does nothing.

Any ideas what I am doing wrong?

Sub OptionsMenu()

Dim CmdBar As Office.CommandBar
Dim ctrl As Office.CommandBarControl

On Error Resume Next
Application.CommandBars("MyOptions").Delete
On Error GoTo 0

Set CmdBar = Application.CommandBars.Add(Name:="MyOptions", _

Position:=msoBarPopup, _
temporary:=True)

Set ctrl = CmdBar.Controls.Add(Type:=msoControlButton)
With ctrl
.Caption = "POC info"
.OnAction = "POC_Info"
End With

End Sub

Public Sub POC_Info()

Userform1.Hide
frm_POC_Info.Show
Userform1.Show

End Sub

Dale


----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----