Access講座
網站公告
·Access快速平臺QQ群號:156702533    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > 源碼示例

【Access源碼示例】讓所有按鈕不可用代碼示例

時 間:2016-01-18 16:13:15
作 者:杜超   ID:16058  城市:江陰
摘 要:通過循環控件來實現Access所有按鈕不可用代碼示例。
正 文:

點擊下載此附件


演   示:


源   碼

Private Sub Check1_AfterUpdate()
    Dim ctl As Control
    If Me.Check1 = -1 Then    '若復選框選中
        For Each ctl In Me.Controls
            If ctl.ControlType = acCommandButton Then   '判斷控件是否為按鈕
                ctl.Enabled = False      '控件可用
            End If
        Next
    Else
        For Each ctl In Me.Controls
            If ctl.ControlType = acCommandButton Then
                ctl.Enabled = True
            End If
        Next

    End If
End Sub



Access軟件網官方交流QQ群 (群號:198348076)       access源碼網店

最新評論 查看更多評論(3)

2020/1/14 13:54:45倪敏琦
如何鎖住文本框,列表框和組合框

2016/4/16 1:33:35Seven
支持

2016/1/19 19:11:48AngelHis
For Each ctl In Me.Controls
   If ctl.ControlType = acCommandButton Then   '判斷控件是否為按鈕
           If Me.Check1 = -1 Then    '若復選框選中
                ctl.Enabled = False      '控件不可用
            else
                ctl.Enabled = True
            End If
   End If
Next

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助