|
站长的函数
Function Compact()
With CommandBars.Add(, msoBarFloating, , True)
Const CompactId As Long = 2071
.Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
DoEvents
.Visible = True
.Controls(1).SetFocus
SendKeys "{ENTER}" '模拟击键压缩
End With
End Function
李啸林 修改,可以适合97与XP,我没有安装过ACCESS 2000,希望你们能给我补上。
Dim ref As Reference
Dim i As Byte
Set ref = References!Access
'我不用Application.Vertion是由于,这个属性在Access 97中不存在。
Select Case ref.Major
Case 8: i = 6 'Access 97
Case 9: i = 7 'Access XP
Case Else
MsgBox "未知版本,无法使用此功能"
Exit Sub
End Select
With CommandBars.Add(, msoBarFloating, , True)
.Controls.Add msoControlButton, CommandBars("Tools").Controls(i).CommandBar.Controls(2).Id
DoEvents
.Visible = True
.Controls(1).SetFocus
SendKeys "{ENTER}" '模拟击键压缩
End With
|
|