Access（アクセス）

ACCESSのマクロで、社内DBから得たデータから特定形式で住所ラベルを印刷するものがあります。 （前に下記で質問した内容の続きなのですが） https://okwave.jp/qa/q9917352.html#answers 専用ラベルプリンター（１枚ずつのラベルが連続につながった用紙に印刷する）から、別のプリンターでA4、5行×2列のラベル用紙に印刷するように変更したいと思います。１件ごとのレイアウトは同じで、１ページ内の表示数量（行列）を増やすにはどこで設定すべきでしょうか？ （あまりDBとの関係等はないかもしれません。基本的なことかもしれません。マクロの設定がからむとどうなるのか分かりません）

　いつもお世話になっております。 　Access2010を使用しています。 　string変数に文字を代入できる、文字数についてご教示をお願いします。 　下記のようなデータがあるとします。 【T_購入】 番号　　チケット購入者　　実購入者　　実購入者番号 １　　　あああ　　　　　　あああ　　　１ ２　　　いいい　　　　　　あああ　　　１ ３　　　ううう　　　　　　あああ　　　１ ４　　　えええ　　　　　　えええ　　　４ ５　　　おおお　　　　　　えええ　　　４ ６　　　かかか　　　　　　かかか　　　６ ７　　　ききき　　　　　　かかか　　　６ ８　　　くくく　　　　　　かかか　　　６ ９　　　けけけ　　　　　　けけけ　　　９ 【Q_購入者一覧】 番号　　実購入者　　購入者一覧 １　　　あああ　　　あああ、いいい、ううう ４　　　えええ　　　えええ、おおお ６　　　かかか　　　かかか、ききき、くくく ９　　　けけけ　　　けけけ 　購入者一覧フィールドに自動でチケット購入者が表示されるよう、下記のモジュールを入れています。 　※このモジュールもこのサイトで教えていただきました。ありがとうございました。 Public Function MyJoin_zentai(Buyer As Long) As String On Error GoTo ErrorHandler ' 定数/変数宣言部 Dim rs As DAO.Recordset Dim strSQL As String Dim strResult As String strSQL = "Select チケット購入者 From T_購入 " & _ "Where 実購入者番号=" & Buyer Set rs = CurrentDb.OpenRecordset(strSQL, _ dbOpenForwardOnly, _ dbReadOnly) ' メインループ Do Until rs.EOF ' 連結する文字列を取得し、追加します。 strResult = strResult & "、" & rs(0).Value rs.MoveNext Loop strResult = Mid(strResult, 2) ExitProcedure: On Error Resume Next rs.Close: Set rs = Nothing MyJoin_zentai = strResult ' 戻り値をセットします。 Exit Function ErrorHandler: ' クエリー内での使用を考慮して、エラーのダイアログ表示は ' 行なわず、エラーをそのまま戻り値に入れます。 strResult = Err & ":" & Err.Description Resume ExitProcedure End Function 　ここで問題となったのが、購入者一覧フィールドに表示される文字数が255文字までとなることです。 　実際使用しているデータでは、購入者一覧に表示される文字数が最大で500文字になる場合があり、途中で切れてしまいます。 　この255文字制限を回避できる方法をご教示お願いします。

業者に作ってもらった、社内DB→ACCESSで読んで住所ラベルなどを作成する、ACCESSのマクロがあります。 特定のプリンタの指定がされているようなのですが、そのプリンタが古いので変えたいと思います。そのマクロで印刷実行をすると、特定のプリンタを接続していない（あるいは認識していない）と、「プリンタが変更されている」と出てきて、「現在の通常のプリンタにしますか？」と聞いてきて、その現在のでの印刷はできないことはないのですが、またそこからさらに設定を変えないといけないので面倒です。 それで、そのように特定のプリンタを指定して聞いてくる、初期設定自体を変えたいと思います。 で、マクロだとどの辺にそれが書かれているのでしょうか。それともマクロには書かれていないのでしょうか。自分では探してみたのですが、見つかりません。 いちおう、一覧の部分貼り付けさせていただきます。

