プロが教えるわが家の防犯対策術!

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

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

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

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

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

A 回答 (2件)

こんにちは。

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関数の詳細は、ヘルプなどを参照して下さい。
    • good
    • 0
この回答へのお礼

出来ました!
ありがとうございます~^^

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

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


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

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

ボタン名は 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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A