フォームのテキストボックス→クリックしたら"○"が表示。

質問

アクセスのフォームにて、テキストボックスを用意し、
そのテキストボックスをクリックしたら、そのテキストボックスに
自動的に○が表示されるようにできるのでしょうか？？

また、それをテーブルのフィールドに反映させるには連結させておけばいいのですよね？？

アクセス暦数時間です。。
すみませんが、力を貸してください。

回答No.3

imogasi · ベストアンサー

#1のご回答で玄人には正解なんですが、
「アクセス暦数時間」と言うことなので、いきなりＶＢＡ
では、分かり難いと思うので。学習の筋道に沿って説明すると
（１）問題のフィールドのデータをストリングにしておく。（フイールド名を仮に「応諾」とする）。
　　○が文字扱いなので。本来その項目内容が数値項目 なら苦しい。
（２）フォーム－新規作成
（３）フォームウイザード
（４）基になるテーブル選択－テーブルを選択する－ＯＫ
（５）選択可能なフィールド－　＞＞　－　次ぎへ
（６）単票形式－次ぎへ
（７）標準－次ぎへ
（８）完了
（９）フォーム上で右クリック
（１０）フォームデザイン
（１１）問題の項目 「応諾」をクリック
（１２）プロパティをクリック
（１３）イベント・タブをクリック
（１４）「クリック時」の行をクリック
（１５）表の右欄外「・・・」をクリック
（１６）コードビルダをダブルクリック
（１７）Private Sub 応諾_Click()

End Subが出る。
（１８）真中の空き行に
　　　　応諾.text="○"
　　　　と入れる。
　　　　右上ボタンＸをクリックして閉じる。
（１９）右上ボタンＸをクリックして閉じる。
（２０）フォームの変更を保存しますか－はい
以下略

お礼

ご回答ありがとうござました。
とても、参考になり、見事できました。。
ほんとうにありがとうございます。

回答No.2

s-eight

No.1の方の答えで、十分かとは思いますが。
テーブルを１つ用意してください。
フィールドは、テキストが入るところがひとつあればよいです。
テーブル名を「テスト」、フィールドを「テキスト」としときましょうか。
フォーム作成画面で、新規フォームを作ります。
フォームのプロパティを開き、データのコントロールソースに、「テスト」テーブルを指定します。
表示メニューから、フィールドリストを表示させ、「テキスト」をドラッグアンドドロップしてフォーム上に落として配置します。
これで、「テスト」テーブルの「テキスト」フィールドと連結されたテキストボックスがフォーム上に作成されました。
あとは、No.1の方が言われるように、コードを書くか、新規マクロを作成し、アクション名を「値の代入」、アイテムを「テキスト」、式を「"○"」として、
フォーム中のテキストのプロパティで、イベントの「クリック時」に、さっきのマクロを指定すれば、同じようになります。

お礼

ご回答ありがとうござました。
とても、参考になり、見事できました。。
ほんとうにありがとうございます。

回答No.1

MovingWalk

>そのテキストボックスをクリックしたら

テキストボックスの「クリック時のイベント」をイベントプロシージャにして
Private Sub テキスト1_Click()
Me.テキスト1.Text = "○"
End Sub
のように書けばいいかと思います。

>それをテーブルのフィールドに反映させるには連結させて

自分でやってみればわかると思います。

お礼

ご回答ありがとうござました。
とても、参考になり、見事できました。。
ほんとうにありがとうございます。