Access VBA質問箱 IV

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

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


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

3195 / 9994

←次へ　｜　前へ→


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

あおぎん - 07/12/5(水) 13:59 -


	引用なし

	パスワード

▼小僧さん：

回答ありがとうございます。
コードがおかしくないとのことで、オプション値を確認したら・・・間違ってました＾＾；。
よーく確認して投稿したつもりですが、そそっかしくて申し訳ないです。
お騒がせしました。
そして、ありがとうございました。

>>Select Case Forms!F_コメント入力!フレーム33
>> Case 1
>>　　 DoCmd.GoToRecord , , acNewRec
>>　　 …
>> Case 2
>>　　 DoCmd.GoToRecord , , acNewRec
>>　　 …
>> Case 3
>>　　 DoCmd.GoToRecord , , acNewRec
>>　　 …
>> End Select
>
>せっかく Case 文を使われてるのですから、
>Case内で同じ処理をするのであれば外に出してしまった方が良さそうですね。

最初selectcaseとcase1の間に出したらエラーが出ましたが、位置を変えたらうまくいきました。（いまいちどこに書けばどこの範囲に影響するかわかってなくて・・。）
ありがとうございます。
>
>
>> DoCmd.OpenTable "T_コメント", acNormal, acEdit
>> DoCmd.Close acTable, "T_コメント"
>
>F_コメントリストが連結フォームだと思われるので、
>T_コメントを Open/Close しないでも大丈夫ですね。
>

以前使ったコードやサンプルをコピーして少し書き換えて・・というような感じでやってますので、無駄に記述していることが多いようです。ご指摘ありがとうございます。

>これは意見が分かれる所なのですが、正規化した方が良さそうですね。
>
>T_コメント区分マスタ
>コメント区分コード　コメント区分
>1　　　　　　　　　　指導　　　　　
>2　　　　　　　　　　再検査　　　　
>3　　　　　　　　　　治療　　　　　
>
>
> T_コメント
> コメント区分コード　コメント番号　コメント　
> 1　　　　　　　　　　　１　　　　　○○に注意しましょう。
> 1　　　　　　　　　　　２　　　　　○○を控えましょう
> 2　　　　　　　　　　　１　　　　　○○の検査を受けましょう
> 2　　　　　　　　　　　２　　　　　▲▲の検査を受けましょう
> 3　　　　　　　　　　　１　　　　　○○の治療が必要です。
> 3　　　　　　　　　　　２　　　　　▲の値について○○の治療を受けてください。
>
>
>の様にして、クエリで両テーブルを結合したものを
>フォームのレコードソースにする事をお勧めします。

参考にします。

本当にありがとうございました。

660 hits

▼

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