Access（アクセス）

データベースの作成や集計・精査などに役立つAccess。テーブルの組み方やクエリの設定方法などビジネスシーンでも活用できる内容が多いので知っておいて損はないでしょう。操作に困ったときはこちらで質問すると解決のヒントが見つかるかもしれません。

回答数

気になる

Accessのレポートについて

Accessのレポートをデザインビューで開くと「ヘッダー」「詳細」「フッター」などのセクションに分かれています。その「詳細」というセクションについてですが、プロパティでみると「高さ：1ｃｍ」と指定されています。しかし、実際に印刷してみると、表がドーンと入っており、10ｃｍくらいの高さがあるのです。これは、どういう状況なのでしょうか？また、この部分の高さを、5ｍｍくらい低くしたいのですが、どうしたら良いでしょうか？

質問日時: 2025/04/16 19:34 質問者: アルムの森の木

ベストアンサー

1

0
Accessフォームの配色テーマを変えたい

Accessフォームに「配色」の設定をするコマンドがあります。ですが、予め色々な設定がされているようで、ボタンを押しても配色が変わりません。設定を解除する方法はありますでしょうか。

質問日時: 2025/03/28 17:01 質問者: アルムの森の木

ベストアンサー

1

0
Accessのクエリの印刷設定

Accessでクエリの実行結果を印刷する際、用紙の向きを「横」にしたいのですが、プレビューでみると縦になっており、毎回「横」に設定し直してから印刷しています。毎回自動で「横」になるよう設定する方法は、ありますでしょうか。

質問日時: 2025/03/28 16:57 質問者: アルムの森の木

ベストアンサー

1

0
Accessデータベースに含まれる文字列の変換について

Accessデータベースに含まれる文字列の中の、特定の文字だけを変換したいです。具体的には、電話番号や郵便番号に含まれる「（アンダーバーなど）半角ハイフンに似た文字」を「半角ハイフン」に統一したいのです。「検索と置換」を使えば出来ますが、変換クエリを使うことで、一発で出来たらいいなと思っています。どのように設定すれば良いか、お分かりの方がいらっしゃいましたら、教えて下さるとうれしいです。

質問日時: 2025/03/23 09:57 質問者: アルムの森の木

解決済

1

0
アクセスで、実行時エラー2465 指定した式で参照されている注文番号フィールドが見つかりません

質問タイトルのエラーでデバッグすると、 Private Sub Form_BeforeInsert(Cancel As Integer) If DCount("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号 > 0) Then Me!注文番号 = DMax("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) + 1 Else Me!注文番号 = 1 End If End Sub 上記のVBAの、 Me!注文番号 = 1 のところで黄色反転して進みません。ご助言よろしくお願いいたします。

質問日時: 2025/03/19 09:07 質問者: tatsu-miyuma

ベストアンサー

1

0
アクセスで、実行時エラー3075 クエリー式伝票番号＝の構文エラー：演算子がありません

