Microsoft Access 「Form」のボタンの標題を別テーブルから…

質問

Accessでフォームのボタンの標題を別テーブルから取ってくるようにしたいのですが、どうしたらよいでしょうか？

別テーブル
ID / Name
1 / ai
2 / bo
3 / cun

フォーム上のボタン
button1 標題「ai」
button2 標題「bo」
button3 標題「cun」

みたいな感じにしたいのですが。。

ちなみに、Accessのバージョンは2000です。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

テーブルからデータを取得するのは、DLookup関数を使用します。コマンドボタンの標題はCaptionプロパティに値を設定します。
したがって、フォームの読み込み時イベントなどに、
（テーブルのIDフィールドのデータ型は数値型とします。）

Private Sub Form_Load()

　　Me!button1.Caption = DLookup("Name", "テーブル名", "ID = 1")
　　Me!button2.Caption = DLookup("Name", "テーブル名", "ID = 2")
　　Me!button3.Caption = DLookup("Name", "テーブル名", "ID = 3")

End Sub

DLookup関数の詳細は、ヘルプなどを参照して下さい。

お礼

出来ました！
ありがとうございます～＾＾

回答No.2

ryuu001

コントロールを使うとボタンの数が増えたときでも
プログラムの変更は不要です。

次のプログラムは　
ファイルオープン時のイベントで設定しました。

ボタン名は　button1、button2、button3　
　　　　　　～　button11、button12　・・・と
　設定してあるとします。　

テーブル名は　”別テーブル”としました。
フィールド　”id”の値は
　ボタン名の数字部分と同じにします。

Private Sub Form_Open(Cancel As Integer)
Dim cmdbutton As Control

For Each cmdbutton In Me.Controls
With cmdbutton
If .ControlType = acCommandButton Then
.Caption = DLookup("name", "別テーブル", "id=" & Mid(.Name, 7))
End If
End With
Next

End Sub

お礼

ちょっと、うちの環境？でエラーとか出て、
再現が出来なかったのですが、
面白そうですね！
今度、再挑戦してみます～ありがとうございました！