|
ÔÚ³ÌÐòÖе÷¶¯×Ô¶¯Ñ¹Ëõ¼°ÐÞ¸´×ÔÉíµÄº¯Êý
Function Compact()
With CommandBars.Add(, msoBarFloating, , True)
.Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
.Visible = True
.Controls(1).SetFocus
SendKeys "{ENTER}"
End With
End Functionµ÷Ó÷½·¨£º Compact
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
Á½¸öδ¹«¿ªµÄACCESS·½·¨µÄʹÓü¼ÇÉ 2003-12-30 14:59:33
Á˽â Microsoft Access °²È«ÐÔ 2003-11-13 11:21:08
Èÿؼþ×ÔÊÊÓ¦ÆÁÄ»·Ö±æÂÊ 2003-10-18 9:58:33
VBÖÐÀûÓÃWinrar½øÐÐÎļþѹËõ 2003-10-17 19:33:08
MS Jet SQL for Access 2000Öм¶Æª (II) 2003-10-17 18:51:01
ÈçºÎÕï¶Ï/ÐÞ¸´Ëð»µµÄ Jet 4.0 Êý¾Ý¿â 2003-10-14 8:31:26
AccessÆô¶¯ÃüÁîÐÐÑ¡Ïî´óÈ« 2003-10-10 10:02:00
ÓÅ»¯Microsoft AccessÌá¸ßËÙ¶È 2003-10-6 10:31:55
|
