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

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

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

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

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

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

No.1 ベストアンサー 回答者： maruru01 回答日時： 2003/01/24 18:21

こんにちは。

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関数の詳細は、ヘルプなどを参照して下さい。

この回答へのお礼

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

お礼日時：2003/01/28 19:33

No.2 回答者： ryuu001 回答日時： 2003/01/24 23:15

コントロールを使うとボタンの数が増えたときでも

プログラムの変更は不要です。

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

ボタン名は　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

この回答へのお礼

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

お礼日時：2003/01/28 19:33