Menu and Form problems

[moonhk]

In menu, can able to Pass parameter using "OnAction" ?

Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "Build Japan"
.FaceId = 0
.OnAction = "Process_frm_GEN (\""JAP\"")" <--- This coding not
works
.BeginGroup = True '~~ Separators in menu
End With


Sub Process_frm_GEN(loSite As String)
MsgBox loSite
End Sub


Also, it is possible pass parameters to form ? I want change Form
Caption and some value.

Sub Process_frm_SIN()
frmProcess_SIN.Show
End Sub

 

[Bob Phillips]

Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "Build Japan"
.FaceId = 0
.OnAction = "Process_frm_GEN
.Parameter = "JAP"
.BeginGroup = True '~~ Separators in menu
End With


Sub Process_frm_GEN()
With Application.Commandbars.ActionControl
MsgBox .Parameter
End With
End Sub

Also, it is possible pass parameters to form ? I want change Form
Caption and some value.

Sub Process_frm_SIN()
frmProcess_SIN.Caption = "Test"
frmProcess_SIN.Show
End Sub


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[moonhk]

It works.

Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "Build Japan"
.FaceId = 0
.OnAction = "Process_frm_GEN
.Parameter = "JAP"
.BeginGroup = True '~~ Separators in menu
End With


Sub Process_frm_GEN()
With Application.Commandbars.ActionControl
MsgBox .Parameter
End With
End Sub



Sub Process_frm_SIN()
frmProcess_SIN.Caption = "Test"
frmProcess_SIN.Show
End Sub


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)