今回は、Accessのクエリのデザインビューで、各フィールド（項目）の幅を一括で拡げる方法を紹介します。

フィールド内容が長くて隠れている際に有用ですよ♪

項目の幅を一括で拡げる方法

例として、こちらのクエリを一括で広げます。
現状は、郵便番号表示用や、お名前の後ろが隠れてしまっています。

１．フィールドをすべてドラッグし、フィールド名の間に（赤枠部分）カーソルを持っていく

２．＋マークが出てきたらダブルクリックする

これで、すべてのフィールドを一括で広げることができました♪

蛇足：フィールド名が複雑な場合は１つ１つズームがおすすめ

前項でフィールド幅を一括で拡げるする方法はお伝えしましたが、
フィールド名が複雑な場合は、フィールドの幅を広げるよりは１つ１つズームがおすすめです。

ズームは、フィールド名で右クリック→「ズーム」で使えます。

このようにズーム画面で全体が表示されます。
もちろん画面上で編集も可能です。

便利なところは、見やすい以外に、
Ctrl＋Enterで改行ができてミスに気付きやすいところです♪

式が複雑な場合はおすすめですよ。

以上です。
今回の記事が何かの参考になれば幸いです。ありがとうございました♪

投稿 【Access】クエリのデザインビューでフィールド幅を一括で拡げる方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はAccessVBAでDcount関数を使用したときに、
「実行時エラー ‘2471’: クエリ パラメーターとして指定した式でエラー ‘xxx’ が発生しました。」 とエラーコードがでてしまった場合の対処方法を紹介します。

DCount関数の使い方

対処方法を紹介する前に、簡単に使い方を紹介します。

Dcount関数は、
テーブル等（domain）のフィールド（expr）で値があるレコード、かつ条件（criteria）に合致するレコード数を取得します。

例えば、以下の「社員情報」テーブルで「氏名」フィールドをカウントし、
11000以上の社員NOを取得するときは、このように指定します。

・社員情報

・コード

Sub DCount_OK()

    Dim Tmp As Long
    
    Tmp = DCount("氏名", "社員情報", "社員NO > 11000")
    
    Debug.Print Tmp

End Sub

結果は「2」です。

ここで、例では各要素がダブルコーテーション（”）でくくられていることがわかると思いますが、
Dcount関数を記述する際に一癖あるのが、各要素が文字列であることです。

エラーの原因は？どんな状況で発生する？

私の場合、変数を使って条件を可変にしようとした際にエラーがでました。

前述のDcount関数の使い方にも記述しましたが、
Dcount関数は各要素に文字列を入れる必要があります。

そこで、条件の文字列の中に変数名を入れてしまうと、
「’変数名’という値と比較できないよ！」とエラーが出てしまいます。
なんとなく、「”A > 999″」という書き方ができるため、変数でもいけるのでは？と思ったのが間違いでした。

・コード（誤った例）

Sub DCount_Err()

    Dim Tmp As Long
    
    Dim TestErr As Long
    TestErr = 11000
    
    Tmp = DCount("氏名", "社員情報", "社員NO > TestErr")
    
    Debug.Print Tmp

End Sub

・エラーメッセージ

対処方法

対処方法ですが、
以下のように変数部分を文字列と「＆」で結合させると正しく出力されます。

Sub DCount_Err()

    Dim Tmp As Long
    
    Dim TestErr As Long
    TestErr = 11000
    
    Tmp = DCount("氏名", "社員情報", "社員NO > " & TestErr)
    
    Debug.Print Tmp

End Sub

これで、繰り返し処理などで可変の値が入っても対応することができます。

投稿 【Access】Dcount「クエリ パラメーターとして指定した式でエラー ‘xxx’ が発生しました。」対処方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessで「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にする方法を紹介します♪

本設定で、全てのオブジェクト（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を隠すことができます。

非表示方法１（オプション変更）

「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にすることで、
Access利用者に触らせたくない・見せたくないオブジェクトを隠すことができるようになります。

手順としては以下となります。

１ ．ファイルタブ→オプション→カレントデータベース→「ナビゲーション ウィンドウを表示する」のチェックを外す

２．OKを押すとAccessの再起動を求められるので、指示通り開きなおす

これだけで以下のように、「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にすることができます。

表示方法１ー１（オプション変更）

逆に「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」が非表示になっていた場合の表示方法を紹介します。

まず、先ほどの逆設定をする方法です。

１ ．ファイルタブ→オプション→カレントデータベース→「ナビゲーション ウィンドウを表示する」のチェックを入れる

２．OKを押すとAccessの再起動を求められるので、指示通り開きなおす

以上です。

表示方法１－２（Shift押下）

オプションを変えずに開く方法もあります。

１．「Shift」を押しながら、Accessファイルをダブルクリックして開く。

これで 「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」 が表示した状態で開けます。

番外編：非表示方法（Access Runtime（ランタイム版）使用）

次に、Access利用者にAccess Runtime（ランタイム版）を使ってもらう方法があります。

Access Runtime（ランタイム版）は無償のAccessで、有償版とは違い
そもそも「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を見る機能が搭載されていません。

Download Microsoft Access 2016 Runtime from Official Microsoft Download Center

