質問: false end if end sub
回答: [イミディエイト] ? null<>"" null ? cbool(len(null & "")) false このイミディエイトウインドウでのテスト結果が全てです。 つまり、空欄を""と比較しても真とか偽とかの値ではなく null という判定になります。 この不具合を回避するには len関数で長さを測ればいいです。 private sub form_current() if me.newrecord then 受付番号 = "" end if 受付番号_afterupdate end sub private sub 受付番号_afterupdate() dim islocked as boolean islocked = len(me.受付番号 & "") me.件名.enabled = not islocked me.件名.locked = islocked end sub これですと、各レコードがカレントになる都度に<受付番号_afterupdate>がコールされます。 <受付番号_afterupdate>では、[受付番号]の長さが0ならば<偽>、そうでなければ<真>と。 これは、<真>と<偽>の約束事です。 [イミディエイト] ? cbool(0) false ? cbool(1) true