ÉÏÒ»¿ÎÎÒÃÇÔø¾­Ìá¹ýFor Each.¡­NextÓï¾ä£¬Õë¶ÔÒ»¸öÊý×é»ò¼¯ºÏÖеÄÿ¸öÔªËØ£¬Öظ´Ö´ÐÐÒ»×éÓï¾ä¡£¼¯ºÏ¾ÍÊÇ°üº¬Ò»×éÏà¹Ø¶ÔÏóµÄ¶ÔÏó¡£Ò»¸öÈËÊÇÒ»¸ö¶ÔÏó£¬Ò»ÈºÈ˾ÍÊÇÒ»¸ö¼¯ºÏÁË£¨Ò²³ÆΪ¼¯ÍÅ»òÍŻ£©¡£Ò»¸ö°´Å¥ÊÇÒ»¸ö¶ÔÏó£¬Ðí¶à¸ö°´Å¥ÔÚÒ»Æð¾ÍÊÇÒ»¸ö¼¯ºÏ£¨Õâ¾Í²»ÄܳÆΪÍÅ»ïÁË£©¡£¶þ¸ö°´Å¥ÊÇÒ»¸ö¼¯ºÏ£¬Èý¸öÒ²ÊÇÒ»¸ö¼¯ºÏ£¬ÎÒÃÇÈçºÎÈ·¶¨Ò»¸ö¼¯ºÏÄØ£¿°´Å¥¶¼·ÅÔÚ´°ÌåÉÏ£¬ËùÒÔÕâ¸ö¼¯ºÏ¿Ï¶¨Ò²ÊÇÔÚ´°ÌåÉÏ£¬Ã¿¸ö´°Ì嶼ÓÐÒ»¸öControls ¼¯ºÏ£¬ÕâÊǿؼþ¼¯ºÏ£¬°´Å¥ÊǿؼþÖеÄÒ»ÖÖ£¬ËùÒÔ°´Å¥ÊÇÕâ¸ö¼¯ºÏÖеÄÒ»Ô±¡£

For Each.¡­Next
ÓÃ;£ºÕë¶ÔÒ»¸öÊý×é»ò¼¯ºÏÖеÄÿ¸öÔªËØ£¬Öظ´Ö´ÐÐÒ»×éÓï¾ä¡£
Óï·¨£º
For Each ¼¯ºÏ³ÉÔ± IN ¼¯ºÏ
Óï¾ä1
Óï¾ä2
Óï¾äN
Next ¼¯ºÏ³ÉÔ±
»ù±¾¸ÅÄ֪µÀÁË£¬ÏÂÃ濪ʼ±àд´úÂ룬ҪÔÚ³ÌÐòÒ»´ò¿ª¾Íʹ°´Å¥±ä³É³¬¼¶Á´½Ó£¬¾ÍµÃÔÚ´°ÌåµÄ¼ÓÔØʼþÖÐд´úÂ룺

Private Sub Form_Load()
Dim ctlButt As Control ¶¨ÒåÒ»¸ö±äÁ¿ctlButt£¬ËüµÄÀàÐÍΪ¿Ø¼þ
DoCmd.Restore »Ö¸´´°Ìå´óС£¬ÕâÖ»ÊÇ¿ØÖÆ´°ÌåµÄÍâÐΣ¬¸úÊÖÐÎЧ¹ûÎÞ¹Ø
For Each ctlButt In Me.Controls ¿ªÊ¼Ñ­»·
If TypeOf ctlButt Is CommandButton Then Èç¹û±äÁ¿ctlButtµÄÀàÐÍÊÇÃüÁî°´Å¥
ctlButt.HyperlinkAddress = " " ±äÁ¿ctlButtµÄ³¬¼¶Á´½ÓµØÖ·µÈÓÚÒ»¸ö¿Õ¸ñ£¬Äã¿ÉÒÔÌîÈë±ðµÄÄÚÈÝ
End If ½áÊøifÓï¾ä
Next ctlButt ÏÂÒ»¸ö¿Ø¼þ
End Sub ½áÊø¹ý³Ì
×¢1£ºTypeOf±íʾÀàÐÍ£¬CommandButton±íʾÃüÁî°´Å¥
×¢2£ºctlButt.HyperlinkAddress = " " ÕâÀïµÄË«ÒýºÅÖÐÓÐÒ»¸ö¿Õ¸ñ£¬Èç¹ûû¿Õ¸ñ¾ÍÊÇ""

--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