Microsoft Access 2016 Runtime を使用すると、コンピュータに Access 2016 を完全インストールしていないユーザーに対しても、Access 2016 アプリケーションを配布することができます。

www.microsoft.com

「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を見る機能がないだけで、
Accessファイル自体は普通に使用できるので、
無償で対応できるAccess Runtime（ランタイム版）もおすすめです。

今回の記事は以上です。

また、オブジェクト単位の隠しオブジェクト機能を使った非表示設定については
こちらで紹介していますので良かったらどうぞ！

【Access】非表示のテーブル等を表示する【隠しオブジェクト】

Accessで隠しオブジェクトとなっている非表示のオブジェクト（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を表示する方法について紹介します♪

nyanblog2222.com

2021.11.06

何かの参考になれば幸いです。それでは♪

投稿 【Access】すべてのアクセスオブジェクトを非表示（ナビゲーションウィンドウ非表示） は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessで隠しオブジェクトとなっている非表示のオブジェクト
（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を表示する方法を紹介します。

以下のように、存在するはずのオブジェクトが非表示になっている状態を表示させます♪

オブジェクトの非表示設定

まず、どうやってテーブルなどを非表示にしているかですが、
オブジェクトに、隠しオブジェクトという属性を付与することによって非表示にしています。

手順としては以下となります。

１．オブジェクトを右クリックし、テーブルプロパティ→隠しオブジェクトのチェックを入れる

↓

これで、このように非表示になります。

非表示にすることで、Access利用者に触らせたくない・見せたくないオブジェクトを隠すことができるようになります。

オブジェクトの表示設定

それでは本題の表示方法です。

１．ファイルタブ→オプション→カレントデータベース→ナビゲーションオプション

２．隠しオブジェクトの表示のチェックに入れる→OK

これで、以下のように薄っすらとオブジェクトが表示されるようになります。
中身の確認だけしたい場合は、これだけでもOKです。

４．薄っすらと表示されるオブジェクトを右クリックし、テーブルプロパティ→隠しオブジェクトのチェックを外す

↓

これで隠しオブジェクトではなくなり、通常通り表示されます。

今回の記事は以上です。

また、「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」自体の非表示設定については
こちらで紹介していますので良かったらどうぞ！

【Access】すべてのアクセスオブジェクトを非表示（ナビゲーションウィンドウ非表示）

今回は、Accessで「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にする方法を紹介します♪ 本設定で、全てのオブジェクト（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を隠すことができます。 非表示方法...

nyanblog2222.com

2021.11.06

何かの参考になれば幸いです。それでは♪

投稿 【Access】非表示のテーブル等を表示する【隠しオブジェクト】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、テーブルやクエリを結合するユニオンクエリの使い方を紹介します。

SQLが苦手な方は、
「小技）SQLが分からなくても大丈夫！ミスなく簡単にユニオンクエリを作成する方法」
も合わせてご覧になってください。

ユニオンクエリとは

ユニオンクエリは、テーブルやクエリを結合することができるクエリです。
それ以上でもそれ以下でもありませんが、 使えると非常に便利なクエリです。

例えば、実際の業務では
AというテーブルとBというテーブルがあった際に、
途中の処理は違うけど最終的に同じデータの構造にして結合させるとき等に使ったりします。

テーブルの結合自体は追加クエリ等でも実現できますが、
新しくテーブルを作る、もしくは結合元のテーブルに追加して更新してしまう必要があったりと
テーブルを結合させるだけならユニオンクエリがスマートかと思います。

基本の使い方（UNION）

ユニオン画面の開き方

クエリデザイン→ユニオンで、ユニオン画面が開けますので、
そこにコードを入れることで使用できます。

１．クエリデザインをクリックし、デザインビューを開く

２．ユニオンをクリック

３．コード画面が開くので、記述して保存したら使用できるようになる

２つのテーブルを結合

基本的にユニオンクエリでは、
SELECT句で繋げたいテーブルを呼び出し、UNIONで結合させます。

例えば、テーブル1・2を結合させる場合は以下のように記述します。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ ユニオンクエリ出力結果

このように結合されます。
重複している 社員NO「100001」 は1件になって出力されます。
重複も出したい場合については後述します。

３つ以上のテーブルを結合

単純にUNIONを追加していくだけで、3つ以上結合することもできます。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2
UNION SELECT * FROM テーブル3;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

基本＋α

重複レコードの扱い（UNIONとUNION ALL）

先ほどUNIONでは重複レコードは除去されるとお伝えしましたが、
逆に重複レコードも表示したい場合は、UNION ALLを使います。

使い方は、UNIONをUNION ALLに置き換えるだけです。

SELECT * FROM テーブル1
UNION ALL SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

絞り込み（Where）

ユニオンクエリは、通常の選択クエリと同様に絞り込みができます。
注意点として、絞り込む際はそれぞれのSELECT～に対してWhere句をつけることです。

★OK例（それぞれにWhere句）
　例えば、テーブル1から社員NO「100001」、テーブル2から社員NO「200001」を抜き出し結合する場合

SELECT * FROM テーブル1
where 社員NO = 100001
UNION SELECT * FROM テーブル2
where 社員NO = 200001;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

