Menu and Form problems
It works.
Bob Phillips wrote:
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" wrote in message
ups.com...
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
|