Access VBA質問箱 IV

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

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


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

3197 / 9994

←次へ　｜　前へ→


	【10059】Re:うまく値を取得できないのですが・・。

小僧 - 07/12/5(水) 11:43 -


	引用なし

	パスワード

▼あおぎんさん：
こんにちは。

当方の環境(WinXP SP2、Access2003 SP3)ですと
[F_コメント入力] 上に非連結のフレームを作り、
[F_コメントリスト] 上のコマンドボタンをクリックすると
期待通りの値が得られましたよ。

やりたい事はコード的には間違っていないかと思われますので
何かちょっとした所が問題になってそうですね。
(VBWASURETA さんご指摘のオプション値が 0、1、2 になっていないか等)

>Select Case Forms!F_コメント入力!フレーム33
> Case 1
>　　 DoCmd.GoToRecord , , acNewRec
>　　 …
> Case 2
>　　 DoCmd.GoToRecord , , acNewRec
>　　 …
> Case 3
>　　 DoCmd.GoToRecord , , acNewRec
>　　 …
> End Select

せっかく Case 文を使われてるのですから、
Case内で同じ処理をするのであれば外に出してしまった方が良さそうですね。

> DoCmd.OpenTable "T_コメント", acNormal, acEdit
> DoCmd.Close acTable, "T_コメント"

F_コメントリストが連結フォームだと思われるので、
T_コメントを Open/Close しないでも大丈夫ですね。

> T_コメント
> コメント区分コード　コメント区分　コメント番号　コメント　
> 1　　　　　　　　　　指導　　　　　１　　　　　○○に注意しましょう。
> 1　　　　　　　　　　指導　　　　　２　　　　　○○を控えましょう
> 2　　　　　　　　　　再検査　　　　１　　　　　○○の検査を受けましょう
> 2　　　　　　　　　　再検査　　　　２　　　　　▲▲の検査を受けましょう
> 3　　　　　　　　　　治療　　　　　１　　　　　○○の治療が必要です。
> 3　　　　　　　　　　治療　　　　　２　　　　　▲の値について○○の治療を受けてください。

これは意見が分かれる所なのですが、正規化した方が良さそうですね。

T_コメント区分マスタ
コメント区分コード　コメント区分
1　　　　　　　　　　指導　　　　　
2　　　　　　　　　　再検査　　　　
3　　　　　　　　　　治療　　　　　

T_コメント
コメント区分コード　コメント番号　コメント　
1　　　　　　　　　　　１　　　　　○○に注意しましょう。
1　　　　　　　　　　　２　　　　　○○を控えましょう
2　　　　　　　　　　　１　　　　　○○の検査を受けましょう
2　　　　　　　　　　　２　　　　　▲▲の検査を受けましょう
3　　　　　　　　　　　１　　　　　○○の治療が必要です。
3　　　　　　　　　　　２　　　　　▲の値について○○の治療を受けてください。

の様にして、クエリで両テーブルを結合したものを
フォームのレコードソースにする事をお勧めします。

642 hits

▼

【10056】うまく値を取得できないのですが・・。 あおぎん 07/12/5(水) 9:54