★NG例（最後にWhere句）
　例えば、本当は社員NO「100001」「200001」だけを抜き出したい場合

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2
where 社員NO = 100001 OR 社員NO = 200001;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

この場合、Where句はテーブル2に適用されるため、テーブル1は全て出力されます。

並び替え（ORDER BY）

ユニオンクエリは、通常の選択クエリと同様に並び替えができます。
注意点として、Where句とは異なり最後にORDER BY句をつけて全体を並び替えることです。
（途中につけてもエラーにはなりませんが並び替えされません）

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2
ORDER BY 生年月日

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

注意：結合するテーブルのフィールドが異なったらどうなるか

問題なく実行できる場合もありますが、基本的には合わせるのが無難です。

データ型が異なる場合

項目のデータ型が異なっている場合でも、テキスト型として結合されます。

例えば、テーブル1のある項目が日付型、テーブル2のある項目がテキスト型だった場合

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

異なるフィールド（データ型が異なる）

項目数が異なる場合

項目数が異なる場合はエラーがでます。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

「ユニオン クエリで選択した 2つのテーブルまたはクエリの列数が一致しません。」

項目名が異なる場合

ユニオンクエリは項目名を見ていないため、問題なく処理できます。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

小技）SQLが分からなくても大丈夫！ミスなく簡単にユニオンクエリを使う方法

ここまで読んで、SQLを学んだことがない方は、

Accessの知識だけで出来ないのはややこしいな……。ユニオンクエリって難しいな……

と思う方もいらっしゃるかもしれません。
確かに基本レベルのテーブル結合ならともかく、Where句等を使った少し難しいユニオンクエリをやろうとするとSQLの基本知識が必要です。

ただ、次に紹介する方法であれば特にSQLの知識がなくとも使うことができます。

具体的には以下のように作成します。

１．クエリを作成してSQLビューで開き、メモ帳にコピー（;は削除）

↓SQLビューで開く

↓

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002));

↓「;」を削除し、メモ帳にコピー

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))

２．改行してUNION　or UNION ALLを入れる

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))
UNION

３．クエリを作成してSQLビューで開き、メモ帳にコピー（必要であれば並び替えをする）

↓

SELECT [テーブル2].ID, [テーブル2].社員NO, [テーブル2].氏名, [テーブル2].生年月日, [テーブル2].所属
FROM テーブル2
ORDER BY [テーブル2].生年月日;

↓

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))
UNION
SELECT [テーブル2].ID, [テーブル2].社員NO, [テーブル2].氏名, [テーブル2].生年月日, [テーブル2].所属
FROM テーブル2
ORDER BY [テーブル2].生年月日;

４．並び替えをする場合は、ORDER BY句の前にあるテーブル名を消す

前述の通り、並び替え（ORDER BY）だけは「最後に１つだけ」というルールがあるため全体にORDER BYがかかるように前のテーブル名は削除します。

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))
UNION
SELECT [テーブル2].ID, [テーブル2].社員NO, [テーブル2].氏名, [テーブル2].生年月日, [テーブル2].所属
FROM テーブル2
ORDER BY 生年月日;

５．メモ帳からユニオンクエリ上にコピーして完成

出来上がりです。

◆実際のデータ例

・結合データ

・ ユニオンクエリ出力結果

これなら、SQLが分からなくても難なくできるかと思います♪

投稿 【Access】ユニオンクエリで結合テーブル作成【UNION】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessのクエリ等を実行した際に、
「式に未定義関数 ‘xxx’ があります。」とエラーメッセージが出て処理できない場合があります。
このエラーには原因が複数パターン想定されるため、それぞれの対処方法を紹介します。

エラー原因

原因は複数パターンありますが、ざっくり言うと
システムがモジュール内に関数内で使用していないのに使っていると判断しているためです。

以下の通り、うっかりミスからややこしいものもあるため
対処するには一つ一つ順に見ていきましょう。
（上から順に可能性の高いパターンです）

対処方法

以下の正常な状態を一部変更し、エラーパターンを作成していきます。

クエリでの関数呼び出し：「挨拶: CallHello()」

モジュール名：「こんにちは」
関数名：「CallHello()」

Function CallHello() As String

CallHello = "Hello World"

End Function

関数を定義していない、又は誤った関数名を使用している場合

勘違いで呼び出す関数を定義していない、又は誤った関数名を使用している場合、
呼び出すことができずエラーになります。

例えば、
Function CallHello() As String　と宣言しているのに、
CallHallo()で呼び出している場合等

調べるには、一度クエリから呼び出している関数名で、Visual Basic画面にて
プロジェクト内のコード内を検索（ショートカットキー：「Ctrl+F」）してみましょう。
もしなければ、誤っていますのでクエリを変更してください。

関数名とモジュール名が同じ場合

関数名とモジュール名が同じ場合、システム上名称が被ってしまいエラーとなります。

例えば、
Function CallHello() As String　と宣言しており、
モジュール名もCallHelloになっている場合等

この場合、関数名又はモジュール名を変更してください。

ライブラリが参照不可になっている場合

ライブラリが参照不可になっており、
ライブラリ内の関数を使用していた場合、エラーとなります。
パソコンの交換やOS・Officeのバージョンアップでエラーが上がるようになった場合は、
このケースの可能性があります。

