Microsoft Accessで、このようなフォームを作りました。


http://pub.idisk-just.com/fview/dkkFOUxcr5AjpuJO7iqaklfoSf7fd5MneYhkuC4FZTwkZmU0TLqk3SU4gYKNiLtR/MjIy.jpg

問題と回答があって、まあ簡単な暗記ツールなのですが、
回答の部分を一時的に非表示にする(ボタンを押したら表示される等)の機能の加えたいのですが、上手い方法を教えてください。

他のツール(Access以外)を使うことは考えていません。
今まではスクロールバーをいったりきたりしてやりくりしてました。

どうぞよろしくお願い致します。

回答の条件
  • 1人2回まで
  • 登録:2006/10/22 21:23:58
  • 終了:2006/10/29 21:26:02

回答(1件)

id:zifree No.1

zifree回答回数175ベストアンサー獲得回数62006/10/22 21:56:39

ポイント60pt

対象のテキストボックスの名前を「回答」とした場合の例です。

1) ビューを「デザイン ビュー」にして、回答のテキストボックスを右クリックし「プロパティ」を選択。

2) テキストボックスプロパティが開くので「書式」タブの「可視」を「いいえ」にします。

これで回答の部分が非表示になりますが、ボタンを押したら表示されるようにしましょう。

3) メニューの「表示(V)」→「ツールボックス」を選択。

4) 「コマンドボタン」を選択し、任意の場所をクリックするとボタンを置いた後に

「コマンド ボタン ウィザード」と言うウインドウが開きます。

6) 何もせず「キャンセル」をクリックし「コマンド ボタン ウィザード」を閉じます。

7) 4)で置いたボタンを選択し、プロパティの「イベント」タブの「クリック時」で

「[イベント プロシージャ]」を選択し、「...」と書いてあるボタンを押します。

8) 「ビルダの選択」で「コード ビルダ」を選択しOKを押します。

9) Microsoft Visual Basicが開きます。

Private Sub コマンド1_Click()と書いてある箇所

(コマンドの数字は他のボタンを置いた場合他の数字に変わります。)に

Private Sub コマンド1_Click()

回答.Visible = Not 回答.Visible

End Sub

と入力して下さい。(回答.Visible = Not 回答.Visible)の1行を付け加えて下さい

10) Microsoft Visual Basicを閉じ、ビューを「フォーム ビュー」にします。

11) ボタンをクリックするたびに、回答の表示・非表示が切り替わります。

レコードを移動した瞬間は回答を非表示にしたいのであれば、以下の手順でできます。

12) 再びデザイン ビューに戻り、デザインビューのウインドウのアイコンのすぐ下にある四角い部分を

クリックします。

13) フォームのプロパティから「イベント」タブの「レコード移動時」を選び、

7) 8)の要領でMicrosoft Visual Basicを開きます。

14) Private Sub Form_Current()と表示されている箇所に以下のように入力します。

Private Sub Form_Current()

回答.Visible = False

End Sub

id:perishable

ありがとう。ちょっと今できないので、熟読後、明日チャレンジしてみます!

2006/10/22 22:00:02

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません