回答数
気になる
Accessでクエリを実行したあと「集計」ボタンを押すと、集計行が作られます。そこに「合計」という設定をすると、合計が入力されるかと思います。そのクエリを保存し、いったん閉じて開くと、集計行が消えている場合・消えない場合があるのですが、この違いは何によるものでしょうか。また、集計行が消える場合、消えないように設定出来ますでしょうか。
質問日時: 2025/03/28 17:05 質問者: アルムの森の木
回答受付中
0
0
Accessフォームに「配色」の設定をするコマンドがあります。ですが、予め色々な設定がされているようで、ボタンを押しても配色が変わりません。設定を解除する方法はありますでしょうか。
質問日時: 2025/03/28 17:01 質問者: アルムの森の木
回答受付中
1
0
Accessでクエリの実行結果を印刷する際、用紙の向きを「横」にしたいのですが、プレビューでみると縦になっており、毎回「横」に設定し直してから印刷しています。毎回自動で「横」になるよう設定する方法は、ありますでしょうか。
質問日時: 2025/03/28 16:57 質問者: アルムの森の木
回答受付中
1
0
Accessデータベースに含まれる文字列の中の、特定の文字だけを変換したいです。具体的には、電話番号や郵便番号に含まれる「（アンダーバーなど）半角ハイフンに似た文字」を「半角ハイフン」に統一したいのです。「検索と置換」を使えば出来ますが、変換クエリを使うことで、一発で出来たらいいなと思っています。どのように設定すれば良いか、お分かりの方がいらっしゃいましたら、教えて下さるとうれしいです。
質問日時: 2025/03/23 09:57 質問者: アルムの森の木
解決済
1
0
質問タイトルのエラーでデバッグすると、Private Sub Form_BeforeInsert(Cancel As Integer)If DCount("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号 > 0) Then Me!注文番号 = DMax("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) + 1Else Me!注文番号 = 1End IfEnd Sub上記のVBAの、Me!注文番号 = 1のところで黄色反転して進みません。ご助言よろしくお願いいたします。
質問日時: 2025/03/19 09:07 質問者: tatsu-miyuma
ベストアンサー
1
0
基本的な質問で申し訳ございません。質問タイトルのエラーでデバッグすると、Private Sub Form_BeforeInsert(Cancel As Integer)If DCount("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) > 0 Then Me!注文番号 = DMax("注文番号", "納品明細テーブル", "伝票番号=" & Forms!納品書フォーム!伝票番号) + 1Else Me!注文番号 = 1End IfEnd 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文に変換したいのですが、複雑なクエリとなっており、手打ちするのは大変です。簡単に変換する方法は、ありませんでしょうか。
質問日時: 2025/02/22 20:36 質問者: アルムの森の木
ベストアンサー
2
0
Accessでレポートを印刷する際、古いプリンタが設定されています。新しいプリンタに設定し直し、印刷しているのですが、次に同じレポートを開くと、やはり旧プリンタが設定されています。毎回、設定し直さなくて済む方法はないでしょうか。
質問日時: 2025/02/18 19:53 質問者: アルムの森の木
ベストアンサー
1
0
office365を使用している者です。ACCESSのレポートを印刷（PDF出力）すると，一つのファイルとして一括で行われます。それをグループごとにファイルが出力されるようにしたいのですが，どのようにしたら良いかご教示願います。よろしくお願いいたします。
質問日時: 2025/02/18 18:00 質問者: qazxcvfr4
解決済
2
0
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:03Machine Name: LAPTOP-PTSIPUS3IP Address: fe80::197a:7654:ec40:〇〇〇〇〇Current User: LAPTOP-PTSIPUS3\OwnerApplication Domain: C:\Program Files\WinZip\Assembly Codebase: file:///C:/Program Files/WinZip/WinZipExpressForOffice.DLLAssembly Full Name: WinZipExpressForOffice, Version=1.2.13114.0, Culture=neutral, PublicKeyToken=86e07f6d9d2175eeAssembly Version: 1.2.13114.0Exception Source: WinZipExpressForOfficeException Type: System.IO.FileLoadExceptionException 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:03Machine Name: LAPTOP-PTSIPUS3IP Address: fe80::197a:7654:ec40:6ae8%3Current User: LAPTOP-PTSIPUS3\OwnerApplication Domain: C:\Program Files\WinZip\Assembly Codebase: file:///C:/Program Files/WinZip/AddinExpress.MSO.2005.DLLAssembly Full Name: AddinExpress.MSO.2005, Version=8.4.4395.0, Culture=neutral, PublicKeyToken=4416dd98f0861965Assembly Version: 8.4.4395.0Exception Source: Exception Type: AddinExpress.MSO.ADXExternalExceptionException 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から書き込んだデータの数に応じて、グラフの値範囲を指定したいと思います。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.ApplicationSet objApp = CreateObject("Excel.Application") '変数にExcelオブジェクトを格納GetObject関数でExcelを開くと、行いたい操作自体が動かなくなります。Accessを一旦閉じれば、このExcelもなくなり、再び操作を行うことが可能となります。系列のデータ範囲指定を行わなければ、問題なくExcelを閉じることが出来ます。グラフデータ指定方法として不適当な操作を行っているのか、詳しい方にご教示頂ければと存じます。
質問日時: 2025/02/12 15:33 質問者: psgrade
ベストアンサー
2
0
Accessデータベースで、主キーに設定出来るフィールドの条件を調べてみると、以下のような事が分かりました。１．値が重複している → NG２．Null値が含まれている → NG３．テキスト型のフィールドに空の文字列「””」が含まれている → OKこの情報は正しいのでしょうか？ そして2と3の違いが分かりません。空の文字列「””」とは「Null値」ではないのでしょうか？
質問日時: 2025/02/09 09:50 質問者: アルムの森の木
ベストアンサー
3
0
新しいパソコンをセットアップしています。次のようなメッセージが出てきて、わからないので教えてください。Microsoft 365 Basic サブリクションを確認する『確認』を選択すると、Microsotサービス規約に同意したものと見なされ、引き換えが完了するとMicrosoft 365 BasicへのフルアクセスがMicrosoftによって提供されます。それによりその契約の法定取消権を失うことになりますので、お客様が有している可能性がある他の権利について、販売店が設定した購入条件をご確認ください。辞退する 続けるとなっています。Office HOME＆Business 2024が登載されているパソコンです。辞退 するとどうなるのか続ける とどうなるのか教えて下さい。
質問日時: 2025/02/07 10:58 質問者: 赤ら顔ちゃん
ベストアンサー
2
0
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フォームにマクロを組み込みたいのですが、プログラムはどこに記載すべきでしょうか。フォームごとの専用ページがあったかと思います。その場所が知りたいです。
質問日時: 2025/01/25 16:27 質問者: アルムの森の木
ベストアンサー
1
0
Accessデータベースを開くと、フォームの入力画面が表示されている場合があります。これは、どうやって設定するのでしょうか。
質問日時: 2025/01/24 08:56 質問者: アルムの森の木
ベストアンサー
1
0
質問１．Accessのファイル形式は、初期設定では「.accdb」となっています。これを「.accde」に変更すると、VBAのプログラムコードが保護される（ファイルを渡した相手に見えなくなる）という認識であっていますか？質問２．ファイルをコピーし、拡張子を上記の通り変更しました。しかし、ファイルを開くと、プログラムコードが通常通り表示されているのです。考えられる原因はございますでしょうか？
質問日時: 2025/01/20 09:48 質問者: アルムの森の木
ベストアンサー
1
0
ノルウエーに在住しています。１月２日より、携帯からアクセスできなくなりました。修復中とあり、待っておりますが、未だ、アクセスできないままです。こちらに在住している人は、私のブログにアクセスできません。日本に住む友人にも アクセスできない人がいます。どうなっていますか？ 早急な返答、修復をお願いいたします。※４０３ Forbidden にもアクセスできないので、こちらに書きました。※ノルウエーから１０年ブログを書き続けていますが、初めてのことです。
質問日時: 2025/01/11 18:59 質問者: sugikoro
解決済
3
0
Accessで選択クエリを作成中です。抽出条件での条件の設定の仕方を教えてください。具体的には、「テーブル1」TBLの「対象年月」フィールドにおいて、対象年月の末尾2桁が02,08で、かつ、最も頭4桁が大きいもの（ただし、頭4桁が同じ数値の場合は末尾2桁の大きいものを優先）を抽出するようにしたいのですが、どのように抽出条件を設定すればよいか、アドバイスをください。具体例としまして、以下のようなデータに対し、〇のついたレコードを抽出できるようにしたいです。例1）202309202311202402202403202405202408 〇202409例2）202302202403202408202409202502 〇202503
質問日時: 2025/01/04 00:43 質問者: mame1216
ベストアンサー
3
0
いつもお世話になっております。表題の件について、ご教示お願いいたします。とある画像のファイルパスを読み込んだ時にその画像を小さくしてから、再度ファイルに保存をしたいです。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で不足なエラーが発生した場合[終了][デバック}という画面になり[デバック]を選択するとVBAの書き換えが出来てしまいますので[デバック]が使用できないように設定する方法をご教示ください。※因みにWindows11&officePersonal2019を使っています。
質問日時: 2024/11/17 17:19 質問者: あくてぃぶ
解決済
1
0
繊維系の仕事をしています今まではノートに書いて在庫を管理していましたが、管理している方が辞めることになりAccessで在庫管理をしたいと思っています。管理の方法としてはｍ数での管理はもちろんですが、生地によっては60mｘ1本、69mｘ2本のように入荷してくるので、Aの生地がトータル〇m、内訳〇mｘ1、△mｘ2のように管理したいですまた、m数のバリエーションが多くなった時にフォームの項目を増やせるようにしたいですどのように考えてテーブルやフォームを作ったら良いのか、教えて下さい当方Access初心者です。よろしくお願い致します
質問日時: 2024/11/15 17:52 質問者: ボス工業
解決済
1
0
Accessの「宛名ラベル」レポートがあります。その並び替え順がどのように設定されているかを確認し、変更する方法はありますでしょうか。※ 宛名ラベルウィザードを使って作られている可能性もあります。
質問日時: 2024/11/10 12:37 質問者: アルムの森の木
ベストアンサー
2
0
ACCESSで、テーブル「顧客名簿」から、クエリで条件を抽出し、さらに並び替え、レポート「宛名ラベル」から印刷する業務を行なっています。いつも、郵便番号順に印刷しているのですが、上2桁が「75」になるものだけを、先にまとめて出し、それに続いて、その他の郵便番号が「000-0001」から「000-0002」…「999-9999」となるように出して欲しいと言われました。昇順、降順というのは知っていますが、こういう並び方にする事って出来るんでしょうか？
質問日時: 2024/11/09 13:22 質問者: アルムの森の木
ベストアンサー
4
2
ExcelM365,AccessM365を利用しています。今回、Excel上から、Accessのマクロビルダーにより作成した複数クエリ（計10本程度）をワンクリック（ボタン押下により）実行ができないかどうか、を教えていただきたく質問をさせて頂きました。どのような手がかりでも結構ですので何か糸口をつかみたく、情報共有を頂けますと助かります。何卒、よろしくお願いいたします。
質問日時: 2024/11/06 07:18 質問者: mame1216
ベストアンサー
2
1
AccessM365を利用しています。更新クエリで、レコードの更新欄に、フィールド同士の足し算したものを記載していますが、足すフィールドが40近くあるせいか、途中で構文が切れてしまいます。できれば全部足したものにしたいのですが、どのようにすれば制限を取り除くことができますか？あるいはAccessの仕様なのでどうしようもないのでしょうか？
質問日時: 2024/10/29 15:59 質問者: mame1216
ベストアンサー
2
0
テーブルにあるデータから値を取得し変数に入れたいのですが、一度に複数の値を取得することができません。dlookupを使いデータを取得していましたが、複数行結果が返される場合一つしか返されません。変数にて複数の「作業名」のフィールド値を入れたいです。どのように記入すれば、テーブルにある複数の値を取得できるでしょうか？コードDim a As Stringa = 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
質問のタイトルのような表示がでますいろいろと悪戦苦闘したのですが解消できませんご教授ください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を使っています。sbsheetClintにてデータを送るため以下のコードを実行しました。Private Sub サンプル_Click()Dim a As BooleanDoCmd.RunCommand acCmdSaveRecorda = 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
見積システムを作成していまして、ロックの処理をVBAにて作成しました。リストを開くとき、「見積」テーブルにある「レコードロック」というレコードがTrueになります。そのため別の使用者が開いた際、ロックがかかり開けないという仕組みになっています。<リストの開いた時のコード>Private Sub Form_Open(Cancel As Integer)On Error Resume NextIf Me.レコードロック = True ThenMsgBox "別の使用者がいるため開くことができません。", vbOKOnly + vbExclamation, "レコードロック"Cancel = TrueElse閉じる_ボタン.Enabled = Trueキャンセル.Enabled = False更新_ボタン.Enabled = False一覧に反映.Enabled = FalseEnd IfEnd Subリストを開けない時、メッセージボックスにて"別の使用者がいるため開くことができません。"と表示されるのですがこれを"○○が使用しているため開くことができません。"と変更したいです。「○○」はリストを開いた時点で自動で取得するように作成すべく、「見積」テーブルにある「レコードロック者」というレコードに記入するため追加クエリを作成しました。＜追加クエリのSQLビュー＞UPDATE Q_見積 SET Q_見積.[レコードロック者] = a()WHERE (((Q_見積.見積番号)=[forms]![リスト]![見積番号]));内容としましてはリストにある見積番号とテーブルにある見積番号が同じの場合、「見積」のテーブルの該当する見積番号のレコードロック者にコンピューター名を入れる処理です。「○○」をコンピューター名にするため「a」という変数を作成し開いた時のコードを変更しました。<リストの開いた時のコード 変更後>Private Sub Form_Open(Cancel As Integer)On Error Resume NextPublic a As StringIf Me.レコードロック = True ThenMsgBox "別の使用者がいるため開くことができません。", vbOKOnly + vbExclamation, "レコードロック"Cancel = TrueElsea = Environ(“ComputerName”) DoCmd.SetWarnings False DoCmd.OpenQuery "追加クエリ" DoCmd.SetWarnings True閉じる_ボタン.Enabled = Trueキャンセル.Enabled = False更新_ボタン.Enabled = False一覧に反映.Enabled = FalseEnd IfEnd Subしかし、リストを開くことはできますがレコードロック者に名前が追加されることはなかったです。追加クエリを確認すると「式に未確定関数'a'があります。」と表示されました。どのように変更すればよいでしょうか？ご教授の方、お願い致します。＜備考＞・Microsoft access2021・windows11 home、64ビット
質問日時: 2024/07/31 09:00 質問者: シュウ11
解決済
1
0
すみません。よろしくお願いします。Microsoft Access の集計に関する質問です。（マクロとクエリが必要と認識しています。）質問者：tochou4848 さんの質問日時：2007/05/23 12:50 の質問「アクセス 同じフィールド（テキスト型）のレコードを連結させたい」を見て、色々こねくり回しましたが、どうにも上手く行きません。テキスト型で以下のように連結できる方法はありませんでしょうか？＜元テーブル＞アカウント 列:種別(テキスト型) 1A 1B 2C 3D 4A 4C 5B 5D 5F↓このテーブルをクエリにかける＜クエリ出力結果＞アカウント 列:種別(テキスト型) 1A,B 2C 3D 4A,C 5B,D,F ^^ ↑連結の境目には"、"などの区切りを入れたい。なにとぞ、お願いいたします。
質問日時: 2024/06/20 20:37 質問者: ごおどの
ベストアンサー
1
0
Access2021にてデータを作成しAccess runtimeが入っているPCにもデータを渡そうと考えています。その際レコードロックの設定をしたいのですが、Access2021では下記のやり方でレコードロックを行いました。オプション設定ークライアント設定ー詳細設定ー既定のレコードロックAccess runtimeでも同様に設定しようといたのですが、オプション設定の画面がなく設定できません。どうすればAccess runtimeでも設定できるでしょうか？オプション設定にて参考にしたサイトhttps://dekiru.net/article/15688/
質問日時: 2024/06/17 17:28 質問者: シュウ11
ベストアンサー
1
0
解決済
3
0
access 2021を使っています。デザインビューでフォームを更新し内容を確かめようとすると強制的にaccessが終了してしまいます。更新して終了しないときもありますが基本的には勝手に閉じてしまいます。単純に容量の限界なんでしょうか............。再起動やデータの最適化を行っても直らないのですが、原因として何があるでしょうか？windows11を使っており最新のバージョンにもなっています。更新後に処理はしておらず、どのフォームを更新しても同じようにaccessが強制終了してしまいます。
質問日時: 2024/06/12 13:58 質問者: シュウ11
解決済
2
0
ACCESSで「日付」で検索をして一覧が表示されるフォームは出来ています。これをレポート表示する際に、フォームでの検索条件「日付」を表示させる方法が分かりません。例えば、フォームの検索窓に「2024/06/08」と入力した時、レポートの上部にも検索条件：「2024/06/08」と表示。ACCESS初心者ゆえ、よろしくお願いいたします。
質問日時: 2024/06/08 10:15 質問者: tom-papa
ベストアンサー
1
0
画像のようにフォームを更新する際、更新する前には鉛筆のようなマークが表示されます。まだ保存されていないこの状態で処理を行いたいのですが、フォームのプロパティシートにあるイベントのどれに該当するでしょうか？
質問日時: 2024/05/31 10:21 質問者: シュウ11
ベストアンサー
1
0
フォーカス取得時特定のレコードだけ更新したいため以下のコードを入力しましたが、次のようなエラーが発生してしまいます。どのように変更すればエラーが発生せず実行できるでしょうか？VBAPrivate Sub 得意先コード_Enter()得意先コード.RefreshEnd Subエラー内容コンパイルエラー:メソッドまたはデータメンバーが見つかりませんaccess2021
質問日時: 2024/05/28 09:39 質問者: シュウ11
解決済
2
0
【世界はデータで出来ている】世界はデータで出来ているそうです。あなたが最近公開データで気付いたひらめきを教えてください。
質問日時: 2024/05/19 14:57 質問者: redminote11pro5G
ベストアンサー
4
0
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
Accessは255以上の列をテーブルにできません。でも、たとえば1～100までの列をリンクテーブル1、101～200までの列をリンクテーブル2、･･･というようにできないでしょうか。
質問日時: 2024/05/17 06:50 質問者: kuwakuwamadoka
解決済
1
0
アクセスのクエリで月ごとの担当者のカウントを集計に出したいです。 日付 担当者 集計2024/5/1 田中 22024/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のマクロにてメッセージボックスを使ったのですが、表示がとても小さくて不便です。どのように変更すれば大きく表示されるのでしょうか？参考にしたサイト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 けしごむE-5214 定規EIANO えんぴつがあったとき、連番をつけたいのですが、どのようにしたらよいでしょうか？
質問日時: 2024/04/25 20:44 質問者: richiha
解決済
1
1
Access microsoft365 64bitを使っています。毎日の取引をフォームに入力して、入力した内容をテーブルに蓄積→特定のフィールドを抜き出した異なる２つのクエリを出力したいと考えています。現在フォームを作成し、テーブルにレコードを追加するためのボタンを設置しているのですが、困っていることがあります。それは、直接入力またはコンボボックスで選択した項目についてはテーブルに追加されるのですが、コンボボックスで選択した項目を元に自動入力された値については追加されない、ということです。現在は、添付画像１のように自動入力されるようにしていますが、これが原因でしょうか？そもそも自動入力された内容は、仕様上テーブルに反映することはできないのでしょうか？私のやっていることはAccessよりExcel向きな気もしています。完全に行き詰ってしまっているのでなにかご助言をいただけますと助かります。。。
質問日時: 2024/04/25 12:14 質問者: ほお骨くん
解決済
1
1
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 SubPrivate 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
質問事項が分かり辛く申し訳ありません。テーブルの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
お世話になります。access2013からaccess2019の移行の為、2019をダウンロードしました。同時に新しいパソコンになるのでaccessは2019のみダウンロードしてある状態です。しかし、新しいデータベースの作成を行おうとするとファイル形式が2007-2016になってしまい、2019の選択が出来ません。アンインストールと再インストールを試しましたが同じ症状がでてしまい改善しませんでした。どんな原因が考えられますでしょうか？ご回答お待ちしております。
質問日時: 2024/02/12 16:27 質問者: うさぎ0122
解決済
1
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
教えて!gooの新規会員登録の方法が新しくなりました。
gooサービス全体で利用可能な「gooID」をご登録後、「電話番号」と「ニックネーム」の登録をすることで、教えて!gooの会員登録が完了となり、投稿ができるようになります！
gooIDにログイン済みです
教えて!gooの新規会員登録の方法が新しくなりました。
gooサービス全体で利用可能な「gooID」をご登録後、「電話番号」と「ニックネーム」の登録をすることで、教えて!gooの会員登録が完了となり、投稿ができるようになります！
ウォッチ