この場合、Visual Basic画面にてツールタブから参照設定を開き、参照不可がある場合は、
参照をあらためて追加するか、関数を自前で作成する等やり方を変える必要があります。

関数の宣言でPrivateを使っている場合

関数の宣言でPrivateを使っている場合、
モジュール内からしか呼び出すことができないため、エラーとなります。

Privateはアクセス修飾子と呼ばれ、他にPublic等があります。
以下の通りアクセス修飾子によって参照できる範囲（スコープ）が限られており、
・Private Function：モジュール内のみ参照可
・Public Function：モジュール外から参照可
・Function：暗黙的にPublicとなるため、モジュール外から参照可
となります。

なので、例えば、
Private Function CallHello() As String　と宣言している場合は、
Function CallHello() As String 又は
Public Function CallHello() As String
に変更する必要があります。

関数名に２バイト文字が使用されている場合

関数名に日本語等の２バイト文字が使用されている場合、
VBA上はコンパイルできても対応してはいないので、クエリから呼び出すとエラーとなります。

なので、例えば、
Function 挨拶する() As String　と宣言している場合は、
Function CallHello() As String
に変更する必要があります。
（クエリからの呼び出し側も同様に、CallHello()へ変更）

モジュールが破損している場合

モジュールが破損している場合、呼び出せずエラーとなります。

この場合は、新しくモジュールを作成し、ソースコードをコピーして作り直す必要があります。

投稿 【Access】式に未定義関数 ‘xxx’ があります。[原因,対処方法] は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Access Runtime（ランタイム版）実行時の
「セキュリティに影響を及ぼす可能性のある問題点が検知されました。」
警告メッセージを非表示にする設定について紹介します。

なぜ警告が表示されるか

警告メッセージに、
「警告：このコンテンツの発行元が信頼できるかどうかを確認することはできません。このコンテンツが重要な機能を備えており、発行元が信頼できる場合を除き、このコンテンツは無効のままにしてください。」
と、書いてあるとおり、発行元が信頼できるかどうかを確認できないためです。

この警告はメッセージこそ違えど、以下のように有償のAccessにも同じように出てきます。

対処方法は、有償・無償共通で以下２つあります。
１．信頼できる場所に追加する
２．すべてのマクロを有効にする

ただ、有償のAccessの場合はセキュリティ設定を変更することで対処できますが、
（ファイル→オプション→セキュリティセンター→セキュリティセンターの設定で、
「信頼できる場所」「マクロの設定」が変更できます。）
無償のAccess Runtime（ランタイム版）は設定変更の機能を持ち合わせていません。

よって、対処方法を実施するためにはレジストリを変更する必要があります。

対処方法

以下のどちらかの箇所のレジストリを変更することです。
１．信頼できる場所に追加する
２．すべてのマクロを有効にする

レジストリ変更方法は
・レジストリエディターで変更する方法
・コマンドプロンプト（BAT）で変更する方法
があります。

両方紹介しますが、コピペするだけででき、見当違いの場所を変更してしまうなどミスも減ること、
複数台のパソコンに反映できること等考慮すると、
コマンドプロンプト（BAT）で変更する方法がおすすめです。

信頼できる場所に追加する

レジストリエディターで変更する方法

まずレジストリエディターを開きます。
「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「regedit」と入力してエンターを押すと開くことができます。

その後、以下の階層に移動し、
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\XX.0\Access\Security\Trusted Locations」
左側の枠内の「Trusted Locations」を右クリック→新規→キー
→名前を「Location10（既定のLocation2以外の数値で設定）」に変更
→右側の枠内で右クリック→新規→文字列値→名前を「Path」
→「Path」をダブルクリック→値を普段使用するAccessファイルの入ったフォルダパスに変更
→右側の枠内でクリック→新規→DWORD値→名前を「AllowSubfolders」
→「AllowSubfolders」をダブルクリック→値を「1」に変更

これで設定完了です。
上記の階層はAccessのバージョンによって異なり、以下の通りです。

・Access 2016 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations」

・Access 2013 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security\Trusted Locations」

・Access 2010 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security\Trusted Locations」

コマンドプロンプト（BAT）で変更する方法

以下をAccess Runtimeのバージョンに合わせて、
管理者権限を持つユーザーにてコマンドプロンプトから実行してください。

「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「cmd」と入力してエンターを押すと開くことができます。

BATで利用する場合、以下で紹介するコマンドをメモ帳へコピーして保存し、
最後に拡張子を「txt」から「bat」にしてから実行（クリック）してください。

・Access 2016 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location10" /v AllowSubfolders /t "REG_DWORD" /d "1" /f
REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location10" /v Path /t "REG_SZ" /d "C:\信頼済みフォルダ" /f

・Access 2013 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security\Trusted Locations\Location10" /v AllowSubfolders /t "REG_DWORD" /d "1" /f
REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security\Trusted Locations\Location10" /v Path /t "REG_SZ" /d "C:\信頼済みフォルダ" /f

・Access 2010 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location10" /v AllowSubfolders /t "REG_DWORD" /d "1" /f
REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location10" /v Path /t "REG_SZ" /d "C:\信頼済みフォルダ" /f