基本的な質問で申し訳ございません。質問タイトルのエラーでデバッグすると、 Private Sub Form_BeforeInsert(Cancel As Integer) If DCount("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) > 0 Then Me!注文番号 = DMax("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) + 1 Else Me!注文番号 = 1 End If End Sub 上記のVBAの If DCount("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) > 0 Then のところが黄色に反転して進みません。どのように訂正すれば、ご助言頂けないでしょうか？よろしくお願いいたします。

質問日時: 2025/03/18 13:57 質問者: tatsu-miyuma

ベストアンサー

3

1
お助けください

エクセルの、WorksheetChangeで、下記のコードを、使ってコマンドボタンの制御を、する場合に、関数で求められた結果値によって同じように、制御することは、できないでしょうか Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Value = "あああ" Then CommandButton1.Enabled = True ElseIf Target.Address = "$A$1" And Target.Value = "いいい" Then CommandButton1.Enabled = False End If End Sub

質問日時: 2025/03/12 19:47 質問者: naokifull

ベストアンサー

3

0
提供されるデータの形式が変わったら…

他社からの業務委託の仕事をしています。受領したデータを、Accessデータベースにインポートすると、様々な加工が自動で行われ、出力されるるようになっています。しかし、クライアント側がシステムを変更したなどの理由により、提供されるデータの形式や、列の名前（タイトル）、列の順番などが変わります。そうなると、そのままではデータベースシステムが使えず… Excelデータであれば、列の順番を手動で入れ替えてからインポート出来ると思いますが、テキスト形式のため、そのような方法も使えず… そんな時、どうされていますか？　何か参考になる事がございましたら、ご教示くださいませ。

質問日時: 2025/03/05 23:22 質問者: アルムの森の木

ベストアンサー

1

0
AccessのクエリをSQL文に変換するには

AccessのクエリをSQL文に変換したいのですが、複雑なクエリとなっており、手打ちするのは大変です。簡単に変換する方法は、ありませんでしょうか。

質問日時: 2025/02/22 20:36 質問者: アルムの森の木

ベストアンサー

2

0
Accessでレポートを印刷する時のプリンタ設定について

Accessでレポートを印刷する際、古いプリンタが設定されています。新しいプリンタに設定し直し、印刷しているのですが、次に同じレポートを開くと、やはり旧プリンタが設定されています。毎回、設定し直さなくて済む方法はないでしょうか。

質問日時: 2025/02/18 19:53 質問者: アルムの森の木

ベストアンサー

1

0
レポートの印刷を一括ではなくグループごとに行いたいのですが

office365を使用している者です。 ACCESSのレポートを印刷（PDF出力）すると，一つのファイルとして一括で行われます。それをグループごとにファイルが出力されるようにしたいのですが，どのようにしたら良いかご教示願います。よろしくお願いいたします。

質問日時: 2025/02/18 18:00 質問者: qazxcvfr4

解決済

2

0
Excelを開く時と閉じる時に一度下記の表示が出ます。どうすればこの表示を消すことが出来ますか？

WinZipExpressForOffice' has fired an exception. Click the 'Details' button to see the detailed information about the error. Detailed technical information follows: --- (Inner Exception) Date and Time: 2025/02/13 (木) 17:38:03 Machine Name: LAPTOP-PTSIPUS3 IP Address: fe80::197a:7654:ec40:〇〇〇〇〇 Current User: LAPTOP-PTSIPUS3\Owner Application Domain: C:\Program Files\WinZip\ Assembly Codebase: file:///C:/Program Files/WinZip/WinZipExpressForOffice.DLL Assembly Full Name: WinZipExpressForOffice, Version=1.2.13114.0, Culture=neutral, PublicKeyToken=86e07f6d9d2175ee Assembly Version: 1.2.13114.0 Exception Source: WinZipExpressForOffice Exception Type: System.IO.FileLoadException Exception Message: ファイルまたはアセンブリ 'Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'、またはその依存関係の 1 つが読み込めませんでした。アクセスが拒否されました。 Exception Target Site: AddinModule_AddinFinalize ---- Stack Trace ---- WinZipExpressForOffice.AddinModule.AddinModule_AddinFinalize(sender As Object, e As EventArgs) WinZipExpressForOffice.DLL: N 00000 (0x0) JIT AddinExpress.MSO.ADXAddinModule.AddinExpress.MSO.IDTExtensibility2.OnDisconnection(disconnectMode As ext_DisconnectMode, custom As Array&) WinZipExpressForOffice.DLL: N 1599 (0x63F) IL (Outer Exception) Date and Time: 2025/02/13 (木) 17:38:03 Machine Name: LAPTOP-PTSIPUS3 IP Address: fe80::197a:7654:ec40:6ae8%3 Current User: LAPTOP-PTSIPUS3\Owner Application Domain: C:\Program Files\WinZip\ Assembly Codebase: file:///C:/Program Files/WinZip/AddinExpress.MSO.2005.DLL Assembly Full Name: AddinExpress.MSO.2005, Version=8.4.4395.0, Culture=neutral, PublicKeyToken=4416dd98f0861965 Assembly Version: 8.4.4395.0 Exception Source: Exception Type: AddinExpress.MSO.ADXExternalException Exception Message: An error has occurred in the code of the add-in. ---- Stack Trace ----

質問日時: 2025/02/13 19:58 質問者: momochan8

ベストアンサー

1

0
AccessからExcelを開いて閉じても、タスクマネージャーにExcelが残ってしまう。

AccessのデータをExcelに書き込み、そのデータを元に散布図を作成するプログラムを作成しています。 Excelグラフは、予め作成してあり、Accessから書き込んだデータの数に応じて、グラフの値範囲を指定したいと思います。 With XLWB '吸着データ数セット .Sheets(GraphSheetName).Select .ActiveChart.ChartArea.Select　　　'チャートのセレクト .ActiveChart.FullSeriesCollection(SampleNM).Select　　'名前がSampleNMの系列を選択 TempDomainFormula = Selection.Formula　　　'現在の値範囲の取得 End With 上記で取得した指定グラフ系列の値範囲の内、行数部分をReplace関数で置き換えて、再設定することで、値範囲の変更は出来ています。しかし、作業終了後、objApp.Quit としてエクセルを終了しても、タスクマネジャーにExcelが残り、続けて、作業を繰り返すと、値範囲の取得に失敗してしまいます。 Excelは、下記のとおり、CreateObject関数で開いています。 Dim objApp As Excel.Application Set objApp = CreateObject("Excel.Application") '変数にExcelオブジェクトを格納 GetObject関数でExcelを開くと、行いたい操作自体が動かなくなります。 Accessを一旦閉じれば、このExcelもなくなり、再び操作を行うことが可能となります。系列のデータ範囲指定を行わなければ、問題なくExcelを閉じることが出来ます。グラフデータ指定方法として不適当な操作を行っているのか、詳しい方にご教示頂ければと存じます。

質問日時: 2025/02/12 15:33 質問者: psgrade

ベストアンサー

2

0
Accessデータベースの主キーについて

Accessデータベースで、主キーに設定出来るフィールドの条件を調べてみると、以下のような事が分かりました。１．値が重複している → NG ２．Null値が含まれている → NG ３．テキスト型のフィールドに空の文字列「””」が含まれている → OK この情報は正しいのでしょうか？　そして2と3の違いが分かりません。空の文字列「””」とは「Null値」ではないのでしょうか？

質問日時: 2025/02/09 09:50 質問者: アルムの森の木

ベストアンサー

3

0
Microsoft 365 Basic サブスクリプションの件

新しいパソコンをセットアップしています。次のようなメッセージが出てきて、わからないので教えてください。 Microsoft　365　Basic　サブリクションを確認する『確認』を選択すると、Microsotサービス規約に同意したものと見なされ、引き換えが完了するとMicrosoft 365 BasicへのフルアクセスがMicrosoftによって提供されます。それによりその契約の法定取消権を失うことになりますので、お客様が有している可能性がある他の権利について、販売店が設定した購入条件をご確認ください。辞退する　　　続けるとなっています。Office HOME＆Business　2024が登載されているパソコンです。辞退　するとどうなるのか続ける　とどうなるのか教えて下さい。

質問日時: 2025/02/07 10:58 質問者: 赤ら顔ちゃん

ベストアンサー

2

0
Accessのルックアップ

Access初心者です。 Accessで、例えば、商品IDという数値データと商品名があったとき、ルックアップのコンボボックスでSELECT [T_商品マスタ].商品ID, [T_商品マスタ].商品 FROM T_商品マスタ ORDER BY [商品ID];として、列幅 0cm;2.545cm　などで商品IDを商品マスタというテキストでテーブルに表示できるようになりますが、その時のデータ型は数値型としておくのが正しいのでしょうか？表示はテキストだけど実際は商品IDが格納されているらしいので、疑問に思いました。フィールド名は商品名としておくのが一般的でしょうか？また、上記のように直接ルックアップに記載するのとデータ型の所をクリックしてルックアップウィザードから設定するのでは違うのでしょうか？こちらの場合は、リレーションシップを設定しているときは、いったん削除して設定しないといけませんが、設定後は再度自分でつなぐものなのでしょうか？特に何も必要ないですか？ルックアップウィザードからの設定の場合、データの整合性を有効にするの中に連鎖削除と削除制限を選択するというのとルックアップに複数の値を保存できるようにしますかというのがあります。リレーションシップでは、連鎖更新と連鎖削除がありますが、こちらには、連鎖更新がありません。それに代わって削除制限があります。なぜでしょう？複数の値を保存というのも何でしょう？色々質問が入っていますが、ルックアップについて教えていただけたらと思います。

質問日時: 2025/02/01 16:17 質問者: hinoki24

解決済

1

0
Accessフォームにマクロを組み込むには

Accessフォームにマクロを組み込みたいのですが、プログラムはどこに記載すべきでしょうか。フォームごとの専用ページがあったかと思います。その場所が知りたいです。

質問日時: 2025/01/25 16:27 質問者: アルムの森の木

ベストアンサー

1

0
Accessデータベースを開くと同時に、フォームを表示するには

Accessデータベースを開くと、フォームの入力画面が表示されている場合があります。これは、どうやって設定するのでしょうか。

質問日時: 2025/01/24 08:56 質問者: アルムの森の木

ベストアンサー

1

0
Accessデータベースの保存形式について

質問１．Accessのファイル形式は、初期設定では「.accdb」となっています。これを「.accde」に変更すると、VBAのプログラムコードが保護される（ファイルを渡した相手に見えなくなる）という認識であっていますか？質問２．ファイルをコピーし、拡張子を上記の通り変更しました。しかし、ファイルを開くと、プログラムコードが通常通り表示されているのです。考えられる原因はございますでしょうか？

質問日時: 2025/01/20 09:48 質問者: アルムの森の木

ベストアンサー

1

0
1月２日より、いまだアクセスできない

ノルウエーに在住しています。１月２日より、携帯からアクセスできなくなりました。修復中とあり、待っておりますが、未だ、アクセスできないままです。こちらに在住している人は、私のブログにアクセスできません。日本に住む友人にも　アクセスできない人がいます。どうなっていますか？　早急な返答、修復をお願いいたします。 ※４０３ Forbidden にもアクセスできないので、こちらに書きました。 ※ノルウエーから１０年ブログを書き続けていますが、初めてのことです。

質問日時: 2025/01/11 18:59 質問者: sugikoro

解決済

3

0
Accessで選択クエリを作成中です。抽出条件での条件の設定の仕方を教えてください

Accessで選択クエリを作成中です。抽出条件での条件の設定の仕方を教えてください。具体的には、「テーブル1」TBLの「対象年月」フィールドにおいて、対象年月の末尾2桁が02,08で、かつ、最も頭4桁が大きいもの（ただし、頭4桁が同じ数値の場合は末尾2桁の大きいものを優先）を抽出するようにしたいのですが、どのように抽出条件を設定すればよいか、アドバイスをください。具体例としまして、以下のようなデータに対し、〇のついたレコードを抽出できるようにしたいです。例1） 202309 202311 202402 202403 202405 202408 〇 202409 例2） 202302 202403 202408 202409 202502 〇 202503

質問日時: 2025/01/04 00:43 質問者: mame1216

ベストアンサー

3

0
[Access VBA]画像リサイズしたものを保存したい

いつもお世話になっております。表題の件について、ご教示お願いいたします。とある画像のファイルパスを読み込んだ時にその画像を小さくしてから、再度ファイルに保存をしたいです。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1270618167 上記URLにあるベストアンサーを確認しましたが、どのように取り入れればよいかわかりませんでした。また、質問者のURLにあるベストアンサーの方も試しましたが、質問者同様にコンパイルエラーが発生しました。 copilotを使用して下記コードを教えてもらいましたが、 Set img = img.Resize(newWidth, newHeight)　の箇所で「実行時エラー'438' オブジェクトは、このプロパティまたはメソッドをサポートしていません。」と表示されます。 Sub ResizeImage() Dim imgPath As String Dim newImgPath As String Dim img As Object Dim newWidth As Long Dim newHeight As Long ' 画像のパスを指定 imgPath = "C:\path\to\your\image.jpg" newImgPath = "C:\path\to\your\resized_image.jpg" ' 画像をロード Set img = LoadPicture(imgPath) ' 新しいサイズを指定（例：幅を半分にする） newWidth = img.Width / 2 newHeight = img.Height / 2 ' 画像のサイズを変更 Set img = img.Resize(newWidth, newHeight) ' 新しい画像を保存 SavePicture img, newImgPath MsgBox "画像の解像度を変更しました。" End Sub ツール>参照設定>Microsoft Windows Image Acquisition Libary v2.0 もいれています。よろしくお願いいたします。

質問日時: 2024/12/25 13:01 質問者: さそりぱん

解決済

1

0
ACCESSデバック画面

ACCESSで不足なエラーが発生した場合[終了][デバック}という画面になり[デバック]を選択すると VBAの書き換えが出来てしまいますので[デバック]が使用できないように設定する方法をご教示ください。 ※因みにWindows11&officePersonal2019を使っています。

質問日時: 2024/11/17 17:19 質問者: あくてぃぶ

解決済

1

0
Access2021で在庫管理

繊維系の仕事をしています今まではノートに書いて在庫を管理していましたが、管理している方が辞めることになり Accessで在庫管理をしたいと思っています。管理の方法としてはｍ数での管理はもちろんですが、生地によっては60mｘ1本、69mｘ2本のように入荷してくるので、Aの生地がトータル〇m、内訳〇mｘ1、△mｘ2のように管理したいですまた、m数のバリエーションが多くなった時にフォームの項目を増やせるようにしたいですどのように考えてテーブルやフォームを作ったら良いのか、教えて下さい当方Access初心者です。よろしくお願い致します

質問日時: 2024/11/15 17:52 質問者: ボス工業

解決済

1

0
Accessレポートの、出力順の設定を確認するには

Accessの「宛名ラベル」レポートがあります。その並び替え順がどのように設定されているかを確認し、変更する方法はありますでしょうか。 ※ 宛名ラベルウィザードを使って作られている可能性もあります。

質問日時: 2024/11/10 12:37 質問者: アルムの森の木

ベストアンサー

2

0
ACCESSでの、データの並び替えについて

ACCESSで、テーブル「顧客名簿」から、クエリで条件を抽出し、さらに並び替え、レポート「宛名ラベル」から印刷する業務を行なっています。いつも、郵便番号順に印刷しているのですが、上2桁が「75」になるものだけを、先にまとめて出し、それに続いて、その他の郵便番号が「000-0001」から「000-0002」…「999-9999」となるように出して欲しいと言われました。昇順、降順というのは知っていますが、こういう並び方にする事って出来るんでしょうか？

質問日時: 2024/11/09 13:22 質問者: アルムの森の木

ベストアンサー

4

2
Excel上から、Accessのマクロビルダーにより作成した複数クエリをワンクリック実行

ExcelM365,AccessM365を利用しています。今回、Excel上から、Accessのマクロビルダーにより作成した複数クエリ（計10本程度）をワンクリック（ボタン押下により）実行ができないかどうか、を教えていただきたく質問をさせて頂きました。どのような手がかりでも結構ですので何か糸口をつかみたく、情報共有を頂けますと助かります。何卒、よろしくお願いいたします。

質問日時: 2024/11/06 07:18 質問者: mame1216

ベストアンサー

2

1
AccessM365を利用しています。更新クエリで、レコードの更新欄に、フィールド同士の足し算したも

AccessM365を利用しています。更新クエリで、レコードの更新欄に、フィールド同士の足し算したものを記載していますが、足すフィールドが40近くあるせいか、途中で構文が切れてしまいます。できれば全部足したものにしたいのですが、どのようにすれば制限を取り除くことができますか？あるいはAccessの仕様なのでどうしようもないのでしょうか？

質問日時: 2024/10/29 15:59 質問者: mame1216

ベストアンサー

2

0
access2021 テーブルから複数のフィールド値を取得したい

テーブルにあるデータから値を取得し変数に入れたいのですが、一度に複数の値を取得することができません。 dlookupを使いデータを取得していましたが、複数行結果が返される場合一つしか返されません。変数にて複数の「作業名」のフィールド値を入れたいです。どのように記入すれば、テーブルにある複数の値を取得できるでしょうか？コード Dim a As String a = DLookup("作業名", "見積作業", "見積番号= Forms![見積]![見積番号]") テーブルメインフォーム名前　見積フィールド名(データ型)　見積番号(int) サブフォーム名前　見積作業フィールド名(データ型)　見積作業ID(int),見積番号(int),作業名(String) メインフォームにある「見積」テーブルと同じ見積会員IDを出力しています。 (例)見積テーブルに入力されている見積番号が2の場合、サブフォームに登録されている見積番号2のレコードがフォームにて表示されている。サブフォームの見積作業にて見積番号が2のレコードが複数あり、作業名が「作業1」「作業2」という複数の結果が出ているためその内容を変数に入れたいです。＜備考＞・Microsoft　access2021 ・windows11 home、64ビット

質問日時: 2024/10/16 10:10 質問者: シュウ11

解決済

5

1
指定されたフィールド「交通費」がSQLステートメントのFROM句にある複数のテーブルを参照

質問のタイトルのような表示がでますいろいろと悪戦苦闘したのですが解消できませんご教授ください SELECT DISTINCT [T-売上台帳].売上ID, [T-売上台帳].メニューID, [T-売上台帳].スタッフ名, [T-売上台帳].施設名, [T-売上台帳].受注日, [T-売上台帳].メニュー, [T-売上台帳].上代価格, [上代価格]*[基準掛け率]/100 AS 基準料金, CLng([基準料金]-([基準料金]/1.1)) AS 消費税, [T-売上台帳].交通費, [基準料金]-[消費税]+[交通費] AS 給与支給額, Format([受注日],"yyyy/mm") AS 支給月 FROM [T-スタッフマスター] INNER JOIN [T-売上台帳] ON [T-スタッフマスター].スタッフ名 = [T-売上台帳].スタッフ名 HAVING ((([T-売上台帳].スタッフ名)=[Forms]![F-抽出条件入力フォーム（給与計算用）]![cmb_スタッフ]) AND (([T-売上台帳].受注日) Between [Forms]![F-抽出条件入力フォーム（給与計算用）]![txt_いつから] And [Forms]![F-抽出条件入力フォーム（給与計算用）]![txt_いつまで]));

質問日時: 2024/10/10 16:25 質問者: 一人芝居

解決済

2

0
access2021 コンパイルエラーの原因がわからない

・access2021を使っています。 sbsheetClintにてデータを送るため以下のコードを実行しました。 Private Sub サンプル_Click() Dim a As Boolean DoCmd.RunCommand acCmdSaveRecord a = dbsCls.CopySvr_fromLocal("社員リスト", "Where 社員コード=‘" & Me.社員コード & "’", True) End Sub ・社員コードが一致するデータを上書きする形で、ローカルにあるaccessデータをサーバーに移行する形でVBAを記入したのですが、エラーが発生しました。コンパイルエラー: メソッドまたはデータメンバーが見つかりません。・どちらにも社員リストがあり、主キーとして社員コードが存在するのですがなぜこのようなエラーが発生するのでしょうか？ご教授いただければと思います。＜補足＞ 'b = dbsCls.CopyLocal_fromSvr("社員リスト", "SELECT * FROM 社員リスト", True, 1) ・サーバーからローカルへの処理は上記のコードを使いうまくできています。・Microsoft　access2021 ・windows11 home、64ビット

質問日時: 2024/09/07 13:19 質問者: シュウ11

解決済

2

1
access2021 レコードロックの使用を変更したい

見積システムを作成していまして、ロックの処理をVBAにて作成しました。リストを開くとき、「見積」テーブルにある「レコードロック」というレコードがTrueになります。そのため別の使用者が開いた際、ロックがかかり開けないという仕組みになっています。 <リストの開いた時のコード> Private Sub Form_Open(Cancel As Integer) On Error Resume Next If Me.レコードロック = True Then MsgBox "別の使用者がいるため開くことができません。", vbOKOnly + vbExclamation, "レコードロック" Cancel = True Else 閉じる_ボタン.Enabled = True キャンセル.Enabled = False 更新_ボタン.Enabled = False 一覧に反映.Enabled = False End If End Sub リストを開けない時、メッセージボックスにて"別の使用者がいるため開くことができません。"と表示されるのですがこれを"○○が使用しているため開くことができません。"と変更したいです。「○○」はリストを開いた時点で自動で取得するように作成すべく、「見積」テーブルにある「レコードロック者」というレコードに記入するため追加クエリを作成しました。＜追加クエリのSQLビュー＞ UPDATE Q_見積 SET Q_見積.[レコードロック者] = a() WHERE (((Q_見積.見積番号)=[forms]![リスト]![見積番号])); 内容としましてはリストにある見積番号とテーブルにある見積番号が同じの場合、「見積」のテーブルの該当する見積番号のレコードロック者にコンピューター名を入れる処理です。「○○」をコンピューター名にするため「a」という変数を作成し開いた時のコードを変更しました。 <リストの開いた時のコード　変更後> Private Sub Form_Open(Cancel As Integer) On Error Resume Next Public a As String If Me.レコードロック = True Then MsgBox "別の使用者がいるため開くことができません。", vbOKOnly + vbExclamation, "レコードロック" Cancel = True Else a = Environ(“ComputerName”) DoCmd.SetWarnings False DoCmd.OpenQuery "追加クエリ" DoCmd.SetWarnings True 閉じる_ボタン.Enabled = True キャンセル.Enabled = False 更新_ボタン.Enabled = False 一覧に反映.Enabled = False End If End Sub しかし、リストを開くことはできますがレコードロック者に名前が追加されることはなかったです。追加クエリを確認すると「式に未確定関数'a'があります。」と表示されました。どのように変更すればよいでしょうか？ご教授の方、お願い致します。＜備考＞・Microsoft　access2021 ・windows11 home、64ビット

質問日時: 2024/07/31 09:00 質問者: シュウ11

解決済

1

0
Microsoft Access で同じフィールドの文字列の結合

すみません。よろしくお願いします。 Microsoft Access の集計に関する質問です。（マクロとクエリが必要と認識しています。）質問者：tochou4848 さんの質問日時：2007/05/23 12:50 の質問「アクセス同じフィールド（テキスト型）のレコードを連結させたい」を見て、色々こねくり回しましたが、どうにも上手く行きません。テキスト型で以下のように連結できる方法はありませんでしょうか？＜元テーブル＞アカウント　　列:種別(テキスト型) 　　1 A 　　1 B 　　2 C 　　3 D 　　4 A 　　4 C 　　5 B 　　5 D 　　5 F ↓このテーブルをクエリにかける＜クエリ出力結果＞アカウント　　列:種別(テキスト型) 　　1 A,B 　　2 C 　　3 D 　　4 A,C 　　5 B,D,F ^^ 　　　　　 ↑連結の境目には"、"などの区切りを入れたい。なにとぞ、お願いいたします。

質問日時: 2024/06/20 20:37 質問者: ごおどの

ベストアンサー

1

0
Access runtimeでのオプション設定について

Access2021にてデータを作成しAccess runtimeが入っているPCにもデータを渡そうと考えています。その際レコードロックの設定をしたいのですが、Access2021では下記のやり方でレコードロックを行いました。オプション設定ークライアント設定ー詳細設定ー既定のレコードロック Access runtimeでも同様に設定しようといたのですが、オプション設定の画面がなく設定できません。どうすればAccess runtimeでも設定できるでしょうか？オプション設定にて参考にしたサイト https://dekiru.net/article/15688/

質問日時: 2024/06/17 17:28 質問者: シュウ11

ベストアンサー

1

0
Accessが強制終了する理由はなんですか？

Accessが強制終了する理由はなんですか？

質問日時: 2024/06/14 16:39 質問者: richiha

解決済

3

0
access2021 強制終了してしまう

access 2021を使っています。デザインビューでフォームを更新し内容を確かめようとすると強制的にaccessが終了してしまいます。更新して終了しないときもありますが基本的には勝手に閉じてしまいます。単純に容量の限界なんでしょうか............。再起動やデータの最適化を行っても直らないのですが、原因として何があるでしょうか？ windows11を使っており最新のバージョンにもなっています。更新後に処理はしておらず、どのフォームを更新しても同じようにaccessが強制終了してしまいます。

質問日時: 2024/06/12 13:58 質問者: シュウ11

解決済

2

0
ACCESSのレポートにフォームの検索条件を表示させたい

ACCESSで「日付」で検索をして一覧が表示されるフォームは出来ています。これをレポート表示する際に、フォームでの検索条件「日付」を表示させる方法が分かりません。例えば、フォームの検索窓に「2024/06/08」と入力した時、レポートの上部にも検索条件：「2024/06/08」と表示。 ACCESS初心者ゆえ、よろしくお願いいたします。

質問日時: 2024/06/08 10:15 質問者: tom-papa

ベストアンサー

1

0
access2021 更新前に処理をしたい

画像のようにフォームを更新する際、更新する前には鉛筆のようなマークが表示されます。まだ保存されていないこの状態で処理を行いたいのですが、フォームのプロパティシートにあるイベントのどれに該当するでしょうか？

質問日時: 2024/05/31 10:21 質問者: シュウ11

ベストアンサー

1

0
access2021 VBA メソッドまたはデータメンバーが見つかりませんエラー発生

フォーカス取得時特定のレコードだけ更新したいため以下のコードを入力しましたが、次のようなエラーが発生してしまいます。どのように変更すればエラーが発生せず実行できるでしょうか？ VBA Private Sub 得意先コード_Enter() 得意先コード.Refresh End Sub エラー内容コンパイルエラー: メソッドまたはデータメンバーが見つかりません access2021

質問日時: 2024/05/28 09:39 質問者: シュウ11

解決済

2

0
【世界はデータで出来ている】世界はデータで出来ているそうです。あなたが最近公開デ

【世界はデータで出来ている】世界はデータで出来ているそうです。あなたが最近公開データで気付いたひらめきを教えてください。

質問日時: 2024/05/19 14:57 質問者: redminote11pro5G

ベストアンサー

4

0
access2019の起動が遅い

Access2019を使っているのですが、起動だけで10～12秒かかっています。空のデータベースを作成するだけでも10秒かかります。フォームを表示させるだけのaccdeファイルを起動させるのも10秒かかります。原因等が分かりましたら教えて下さい。環境としては以下の通りになります。【OS】　・Windows10 【Office】　・Office Home&Business 2019 　・Access 2019 Runtime (32ビット）【DB】　・Oracle12c 　・ODBC 32ビット【ウィルスソフト】　・なし【事象】　・Accessを起動して作成したプログラムのAutoexecが起動するまでに　　10～12秒掛かります。　　作成したプログラムの問題かと思ったのでAutoexecにログ出力を　　仕込んだところ。Access起動からAutoexceの最初のステップまでに　　時間が掛かっている事が分かりました。　・１秒で起動する時もありますが、殆どが10～12秒です。最適化もしているのですが遅いです。よろしくお願いいたします。

質問日時: 2024/05/18 19:47 質問者: zibika

解決済

3

0
列が255以上のCSVファイルをAccessでリンクテーブルを作るには

Accessは255以上の列をテーブルにできません。でも、たとえば1～100までの列をリンクテーブル1、101～200までの列をリンクテーブル2、･･･というようにできないでしょうか。

質問日時: 2024/05/17 06:50 質問者: kuwakuwamadoka

解決済

1

0
アクセスクエリの計算

アクセスのクエリで月ごとの担当者のカウントを集計に出したいです。　日付　　　担当者　　集計 2024/5/1　田中　　　　2 2024/5/15　佐藤　　　　1　　　　　　 2024/5/20 田中　　　　2　　　　　　 2024/6/2　田中　　　　1　　　　　　 2024/6/10 佐藤　　　　1　　　　　　 Dcountで担当者をカウントすることはできるのですが、月ごとというのが設定できません。検索条件で特定の月を指定することはできますが、毎月自動で集計することは可能でしょうか？宜しくお願い致します。

質問日時: 2024/05/10 14:24 質問者: ケンボー5959

解決済

1

0
エクセルのデータをアクセスに溜めることはできますか

アクセスは大容量のデータでも重くなりません。エクセルとアクセスのいいとこ取りして、エクセルの表をアクセスから読み書きするようにできないでしょうか。このような考えはおかしいでしょうか。

質問日時: 2024/05/07 14:50 質問者: payphone

解決済

3

0
access2021 メッセージボックスを大きくしたい

access2021のマクロにてメッセージボックスを使ったのですが、表示がとても小さくて不便です。どのように変更すれば大きく表示されるのでしょうか？参考にしたサイト https://dekiru.net/article/15618/ ・上記のサイト通りメッセージボックスを作り表示はされました。しかし、ダイアログが小さいです。 https://www.helpforest.com/access/ob_query/ac050017.htm ・＜クライアント（端末）ごとの設定＞・・・他のPCでもaccessのデータを使うためできればこの設定を使わずに実行させたいです。・＜クエリごとの設定＞・・・［メッセージの設定］を「はい」にしましたが、警告メッセージが表示されませんでした。

質問日時: 2024/05/01 13:11 質問者: シュウ11

解決済

2

1
アクセスクエリで教えて下さい！ Q_1 に商品番号商品名 S-1256 えんぴつ S-5236

アクセスクエリで教えて下さい！ Q_1 に商品番号　商品名 S-1256 えんぴつ S-5236 けしごむ E-5214 定規 EIANO えんぴつがあったとき、連番をつけたいのですが、どのようにしたらよいでしょうか？

質問日時: 2024/04/25 20:44 質問者: richiha

解決済

1

1
Accessでフォームに自動入力した内容をテーブルに反映させる方法はありますか？

Access microsoft365 64bitを使っています。毎日の取引をフォームに入力して、入力した内容をテーブルに蓄積→特定のフィールドを抜き出した異なる２つのクエリを出力したいと考えています。現在フォームを作成し、テーブルにレコードを追加するためのボタンを設置しているのですが、困っていることがあります。それは、直接入力またはコンボボックスで選択した項目についてはテーブルに追加されるのですが、コンボボックスで選択した項目を元に自動入力された値については追加されない、ということです。現在は、添付画像１のように自動入力されるようにしていますが、これが原因でしょうか？そもそも自動入力された内容は、仕様上テーブルに反映することはできないのでしょうか？私のやっていることはAccessよりExcel向きな気もしています。完全に行き詰ってしまっているのでなにかご助言をいただけますと助かります。。。

質問日時: 2024/04/25 12:14 質問者: ほお骨くん

解決済

1

1
Access Error3061 パラメータが少なすぎます。４を指定してください。

VBA初心者です。下記VBEを実行すると　【Error3061 パラメータが少なすぎます。４を指定してください。】が表示されます。「４を指定してください。」の解決方法は余り出ていないですのでよろしくお願いします。　　　　 '読み込み時に初期化のプロシージャ呼び出す Private Sub Form_Load() 'フォーム詠み込み時 Call initializeForm '初期化 End Sub Private Sub btn_新規_Click() 'btn_新規クリック時 Call initializeForm '初期化 End Sub 　　　　　 '新規ボタンからに初期化のプロシージャ呼び出す Private Sub initializeForm() '初期化 Me.txt_No.Value = Null 'txt_Noを空に Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーを空に Me.txt_機種品番.Value = Null 'txt_機種品番を空に Me.txt_機種品番コード.Value = Null 'txt_機種品番コードを空に Me.btn_追加.Enabled = True 'btn_追加ボタンを使用可能に Me.btn_更新.Enabled = False 'btn_更新ボタンを使用不可に Me.btn_削除.Enabled = False 'btn_削除ボタンを使用不可に Me.txt_機種品番コード.Enabled = True 'txt_機種品番コードを使用可能に End Sub 　　　　　 '読み込みを行なう Private Sub btn_読込_Click() 'btn_読込ボタンクリックしたとき Call LoadForm 　　 '読込呼出し End Sub Private Sub LoadForm() '読込処理 If IsNull(Me.txt_機種品番コード.Value) Then Exit Sub '機種品番コードが空なら終了 Me.txt_No.Value = Null 'txt_Noをクリア　（前のデータが残らないように) Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーをクリア Me.txt_機種品番.Value = Null 'txt_機種品番をクリア On Error GoTo ErrorHandler Dim strSQL As String strSQL = _ "SELECT fid_No, fid_機種品番カテゴリー, fid_機種品番 " & _ "FROM MT_機種品番 " & _ "WHERE fid_機種品番コード = '" & Me.txt_機種品番コード.Value & "';" 'SQLを作成 Dim daoDb As DAO.Database Set daoDb = CurrentDb Dim daoRs As DAO.Recordset Set daoRs = daoDb.OpenRecordset(strSQL) If daoRs.BOF = True And daoRs.EOF = True Then MsgBox "対象レコードがありません。", vbInformation, "確認" GoTo Finally 　　　　　 'レコードがなければ終了 End If Me.txt_No.Value = daoRs!fid_No '抽出したレコードをテキストボックスへ Me.txt_機種品番カテゴリー.Value = daoRs!fid_機種品番カテゴリー Me.txt_機種品番.Value = daoRs!fid_機種品番 Me.btn_追加.Enabled = False 'btn_追加ボタンを使用不可に Me.btn_更新.Enabled = True 'btn_更新ボタンを使用可能 Me.btn_削除.Enabled = True 'btn_削除ボタンを使用可能 Me.txt_機種品番コード.Enabled = False 'txt_機種品番コードを使用不可 GoTo Finally ErrorHandler: 'エラートラップ MsgBox "Error #: " & Err.Number & vbNewLine & vbNewLine & _ Err.Description, vbCritical, "エラー" Finally: If Not daoRs Is Nothing Then daoRs.Close Set daoRs = Nothing End If If Not daoDb Is Nothing Then daoDb.Close Set daoDb = Nothing End If End Sub

質問日時: 2024/04/12 14:29 質問者: kuri2422

解決済

3

0
AccessVBAについてテーブルの値が空白の場合、直近のデータで空白を埋めるには

質問事項が分かり辛く申し訳ありません。テーブルのIDは昇順で入っている状態です。具体的には、以下の様な場合です。区分CD　　　　　　　会社名　 --------　　　　　　----------- 1100 　　　　　　　A社　　　　　　　　　　A社　　　　　　　　　　B社　　　　　　　　　 B社 1200 　　　　　　　A社　　　　　　　　　　C社　　　　　　　　　　A社　　　　　　　B社　　　　上の状態から下の状態にしたいです。区分CD　　　　　　　会社名　 --------　　　　　　----------- 1100　　　　　　　　A社 1100　　　　　　　　A社 1100　　　　　　　　B社 1100　　　　　　　　B社 1200　　　　　　　　A社 1200　　　　　　　　C社 1200　　　　　　　　A社 1200　　　　　　　　B社　　　　上記の状態に出来ないでしょうか？以前の質問からhttps://oshiete.goo.ne.jp/qa/11811376.htmlを参考にしましたが、こちらは下から上に埋める仕様となっており、いろいろ試しましたが上手くできませんでした。

質問日時: 2024/02/29 17:02 質問者: VBA初心者です

ベストアンサー

1

0
access2019をダウンロードしてもファイル形式が旧式になってしまう

お世話になります。 access2013からaccess2019の移行の為、2019をダウンロードしました。同時に新しいパソコンになるのでaccessは2019のみダウンロードしてある状態です。しかし、新しいデータベースの作成を行おうとするとファイル形式が2007-2016になってしまい、2019の選択が出来ません。アンインストールと再インストールを試しましたが同じ症状がでてしまい改善しませんでした。どんな原因が考えられますでしょうか？ご回答お待ちしております。

質問日時: 2024/02/12 16:27 質問者: うさぎ0122

解決済

1

0

←前の結果
1
2
3
4
5
6
7
8
9
10
11
...
20
次の結果→

【Microsoft Office】に関するカテゴリ

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

質問する（無料）

【Access（アクセス）】に関するコラム/記事

弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...
なぜ批判コメントをするの？その心理と向き合い方をカウンセラーにきいた！

今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...