| |
結構しっかりしたコードですね。
メインフォームからサブフォームを参照することとか、
DCountやDLookupなどＤ系関数の第３引数の書き方などは、
しばしば間違えやすいのですが、しっかりできているところがあります。
でも、いくつかおかしな点もありますね。
第１に、あちこちでActiveControlプロパティが使われていますが、
「Me.ActiveControl」ではエラーになります。
このコードは、ActiveControlプロパティをフォームオブジェクトに対して
適用しているわけですが、
ActiveControlプロパティは、Screenオブジェクトに対してしか使えません。
したがって、この行でエラーです。
また、ActiveControlとは、
その時点でアクティヴなウィンドウにおける、フォーカスがあるコントロール
という意味です。
例えば、ＡフォームとＢフォームが開かれており、
当初はＡフォームのａテキストボックスにフォーカスがあったところ、
フォーカスをＢフォームのｂテキストボックスに移したとします。
この場合のActiveControlはｂテキストボックスです。
この状態で、Ａフォームをアクティヴにすると、
ａテキストボックスにフォーカスが移るわけですが、
だからといって、Ｂフォームがアクティヴな状況下において、
「ＡフォームのActiveControlはａテキストボックスだ」とは言えません。
あくまでもActiveControlはｂテキストボックスです。
さらに、ActiveControlが何であるかということはかなり微妙です。
例えば、ａテキストボックスにフォーカスがある状態で、
抽出を実行するコマンドボタンをクリックしたとします。
この場合、コマンドボタンをクリックすることにより
フォーカスは当該コマンドボタンに移ります。
したがって、コマンドボタンのクリック時において、
ActiveControlは当該コマンドボタンとなります。
コマンドボタンのクリックイベントにおいて、
ActiveControlはａコントロールであるという思い込みの下で
コードを書いていたりすると、コードは意図どおりに動いてくれません。
加えて、デバッグに当たり、コードをステップ実行させると、
ActiveControlでエラーになります。
これは、コードをステップ実行させているときは、
ＶＢＥのウィンドウがアクティヴウィンドウになっているためです。
また、ステップ実行中にマウスカーソルをコード中のActiveControl
という文字の上に持って行っても、
ActiveControlの値は表示されず（ActiveControlプロパティの値はControl型であるため）、
どのコントロールがActiveControlなのかがすぐにはわかりません。
なので、ActiveControlを使うと、デバッグがやりにくいです。
その上、提示のコードにおいてはActiveControlプロパティを使うべき必然性が
ないように思います。
微妙な取扱いが必要とされるActiveControlプロパティを使わなくても、
コードが書けると思います
第２に、SetFilter関数における
> With Me.ActiveControl
> stCri = .Name & " LIKE '" & .Value & "*'"
> End With
です。
ここではFilterプロパティに設定する条件式を作っているわけですが、
Filterプロパティに設定する条件式の基本形は、「フィールド名 = 値」です。
上記のコードだと、「コントロール名 = 値」という形になってしまうので、
エラーになる可能性があります。
もっとも、フォームをウィザードで作ると、フィールド名とコントロール名が同じ名前になりますから、そうなっていれば、エラーにはなりません。
ただ、フィールド名とコントロール名が同じ名前だと、取り違えやすいので、
通常は、フィールド名とコントロール名は別の名前にします。
第３に、
> MyCount(1) = DCount("*", "X0001GL勘定", Me.ActiveControl.Name & " LIKE '" & Me.ActiveControl.Value & "*'")
です。
これはだめですね。
まず、DCount関数の第２引数には、テーブル名又はクエリ名を指定します。
「X0001GL勘定」は、サブフォーム・コントロール名ですから、この行でエラーです。
ほかにも、Ｄ系関数の第２引数にサブフォーム・コントロール名を指定したものがありましたが、
同様にエラーとなります。
次に、第３引数ですが、第３引数の基本形は「フィールド名 = 値」です。
上記コードだと「コントロール名 = 値」という形になってしまうので、エラーになる可能性があります。
第４に、ラベル情報サブプロシージャの
> Me.txtR3番号.Value = DLookup("[R/3ｺｰﾄﾞ]", "X0001GL勘定", [Forms]![MainGL勘定Pr]![小区分名称])
です。
まず、第２引数にサブフォーム・コントロール名を指定していることについては
既に指摘したとおりです。
次に、第１引数です。
フィールド名には、記号は使えません。例外は、アンダーバー（_）だけです。
だから、フィールド名に「/」を使っていること自体でエラーになります。
使ってはいけない文字をオブジェクト名に使った場合のエラーは、
エラーメッセージを見ても、エラーの原因を推測できず、原因探求に苦労します。
さらに、第３引数ですが、条件式になっていませんね。
第５に、これはコードの問題ではないのですが、
フォーム構成がよくわかりません。
メインフォームが少なくとも２つ、
サブフォームコントロールが少なくとも２つ出てくるようですが、
それらがどういう機能を持つものなのかピンときません。
また、提示されたコードがどのフォームに書かれているのかもわかりません。
|
|
かるびの
- 15/5/28(木) 2:00 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
