這要小心
由其你的編號超過100以上時會出現錯誤
譬如textbox401 ~textbox410 (連著號碼時常改name不方便,有時後都會跳很遠)
^ 有個0
while i < 11
如果我用Controls("Textbox40" & i) 最後會變成 textbox4010
在這種時後要放入text( 變數 ,"00") 就會顯示成01~10 而不是1~10
Controls("Textbox4" & text(i,"00"))
^已經讓變數自動出現0
最後就會變這樣啦
Do While i < 11
Set txt = Me.Controls("Textbox4" & text(i,"00"))
If txt.Text = "" Then
txt.Visible = False
elseIf txt.Text <> "" Then
txt.Visible = true
end if
i = i + 1
Loop
這樣也可以試試0,0
因為最近再查如何跨表單 控制不同的控制項 突然考古考到
順便補充一下
令外請問有沒有簡單的方式可以跨表單控制不同控制項0,0
a表單控制項去影響b表單控制項 這樣
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: ※ 引述《zybaster (小賽)》之銘言：
: : 請問一下,
: : 如果想以do loop來一次控置相似名稱之物件的屬性
: : ex.有text1 text2...text10
: : 如果其中之一的isnull屬性為ture,使對應的visible屬性為false
: : 有辦法用迴圈來一次運算嘛?
: i = 0
: Do While i < 10
: Set txt = Me.Controls("Text" & i)
: If txt.Text = "" Then txt.Visible = False
: i = i + 1
: Loop