Access VBA質問箱 IV

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

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


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

8007 / 9994

←次へ　｜　前へ→


	【5168】Re:フォーム作成

バリュー - 05/5/31(火) 11:09 -


	引用なし

	パスワード

▼小僧さん：
こんにちは。
返信誠にありがとうございます。

>>確認なのですが、
>>「それ以外のテキストボックス」とは
>>「テキストボックスのプロパティのコントロールソース名」
>>という意味でよかったですよね？
>説明不足で申し訳ないです。上記の意味で大丈夫です。

ありがとうございます。
拙い質問の為に気を煩わせてしまい申し訳ないです。。

>>現在は３件、レコードがＤＢに格納されている状況なのですが、
>>もう何件かレコード入力した方がよいでしょうか？
>３件でも問題ありません。
>フォームの下の方にあるレコードセレクタに
>「レコード |<　<　　　1　　>　 >|　 >*　/ 3」
>みたいな感じになってれば大丈夫です。

ありがとうございます。
安心しました。

>他に思い当たるものとして…
>>修正しました。
>>コンボ名を「対策所ID」にしました。
>コンボボックス名を変更した事により、更新後処理のコードが変わるはずなので
>もう一度コンボボックスの更新後処理のビルダの中身をチェックしてみてください。

Private Sub 対策所ID_AfterUpdate()
　 Me.Filter = "対策書ID = " & Me.対策所ID
　 Me.FilterOn = True
End Sub

上記に修正し、できました！
ご指摘の通り、「書」を「所」に修正しＲＥＲＵＮしたところ上手くいきました。

ところで、すみません。
もう少し欲張って質問してもよいですか？

期間（例えば、2005/04/01～2005/05/31）を入力して、
その期間内の該当するレコードを
抽出（おそらく複数件抽出されると思われます）後、
抽出したレコードの中の一項目をコンボボックスにして、
コンボボックス内のいくつかの項目ごとの値を表示させて選択、入力後、
そのレコード内の他の項目を修正する。
という動きを一画面でさせたい場合、
どうしたらよいでしょうか？

433 hits

▼

【5135】フォーム作成 バリュー 05/5/27(金) 11:12