Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7516 / 9994

←次へ　｜　前へ→


	【5667】Re:フォーム上での表示のON/OFF

小僧 - 05/7/22(金) 14:44 -


	引用なし

	パスワード

▼ISA さん：
こんにちは。

※フィールド名に「No」のような名前をつけると「Yes/No」の「No」と
　間違えて誤作動する場合がありますので、名前を変えた方が無難だと思われます。
　当方が提示させて頂く回答は「SEQ」に変えてあります。

イメージの名前が「A」～「E」で固定であれば、

Private Sub Form_Load()

　　If DLookup("値", "テーブル名", "SEQ = 'A'") = 0 Then
　　　　Me.イメージA.Visible = False
　　Else
　　　　Me.イメージA.Visible = True
　　End If
　　
　　If DLookup("値", "テーブル名", "SEQ = 'B'") = 0 Then
　　・
　　・
End Sub

の様に繰り返し処理をすれば良いと思われます。
配列を使うと

Private Sub Form_Load()
Dim I As Long
　　For I = 65 To 69
　　　　If DLookup("値", "テーブル名", "SEQ = '" & Chr(I) & "'") = 0 Then
　　　　　　Me.Controls("イメージ" & Chr(I)).Visible = False
　　　　Else
　　　　　　Me.Controls("イメージ" & Chr(I)).Visible = True
　　　　End If
　　Next
End Sub

こんな感じになると思われます。

※エラーチェックの処理は特につけていません。

261 hits

▼

【5665】フォーム上での表示のON/OFF ISA 05/7/22(金) 12:02