Access VBA質問箱 IV

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

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


1198 / 2272 ツリー ←次へ | 前へ→

【8299】途中でフォームをかます理由は にしもり 06/7/19(水) 15:27 質問[未読]
【8311】Re:途中でフォームをかます理由は hatena@元祖 06/7/19(水) 18:39 発言[未読]
【8314】Re:途中でフォームをかます理由は にしもり 06/7/20(木) 9:04 お礼[未読]

【8299】途中でフォームをかます理由は
質問  にしもり  - 06/7/19(水) 15:27 -

引用なし
パスワード
   こんにちは。
或るDBを再利用しようとトレースしています。
作者がもういないのでどなたか教えてください。
いま、F_ModProgramというフォームの中のflgAttachというコントロールにイベントが付いています。
その作者が作ったのは下記のようなコードです。

Private Sub flgAttach_Change()
  DoCmd.OpenForm "F_Categoryid"
     Forms!F_ModProgram!AttCategory = Forms!F_Categoryid!Category_Name
     Forms!F_Categoryid.RecordSource = "SELECT Category_Name from tbl_category where category_ID = " & [Forms]![F_ModProgram]![flgAttach] & ";"
  DoCmd.Close
End Sub

F_Categoryidという別のフォームをかましているようです。
思うに、次のようなコードで十分ではないでしょうか。

Private Sub flgAttach_Change()
     Forms!F_ModProgram!AttCategory = "SELECT Category_Name from tbl_category where category_ID = " & [Forms]![F_ModProgram]![flgAttach] & ";"
End Sub

このように途中でフォームをかますのには何か"特典"がありますでしょうか?

【8311】Re:途中でフォームをかます理由は
発言  hatena@元祖  - 06/7/19(水) 18:39 -

引用なし
パスワード
   コードの一部を見せられて、その意味を問われても、
回答は難しいですね。

>Private Sub flgAttach_Change()
>  DoCmd.OpenForm "F_Categoryid"
>     Forms!F_ModProgram!AttCategory = Forms!F_Categoryid!Category_Name
>     Forms!F_Categoryid.RecordSource = "SELECT Category_Name from tbl_category where category_ID = " & [Forms]![F_ModProgram]![flgAttach] & ";"
>  DoCmd.Close
>End Sub

これを見ての感想は、ずいぶん無駄なコード、無意味なコード
だなということですね。
このようなコードを書く人が作ったMDBを改造するより、
一から作り直してたほうが速いし、いいものになるだろうな、
と思います。

>Private Sub flgAttach_Change()
>     Forms!F_ModProgram!AttCategory = "SELECT Category_Name from tbl_category where category_ID = " & [Forms]![F_ModProgram]![flgAttach] & ";"
>End Sub

上のコードとこのコードではやっていることがぜんぜん別のような
気がしますが。(このコード自体の目的も理解できません。)

以上、回答ではなく、感想です。

【8314】Re:途中でフォームをかます理由は
お礼  にしもり  - 06/7/20(木) 9:04 -

引用なし
パスワード
   ▼hatena@元祖 さん:
>コードの一部を見せられて、その意味を問われても、
>回答は難しいですね。
そうですね。わたくしも期せずして他人のMDBを再利用することになったのですが、おっしゃるとおりだと思います。

>これを見ての感想は、ずいぶん無駄なコード、無意味なコード
>だなということですね。
>このようなコードを書く人が作ったMDBを改造するより、
>一から作り直してたほうが速いし、いいものになるだろうな、
>と思います。
無意味なコードではないかという感想を抱いたのが私だけでないことがわかり安心?しました。自力で解読してみます。

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

1198 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078214
(SS)C-BOARD v3.8 is Free