標題: [發問] 如何預留空間給欄位? 判斷CheckBox=True [打印本頁]

---

作者: av8d    時間: 2012-8-15 22:38     標題: 如何預留空間給欄位? 判斷CheckBox=True

For  i = 1 To  100
If Me.Controls("CheckBox" & i).Value = True

目前我有CheckBox1~CheckBox50
如果我想預留CheckBox50~100
所以當判斷上列程式~會出現錯誤~
我該如何避開這個錯誤!?

---

作者: GBKEE    時間: 2012-8-16 06:55

回復 1# av8d
如果我想預留CheckBox50~100  請說清楚
檢查 所有控制項的名稱 含有 "CheckBox" 字串 及值= True

1. Private Sub Ex()
   
2.     Dim i As Integer
   
3.     For i = 0 To Controls.Count - 1
   
4.         If InStr(Controls(i).Name, "CheckBox") > 0 And Controls(i) = True Then
   
5.          MsgBox Controls(i).Value
   
6.         End If
   
7.     Next
   
8. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)