Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1635 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6191】コンボボックスで。。。 you 05/9/7(水) 10:31 質問[未読]
【6196】Re:コンボボックスで。。。 小僧 05/9/7(水) 13:07 発言[未読]
【6198】Re:コンボボックスで。。。 you 05/9/7(水) 13:31 質問[未読]
【6200】Re:コンボボックスで。。。 小僧 05/9/7(水) 13:58 発言[未読]
【6201】Re:コンボボックスで。。。 you 05/9/7(水) 14:04 質問[未読]
【6204】Re:コンボボックスで。。。 小僧 05/9/7(水) 14:28 回答[未読]
【6209】Re:コンボボックスで。。。 you 05/9/7(水) 15:26 質問[未読]
【6211】Re:コンボボックスで。。。 小僧 05/9/7(水) 15:34 発言[未読]
【6213】Re:コンボボックスで。。。 you 05/9/7(水) 15:53 質問[未読]
【6214】Re:コンボボックスで。。。 you 05/9/7(水) 15:59 お礼[未読]
【6191】コンボボックスで。。。
質問  you  - 05/9/7(水) 10:31 -
引用なし
パスワード
   おはようございます。

初めまして，質問させて頂きます。
まだ初心者なので基本的な質問かもしれませんが
よろしくお願いします。

では早速ですが
コンボボックスでいくつかの選択肢を作り
フォームで選択してテーブルにレコードする
と言った所までは作ったのですが，
更にコンボボックスで選択時に選択肢に
対応した値の両方を
同じテーブルの別フィールドに自動的に
レコードできるようにしたいのですが。。。

例えば
　　　コンボボックス選択肢（行事）　対応した値（場所）

　　　　　 ハイキング　　　　　　→　　　 山
　　　　　　 海水浴　　　　　　　→　　　 海
　　　　　　 鮎釣り　　　　　　　→　　　 川

この両方の値を同じテーブルで別フィールドで

　　　　　　 行　事　　　　　　　　　場　所

　　　　　 ハイキング　　　　　　　　　山
　　　　　　 海水浴　　　　　　　　　　海
　　　　　　 鮎釣り　　　　　　　　　　川

このようにしたいのですが。

何卒よろしくお願いします。
【6196】Re:コンボボックスで。。。
発言  小僧  - 05/9/7(水) 13:07 -
引用なし
パスワード
   ▼you さん：
こんにちは。

>同じテーブルの別フィールドに自動的に
>レコードできるようにしたいのですが。。。

you さんが作られたフォームが連結フォームなのか、
非連結フォームなのかによっても動作が違ってしまいますので、


>フォームで選択してテーブルにレコードする
>と言った所までは作ったのですが，

ここの動作をどのように作られたかをご提示して頂けますか？
【6198】Re:コンボボックスで。。。
質問  you  - 05/9/7(水) 13:31 -
引用なし
パスワード
   ▼小僧 さん：

>you さんが作られたフォームが連結フォームなのか、
>非連結フォームなのかによっても動作が違ってしまいますので、

連結フォームで作ったつもりなんですが・・・
実はよくわかってないんです。。。
すみません

>>フォームで選択してテーブルにレコードする
>>と言った所までは作ったのですが，
>
>ここの動作をどのように作られたかをご提示して頂けますか？

フォームのテキストボックスのコントロールソースをテーブルの
フィールド名にして作ったのですが・・・
【6200】Re:コンボボックスで。。。
発言  小僧  - 05/9/7(水) 13:58 -
引用なし
パスワード
   ▼you さん：
こんにちは。

>フォームのテキストボックスのコントロールソースをテーブルの
>フィールド名にして作ったのですが・・・

すみません、当方にはまだ you さんのやりたい事が解らないのですが、

例えば…

適当なテキストボックスを作って、コントロールソースを「行事」にし、
そのテキストボックスの可視を「いいえ」にする。