Excelでの分け方はググって(https://okwave.jp/qa/q1728059.html)できることを確認しましたが、Accessでの設定方法が見つかりません。 Accessのクエリーで添付図のように分けるには、どのような関数を使えばよろしいのでしょうか？

　いつもお世話になっております。 　ACCESS2010を使用しています。 　さて、クエリでの加工についてご教示をお願いします。 　下記のようなテーブルがあるとします。 【T_購入】 番号　　チケット購入者　　実購入者　　実購入者番号 １　　　あああ　　　　　　あああ　　　１ ２　　　いいい　　　　　　あああ　　　１ ３　　　ううう　　　　　　あああ　　　１ ４　　　えええ　　　　　　えええ　　　４ ５　　　おおお　　　　　　えええ　　　４ ６　　　かかか　　　　　　かかか　　　６ ７　　　ききき　　　　　　かかか　　　６ ８　　　くくく　　　　　　かかか　　　６ 　チケット購入者のうち、自分で買わず他の人に頼んで購入した人をクエリで下記のようにしたいと思います。 番号　　実購入者　　委託者 １　　　あああ　　　いいい、ううう ４　　　えええ　　　おおお ６　　　かかか　　　ききき、くくく 　データが1,000件近くあるため、クエリでなんとかしたいと思います。 　どうぞご教示をよろしくお願いいたします。

ご覧頂きありがとうございます。 質問なのですが、Accessのナビゲーションウィンドウのクエリを右クリックしてもデザインビューが表示されません、、プロパティやオプションも表示することが出来ないため、設定からも変更不可能なようです、、回答の方よろしくお願いします(;_;)

Access64bit移行後、特定のフォームの起動が不安定になりました。 3-4回目にようやく開くことができます。 ・開くことができない時は、エラーメッセージなし、Accessそのものが、異常終了しています。 ・一旦開いてしまえば、問題なく使用できます。 ・コマンドボタンで開きます。 　 DoCmd.OpenForm "フォーム名", acNormal, "", "", , acNormal ・データDBは、社内ネットワーク上のサーバにあります。各自のパソコンにあるAccessから、リンクテーブルで使用しています。 ・Access32bitでは上記不具合はありません。 エラーもなく、静かに異常終了してしまうため、原因の特定ができなくて困っています。 助言等お願いします

本日下記の質問をした者です。その節は皆様ありがとうございました。 https://okwave.jp/qa/q9910864.html#answers ----------------- （上記質問内容） あるデータベースからラベル印刷をする、プログラムがあり、accdb形式のファイルです。 だいぶ前に業者に依頼して作ったものです。 普段、ランタイムをインストールして使用しています。 このaccdbについて、特定のラベルプリンターに出力（印刷）する形で、設定されているのですが、ラベルプリンターが不調なので、買い替えることを検討しています。そうするとこの印刷設定自体を多少変えたいと思います。 その場合、ランタイムでない、一般のアクセスのソフトで開けば、編集できるものなのでしょうか？ ちなみに作った時のACCESSのバージョンは2007とかそれくらいかと思います（おそらくバージョンは関係ないかと思いますが。excel のように2007以降で拡張子が変わってたりしませんし） ---------------- それで、編集できるか、Accessを立ち上げてやってみたのですが、どうも、ダブルクリックして立ち上げると、すぐ自動的にプログラムが始まってしまうようで、ラベル発行入力、履歴検索、終了　の３つからしか選べない形で表示されます。 そもそもファイルをダブルクリックして開く方法でなく、プログラム自体の再編集を行うところへ進むにはどうすればよいでしょうか？

あるデータベースからラベル印刷をする、プログラムがあり、accdb形式のファイルです。 だいぶ前に業者に依頼して作ったものです。 普段、ランタイムをインストールして使用しています。 このaccdbについて、特定のラベルプリンターに出力（印刷）する形で、設定されているのですが、ラベルプリンターが不調なので、買い替えることを検討しています。そうするとこの印刷設定自体を多少変えたいと思います。 その場合、ランタイムでない、一般のアクセスのソフトで開けば、編集できるものなのでしょうか？ ちなみに作った時のACCESSのバージョンは2007とかそれくらいかと思います（おそらくバージョンは関係ないかと思いますが。excel のように2007以降で拡張子が変わってたりしませんし）

アクセス2013のフォームのコンボボックスの『値集合ソース』内に書かれたＳＱＬコードの検索か抜き出しはできませんか。 ※書き方がよくなかったので再投稿しています。 アクセス2013でゴリゴリに作られた画面があります。 そこで使われているテーブルを検索して影響範囲の調査をしたいのですが、検索しても『値集合ソース』内に書かれたＳＱＬコードにはヒットしてくれません。 どの画面とどの画面のどこでそのテーブルが使用されているのかが知りたいですが、 コンボボックスとその『値集合ソース』を多用しているために困っています。 『値集合ソース』内に書かれたＳＱＬコード内のテーブルを検索する方法か、 フォームに書かれた『値集合ソース』のコードをテキストで抜き出す方法はありませんか。

アクセス2013でゴリゴリに作られた画面があります。 その中のコードをテキストに抜き出すことは可能でしょうか？ あるテーブルを記述している部分をすべて検索したいのですが、 モジュール配下にあるものはヒットしますが、 フォーム内のComboBoxのRowSouceなどに書かれているコードにはヒットしません。 フォーム内のコードをテキストで抜き出すことはできませんか？

教えてください。Microsoft 365 outolookメールのメッセージに貼り付けたリンク等で、送付先のローカルACCESSを起動、フォームで指定したレコードを抽出して表示させたいです。 以下のリンクを貼り付けましたが、 <File:¥¥C:¥Users¥XXX¥Desktop¥02試験DB.accdb /cmd"7183"> outolookメールが認識するリンク先は、 C:¥Users¥XXX¥Desktop¥02試験DB.accdb ¥cmd となり、リンク先が見つからない状態となります。 02試験DB.accdb /cmd"7183"は、ACCESS起動時に引数を渡し、7183の値のレコードを抽出するために設定しました。テストでは動作良好です。 上記以外に、メール送信先にACCESSの指定したレコードを抽出表示させる方法があれば、その方法でも良いです。 助言等、よろしくお願いいたします。

Pzrivate Sub cmb品番_AfterUpdate() Dim Rst As DAO.Recordset Dim z As String z = DLookup("コード", "Q_コンポーネント", "専用コード='" & Me.tx専用コード & "'") Set Rst = CurrentDb.OpenRecordset("W_部品一覧", dbOpenTable) With Rst .AddNew .Fields("区分") = DLookup("部門", "Q_マスタ", "専用コード='" & z & "'") .Fields("分類1") = DLookup("分類1", "Q_マスタ", "専用コード='" & z & "'") .Fields("分類2") = DLookup("分類2", "Q_マスタ", "専用コード='" & z & "'") .Fields("品番") = DLookup("材料", "Q_マスタ", "専用コード='" & z & "'") .Fields("品名") = DLookup("品名", "Q_マスタ", "専用コード='" & z & "'") .Fields("コード") = DLookup("コード", "Q_マスタ", "専用コード='" & z & "'") .Fields("品種") = DLookup("品種", "Q_マスタ", "専用コード='" & z & "'") .Fields("重量") = DLookup("重量", "Q_マスタ", "専用コード='" & z & "'") .Update End With Rst.Close Set Rst = Nothing End Sub ------------------------------------------------------------ 上記のコードで「Q_マスタ」クエリの内容を「W_部品一覧」テーブルにコピペしています。 ※「W_部品一覧」テーブルはサブフォームです。 「Q_マスタ」クエリの専用コードフィールドには「z」と一致する値が複数あるのですが、上記コードではそのクエリ内の一番上の1レコード分しかコピペできていません。 「z」の値が一致している全てのフィールドを「Q_マスタ」→「W_部品一覧」にコピペするようにしたいです。 For～NextやDo While～Loopを使って処理回数を増やしてみたのですが、同じレコードの内容が繰り返しコピペされてしまいました。 どうすれば複数のレコードをコピペできるかご教示頂けますようお願いします。

環境 Windows 10 Access 2013 ２つのテーブルにある数値を比べて増減を算出するクエリを作成しています。共通であるNo.でA LEFT JOIN Bして「クエリ結果」を出すと当然ながらNo.4は結合されません。しかし調査すると、テーブルBにあるNo.0が過去にNo.4だったことがわかり、テーブルAのNo.4と比較する必要がでてきました。 テーブルAもそうですが、テーブルBのNo.を変更することなく（フィールド、テーブル追加は可）「出したいクエリ結果」を作成することは可能でしょうか。Excelを使用するのは不可とさせていただきます。 説明を簡略化するためにキーは一つ（No.）とさせていただきましたが、実際は４つになります。 SQL文を提示していただければと思います。 ご教授よろしくお願いいたします。 テーブルA No._数値 1_350 2_200 3_430 4_250 5_600 テーブルB No._数値 1_100 2_150 3_350 0_180 5_500 クエリ結果 Ａ.No._Ａ.数値_B.数値_AーB 1_350_100_250 2_200_150_50 3_430_350_80 4_250__ 5_600_500_100 出したいクエリ結果 Ａ.No_Ａ.数値_B.数値_AーB 1_350_100_250 2_200_150_50 3_430_350_80 4_250_180_70 5_600_500_100

データ型が数値型のフィールドに、例えば令和3年7月14日を表す 30714 という数値が入っています。 これを 2021/07/14 とクエリで表示させるにはどのようにしたらよいでしょうか。 20180000を足すなど、何かの数字を用意して処理するのではなく formatやDateSerialなど関数で解決したいと思っています。 よろしくお願いいたします。

お世話になります。 以下のようなデータベース（出荷DB）があり、 ハイパーリンクフィールドでエクセルファイルをリンクしています。 -------------------- 出荷フォルダ --出荷DB.accdb --顧客Aフォルダ --1001.xlsx -------------------- 今後、出荷DBの場所を変えたいのですが、その場合 現在のアドレス「顧客Aフォルダ\1001.xlsx」から 「..出荷フォルダ\顧客Aフォルダ\1001.xlsx」のようにすべてのレコードのアドレスを更新する必要があります。 数件であれば手動で済ませるのですが件数が1万件近くあるため 一括でできないかと考えております。 似た質問でReplace関数の例を見たのですが、今回の場合はフォルダ名が追記されるのでそのまま参考にはできず質問しました。 ご教授のほどよろしくお願いいたします。

ACCESSのサブフォームで、レコード表示について教えてください。 添付のサブフォームの一番左のコンボボックスに値を入力もしくは選択すると、未入力のレコードが下に１行分増えます。 (その他項目は連動して表示されます) サブフォームは帳票フォームを選択しているのですが、一般的には帳票フォームを選択した場合、レコードの数分だけ表示されると思うのですが、これは1レコードづつ増えていきます。 このサブフォームを作った人がもういないので、どうやって作ったのかが分かりません。 どなたか分かる人がいれば教えて頂けますでしょうか。 必要な情報があれば、調べて回答します。

アクセスで「0.0」とデータになっているものを レポートでは、「非表示」にしたいのですが、 うまく消えてくれません。 「#.#」だと「.0」となります。 どのように書式指定をしたらよいのでしょうか？ 初歩的なことで申し訳ありません。

いつもお世話になっております。 Accessレポートにおける、グループフッターの高さについてお聞きします。 ページは10ページあるとします。１～９ページまでのグループフッターの高さは３センチとし、最終ページのみ１センチにしたいと考えています。 この設定方法が分かりませんので、どうぞご教示をよろしくお願いいたします。 使用Accessのバージョンは2010です。

２個に関連があるように入力されたテーブルがあります 例： 　 列１　　列２ 　　"a" "B" "B" "C" 　　”B”　　”D” "C" "C1" 　　”E” "F" ..... ”a”を検索したときに　”B”　”C”　”D”　"C1"を検索結果として得たいのですがクエリーの作り方がわかりません。 アドバイスお願いいたします テーブルをVBAで直接検索すれば出すことはできるのですが、ほかにも同様のテーブルがあってクエリーでできないか悩んでいます。