Office中国论坛/Access中国论坛

标题: 关于CommandBar [打印本页]

作者: zhaoxyong 时间: 2008-5-23 09:09
标题: 关于CommandBar
Private Sub Command0_Click()
Dim customBar As CommandBar
Dim newButton As CommandBarButton
Set customBar = CommandBars.Add("Custom")
Set newButton = customBar.Controls _
.Add(msoControlButton, CommandBars("Edit") _
.Controls("Cut").ID)
Set newButton = customBar.Controls _
.Add(msoControlButton, CommandBars("Edit") _
.Controls("Copy").ID)
Set newButton = customBar.Controls _
.Add(msoControlButton, CommandBars("Edit") _
.Controls("Paste").ID)
customBar.Visible = True
End Sub

这是access帮助文件的一段代码,为何无法执行在第一行 "Dim customBar As CommandBar"
用户定义类型未定义

作者: hi-wzj 时间: 2008-5-23 09:56
相关的引用文件未被引用所导致。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)