トグルボタンのON/OFF

質問

seatテーブルがあり、座席番号フィールドがあります。
そのseatテーブルに座席番号が入力されたとき
トグルボタンをONにしたりテーブルからその座席番号が削除されたら、OFFにするといったことはできるんでしょうか？

たとえばA-1といった座席番号でトグルぼたんが、A-1とします。

また不可能であれば、現在使用中の座席を一覧で認識できる別の方法があれば教えていただきたいです。

よろしくお願いします。

回答No.4

ryuu001

＃2　の回答に対する補足　で　色を変える対応です。

Private Sub コマンド12_Click()
Dim Db As Database
Dim Rs As DAO.Recordset
Dim Tg As Control

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("seatテーブル")

'総ての　トグルボタンを　OFF　に設定
For Each Tg In Me.Controls
With Tg
If .ControlType = acToggleButton Then
.Value = False
'------------------ 文字を黒色にセット
.ForeColor = 0
End If
End With
Next

'seatテーブルに入力されている　座席番号　と
'同じ名前の　トグルボタンを　ON　にする
Rs.MoveFirst
Do Until Rs.EOF = True
Controls(Rs!座席番号) = True
'------------------ 文字を赤色にセット
Controls(Rs!座席番号).ForeColor = 255
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing

End Sub

補足

完璧にできました。
どうもありがとうございました。
それと今後もっと自分で勉強していきたいのですが、
AccessVBAのお勧めの本があったら教えていただけませんか？