初めて質問します。よろしくお願いします。

質問

初めて質問します。よろしくお願いします。
　Access2003で動作していた「変更時イベントプロシージャ」がAccess2007では動作しません。どのようにしたらよいでしょうか。

　以下のように記述しています。

Private Sub TXT検索_Change()
On Error GoTo TXT検索_Change_Err
DoCmd.OpenForm "F_検索", acNormal, "", "[タイトル] like""*"" & [Forms]![F_検索]![TXT検索]& ""*""", , acNormal
TXT検索_Change_Exit:
Exit Sub
Resume TXT検索_Change_Exit
TXT検索_Change_Err:
MsgBox Error$
End Sub

回答No.1

DexMachina · ベストアンサー

はじめまして。

コードを拝見しましたが、内容的にはAccess2007で動作しなくなるような点は
見当たりませんでした。

それ以外の可能性として考えられるのは、(ある意味マクロありのExcel2003と
同様に)「マクロが無効化」されている、ということです。
(Access2007から、一部のVBAコマンドなどを無効にした状態で開けるように
　なりました)

下記Q&AのNo.3の添付画像と同じメッセージとボタンが表示されていないか、
念のため確認してみて下さい：
http://okwave.jp/qa/q5264187.html

なお、現状では動作に支障がないので蛇足になりますが(汗)、厳密に言うと、
下から4行目の
　　Resume TXT検索_Change_Exit
は、実際には下から2行目の
　　MsgBox Error$
の後に入るのが正しいかと思います。
(直前に「Exit Sub」があるので、この「Resume ～」が実行されることが
　あり得なくなっている、と)

お礼

昨日は会社が休みでパソコンが使えずお礼が書けませんでした。すみません。
　DexMachina様ご回答のリンク先へ行き，
　　http://oshiete.goo.ne.jp/qa/5264187.html
　そこからbanaron様ご指摘の
　　http://support.microsoft.com/kb/941800/ja
をも参照した結果，検索文の後に再クエリを挿入して解決することができました。
　結局「Access 2007 のフォームでフィルタを実行する場合、抽出結果にフィルタが反映されない」場合という「マイクロソフト製品の問題として認識」しているということに該当しました。
　なお　Resume TXT検索_Change_Exit　の位置はご指摘の通りです。
　重ね重ねありがとうございました。
　またnicotinism様のご回答も別の場面で役に立ちます。
　皆様方本当にありがとうございました。

回答No.2

nicotinism

これかな？
Access ワイルドカード文字リファレンス
http://office.microsoft.com/ja-jp/access-help/HA010076601.aspx

ワイルドカードを、* → %
または、ANSI-89 設定。