コンボボックスで選ぶと見えないテキストボックスに対して値が入るような
仕組みでいいのでしょうか？
【6201】Re:コンボボックスで。。。
質問  you  - 05/9/7(水) 14:04 -
引用なし
パスワード
   ▼小僧 さん：

>コンボボックスで選ぶと見えないテキストボックスに対して値が入るような
>仕組みでいいのでしょうか？

はい。そのテキストボックスは複数の『場所』を
コンボボックスで選んだものによって変えられるんでしょうか？

説明不足でご迷惑をお掛けしております。
【6204】Re:コンボボックスで。。。
回答  小僧  - 05/9/7(水) 14:28 -
引用なし
パスワード
   ▼you さん：
こんにちは。

ここは VBA 質問箱なので、VBA で処理してみましょう。

・新規フォームを作成。(デザインビューで)

・コンボボックス　　:cmb行事
・テキストボックス　:txt場所
・テキストボックス　:txt行事

　を配置。

・フォームの [レコードソース] に基になるテーブル名を選択。

・txt行事 と txt場所の [コントロールソース] にそれぞれ [行事] [場所] を選ぶ。

・cmb行事 の[値集合タイプ] を [値リスト] に、
　　　　　　 　[値集合ソース」を「ハイキング;海水浴;鮎釣り」と記述。


ここまで用意できましたら、

・cmb行事 の [更新後処理] の右側にある「...」をクリックしてコードビルダを選択。

・出現した画面に以下のコードを記述して閉じる。

Private Sub cmb行事_AfterUpdate()
　　Me.txt行事.Value = Me.cmb行事.Value
　　
　　Select Case Me.cmb行事.Value
　　　　　　
　　　　Case "ハイキング"
　　　　　　Me.txt場所 = "山"
　　　　Case "海水浴"
　　　　　　Me.txt場所 = "海"
　　　　Case "鮎釣り"
　　　　　　Me.txt場所 = "川"
　　End Select
End Sub

コンボボックスの値に応じてテキストボックスの値が変化し、
フォームを閉じるとテーブルの値が変化していると思われますがいかがでしょうか。
【6209】Re:コンボボックスで。。。
質問  you  - 05/9/7(水) 15:26 -
引用なし
パスワード
   出来ないです〜〜〜涙

テキストボックスの場所に何もはいらないんです。

cmb行事のコントロールソースはどうしたらいいんでしょうか？

更にテーブルの場所フィールドにも何も入力がないんですが。。。

飲み込みがわるくてすみませんです。
【6211】Re:コンボボックスで。。。
発言  小僧  - 05/9/7(水) 15:34 -
引用なし
パスワード
   ▼you さん：
こんにちは。

>飲み込みがわるくてすみませんです。

いえいえ。頑張っていきましょう。

まずはありがちなミスの点検から…。

txt行事
txt場所
cmb行事

それぞれ一緒についてくるラベルでなく、それぞれのコントロール名を
変えていますでしょうか？(「テキスト0」とかいませんか？)

もう一点…

>Private Sub cmb行事_AfterUpdate()

の下に

MsgBox "ここまでおっけー"

を追加して、コンボボックスの値を変えるとメッセージが表示されるかを確認してみて下さい。
【6213】Re:コンボボックスで。。。
質問  you  - 05/9/7(水) 15:53 -
引用なし
パスワード
   名前は変えていますよ。

あとここまでおっけ〜をいれたんですが
やはり場所に何も表示されません。。。
【6214】Re:コンボボックスで。。。
お礼  you  - 05/9/7(水) 15:59 -
引用なし
パスワード
   出来の悪い者に付き合っていただきありがとうございました。
今日は勤務時間が終ってしまいました。
大変申し訳ないんですが，今日はおしまいにしてもらえますか。
本当に勝手ですみません。

もし明日以降よろしければ教えて下さい。

本当に申し訳ありません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1635 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080766
(SS)C-BOARD v3.8 is Free