Microsoft Access 2000


         

Public Function funCreateMenuControls(strMenu As String) As Boolean


Dim but As CommandBarButton

'

Set but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)

With but

.BeginGroup = True '

.FaceId = 1 '

.Style = msoButtonCaption '

.Caption = "" '

.OnAction = "funCreateNewHelp" '

End With

'

Set but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)

With but

.Caption = "" '

.Style = msoButtonCaption '

.FaceId = 2 '

.OnAction = "funCreateAssistant" '

End With

funCreateMenuControls = True '