すべてのマクロを有効にする

レジストリエディターで変更する方法

まずレジストリエディターを開きます。
「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「regedit」と入力してエンターを押すと開くことができます。

その後、以下の階層に移動し、
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\XX.0\Access\Security」
右側の枠内でクリック→新規→DWORD値→名前を「VBAWarnings」
→「VBAWarnings」をダブルクリック→値を「1」に変更

これで設定完了です。
上記の階層はAccessのバージョンによって異なり、以下の通りです。

・Access 2016 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security」

・Access 2013 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security」

・Access 2010 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security」

コマンドプロンプト（BAT）で変更する方法

以下をAccess Runtimeのバージョンに合わせて、
管理者権限を持つユーザーにてコマンドプロンプトから実行してください。

「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「cmd」と入力してエンターを押すと開くことができます。

BATで利用する場合、以下で紹介するコマンドをメモ帳へコピーして保存し、
最後に拡張子を「txt」から「bat」にしてから実行（クリック）してください。

・Access 2016 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security" /v VBAWarnings /t "REG_DWORD" /d "1" /f

・Access 2013 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security" /v VBAWarnings /t "REG_DWORD" /d "1" /f

・Access 2010 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security" /v VBAWarnings /t "REG_DWORD" /d "1" /f

どちらの対処方法がいいか

１．信頼できる場所に追加する
２．すべてのマクロを有効にする

の設定方法について紹介しましたが、どちらの方法を選べばいいかですが、
セキュリティの観点だと「信頼できる場所に追加する」、
運用の観点だと「すべてのマクロを有効にする」です。
（ただ個人的には大差ないので、完全に好みかなと個人的には思ってます……）

「信頼できる場所に追加する」を選ぶメリット

利用者の限定されるAccessなので、悪質なマクロ付きファイル自体多くないかもしれません。
ただ、「信頼できる場所に追加する」であれば最低限のセキュリティを担保することができます。
例えば、普段使用するAccessファイルの入ったフォルダ（ファイルサーバー）を信頼済みに設定しておくことで、
それ以外で使用するファイル（例えばメールで送られてきたファイル）のみ警告で注意喚起することができます。

「すべてのマクロを有効にする」を選ぶメリット

「すべてのマクロを有効にする」だとマクロは何でも有効になるので、
どこでAccessファイルを動かしても警告がでることはありません。
なので、組織内でどこのフォルダにAccessを作る等ルールを作る必要はありませんし、
例えば社内の情報部門であった場合、社員から警告についての問い合わせを全く受けることがありません。
もしレジストリエディタで設定する場合は、手順も簡単です。

投稿 【Access Runtime】セキュリティ警告’非表示’設定[ランタイム] は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はAccessのクエリやマクロを使用した際に、
「メモリ不足です。」 と突然エラーコードがでてしまった場合の対処方法を紹介します。

エラーの原因は？どんな状況で発生する？

エラーメッセージが「メモリ」とあるのでパソコンのメモリと勘違いしやすいですが、
原因はクエリやマクロを使用した際に、Accessファイルが2GBを超えてしまうためです。

Accessはファイル全体で最大2GBという制限があります。
私の場合、大規模データを扱うAccessの改修中、
突然「メモリ不足です。」と出て、 以下の対処をすることで解決できました。

＜効果のあったこと＞
・Accessファイルの最適化

＜効果のなかったこと＞
・メモリを8GBから16GBに増設
・仮想メモリを付与
・MaxLocksPerFileというトランザクション処理の最大値を変更
・パソコン再起動
・Accessファイルの修復　等

対処方法

今回のエラーの原因が、Accessファイルが2GBを超過することにあるため、
対処方法は以下のファイルサイズ対策になります。

• Accessファイルの最適化（おすすめ！）
  （手動・自動による最適化）
  Accessファイルを最適化することで、不要な領域を整理する
  メリット：簡単で、今まで通り利用できる
  デメリット：最適化しても容量が2GBを超える場合対応できない
• Accessファイルの分割
  Accessファイルのデータを別のAccessファイルに作り、リンクテーブルで連携する。
  例）AccessAはAテーブル、AccessBはBテーブル。AccessAからBのリンクテーブルを貼る
  メリット：すべてのテーブル容量の合計が2GBを超過しても使用できる
  デメリット：個々のテーブル容量が2GBを超過すると使えない
• DB構築
  SQLServerやPostgresなどDBを構築し、 データはDBからリンクテーブルで利用、編集や更新等はAccessで行う
  メリット：テーブルの容量が2GBを超過しても使用できる
  デメリット：DB構築は少しハードルが高い

ただ、「メモリ不足です。」エラーが出る場合、単純に最適化ができていないことが多いため、 次項からはAccessファイルの最適化だけに絞って説明します。

Accessファイルの最適化（手動）

手動で最適化する方法です。
最適化は数分程度かかることもあるため、ユーザーの都合のいいときに最適化できます。
デメリットは意識的に行わないとならないことです。

方法は、「ファイル」→「情報」から、「データベースの最適化／修復」を選択するだけです。

押すと、最適化が開始され、右下にメッセージが現れます。

