关于CommandBar

zhaoxyong

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

相关的引用文件未被引用所导致。