|
コードの一部を見せられて、その意味を問われても、
回答は難しいですね。
>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
上のコードとこのコードではやっていることがぜんぜん別のような
気がしますが。(このコード自体の目的も理解できません。)
以上、回答ではなく、感想です。
|
|