みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

 初めて質問します。よろしくお願いします。
 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

投稿日時 - 2010-10-03 15:11:43

QNo.6224781

困ってます

質問者が選んだベストアンサー

はじめまして。

コードを拝見しましたが、内容的には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 ~」が実行されることが
 あり得なくなっている、と)

投稿日時 - 2010-10-03 23:38:23

お礼

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

投稿日時 - 2010-10-05 09:52:59

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

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

投稿日時 - 2010-10-03 23:50:06

あなたにオススメの質問