約 2,878,406 件
https://w.atwiki.jp/program_language/pages/15.html
VBA ACCESS
https://w.atwiki.jp/annbeyoffice/pages/18.html
ACCESSに取りくむはじめの一歩 カウンタ合計 - 今日のカウンタ - ACCESSのイロハのイ！ 【まずはAccessを開いてみよう】
https://w.atwiki.jp/ma-100140/pages/39.html
不具合 Access2010 定義xmlによるスキーマの確認が失敗しました。XML ドキュメントの行に｜にエラーがあります。 あぁ、何でしょう。ファイル名にドットがついてたらだめみたいということらしい。確かにドットを取ったら出来ました。 SQLServer のテーブルにbit型のフィールドがあると、Accessでリンクした場合にレコードを修正できない 困りました。何をやっても競合だなんて。 http //detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1386175203 bit型をint型にすれば問題が解決。 フォームでレコード件数0のとき詳細が表示されない 通常の場合は レコード件数 0 のときでも詳細が表示されるのですが、以下の条件の場合表示されないことがある。 追加の許可」が「いいえ」に設定してあるとき。 レコードソースが更新不可のクエリのとき。 レコードセット」プロパティが「スナップショット」で更新できないとき。 Access2000では詳細が0件の時に非連結フィールドをNullでクリアーしても変化がない。何でもいいから（普通は追加の許可を「はい」にする）詳細にレコードが表示されていればきちんと動く。どうもバグみたい。しかし、上記条件の時は回避できない。困ったもんだ。 【解決法の検討】 クリアーの代わりに、フォームを一旦閉じて、再度開く：効果はあるが目障りな動き フィールドはnullなどでクリアーして、その後一旦最小化し、元のサイズに戻す：効果はあるが、やはり目障りな動き フィールドはnullなどでクリアーして、その後一旦最大化し、元のサイズに戻す：効果はなし フィールドはnullなどでクリアーして、画面を再描画しさらに最小化して、元のサイズに戻す：効果はあるが再描画は関係なさそう。 フィールドはnullなどでクリアーして、画面を再描画だけを行う：効果なし ここまでの結果を勘案すると、どうもウィンドウの表示のところにバグがありそう。一旦最小化すれば、ウィンドウは強制的に再描画されるからバグが回避されるのだろう。ということは面倒であるけどクリアーしたフィールドのVisibleプロパティーをFalseにして強制的に消して、再度Trueにすれば同じ結果が得られるかもしれない。 結果：フィールドのVisibleのFalse→Trueの併用でちらつきなく、フィールドをクリアーできました。 sum関数を使ったフィールドをフォーム上で集計するとエラーになる。 SQL = select sum(台数) as 台数 from 出荷 group by 月 Forms![表示画面].RecordSource = SQL としてフォームの詳細に月フィールドのコントロールソースを 台数として配置します。また月ごとの合計を集計するためにフォームフッタ領域に集計フィールドをコントロールソースを=sum([台数])として配置します。 しかしながら集計フィールドはエラーが表示されてしまいます。どうもAccessは集計値をフィールドに持っていない感じです。sumした結果をsumするからダメなんでしょうね。試に集計フィールドに=count([台数])としてもエラーです。 Dim rs As Recordset Set rs = Forms![表示画面].RecordsetClone rs.MoveFirst Forms![表示画面]!集計 = 0 While rs.EOF = False Forms![表示画面]!集計 = Forms![表示画面]!集計 + rs![台数] rs.MoveNext Wend set rs = Nothing と個別に計算してフォームに表示するしかないみたい。面倒なことです。
https://w.atwiki.jp/access55/pages/12.html
●クエリとテーブル ●フォームについて
https://w.atwiki.jp/hitkik/pages/14.html
レプリカとは？ 第 1 章 Access 2000 クライアント/サーバー開発の理解 データベース レプリケーション ソリューション データベース レプリケーション ソリューションは通常、ネットワークに断続的に接続するユーザー (ラップトップ ユーザーなど) や低速の広域ネットワーク (WAN) に接続しているユーザーの間で Access データベース (.mdb) を共有するために使用します。データベース レプリケーションは、複数の場所にある Access データベースのすべてのコピーに対して、変更されたデータやデータベース設計への変更のみを配布するという処理です。レプリケーションでは、"デザイン マスター" と呼ばれる単一のオリジナル データベースの、"レプリカ" と呼ばれる 1 つまたは複数のコピーが作成されます。デザイン マスターとそのレプリカを合わせて "レプリカ セット" と呼びます。"同期" と呼ばれる処理を実行すると、オブジェクトやデータへの変更がレプリカ セットのすべてのメンバーに配布されます。 データベース レプリケーション ソリューションにおけるデータの信用性は、同期の頻度とユーザー間の接続速度によって制限されます。データベース レプリケーション ソリューションは通常、低速または断続的な接続を常とする状況で使用します。したがって、データベース レプリケーションは、割り当てられた地域のいくかの地区を扱う外回りの営業担当者など、ユーザーどうしで競合が起きる可能性が低い場合に最適に機能します。Access/Jet レプリケーション ソリューションは、レプリケーション セットのメンバーをローカル エリア ネットワーク (LAN) 上の複数のファイル サーバーに配置することで、ネットワーク間の負荷分散として使用することもできます。 レプリカの実例 第８回できたDBはみんなで使おう 部分レプリカ DAO3.5の新機能 ―部分レプリケーション― ● レプリケーションとは？ 例えば複数のパソコンから同じMDBを共有する方法として、共有ディレクトリ上にMDBを置いて、ネットワークを通して使う方法があります。しかし、この方法では、MDBを使うときにネットワークがつながっていなければいけません。 レプリケーションは、あるMDBを元にレプリカと呼ばれるコピーを作成し、その複数のコピー間で、データやオブジェクトの更新内容を交換して、内容を同期します。そして、同期処理中以外はネットワークがつながっていなくてもレプリカが使えるので、結果的に１つのMDBを共有しているのと同じようにアプリケーションから扱えます。 レプリカ上のレコードへの追加、削除および変更は、次回のレプリケーション実行時に相手側に反映されます。もし、同じレコードが両方で更新されたときは、レプリケーションの競合が発生します。このときDAO3.5は、バージョン番号の多い（変更が多い）レプリカの内容を採用し、バージョン番号も同一のときは、ReplicaIDの小さいレプリカの内容を採用します。採用されなかったレプリカは、競合テーブルにレコードの情報が格納されるので、競合の解消方法をプログラムで変更できます。 ● 部分レプリケーション レプリケーションは、Visual Basic 4.0のDAO3.0でも使うことができました。しかし、DAO3.0では、フルレプリケーションといって、テーブルやオブジェクトごとのレプリケーションのみサポートしていました。RDO3.5からは、部分レプリケーションといって、MDBに含まれるレコードの一部分のみレプリケーションが行えるようになりました。 部分レプリケーションを使えば、レプリカの配付先ごとに、必要な部分のみを同期するので同期処理のパフォーマンスが向上します。さらに、重要データを関係ない部署に配付したレプリカに転送しないように指定できます。 部分レプリケーションを行うためには次のような手順が必要です。 デザインマスターの作成（リスト２） 部分レプリカの作成（リスト3） レプリケーションの実施（リスト４） サンプルで(1)を行うとデザインマスターにs_Generationフィールドが追加されます。このフィールドはレプリケーションの管理に使うフィールドで、レコードが変更されると0に設定されます。 なお、Microsoft Access 97 Developer Editionにはレプリケーションマネージャーというレプリカデータベースの作成や維持をするユーティリティが含まれていますが、Visual Basic 5.0には含まれていません。Visual Basic 5.0でも、DAO3.5を使って同様のものを作れますが、受託開発でレプリケーションを使うときは、最低でも開発環境と実行環境のそれぞれ１台づつにAccess97 Developer Editionを導入しておくのが得策かもしれません 以下広告
https://w.atwiki.jp/hitkik/pages/29.html
Access2000でリンクテーブルが遅いBUGの回避方法 http //support.microsoft.com/kb/261000/ja 解決方法 バックエンド データベース内の各テーブルの "サブデータシート名" プロパティを [なし] に設定します。この設定の変更は、手動で行うか、コードを使用して行うことができます。 サブデータシート名を手動で設定する 1.バックエンド データベースのテーブルをデザイン ビューで開きます。 2.[表示] メニューの [プロパティ] をクリックします。 3."サブデータシート名" プロパティを [なし] に設定します。 4.テーブルを保存して、閉じます。 Null値を回避する関数 Nz(値 [,null時の値] ) ビューが「フォームビュー」「帳票」の時に並び替えするためのVBA Me.Form.OrderBy = "フィールド名" Me.Form.OrderByOn = True ↑↓キーでデータリストを上下できる表示方法 フォームとサブフォームを使う。 サブフォームは、クエリ/テーブルと連結し、規定のビューを「データシート」 ビューの設定を「データシート」にする。 なお、フォーム自体の設計は別途可能で、ビューを「フォームビュー」に変更するとそちらのフォームが表示される。 並び替えは・・・AccessRuntimeではできない。 FORMを、データシートビューで表示し、SQLを切り替える フォームは、「ビューの設定(Defaultview)」を「データシートビュー(2)」にすると、カーソルキーで上下左右に動かせるシンプルなワークシート形式の表示にすることができる。 このとき表示されるフィールドは、デザインビューに入れられたフィールド。ビューをフォームに変更すると、フォームの形で同じデータが表示される。 各フィールドの設定はそのままデータシートビューに引き継がれる。（コンボボックス、イベント処理など） このとき表示されるデータは、 RecordSource = SQL文 || クエリ名 フォームからサブフォームのデータリストを変更するときには、 Me!サブフォーム名.FORM.RecordSource = SQL文 フォームから自分のデータリストを変更するときには、 Me.FORM.RecordSource = SQL文
https://w.atwiki.jp/jpops/pages/441.html
accessをお気に入りに追加 accessのリンク #bf Amazon.co.jp ウィジェット accessの報道 ACCESS子会社IP Infusion、CeragonとWhite Box型セルサイトルーターの市場投入に向けて提携 - 日経テクノロジーオンライン 前場コメント No.6 ＡＣＣＥＳＳ、ＮＴＴ、ＡＢ＆Ｃ、りそなＨＤ、三井物、パーソルＨＤ - ニュース・コラム - Y!ファイナンス - Yahoo!ファイナンス 決算マイナス・インパクト銘柄・寄付 … ＡＣＣＥＳＳ、インスペック (12月6日発表分) - minkabu PRESS Access Accepted第707回：“ビジュアル・アイデンティティ”が光るインディーズゲームたちを紹介 - 4Gamer.net 新機能 – Amazon VPC Network Access Analyzer | Amazon Web Services - amazon.com SCSKとSSKが協業、フルマネージド型SASEサービス「Smart One Access」の運用監視オプションを提供（Impress Watch） - Yahoo!ニュース - Yahoo!ニュース 2021年度11月分のGIGAZINEのアクセス解析結果 - GIGAZINE - GIGAZINE ブラックストーン、豪クラウンの財務情報へのアクセス認められる（Bloomberg） - Yahoo!ニュース - Yahoo!ニュース KDDI、法人向け広域ネットワークサービスにトラフィック対策とクラウドアクセスの機能拡充など3メニューを追加（Impress Watch） - Yahoo!ニュース - Yahoo!ニュース 前場コメント No.2 マーチャント、ホロン、ＪＴＥＣＣＯＲＰ、ＡＣＣＥＳＳ、アイドマＨＤ、Ｊ・ＴＥＣ - ニュース・コラム - Y!ファイナンス - Yahoo!ファイナンス ＜きょうの個別材料＞ＴＶＥ、ライトアップ、ＡＣＣＥＳＳ、ＩＭＶなど（２９日発表分） - ニュース・コラム - Y!ファイナンス - Yahoo!ファイナンス ACCESS、今期最終赤字30億円 - 日本経済新聞 Access Accepted第706回：セクハラ問題に揺れるActivision Blizzard。BlizzardのみならずActivisionにも疑惑の影 - 4Gamer.net NRIセキュア、使い勝手などを改善した特権ID管理製品「SecureCube Access Check 5.5.0」（Impress Watch） - Yahoo!ニュース - Yahoo!ニュース NRIセキュア、特権ID管理ソリューション「SecureCube Access Check」の新バージョン（5.5.0）を発売 - PR TIMES Access Accepted第705回：「リビングルームへの進出」を目指したXbox20年の歩み - 4Gamer.net Access AdvanceはHEVC Advance特許プールのライセンサーおよびライセンシーとしてZTEを迎える Access Advance｜共同通信PRワイヤー｜下野新聞 SOON(スーン) - 下野新聞 ACCESSの位置情報管理クラウドサービス「Linkit(R) GPS Tracking」とグルーヴノーツのクラウドプラットフォーム「MAGELLAN BLOCKS」が連携 - PR TIMES BEAN TECHが統合型車載インフォテインメントサービスの提供に向けて、「ACCESS Twine(TM) for Car」を採用 - PR TIMES パロアルト、Prisma Access/SD-WAN統合した「Prisma SASE」国内提供 - マイナビニュース ウェブ関連技術の標準化推進団体「W3C」がブラウザー拡張機能の共通化に向け「WECG」コミュニティ立ち上げ - TechCrunch Japan Access Accepted第703回：登場から1年。現世代機の次について思うこと - 4Gamer.net 2021 Honda Dog プレゼントキャンペーン｜Honda Dog シリーズ｜Honda Access | Honda公式サイト - Honda モータースポーツ ACCESS、人の位置情報・移動履歴を管理する「Linkit エリア探索」でハードウェアのレンタルプランを提供 - クラウド Watch Access Accepted第702回：Steamでは販売禁止に。ブロックチェーンゲームの現状 - 4Gamer.net Evervaultの「サービスとしての暗号化」がオープンアクセスに - TechCrunch Japan Access Accepted第701回：EA SportsからFIFAブランドが消える日 - 4Gamer.net Access Accepted第700回：コツコツと積み重ねた17年，700回。連載を通じで感じたこと，メディアの在り方 - 4Gamer.net Amazon WorkMail が Mobile Device Access Override API と MDM 統合機能を追加 - amazon.com IDアクセス管理One Identityがライバル、エンドユーザー向けセキュアサインオンのOneLogin買収 - TechCrunch Japan Access Accepted第699回：「タイタンフォール」に何が起きていたのか - 4Gamer.net ExcelやAccessを使ったデータ分析、「BIツール」に置き換えるメリットとは？ - ホワイトペーパー [BI／BA／OLAP] - ITmedia マーケティング Windowsの2020年問題への備えは大丈夫？ 6社の事例に学ぶ「脱Access」の秘訣 - ホワイトペーパー [開発ツール] - TechTargetジャパン ナイキのCEOがSNKRSの“限定アクセス”の仕組みを明かす - HYPEBEAST 富士通不正アクセス問題 ずさんな顧客対応に不満噴出 - 日本経済新聞 ACCESS、チャット連動型動態管理サービスの上位版「Linkit Maps アドバンス」 - 週刊BCN＋ 新機能 – Amazon EFS Intelligent-Tiering がアクセスパターンの変化に応じてワークロードのコストを最適化 | Amazon Web Services - amazon.com ACCESS子会社、スマートテレビアプリ向けポータルのカスタマイズにおいてKTCとの協業拡大 - 日経テクノロジーオンライン 特権ID管理「SecureCube Access Check」新版、クラウド管理者パスワードの自動変更を容易に | IT Leaders - IT Leaders 外科手術シミュレーションゲーム 『Surgeon Simulator 2 Access All Areas』が本日9月3日よりリリース。合わせて、ローンチトレーラーも公開 - ファミ通.com AWS Lake Formation による効果的なデータレイクの構築 パート 5 行レベルのアクセス制御でデータレイクを保護する | Amazon Web Services - amazon.com オンラインイベント「位置情報DX EXPO 2021アカデミー」を開催 - PR TIMES McAfee Enterprise、データ認識型のゼロトラストソリューション「MVISION Private Access」 - クラウド Watch Access Accepted第695回：5年で50億ドルに達する「ポケモンGO」のNianticが考えるメタバースの未来 - 4Gamer.net スマートフォン向け無料メールアプリ「CosmoSia(R)」にiOS版が登場！ - PR TIMES 「Okta Access Gateway」がNutanix上で展開可能に - PR TIMES 【セキュリティ ニュース】「VMware Workspace ONE Access」「vIDM」に脆弱性 - アップデートがリリース（1ページ目 / 全1ページ）：Security NEXT - Security NEXT マッシュアップの巨匠・Calb（カルブ）がダフト・パンクとマイケル・ジャクソンをマッシュアップしたフルアルバムのYouTube 動画『Thriller Access Memories』を公開！ - iFLYER KDDI、クラウド型セキュリティサービス「Zscaler Internet Access」のURLフィルタ機能を拡充 - クラウド Watch Amazon EKS の Kubernetes オブジェクトアクセスエラーを解決する - amazon.com NTTとACCESSが「IOWN」で提携、ホワイトボックス用OSを世界展開 - business network.jp ＮＴＴとＡＣＣＥＳＳが提携 次世代情報基盤の実現で - 時事通信ニュース パロアルトネットワークスのPrisma® Accessをラックがユーザーとして語る—クラウドによるセキュリティ確保の実際 - ZDNet Japan ForgeRock Access Managementに緊急の脆弱性、直ちにアップデートを - マイナビニュース Nike が SNKRS で限定モデルの購入権を得るための新システム “Exclusive Access” の詳細を発表 - HYPEBEAST PR TIMESが会員企業の発表前情報に対する不正アクセス公表 - TechCrunch Japan ACCESSとスマートロボティクス、物流用ドローンと連携するUGV試作機共同開発 - DRONE ACCESSとドコモ、需要家向けエネルギーマネジメント事業で協業 - business network.jp AWS Resource Access Manager で追加のマネージドアクセス許可を使用してきめ細かいアクセスコントロールが可能に - amazon.com Arm：Arm Flexible Accessの拡充の一環として、新たに「DesignStart Tier」の提供を開始 - MotorFan[モーターファン] Amazon FSx for Windows ファイルサーバーでファイルアクセス監査が利用可能に | Amazon Web Services - amazon.com 中堅・中小企業向けゼロトラスト対応サービス「Secure Access Gateway」でさらに快適なテレワークを簡単に実現 - PR TIMES HENNGE Oneの連携ソリューションに「Cloudflare Access」を追加 - PR TIMES どこからでも安心して業務ができる環境を提供――、NTT Comがリモートアクセスサービス「Flexible Remote Access」の強みを解説 - クラウド Watch “One Action, Quick Access” feat. Mrs. DOUBLEDUTCH - PR TIMES クラウドできめ細かいアクセスマネジメントのためのリファレンスアーキテクチャ - InfoQ Japan IIJ、SOCサービスの監視対象にSASEプラットフォーム「Prisma Access」追加 - マイナビニュース AWS Lake Formation がタグベースのアクセスコントロール (TBAC) のサポートを開始 - amazon.com Amazon MSK で Apache Kafka 向け IAM アクセスコントロールを導入 - amazon.com NTT Com、社内システムやICTサービスなどへセキュアに接続できるリモートアクセスサービス「Flexible Remote Access」 - クラウド Watch FM802春の「ACCESS!」キャンペーンソング「春は溶けて」が各ストリーミングで期間限定配信決定 - http //spice.eplus.jp/ AWS Identity and Access Management でユーザーの IAM ロールアクティビティと企業 ID の関連付けが簡単に - amazon.com SCSK、「Prisma Access」を活用したフルマネージド型SASEプラットフォームサービス「Smart One Access」を提供 - クラウド Watch 【セキュリティ ニュース】「Okta Access Gateway」にコマンドインジェクションの脆弱性（1ページ目 / 全1ページ）：Security NEXT - Security NEXT Access Accepted第683回：40年以上も続くゲーム業界の慣習 ～ 開発者が隠した「イースターエッグ」 - 4Gamer.net Windows 10でファイルにアクセス権限がないときの対処法5つ - Lifehacker JAPAN アイデンティティ管理のOktaに特権アクセス管理とアイデンティティガバナンスのレポート機能が追加 - TechCrunch Japan アクセスアクティビティに基づく IAM ポリシー生成を通して最低権限の実装を IAM Access Analyzer で容易に - amazon.com AWS IAM Access Analyzer | Amazon Web Services ブログ - amazon.com データベースの基本からデータの管理、運用、分析に役立つ「Access」のできるポケットシリーズを2冊同時発売 - PR TIMES ネイチャー・ポートフォリオのオープンアクセス | Nature Portfolio - Nature Asia LINE社長 中国からの個人情報へのアクセス遮断を明らかに - NHK NEWS WEB 業務に役立つ使い方が見つかる！『できるAccess パーフェクトブック 困った！＆便利ワザ大全 2019/2016/2013＆Microsoft 365対応』を3月19日に発売 - PR TIMES アルパインスターズのホルスターバッグ「ACCESS THIGH BAG」が岡田商事から発売！ - バイクブロス ニュース シトリックス、クラウド型セキュリティ「Citrix Secure Internet Access」を提供開始 - クラウド Watch 村田製作所とACCESSが協業、製造現場向けスマートものづくり支援ツール提供開始 - IoTナビ ソラーレ ホテルズ アンド リゾーツ新ブランド『 ACCESS by LOISIR HOTEL Nagoya 』 - PR TIMES 中堅・中小のリモートワークを簡単・安価に実現――、NTTPCがゼロトラスト対応の新サービス「Secure Access Gateway」を提供 - クラウド Watch 2021年度版の医薬品アクセスインデックス（ATMインデックス） - PR TIMES Access Accepted第673回：2021年注目の欧米産ゲームタイトルは，これだ！ （後編） - 4Gamer.net 動画配信サービスCBS All Accessの後継Paramount+が米国・カナダ・中南米で2021年3月4日開始 - TechCrunch Japan NRIセキュア、特権ID管理ソリューション「SecureCube Access Check」新版を発売、PCI DSS対応機能などを追加 - クラウド Watch ホンダアクセス東京オートサロン2021公式サイト - Honda モータースポーツ 「Prisma Access」で実現する、死角なしのSASEソリューション リモートで働く時代のサイバーセキュリティ環境とは - ログミー ACCESSと金沢大学が、世界で初めて、小脳のフィードフォワード制御に着目し、認知機能低下を簡易に検知するスマートフォン向けサービスの開発に向けて共同研究を実施 - PR TIMES なんでAccessが嫌われるか：ヒエログリフ -エンジニア版-：エンジニアライフ - @IT S3 にリクエストを送信する際の「AWS Access Key Id」(AWS アクセスキー ID) エラーを解決する - amazon.com 新機能 – AWS Organizations での AWS IAM Access Analyzer 使用 | Amazon Web Services - amazon.com 属人化・サポート切れのリスク Microsoft Accessの継続利用は正しい選択か - 日経 xTECH Active 学外アクセス – 早稲田大学図書館 - waseda.jp accessとは accessの45%は華麗さで出来ています。accessの28%は利益で出来ています。accessの13%は愛で出来ています。accessの13%は濃硫酸で出来ています。accessの1%はアルコールで出来ています。 access＠ウィキペディア access Amazon.co.jp ウィジェット 掲示板 名前（ＨＮ） カキコミ すべてのコメントを見る ページ先頭へ access このページについて このページはaccessのインターネット上の情報を集めたリンク集のようなものです。ブックマークしておけば、日々更新されるaccessに関連する最新情報にアクセスすることができます。 情報収集はプログラムで行っているため、名前が同じであるが異なるカテゴリーの情報が掲載される場合があります。ご了承ください。 リンク先の内容を保証するものではありません。ご自身の責任でクリックしてください。
https://w.atwiki.jp/panders/pages/4.html
◆Access初心者用のページ
https://w.atwiki.jp/toolstorage/pages/46.html
Accessファイルチェック ソース Option Compare Database Option Explicit ACC_CheckAccessFile VBAでMDBやACCDBを操作する際に行う簡単なチェックを行う MDB・ACCDBのファイルにアクセスする前の確認項目 Private Sub class_initialize() なにもしません End Sub IsAccessDBFile 指定のファイル（含フルパス）が使用しているAccessのバージョンで開くことが可能なDBファイルかを確認する ①Accessのバージョンが2007以降では拡張子が「mdb」または「accdb」の実在するファイルのみTRUE ②Accessのバージョンが2003以前では拡張子が「mdb」の実在するファイルのみTRUE 上記①②以外はすべてFALSE その他のAccessに関連する拡張子のファイルは除外とします 引数：あり iFilePath ：String ：ファイル（含ファイルまでのフルパス） 戻り値：あり Boolean ：確認結果 Public Function IsAccessDBFile(ByVal iFilePath As String) As Boolean Dim result As Boolean 1.返却値の初期化 result = False 2.Accessのバージョンに対し、有効なファイルかどうか確認 If GetAccessFilePattern(iFilePath) 0 Then result = True End If IsAccessDBFile = result End Function GetAccessFilePattern 指定のファイル（含フルパス）が使用しているAccessのバージョンで有効なDBファイルかを確認する また、有効であった場合、そのパターンを判別可能な値を返却する ①Accessのバージョンが2007以降では拡張子が「mdb」の実在するファイルのみ有効（戻り値は11） ②Accessのバージョンが2007以降では拡張子が「accdb」の実在するファイルのみ有効（戻り値は12） ③Accessのバージョンが2003以前では拡張子が「mdb」の実在するファイルのみ有効（戻り値は1） 上記①～③以外はすべて無効なファイルとする その他のAccessに関連する拡張子のファイルは除外とします 引数：あり iFilePath ：String ：ファイル（含ファイルまでのフルパス） 戻り値：あり Long ：確認結果 Public Function GetAccessFilePattern(ByVal iFilePath As String) As Long Dim file As String Dim versionNumber As Double Dim resultLng As Long 1.返却値の初期化 resultLng = 0 2.Accessのバージョンの取得 versionNumber = Application.Version 3.対象ファイルの実在確認 file = Dir(iFilePath, vbNormal) If file "" And Len(iFilePath) 0 Then 4.ファイルが実在する場合バージョンにより判断方法を分ける If versionNumber 11 Then A.Accessのバージョンが2007以降の場合 If Right(file, 4) = ".mdb" Then 拡張子が「mdb」場合、返却値をTRUEにする resultLng = 11 ElseIf Right(file, 6) = ".accdb" Then 拡張子が「mdb」または「accdb」の場合、返却値をTRUEにする resultLng = 12 End If Else B.Accessのバージョンが2003以前の場合 If Right(file, 4) = ".mdb" Then 拡張子が「mdb」の場合、返却値をTRUEにする resultLng = 1 End If End If End If GetAccessFilePattern = resultLng End Function トップ
https://w.atwiki.jp/harunatuhuyu/pages/65.html
よくわかるトレーニングテキスト Microsoft Access2000〈2〉 仕事は、総てデータベースで管理すると、貴方の仕事環境はガラリと変化します。仕事の流れが記録できます。後々の行動をうまく運ぶことができるようになるでしょう。…… TOPMENU