Private Sub Form_ApplyFilter
If ApplyType = acShowAllRecords Then
フィルタオプション = 1
ElseIf Filter <> “都道府県 = ‘東京都’” Then
フィルタオプション = Null
End if
End Sub

アクセスVBAの次の2行について教えてください。
よろしくお願いします。

ApplyType = acShowAllRecords
ElseIf Filter <> “都道府県 = ‘東京都’” Then

このQ&Aに関連する最新のQ&A

A 回答 (1件)

フィルタ実行時のイベントだと思いますが、



>ApplyType = acShowAllRecords
フィルタが全レコードの表示の時

>ElseIf Filter <> “都道府県 = ‘東京都’” Then
前記の条件以外で、フィルタが「都道府県 = "東京都"」出ないならば・・・

とでも言うのでしょうか・・・無理やり日本語に直すとすれば・・・(^ ^;
詳しくはHelpの「ApplyFilter イベント」・「If...Then...Else ステートメント」をご参考に!!
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q意味を研究する事って

こんばんは。
今、授業で「認知意味論」を学んでいます。私は「意味を研究する事に意味があるか」という質問に答える事になったのですが、意味が無いと言ってしまうと授業が成り立たないので意味があると答えるべきだと思いました。
しかし、その根拠となる事柄がなかなか思いつきません。「どんな語にも意味があり、言語活動は意味を伝達する事であるから」ということだけでは、意味を研究する意味の根拠としては乏しいと思うのです(語の持つ意味が重要だとしても、言語によって意味は違い、その全てを網羅するのは不可能に近く、また、ある一つの言語に限っても、類似した意味の区別をつけることは困難、つまり意味というものは曖昧なものだから。)
そのような訳で、意味を研究する事の意味はどこにあるのか、皆様の考えをお聞かせ願いたく、質問しました。
また、私は専門家ではないので難しいことは分かりません。もし上の私の考え方でおかしなところがあれば訂正頂ければ助かります。

Aベストアンサー

意味論というのは定義が難しくて定義も様々ですが、共通して確認できる前提としては、意味というものは社会的な性質を持っているということです。要するに、言葉の意味とは事物の中に隠れているものが発見され命名されるのではなく、人間がその言語を通して事物に意味を与えていくものだということです。

将棋をさす時にある駒が足りなければ、そこらの石でも牛乳瓶のふたでも、何でも代用することができますが、これは駒そのものが重要なのでなく、将棋というゲーム全体の関係性の中においてその駒に与えられた意味が重要だからです。逆にいえば、ある駒を見つめていてもその駒の持つ意味というものは決して理解できません。

これと同様に、意味というものは全体の関係性の中で言葉に付与されるものですから、孤立した単語を眺めていても決して浮かびあがってくるものではありません。言葉の持つ意味とは、他の単語との関係の中に捉えられる、ある体系内の価値である、という風に認識できるでしょう。言語とは網のようなもので、意味とはその中の流動的なひとつのマスに過ぎません。これが意味論の根本的なスタンスと言って良いでしょう。
そう考えると、ご質問にある「言葉の意味を考える」ことは、すなわち社会制度としての言語の意味のネットワークを考える、ということに直結するわけですから、文化・社会・歴史全般にわたる広がりを持つという意義もわかるでしょう。裾野が大変に広いわけです。

言葉がご指摘のように曖昧な意味を担っていて、周辺のぼやけというかある幅を有することも事実ですが、先の意味から考えればこれは逆に、意味が他律的に周囲との関係の中で定まるものであるがゆえに、意味の中心が存在せず、せいぜい最大公約数的なものしか認識できない、という風に言えるでしょう。

要するに、明快な意味が定義できないから駄目なのでなく、そこをスタートとして、それなのに曲がりなりにも意味が通じ合うのはどういうことなのか、という風に意味の意義を求めてみてはどうでしょうか。
「言葉はモノの名称リストではなく、我々の世界認識の結果である」というのが、現在の言語観の基本です。

また、意味というものは意外と動的なもので、単純なものではありません。意味論の初歩でデノテーションとコノテーションを学ばれることと思いますが、例えば『ユダヤ人は所詮ユダヤ人さ』というせいりふの意味を考えてみると、最初のユダヤ人は「ユダヤ民族に属する人」という外示的意味(デノテーション)を指すのに対し、あとの方のユダヤ人とは「狡猾でずるいやつ」という共示的意味(コノテーション)を担っています。

これはひとつの些細な例にすぎないのですが、コノテーションを深く知れば、表現を通じて人間の意識というものを知ることにもつながります。言葉の意味は一定しないもので、常に既成の意味体系に限定されていく人間の意識が、言語の表現作用を通じて解放されていく様がコノテーションには見られるからです。
意味というのは世界の分節化であり限定性を本質的にもつものですが、それに抗って新しい意味生産を行うこと、つまり、言語の網の目の改変、という点で言葉の意味をたどることは人間の意識や思考方法そのものを見つめることに直結します。無意識のレベルで言葉の音と意味がどのように関わりひとつの語として紡がれるのか、というプロセスを研究する人達もいます。

さらに、認知意味論というのは特に人間が意味を認識する過程を問題にするわけですから、意味を考えること、ひいてはどうやってその意味が認識されているのか、ということは人工知能や認知哲学など広い分野に活用されるべき知識です。
例えば、海に浮いているメッセージボトルを見たとき、我々はすぐにそこに何らかの意味があることがわかるのですが、これはなかなか容易なことではありません。内部情報(中の紙に書かれている意味)を理解する以前に、外部情報(例えば「この文章が日本語で書かれている」といったこと)、さらにフレーム情報(つまり「このボトルの中には意味のある情報が入っている」ということ)が適確に理解されなければなりません。
「これは意味のあるモノである」という情報それ自体もメタ情報として意味を担っているわけで、実は語やモノの意味を理解することはそれ以前に多くの意味の解釈を必要としているのです。我々にとっては無意識の作業ですが、そういった事柄が我々の頭の中でどのように認識し処理されているのか、大変興味深い研究テーマだと思います。その困難さは、人工知能にこれらの行為を代替させようとした時にどれほどの困難が伴うことかを想像してみればわかることでしょう。

※少しご質問の内容とはずれがあるかもしれませんが、あまり意味論を理解していない回答が多いようなので、敢えて考え方のヒントとして書いてみました。ご参考までに。

意味論というのは定義が難しくて定義も様々ですが、共通して確認できる前提としては、意味というものは社会的な性質を持っているということです。要するに、言葉の意味とは事物の中に隠れているものが発見され命名されるのではなく、人間がその言語を通して事物に意味を与えていくものだということです。

将棋をさす時にある駒が足りなければ、そこらの石でも牛乳瓶のふたでも、何でも代用することができますが、これは駒そのものが重要なのでなく、将棋というゲーム全体の関係性の中においてその駒に与えられ...続きを読む

Qフィルタオプションでのデータ抽出に関して

お世話になります。

現在、約9000件あるデータの中から必要なデータを抽出できるようにするものを作成しています。
数式で抽出しようとしましたが、データ量の多さから計算に時間が掛る為、フィルタオプションを使ってデータを抽出しようと考えています。

データは下記のようになっています。

Sheet名:「積算データ」

項目 名称   適用   備考   施工  労務費
A    B     C     D     E     F
36  電線管  GP-19        隠ぺい  100
36  電線管  GP-22        隠ぺい  100
36  電線管  GP-28        隠ぺい  120
37  電線管  GP-16        露出   80
37  電線管  GP-22        露出   100
37  電線管  GP-28        露出   100

(以下、約9000行データが続きます)

別シートにデータ検索用シートを作っています。
シート名:「データ検索用」

名称 適用 備考 施工
 A   B   C   D
                  ←各セルに条件入力

さらに別シートにデータ抽出用シートを作っています。
シート名:「データ抽出用」

フィルタオプションの設定に関しては、

リスト範囲:積算データ!A1:F9000
検索条件範囲:データ検索用!A1:D2
抽出範囲:データ抽出用!A3

と設定しています。

というような構成なのですが、データ検索用シートで、各セルに条件を入力し(例えば、A列に電線管、B列にGP-19 D列に隠ぺいと入力)、データ抽出用シートにデータを抽出しても、積算データシート内のデータ全てが抽出されてしまいます。

検索条件どおりのデータを抽出するにはどうすればいいでしょうか??

お世話になります。

現在、約9000件あるデータの中から必要なデータを抽出できるようにするものを作成しています。
数式で抽出しようとしましたが、データ量の多さから計算に時間が掛る為、フィルタオプションを使ってデータを抽出しようと考えています。

データは下記のようになっています。

Sheet名:「積算データ」

項目 名称   適用   備考   施工  労務費
A    B     C     D     E     F
36  電線管  GP-19        隠ぺい  100
36  電線管  GP-2...続きを読む

Aベストアンサー

こちらでExcel2002で検証してみましたが、全く問題なくフィルタオプションできます。

>一応マクロに記憶させてみましたが・・やはりできませんでした。。

今回の質問はマクロに全く関係ないと思うのですが、どのような目的でマクロに記録するのでしょうか?

確認ですが、表示用シートのA3セル以下にデータが入っていないシートで操作しているのですね。

もし、マクロを利用して連続して同じようなデータを抽出する必要があるなら、当然ですが、最初に表示用のシートのデータは削除しておく必要があります。

Q悪い意味からいい意味へ、またその逆。

こだわる、という言葉は本来「そんなことにこだわるな」というようにネガティブな意味だったものが「味にこだわる」というようにポジティブな意味でも使われるようになってしまいました。「すごい」や、最近では「やばい」も本来悪い意味がいい意味でも使われるようになったと思います。悪い意味からいい意味、いい意味から悪い意味に変化した言葉を他にあれば教えてください。またこういう変化のことを専門用語では何といいますか。(意味の昇華?意味の降下?)

Aベストアンサー

「素晴しい」(すばらしい)現在ではほとんどの場合いい意味で、「大変優れている」「程度がはなはだしい」時に使いますが、古くは良くないことに対して、「ひどい」「とんでもない」の意味で使いました。辞書には「この女ゆゑにやア素晴しい苦労をして」という例文が載っています。また大正時代の新聞の関東大震災の写真の説明に「素晴しい被害」という表現を見つけて驚きました。

QAccess97のVBAでのApplyFilter

住所録を作成しています。
個人名,そのふりがな,会社名,電話番号,etc.と、ごく普通の住所録です。

過去の質問
http://www.okweb.ne.jp/kotaeru.php3?q=169901
を参考に、検索フォームを作成したのですが、
ボタン押下時ではなくテキスト入力時に検索結果が表示されるようにしたいと思い、下記のようにしてみました。

Private Sub TextBox_KeyPress(KeyAscii As Integer)

DoCmd.ApplyFilter , "(ふりがな like '" & Me.TextBox & "*')"

End Sub

単票形式で、フッターに検索テキスト入力用のTextBoxを配置しています。
このTextBoxに個人名のふりがなの一部を入力した時点で検索が行われるようにしたいのですが・・・。

上記コードで一応は検索できます。
たとえば「たな」と入力すれば、「たなか」さんや「たなべ」さんなどが表示され、レコード移動ボタンで移動できます。
しかし、「た」と入力して文字変換を確定すると、ふりがなが入力されているレコードを全て拾い、再度Enterを押すと「た・・」さんが表示されます。

この、再度Enterを押す動作をなくすには、どのようにすればいいのでしょうか?

住所録を作成しています。
個人名,そのふりがな,会社名,電話番号,etc.と、ごく普通の住所録です。

過去の質問
http://www.okweb.ne.jp/kotaeru.php3?q=169901
を参考に、検索フォームを作成したのですが、
ボタン押下時ではなくテキスト入力時に検索結果が表示されるようにしたいと思い、下記のようにしてみました。

Private Sub TextBox_KeyPress(KeyAscii As Integer)

DoCmd.ApplyFilter , "(ふりがな like '" & Me.TextBox & "*')"

End Sub

単票形式で、フッターに検索テキスト入力用の...続きを読む

Aベストアンサー

うまく動作しなかったようですね
一応動作確認は、Access2000/97の両方とも行ったのですが、Access97ではおっしゃるとおりの動作になりました
すいませんm(_ _)m

下記のように変更して下さい
Private Sub TextBox_Change()

DoCmd.ApplyFilter , "(ふりがな Like '" & Me.[TextBox].Text & "*')"
Sendkeys ("{F2}")

Exit Sub

この"Sendkeys"コマンドは、キーボードから入力する同等の機能をもちます
(Access Helpを参照して下さい)
今回の場合は、検索処理が終了したらキーボードの「F2」キーを押下するという処理が追加しました

>Me以降を解説していただければありがたいのですが・・・。(^_^;)

" ~ Me.[TextBox].Text ~ " の ".text"のことでしょうか?
テキストボックス等のオブジェクトは、プロパティを省略すると、規定値である「.Value」が認識されます
「.Value」 -> 実際に確定された情報を取得できます
「.Text」 -> 現在表示されている状態を取得できます

オブジェクトにより、規定値はあらかじめ決まっています
規定値は何だったかなと思うよりは、日頃からすべてのプロパティを記入するように心がけています
(Accessの場合、ほとんどのオブジェクトのプロパティの規定値は「.Value」だったような...)

うまく動作しなかったようですね
一応動作確認は、Access2000/97の両方とも行ったのですが、Access97ではおっしゃるとおりの動作になりました
すいませんm(_ _)m

下記のように変更して下さい
Private Sub TextBox_Change()

DoCmd.ApplyFilter , "(ふりがな Like '" & Me.[TextBox].Text & "*')"
Sendkeys ("{F2}")

Exit Sub

この"Sendkeys"コマンドは、キーボードから入力する同等の機能をもちます
(Access Helpを参照して下さい)
今回の場合は、検索処理が終了したらキーボードの「F2」キ...続きを読む

Qこの英文の意味は?

この文章の意味はなんでしょうか?
どうやらAndrew blackburnという方の言葉?のようですが…

Aベストアンサー

あなたがやりたいことはなんでもやりなさい。今日という日はあなたのものです。

QIf~Elseif分で複数の条件式を書くには?

毎度です。Access2000で悩んでいます。
フォームにいくつかのコンボボックスを設定してあります。
(コンボ1、コンボ2、コンボ3)
この時に各コンボボックスの値を元にそれぞれ違うクエリを走らせたいのですがどうやって書けばいいのでしょうか?

If Me!コンボ1 = 1 + コンボ2 = 1 + コンボ3 = 1 Then
Docmd.OpenQuery "Query1"
ElseIf Me!コンボ1 = 1 + コンボ2 = 1 + コンボ3 = 2 Then
Docmd.OpenQuery "Query2"

って書いてみたのですが、ダメでしょうか?
条件を複数書く時って「+」でつなげないのでしょうか?
素人です。やさしく教えてください。


 

Aベストアンサー

こんにちは。maruru01です。

「+」ではなくて、「And」で繋げて下さい。

If Me!コンボ1 = 1 And コンボ2 = 1 And コンボ3 = 1 Then
Docmd.OpenQuery "Query1"
ElseIf Me!コンボ1 = 1 And コンボ2 = 1 And コンボ3 = 2 Then
Docmd.OpenQuery "Query2"

Q「抗原」の2つの意味

「抗原」には、次の意味1、意味2の2つの意味があるように思います。

意味1 抗原性を有する個々の蛋白質
例えば、H5N1亜型鳥インフルエンザウイルスのH5、N1は、それぞれウイルスの表面にある特定の蛋白質であり、それぞれ抗原であるとお聞きしました。H5、N1などのような「抗原性を有する個々の蛋白質」が意味1です。

意味2 抗原を有する物質
例えば、H5N1亜型鳥インフルエンザウイルスのH5N1は、ウイルスの表面にあるH5とN1の2つの蛋白質の組み合わせであり、H5N1亜型鳥インフルエンザウイルスはH5とN1の2つの「(意味1の意味での)抗原」を用いて他の生物に感染するとお聞きしました。このような「「1つ又は複数の(意味1の意味での)抗原」を有する物質」(例えば、H5N1亜型鳥インフルエンザウイルス)が意味2です。

質問1
「抗原」には、意味1、意味2の2つの意味があるとする上記の理解は正しいでしょうか。

質問2
上記の理解が正しい場合、「意味1の意味での抗原」と「意味2の意味での抗原」とを区別するために便利な名称があるでしょうか。

「抗原」には、次の意味1、意味2の2つの意味があるように思います。

意味1 抗原性を有する個々の蛋白質
例えば、H5N1亜型鳥インフルエンザウイルスのH5、N1は、それぞれウイルスの表面にある特定の蛋白質であり、それぞれ抗原であるとお聞きしました。H5、N1などのような「抗原性を有する個々の蛋白質」が意味1です。

意味2 抗原を有する物質
例えば、H5N1亜型鳥インフルエンザウイルスのH5N1は、ウイルスの表面にあるH5とN1の2つの蛋白質の組み合わせであり、H5N1亜型鳥インフルエンザウイルスはH5とN1...続きを読む

Aベストアンサー

 shozi_nkさんには前も忠告したのですが、前の質問へのQ&Aで派生した疑問については、その質問の中で再質問するなどして解決を図るのが筋でしょう。
 質問内容が元の質問からかなり離れてしまうと判断したため別の質問を立てる場合でも、せめて前の質問に対する回答には何らかのレスを付けて締め切るのが回答者に対する礼儀でもあるでしょう。

 それにそもそも、こうやって次々と「勝手な解釈による新しい質問」を立てていって、理解が深まるとも思えません。
http://okwave.jp/qa5346194.html
http://okwave.jp/qa5340779.html
 これらの前の質問に対する回答をきちんと理解すれば、本質問のような解釈は出てこないと思うのですが・・・
 「勝手な解釈」が前の回答に対するレスに書かれていればちゃんとフォローできるのですが、その都度新しい質問を立てられてはそうそうつき合い切れません。
 よって、本回答を最後にします。自分で書いた回答に対する再質問にはいくらでも対応しますが、これ以上の"新質問"にはつき合い切れません。

 「抗原」の意味は、基本的には"意味1"が正しく、それ以上の意味("意味2")はありません。
 otxさんが"間違い"と指摘したのは、

>抗原性を有する個々の蛋白質

 の"蛋白質"が間違っている、ということです。抗原は蛋白質だけでなくある程度以上の大きさを持つ分子であれば、たいていのものは抗原性を有するからです。(でも医学分野で問題にする大半の抗原は蛋白質ですが)

 で、「抗原性を有する」というのは、「抗体のターゲットとなる」と同義です。従って、「抗体のターゲットになるもの」は「抗原性を有するもの」と同じ意味になります。

 ・・・ま、「抗原」という言葉の定義に「抗原性」という"抗原"を含む言葉を使うのは適切ではないですけど。

>最初の質問で言いました次の(a)~(c)のいずれもが「ターゲットとなるもの」であると思えます。
>(a)H5蛋白質
>(b)N1蛋白質
>(c)H5N1鳥インフルエンザウイルス

 この中で(c)は違います。H5N1鳥インフルエンザウイルスに対する抗体、というのは厳密には存在しません。言い換えると、抗H5抗体や抗N1抗体は存在しますが抗H5N1抗体というのはあり得ないのです。
 ですから、ウイルス粒子そのものは厳密には「抗原」ではないのです。

>例えば、H5N1亜型鳥インフルエンザウイルスのH5N1は、ウイルスの表面にあるH5とN1の2つの蛋白質の組み合わせであり、H5N1亜型鳥インフルエンザウイルスはH5とN1の2つの「(意味1の意味での)抗原」を用いて他の生物に感染するとお聞きしました。

 ちょっと違います。
 感染の際に重要なのはHA蛋白であり、細胞内で増殖したウイルスが細胞から脱出(出芽)する際に重要な役割を果たすのがNA蛋白です。この2つの蛋白は、細胞への感染~出芽に至るウイルスの増殖サイクルの中で、別のステージでそれぞれ役割を持っています。別にHAとNAの組み合わせがどうこういう話ではありません。
 インフルエンザウイルスの亜型がH5N1というようなHAとNAの2つの血清型による亜型で型別されるのは、この2つの蛋白の組み合わせがウイルスの増殖サイクルや病原性にとって重要だからではなく、この2つの蛋白に多型性があるからです。

 例えばインフルエンザの迅速診断キットは、ほとんどの場合インフルエンザウイルスのNPという核蛋白に対する抗体を使用しています。
 つまり厳密に言えば、これらのキットで陽性となった場合、「患者の鼻腔拭い液等の検体の中に、NP抗原が存在することを証明」しているのです。直接的にインフルエンザウイルスそのものの存在を証明しているわけではないのです。

 しかし、ウイルス粒子が存在しないのにNP蛋白という"パーツ"が単独で存在することなどあり得ませんよね。なので、「NP抗原の存在を証明」=「A型インフルエンザウイルスの存在を証明」でokというわけです。
 この場合、学会や論文レベルでも「A型インフルエンザウイルスの抗原を検出」というような表現がされる場合があり、この場合は"意味2"のような使われ方をされていることになるのですが、あくまで読み手は「=NP抗原」と脳内変換して読んでいるので、ウイルス粒子そのものを「抗原」という認識はありません。(論文だとレフェリーに指摘されて書き直すことになる可能性が大)

 ちなみに迅速診断キットが、なぜHAやNAでなくNPをターゲットにしているか、は、「NP蛋白に多型性がないから」です。

 A型インフルエンザウイルスは、HAやNA、それと今話題になったNPの他に、RNAポリメラーゼ(PA,PB1,PB2の3つの遺伝子によってそれぞれのサブユニットがコードされている)やマトリックス蛋白(M)、非構造蛋白(NS)といった蛋白質を作ります。というよりウイルス遺伝子にこれら蛋白質がコードされています。
 また、MとNSはスプライシングされてM1とM2、NS1とNS2といった蛋白に合成されます。

 これらHA,NA,NP,PA,PB1,PB2,M1,M2,NS1,NS2といった蛋白(あるいはそのサブユニット)は全て「抗原」となり得ます。実際に感染した人はこれら全ての蛋白に対する抗体を作るでしょう。

 shozi_nkさんには前も忠告したのですが、前の質問へのQ&Aで派生した疑問については、その質問の中で再質問するなどして解決を図るのが筋でしょう。
 質問内容が元の質問からかなり離れてしまうと判断したため別の質問を立てる場合でも、せめて前の質問に対する回答には何らかのレスを付けて締め切るのが回答者に対する礼儀でもあるでしょう。

 それにそもそも、こうやって次々と「勝手な解釈による新しい質問」を立てていって、理解が深まるとも思えません。
http://okwave.jp/qa5346194.html
http:/...続きを読む

Q【ACCESS】ApplyFilterでデータ絞込みをした時、該当データがないと、条件の表示がおかしくなる

ACCESSの一覧表示しているフォームで、検索条件を設定させ、その検索条件よりApplyFilteを使って、データ絞込みをしています。
データがある場合はうまく動作するのですが、該当データがないと、その後、検索条件を変更しても、検索条件のコンボボックスに値が表示されなくなります。
でも、認識はしているようで、デバッグで見ると値が入っているし、再度検索して、該当データがある場合は、また検索条件のコンボボックスが表示されるようになります。

何かつくりが悪いのでこのように動作するのでしょうか?
もしくはデータが存在しない場合に何か別のことをするようにするなど、回避する方法があれば教えてください。

お願いします。

Aベストアンサー

状況が分からないので対症療法的ですが

If Dcount(Filter条件・・) = 0 Then
MsgBox "No Records!", vbOKOnly
Me.FilterOn = False
End If
とか?

Qこんな意味があったと意表を付かれた単語

驚きました!
funkyの意味は「元気いっぱい」と思っていたのですが「臆病な」という意味であり、gagは「冗談」という意味もありますが「口止め」「言論圧迫」という意味もあるとのこと。
ここでお聞きします。
それぞれの後者の意味で頻繁に使われるのでしょうか?
これまで日本では前者の意味でしか使われてこなかったような気がします。

Aベストアンサー

日本で使われる英単語の意味はひとつに固定されてても、英会話内では様々な意味で使われるってのよくありますね。
私は、質問者が調べた意味ではfunkyやgagをまだ使ったことも聞いたこともありません。funkyは普通にファンキーの意味で使ったりしますか。。。こちらの友人はfunkyを憂鬱の意味で使ってました。gag、gaggingは(吐き気を感じて)オエッとしてる人や動物を見た時に使ったりしますかね。
日本語もそうですが、英語も奥が深いですね。

Q実行時エラー'-2147467259(80004005)':

エクセルからADOでアクセスに繋ごうとしたときに
実行時エラー'-2147467259(80004005)':
マシン'マシン名'のユーザー'Admin'がデータベースを開けない状態、またはロックできない状態にしています。

というエラーが出てしまいます。

書いているコードは以下です。

Public cn As ADOdb.Connection
Set cn = New ADOdb.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"



test.mdb自体はテーブルもクエリもフォームも何も開いていない状態です。
一度アクセスを終了させて再起動させればうまくできるのですが、何が原因でこのメッセージが出るのでしょうか?
もしわかれば教えてください。
よろしくお願いします。

Aベストアンサー

Accessで、test.mdbを開いた状態(テーブルも、クエリも、フォームも何も開かない状態)で、ExcelからADOで接続しようとすると、
「-2147467259"は既に使用されているので、使用できませんでした。」
というエラーが再現されました。(当方Office2000Pro)
そういうものなのでしょう。
何をなさりたいのですか?
AccessからExcelを起動して、データの移し替えをしたり、レポート代わりに印刷させたりという方法ではダメなのでしょうか?
何をしたいかという、切り口で質問をされてはいかがですか。


人気Q&Aランキング