ACCESS _確認按鈕_的屬性

Question

1:在表單設了9個按鈕
1.1:如果當其中的按鈕屬性=True 時.則該按鈕 是紅色加底線的字.
1.2:如果當其中的按鈕屬性=False 時.則該按鈕 是黑色不加底線的字.
2:要每按一次按鈕就直接反應上述 1.1 與1.2 的設計需求.
2.1:不是要在每個按鈕的ON_click 獨立敘述.
2.2:也不是要另外設計一個按鈕來操作整個程序.
下列敘述不知要如何更新或在那一個程序.才能完成
For TT = 1 To 9
If Me.Controls("Toggle" & TT) = True Then
Me.Controls("Toggle" & TT).ForeColor = RGB(250, 0, 0): Me.Controls("Toggle" & TT).FontUnderline = True
Else: Me.Controls("Toggle" & TT).ForeColor = RGB(0, 0, 0): Me.Controls("Toggle" & TT).FontUnderline = False
End If
Next
以上.請各位高手/先進指導

JAMES:
你好!謝謝答覆!
form的on current事件我已經有試過.是無法完成.

牛仔褲專家您好:
剛剛依據您的建議.作了修改.
但每次作按動按鈕的動作.按鈕的字還是沒有變化.
要每按一次按鈕____按鈕的字就直接反應

Answer 1

on current事件可以完成您的程式碼要多設定一變數    v = "Toggle" & TT再以v取代原來的"Toggle" & TT,如:    Me.Controls(v).ForeColor = RGB(250, 0, 0)

2006-11-27 19:47:55 補充：
要每按一次按鈕____按鈕的字就直接反應不是要在每個按鈕的ON_click 獨立敘述上述二項要求互相衝突若要每按一次就變化,就需分別設定每個按鈕的ON_click 事件.可另設定一共用程式,以呼叫副程式執行.

2006-11-27 19:52:44 補充：
Dim v As StringPrivate Sub Toggle1_Click()v = "Toggle1":Call togtest(v)End SubPrivate Sub Toggle2_Click()v = "Toggle2":Call togtest(v)End SubSub togtest(nm As String)If Me.Controls(nm) = True Then...Else...End If...End Sub

Answer 2

放在form的on current事件裡就行了