Accessファイルの最適化（自動）

自動で最適化する方法です。
Accessファイルを閉じる際に、毎回最適化されるのでユーザーは意識せず最適化できます。
デメリットとしては、毎回最適化に時間がかかることや、
複数ユーザーで頻繁に使用すると破損するリスクがあるため、あまり使用しない方がいいという意見もあります。

方法は、「ファイル」→「Accessのオプション」から、「閉じるときに最適化する」を選択するだけです。

備考：「メモリ不足です。」エラーを再現するには

まず、以下のコードを実行して、2GB弱のデータを作ります。
（コード自体は2GB以上作ろうとするので、処理の途中でAccessが固まる or エラーになります）
コードは、「Microsoft Docs：Access テーブルで操作を実行すると、”ディスク領域またはメモリが足りない” というエラーが発生する」を参考にしています。

Sub CreateBigTable()
　　Dim db As Database, rs As Recordset
　　Dim iCounter As Long, strChar As String
　　Set db = CurrentDb
　　db.Execute "CREATE TABLE BigTable (ID LONG, Field1 TEXT(255), " & _
　　　　"Field2 TEXT(255), Field3 TEXT(255), Field4 TEXT(255))", _
　　　　dbFailOnError
　　Set rs = db.OpenRecordset("BigTable", dbOpenDynaset)
　　iCounter = 0
　　strChar = String(255, " ")
　　While iCounter <= 100000000
　　　　rs.AddNew
　　　　rs!ID = iCounter
　　　　rs!Field1 = strChar
　　　　rs!Field2 = strChar
　　　　rs!Field3 = strChar
　　　　rs!Field4 = strChar
　　　　rs.Update
　　　　iCounter = iCounter + 1
　　Wend
　　MsgBox "Done!"
End Sub

次に、できたテーブルを使用してクエリを作成し、動作させると 「メモリ不足です。」のエラーが再現できます。

投稿 【Access】メモリ不足です。【対処方法・原因】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

AccessのクエリやVBA、SQLでよく使うデータ型変換関数をまとめました。

◇よく使うデータ型変換とは？
Googleで頻繁に検索されているものを主に紹介。
・文字列⇔数値
・文字列⇔日付型
・メモ型→文字列（テキスト型）
・数値→通貨型
その中でもあまり使わないものの説明は省略しています。

※許容範囲の大きい型から小さい型への変換は注意してください！
　エラーなく桁落ちするのでバグと認識しにくいです。

よく使うデータ型変換と使用例

文字列⇔数値

・文字列→数値（整数型）

CInt([項目名])

変換例

・文字列→数値（長整数型）

CLng([項目名])

変換例

・文字列→数値（倍精度浮動小数点型）

CDbl([項目名])

変換例

 参考：文字列→数値においてValやCSng、CDecを使わない理由

・Val
文字列から数値への変換といえば、Val関数もありますが、
文字列に「，」や「￥」、全角文字が含まれると対応できない（値が0になる）ため、あまりおすすめできません。
汎用性を考えるとCDbl([項目名])がおすすめです。

・CSng
単精度浮動小数点型は演算誤差が発生しやすくおすすめできません。
そもそもややこしい分野なのであまり理解せず使用するには危険かと思います。 

・CDec
Access クエリではサポートされていません。

・数値→文字列

CStr([項目名])

変換例

↓　文字列変換

・変換値にNullが含まれる場合

変換元の項目に値が何もない（Null）場合がありますが、
変換関数で出力される値は殆どの場合「#エラー」となってしまいます。
そのため、Nullが想定される場合はNullを指定の値に置換するNz関数を利用します。

