Ｐａｇｅ 7 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼演算子がありません 素人 02/8/28(水) 19:33 ┗Re:演算子がありません イケガミ 02/8/28(水) 20:52 ┗Re:演算子がありません 素人 02/8/29(木) 10:12 ─────────────────────────────────────── ■題名 ： 演算子がありません ■名前 ： 素人 ■日付 ： 02/8/28(水) 19:33 -------------------------------------------------------------------------
| みなさま、こんばんわ。 非常に初歩的な質問ですが是非教えて下さい。 あるテ−ブルを開いて、あるフィールドにある文字を含むレコ−ドを抽出するコ−ドを作成しましたが”演算子がありません”というメッセ−ジがでてしまいました。 よろしくお願いします。 Function テ_ブルを開く_テーブルを開く() On Error GoTo テ_ブルを開く_テーブルを開く_Err DoCmd.OpenTable "Parameters New ", acNormal, acEdit DoCmd.ApplyFilter , "Short text =' *administrator*" ' テ_ブルを開く_テーブルを開く_Exit: Exit Function テ_ブルを開く_テーブルを開く_Err: MsgBox Error$ Resume テ_ブルを開く_テーブルを開く_Exit |
| > ”演算子がありません”というメッセ−ジがでてしまいました。 > DoCmd.OpenTable "Parameters New ", acNormal, acEdit ~~~~~~~~~~~~~~~~~~ テーブル名に空白がありますので、[]で囲ってください。 > DoCmd.ApplyFilter , "Short text =' *administrator*" ' ~~~~~~~~~~~~同じく と、文字列のあいまい検索は、"=" ではなく、"Like" を使ってください。 以下、修正版です。TableName,FieldName は、そちらの環境にあわせてください。 ------------------------------------------------------------- Function テーブルを開く_テーブルを開く() On Error GoTo テーブルを開く_テーブルを開く_Err DoCmd.OpenTable "[TableName]", acNormal, acEdit DoCmd.ApplyFilter , "[FieldName] Like '*文字列*'" テーブルを開く_テーブルを開く_Exit: Exit Function テーブルを開く_テーブルを開く_Err: MsgBox Error$ Resume テーブルを開く_テーブルを開く_Exit End Function ------------------------------------------------------------- あと、余計なことかもしれませんが、Acc2000では関数名に日本語を使うと エラーになることがありますので、半角英数にした方がいいです。 |
| イケガミさん、ありがとうございました。 うまくいきました。 |