• ベストアンサー

何のモードで開いているのかvbaで取得したい

アクセスです。 読み取り専用モードで開いてるのか 排他モードで開いてるのか 排他および読み取り専用で開いているのか vbaで値を取得するコードのご教示をお願いします。

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

排他モードの件だけ http://support.microsoft.com/default.aspx?scid=kb;ja;117539 NIに記事があります。 バージョンの古いものの解説ですが、自分でアクセスを、排他モードで開き、自分で確認することまでは、確認できました。 質問者のACCESSのバージョン(2007,2010など) 質問者のネットワーク環境でのアクセス利用で うまく行くかやってみてください。 End Select の下あたりにMsgbox IsCurDBExclusiveを入れると確認できるでしょう。

o9i8u7
質問者

お礼

ご回答ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • アクセス2003 何モードで開いてるのか

    アクセス 開く際、モードを選択しないで開いた場合、何モードで開いてるのでしょうか? メニューバーの「開く」から、ファイルを開く場合、 画像のように、 ・開く ・読み取り専用モード ・排他モード ・排他および読み取り専用 を選択しないで開いた場合は 何モードで開いているのでしょうか?

  • 「排他モード」とはどういう意味でしょうか?

    日本語がよくわからないので教えてください。 アクセスにパスワードをかけようとしたら 「排他モードで開いてください」と言われました。 排他モードで開いて無事パスワードをかけることはできたのですが 排他の意味がわかりません。 ・読み取り専用モード ・共有モードは 意味はわかります。 宜しくお願いいたします。

  • ファイルを開いている状態で排他モードに変更する事は

    ファイルを開いている状態で排他モードに変更する事は可能なのですか? 一人で使っているMDBファイルですがVBAコードを修正していたら、 なぜか 『ほかのユーザーによってファイルが開かれているため、変更したデザインを 保存したり、新しいデータベースオブジェクトに保存したりできません。 デザインの変更を保存したり、新しいオブジェクトに保存したりするには、 ファイルを排他モードにする必要があります』 と出てしまいました。 とりあえず一度ファイルを閉じようとしても、この表示が出てしまいます。 修正したコードは保存したいのですが、どうすればいいのでしょうか? このまま排他モードに切り替えてVBAコードを保存したいです。

  • 排他モードとか共有モード

    アクセスの排他モードとか共有モードとかよくわからないのですが どういう時に排他モードが良くて どういう時に共有モードが良いのでしょうか? 常に一人でアクセスは使っています。

  • ACCESSで排他モードにするには

    ACCESS97からACCESS2000に移行しました。 ネットワーク上にデータベースを置いて複数で使っています。 私がフォームやレポートをデザインで開こうとしているとき、他の人が同じデータベースを開いていると(同じフォームやレポートを開いてなくても) 「現在、このデータベースには排他モードでアクセスしていません。デザインの変更は保存できません。」 と表示されてしまいます。 そこで「ツール」「オプション」「詳細」で「排他モード」を選んだり、「開く」で「「排他モードで開く」を選んでみたのですが、メッセージは変わりません。 ヘルプやマイクロソフトのHPも読んでみましたが、「共有モード」にすべきか「排他モード」にすべきか、いまひとつわかりません。 ACCESS97の時はこんなことはなかったのですが、2000って「こうゆうもの」なんでしょうか。 よろしくお願いします。

  • 排他モードで開けない

    こんにちは。 os:vista、office:2003です。 自分で作成したアクセスのmdbファイルに フォームを新規で作成しようとしたところ、 「現在、このデータベースは排他モードでアクセスしていません。 変更しても、後で保存できない可能性があります。」 となってしまいます。 なので排他モードで開こうと思い、 ファイル→開く→ファイルを選択→排他モードで開く をやっても 「他のユーザーがこのデータベースを開いているか、 排他モードで開く権限がないため。○○を排他モードで開くことはできません。 このデータベースを共有モードで開きます。」 となってしまい、結局フォームを作ることができません。 ・パソコンはインターネットとしか繋いでないです。(共有はしていない) ・mdbと同じフォルダ内にldbと言う拡張子のファイルがあり、鍵マークが付いています。これが原因でしょうか? 何かわかる方なんでもいいのでご回答よろしくお願いします。

  • なぜ「フォーカス取得時」のVBAコードは

    アクセスVBAについて質問です。 なぜ「フォーカス取得時」のVBAコードは Private Sub コマンド0_Enter() なのでしょうか・・・? 最初はエンターキーを押すと、イベントが発生すると思っていました。 (Enterだから) 大した質問ではないですが わかる方いらっしゃったらお答えください。

  • VBAでその月の数の一番多い値を取得したいのですが

    フィールド1 フィールド2 2016/08/07 52.6 2016/08/06 52.2 2016/08/05 52.2 2016/08/04 52.9 2016/08/03 53.6 2016/08/02 53.3 2016/08/01 53.1 と言うデータがテーブルには入っています。 アクセスのVBAでその月の数の一番多い値を取得したいのですが strMAX = DMax("[フィールド2]", "テーブル1", "[フィールド1] = '" & ??? & "'") 上記の???の部分はどうすればいいでしょうか? 日付をフィルタするのではなく 「8月の中で一番多い値」を指定するにはどうすればいいでしょうか? 結果としては、53.6を取得したいです。

  • アプリケーションの横幅の値を取得したい vba

    アクセスのアプリケーションの横幅の値をvbaで取得する事は可能でしょうか? Sub サンプル() Debug.Print Application.Width End Sub はエラーになっちゃいました。

  • エクセルのフルパスをvbaで取得

    当方エクセル2003で、 エクセルのフルパスは C:\Program Files\Microsoft Office\OFFICE11\ EXCEL.EXE です。 それをVBAで取得するにはどうすればいいですか? Sub サンプル() Debug.Print 'オフィスがインストールされているフォルダのパスの取得 End Sub のようにして、 C:\Program Files\Microsoft Office\OFFICE11\ EXCEL.EXE を返したいです。 VBAコードをご教示ください。

専門家に質問してみよう