Nz([項目名], 置換値）

例）CDbl(Nz([項目名],0))、CStr(Nz([項目名],0))
　　変換前にNullが0に置換されるので、エラーとなりません。

文字列⇔日付型

・文字列→日付型

基本、日付型への変換はCDateを使用しますが、
文字列がどのような形式かでやり方が異なります。

・「YYYY/MM/DD」「YYYY年MM月DD日」「gg年MM月DD日」形式の場合

CDate([項目名])

変換例
「#エラー」となっている箇所については、次項から説明します。

・「YYYYMMDD」形式の場合

CDate(Format([項目名],"@@@@\/@@\/@@"))

または、

DateSerial(Mid([項目名],1,4),Mid([項目名],5,2),Mid([項目名],7,2))

どちらの関数を使っても結果は特に変わらないため好みだと思いますが、
個人的には見やすく、ミスも少なそうなのでFormatを使用するのがおすすめです。

変換例

・「YYYY.MM.DD」形式の場合

CDate(Replace([項目名],".","/"))

変換例

・文字列がNullの場合

IIf(IsNull([項目名]),Null,CDate([項目名]))

NullであればNullを返すので、エラーとなりません。

・日付型→文字列型

CStr([項目名])

変換例

メモ型→文字列（テキスト型）

変換関数はありません。

変換不要で、
・メモ型→文字列
に値の代入（更新）ができます。

数値→通貨型

CCur([項目名])

変換例

参考：データ型変換関数一覧（Microsoft公式サイトより）

データ変換関数は主に以下のような「C」から始まるものがあります。
これらの他にも変換関数はありますが、これだけ知っていたら十分かと思われます。

Microsoft：データ型変換関数より引用

投稿 【Access】データ型変換まとめ【文字列・数値・日付など】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

正常に動いていたAccessファイルが、突然 「Microsoft AccessがOLEサーバーまたはActiveXコントロールと通信しているときにエラーが発生しました」 とエラーメッセージが出て使えなくなってしまった場合の対処方法を紹介します。

エラーの原因は？どんな状況で発生する？

エラー原因

調べてみると、対象のAccessファイルのフォーム等に何かしらの不具合があることが原因のようでした。
ただ、「これが原因！」というのは判別しづらいようですね。

どんな状況で発生するか

色々なパターンがあるようですが、
主にAccessファイルを作成したパソコンと異なるパソコンで使用すると起きるようです。

参考として、私は以下の状況でエラーが発生しました。

これは私の想像になりますが、新パソコンのチェック機能の強化により、旧パソコンではチェックされていなかった不具合が表に出てきてしまったのかもしれません。
新しいパソコンだと性能はもちろんセキュリティなども強化され、昔できていたことができなくなることはよくあることだからです。

対処方法・注意事項

対処方法

対処方法は「新しいAccessファイルを作り、元のAccessファイルから全ての情報をインポートする」です。
（説明する際の画像はMicrosoft Office 2010のものですが、手順自体はMicrosoft Office 2019でも同じです）

詳細な手順は以下になります。

（前準備）拡張子がmdbの場合は、accdb変換
必須ではありませんが、mdbはいつか使えなくなる危険性があるのでこのタイミングで変換しておいた方が無難です。
例）CSVインポート.mdb→CSVインポート.accdb
変換した場合はショートカットはもちろん、Accessファイルが他のAccessファイルからリンクテーブルとして参照されている場合、リンク先が変わってしまうためご注意ください。

１．対象のAccessファイルが入っているフォルダと異なるフォルダで右クリックし、 新規作成からMicrosoft Access データベースをクリック

２．新規作成されたAccessファイルを、対象のAccessファイルと同じ名前とする

例）「新規 Microsoft Access データベース.accdb」を作成し、「CSVインポート.accdb」にリネーム

３．２で作成したAccessファイルを開き、外部データタブからAccessデータベースのインポートを選択

４．対象のAccessファイルをクリックして、OKを押すと「オブジェクトのインポート」画面が出るので、オプションをクリック

５．オプションで出てきたチェック項目を全てチェックする

６．全てのタブ（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）ですべて選択をクリックし、OKをクリック

７．Accessファイルを閉じて、元々のAccessファイルのフォルダに移し替える。

※元々のAccessファイルは念のため名前を変えてバックアップとして残しておいてください。

これでAccessファイルの作り直しは完了です。

インポート中に何かしらエラーで取り込めないものがありますが、
恐らく何かしら問題のあるオブジェクトがほとんどですので、
基本不要なものなので気にしなくてもいいかと思います。

ただ、 念のためそのオブジェクトが使われていないかはインポート後に確認して、
必要であれば個別に対象のAccessファイルからコピペしてきてください。

注意事項

上記方法では、VBAのプロジェクト名は引き継がれないので注意してください。
例えば、DAOを使ってテーブル操作をする場合は、Databeseオブジェクトの変数を宣言していたりしますが、その場合、被らないようにプロジェクト名をあえて固有の名前に変えていたりします。

その場合、インポート後に手で直してください。

↓

投稿 【対処方法】Microsoft AccessがOLEサーバーまたはActiveXコントロールと通信しているときにエラーが発生しました は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

Accessマクロで関数（VBA）を呼び出した際に出てくる「指定した式に、Microsoft Accessが見つけることができない関数名が含まれています。」の対処方法をいくつか紹介します。
（内容についてはMicrosoft Access 2010で確認）

マクロで呼び出す関数の名称が間違っている

関数名と、マクロで呼び出す関数の名称が異なっているとエラーメッセージが表示されます。

以下の事例だと、関数名が「FileOpen()」なのに対し、マクロでは「FileOpn()」となってしまっています。
この場合、マクロでは関数名と同じ「FileOpen()」を呼び出してください。

関数：

Public Function FileOpen()
　～
End Function

マクロの関数（プロシージャ）呼び出し：

=FileOpn()

関数名に日本語が含まれる

関数名に日本語が含まれているとエラーメッセージが表示されます。

以下の事例だと、関数名が「Fileを開く()」となっており日本語が含まれています。
この場合、日本語は使わず「FileOpen()」などの名前にしてください。

関数：

Public Function Fileを開く()
　～
End Function

関数名とモジュール名が同じ

関数名とモジュール名が同じ場合エラーメッセージが表示されます。

以下の事例だと、関数名が「FileOpen()」に対し、モジュール名も「FileOpen」になってしまっています。
この場合、モジュール名は「ファイルを開く」など関数名と異なる名前にしてください。

関数：

Public Function FileOpen()
　～
End Function

モジュール名：

FileOpen

ちなみに「関数名とマクロ名が同じ」場合はエラーメッセージは出ません。

投稿 【対処方法】指定した式に、Microsoft Accessが見つけることができない関数名が含まれています。 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Access無作為抽出の方法をいくつかご紹介します。

無作為抽出とは、ある母集団から、ランダム（無作為）にサンプルを抽出する方法です。
使う状況でいえば、例えば企業の市場リサーチを目的としたアンケート等がありますね！

Rnd関数を使った方法

Rnd関数は「Rnd(引数)」で呼び出し、0以上1未満の単精度浮動小数点型の乱数（疑似乱数）を返します。今回はこのRnd関数を使用してランダム値を生成し、そしてランダム値を使って並びかえ上位から件数分抜き出し、無作為抽出を実現します。

クエリから引数なしで呼び出す（失敗例）

まずRnd関数を使った失敗例からです。
単純にクエリでRnd関数を引数なしで呼び出せば無作為抽出できそうではありますが……。

テーブル情報

クエリ内容
・下部の赤枠でRnd関数を呼び出し、右上の赤枠部分で上位25件を抽出

結果

このように全レコードに同じ乱数が入ってしまいます。値がすべて同じなので上位25件ではなく1000件すべてが抽出されてしまっていますね。
これはAccessのクエリ最適化の仕様で、引数なしで関数を呼び出した場合、一度しか実行してくれないためです（引数1など固定値でもNG）。
また、Randomizeを実行していないため、乱数ジェネレーター（乱数表）が初期化されません。そのため、もう一度Accessを開きなおし同じクエリを実行した場合、同じ結果になってしまいます。

よって上記をふまえ、以下の方法をご紹介します。

方法１：Rnd関数引数あり、RandomizeのみVBA

先ほどの失敗例を踏まえ、
・Rnd関数に引数を与えることでクエリ最適化を避ける
・Randomizeを実行し、乱数表を初期化する
　こちらは逆に１度呼び出されればいいため、クエリ最適化を利用する
　（何度も呼び出されると件数が多い場合負荷がかかる）
を考慮し、作成しました。

テーブル情報

クエリ内容
・Rnd([社員NO])でランダム値を各レコードに設定
・MyRandomize()で初期化
　抽出条件（Is Null）を加えることで、表示を消しても関数呼び出しができます。

VBA：乱数表初期化

' MyRandomize()
' 乱数ジェネレータ初期化関数
Public Function MyRandomize()
    Randomize
End Function

結果

正常に無作為抽出ができました。
この方法をとる場合は、Randomizeの呼び出し漏れに注意です。レコード件数が少なく処理が遅くなってもよいということであれば、ランダム関数を呼び出す定義関数を作り、その中でRandomizeを呼び出してもいいかもしれませんね。

方法２：VBAで一括ランダム値挿入（マクロ実行）

次に、クエリでRnd関数を呼び出さず、マクロで定義関数を呼び出し、その定義関数内でRandomize＋Rnd関数を呼び出す方法です。
またマクロで実行するため、先日以下の通りご紹介した定義関数で連番もふってます。

【Access】連番の振り方【Dcount以外も紹介】

Accessで連番の振り方を４つ紹介します。①EXCELから連番をコピペする②テーブル定義でオートナンバー型を使う③クエリでDcount関数を使う④マクロ（VBA）で連番用関数を作成する。…Dcount関数の処理速度の遅さに悩んでませんか？連番付番で高速処理したい方は必見です♪

nyanblog2222.com

2020.05.15

テーブル情報
・連番とランダム値項目を用意

クエリ内容

VBA：ランダム数セット
・Randomizeで初期化
・Loopでランダム値を各レコードに設定

' SetRandom(String,String)
' ランダム値をセット
' P1:テーブル名 or クエリ名
' P2:ランダム値項目名
Public Function SetRandom(TargetName As String, TargetField As String)
    
    ' 乱数ジェネレータを初期化
    Randomize
    
    Dim rsTarget As Recordset
    Set rsTarget = CurrentDb.OpenRecordset(TargetName, dbOpenDynaset)
    
    Do Until rsTarget.EOF
        rsTarget.Edit
        rsTarget.Fields(TargetField) = Rnd()
        rsTarget.Update
        rsTarget.MoveNext
    Loop
End Function

結果

正常に無作為抽出ができました。連番もついてますね。
この方法だと確実にRandomizeを呼び出すので、引き継ぎの際もわかりやすいかもしれませんね。ただマクロを使い慣れていないユーザもいるでしょうから、クエリだけでできないところがデメリットです。

テーブル定義のオートナンバー型（ランダム）を使った方法

あまりおすすめしませんが、Rnd関数を使わず、オートナンバー型でランダム値をセットすることもできます。

テーブル１（元テーブル）

クエリ１（追加クエリ）
・後述のテーブル２にレコードを追加

テーブル２
・オートナンバー型のランダム値項目を設定しておく

クエリ１実行結果
この時点で連番が振られています。

クエリ２（件数分抽出）

結果

正常に無作為抽出ができました。
VBAやマクロを使わないということがメリットですが、無理やり組んだ印象が強く、個人的には分かりづらいかなと思います。

投稿 【Access】無作為抽出（ランダム・サンプリング）[Rnd,VBA他] は nyanblog ~にゃんぶろぐ~ に最初に表示されました。