Microsoft Access 掲示板

承知しました。
コメント対応していただき、ありがとうございました。

グループコード担当者マスタの主キーはIDです。
T_TOKUの主キーは鍵マークが無いです。

２つのテーブルを結合する場合は、結合するフィールドの片方は主キー（あるいは重複なしインデックス）である必要があります。そうしないと更新できないクエリになったり、データに重複が出たりします。

「T_TOKUの主キーは鍵マークが無い」というのはデータベースの設計としては致命的な欠陥です。
テーブル設計から見直す必要があります。

提示されているフィールド名から推測するに少なくとも、
顧客マスター
グループマスター
担当者マスター
に相当するテーブルが必要になります。
あるいはそのように分割する必要があります。

このような掲示板でのやり取りで解決できる案件ではないように思います。

何年か前に作成し、現在は修正できる人がいません。
グループコード担当者マスタの主キーはIDです。
 T_TOKUの主キーは鍵マークが無いです。
フィールド名は
得意先CD、得意先名、担当者CD、担当者営業所CD、旧得意先CD
です。

ひょっとして自分で作成したものではなく、前任者が製作したものの改修作業をしているのでしょうか。
前任者に聞くのが一番早いのですが、連絡がとれないとうい状況なんでしょうか。

グループコード担当者マスタというテーブルを作成しました。

そのテーブルの主キーフィールドはなんでしょうか。

また、SQLをみると T_TOKU というテーブルがあるようですが、そのテーブル内のフィールド名と主キー設定を教えてください。

教えてください。
グループコード担当者マスタというテーブルを作成しました。
フィールドは
ID、グループNo、グループ名、代表営業所CD、得意先CD、得意先名、営業所名、担当者CD、担当者名を作りました。

現在利用中のクエリを見てみると、下記SQL文が記載されています。この意味と、
このSQL文に営業所名、担当者CD、担当者名を追加記述するにはどうやって書いたらいいか教えてください。
T_TOKUというテーブルのフィールドには担当者CD、T_TOKU2というテーブルのフィールドにTANCD、TANM（担当者名）があります。

SELECT
 T_TOKU.得意先ＣＤ, T_TOKU.得意先名, T_TOKU.担当営業所ＣＤ AS 営業所CD,
 IIf(IsNull([グループコード担当者マスタ]![グループNo]),[T_TOKU]![得意先ＣＤ],[グループコード担当者マスタ]![グループNo]) AS [ｸﾞﾙｰﾌﾟCD/得意先CD],
 IIf(IsNull([グループコード担当者マスタ]![グループNo]),[T_TOKU]![得意先名],[グループコード担当者マスタ]![グループ名]) AS [ｸﾞﾙｰﾌﾟ名/得意先名],
 T_TOKU.旧得意先ＣＤ
FROM
 T_TOKU LEFT JOIN [グループコード担当者マスタ] ON T_TOKU.得意先ＣＤ = [グループコード担当者マスタ].得意先CD
ORDER BY T_TOKU.得意先ＣＤ;

スミマセン。いじってたらまた正常に動くようになりました…
何回も繰り返しているので、またおかしくなるかもしれないのですが、とりあえず今日のところは解決しました😰
失礼しました…

解決が難しい問題だとは思うのですが、ここ2ヶ月ほど悩まされており質問いたします。
上記教えていただいた「案件管理どんぐり」を参考に２つフォームを作って運用しているのですが
時々謎のエラー、「引数が無効です」に悩まされます。
色々いじってるとエラーが出なくなったり、同じ状況なのにまた出たりと
完全に謎のエラーです。2か月程ずっと色々試してきましたが、気まぐれなエラーです。

そして、「引数が無効です」と出ても結局選択値が反映されるので、まぁなんとか問題ない感じもするのですが
そのエラーのせいで、メインフォームのIDを引っ張ってこれず、また別のエラーになります。
手動でメインフォームのIDを記入すれば良いのですが、一般ユーザーにそれを求めるわけにもいかず
邪道ですっきりしないのですが、
①引数が無効ですのエラーを表示させない（on error　なんとかで対応…？）
②コンボボックスを選択したら自動でメインフォームのIDを引っ張ってくる(コンボボックスの更新後処理で対応…？)
という処理をしようかと考えています・・・
でも気が重く・・・何か解決方法は思い当たりませんでしょうか。
解決方法に結び付く、確認方法などあれば何卒ご教示ください。

ちなみに「引数が無効です」エラーのことは何回も検索し、
xmlでテーブルをエクスポートしてインポートするなどは試しました。
バージョンは2016です。

なにとぞ、宜しくお願いいたします。

クエリのSQLビューにstrSQLの内容を貼り付けた場合は正常に表示されますか。

下記のコードを実行するとイミディエイトウィンドウにstrSQLの内容が出力されますのでそれをコピーして貼り付けるといいでしょう。

Dim strSQL As String

strSQL = "SELECT MT_Product.P_ID, MT_Product.L_ID, MT_Formation.L_Name" & _
        "FROM MT_Formation " & _
        "INNER JOIN MT_Product ON MT_Formation.L_ID = MT_Product.L_ID;"
Debug.Print strSQL

ブラウザのアドレス欄に直接そのURLを入力した場合は、開けますか。

開けるなら、下記の方法を試してみてください。

【VBA】ブラウザを起動し指定URLを表示する | 自恃ろぐ-jizilog.com-

②行を詰めるのと同じでプロパティでも可能でしょうか。今から作成に取りかかっていきたいと思います。

列詰めはコントロールの移動が必要なので、VBAでやるのがシンプルだと思います。
クエリでやろうと思えばできないことはないですが。

下記はレコードソースがクロス集計クエリで列数が変化する場合のサンプルです。

列数が変化するクロス集計クエリと連結するフォーム - hatena chips

フォームですが、レポートでも同じ方法で可能です。

いずれもできるとのことで、嬉しくなりました!
①VBAでチャレンジしてみたいと思います。
参考サイトを探し、不明な場合はまた質問させていただきます。
②行を詰めるのと同じでプロパティでも可能でしょうか。今から作成に取りかかっていきたいと思います。

手動で修正したいところも出てきそうなので、レポートと共にEXCELでもレポートライクなものを作りたいと思っているのですが、EXCELはレポートから出力できないと知りました…

xls形式なら、レポートのプレビューからExcelに出力できますよ。

レポートは（*.xlsx）ファイル形式に出力できない | Access 2013 | 初心者のためのOffice講座

ただし、レポートの体裁がそのまま正確に再現できるかどうかは分かりません。

①VBAでEXCEL出力する際、レポートのようなものは作れますでしょうか。

VBAを使えば簡単ではないですが、何でもできます。
それなりのスキルは必要です。

②レポートについてはレイアウトの問題ですが、列（フィールド）の増減に対応できますか？見積によって、特定のフィールドに何もデータがない場合があります。

可能です。
いろいろ方法はあります。

ありがとうございます！式を修正し、うまく動くようになりました。

顧客ID = 123 AND 担当ID = 23 AND 伝票NO="001" Or 伝票NO="002" Or 伝票NO="003"

ANDとORではANDの方が優先順位が高いので上の式だと下記のように評価されます。

(顧客ID = 123 AND 担当ID = 23 AND 伝票NO="001") Or 伝票NO="002" Or 伝票NO="003"

演算子の優先順位 | Microsoft Docs

伝票NO の OR を先に評価させたい場合は()で囲むようにします。

顧客ID = 123 AND 担当ID = 23 AND (伝票NO="001" Or 伝票NO="002" Or 伝票NO="003")

表示順が前後されてしまいましたが、試してみた結果新たに生まれた問題点を上の４に記載しております。。
申し訳ございませんが、ご確認をお願いいたします。

早速試し、上記の件についてはうまく行くことを確認いたしました！感謝です。

しかし、当初の他の条件と重ね合わせる部分がうまくいきませんでした。
以下コードで確認してみると

Debug.Print Mid(strFilter, Len(" AND ") + 1)

顧客ID = 123 AND 担当ID = 23 AND 伝票NO="001" Or 伝票NO="002" Or 伝票NO="003"

とイミディエイトウィンドウに表示され、伝票NOの３つしか表示されません。

顧客と担当で絞ったときはうまく表示されます。
度々申し訳ございませんが、ご教示宜しくお願いいたします。

なるほど！ありがとうございます！
後ほど試してみます！ありがとうございました😊

伝票NO="001" And 伝票NO="002" And 伝票NO="003"

というような条件になると、伝票番号が001かつ002かつ003のレコードを抽出という意味になりますが、それに該当する伝票はないですよね。（一つの伝票には一つの伝票番号しかないので）

伝票番号が001または002または003のレコードを抽出ということがご希望のことだと思いますので、イミディエイトウィンドウの結果が下記のようになるようにコードを修正しましょう。

伝票NO="001" Or 伝票NO="002" Or 伝票NO="003"

ちなみに、In演算子を使って下記の式でも上記と同じ結果になりますので、下記のようになるようなコードでもOKです。

伝票NO In ("001","002","003")

ご丁寧かつ迅速なご返答をありがとうございます。
ご指導いただいたように試してみたいと思います。

またわからなかったら、質問させてください。
ありがとうございます。

ちなみに、１つの伝票番号のみだと検索ができます。複数入れると何も検索できません。

うまくいくようになりました。ありがとうございました。
クエリが絡むデータは、requeryを使わないといけないんですね。
ようやくスッキリしました。感謝いたします。

詳しくありがとうございました。プリントして保存し、今後じっくり理解していきたいと思います。仰るとおり、結局4の方法で対応いたしました。

2番目のリンク先を参考にして、コンボボックスから直接値リストを表示できました！ありがとうございます。

値リストの場合なら、「値リストの編集の許可」を「はい」にすると編集することができます。

■T'sWare Access Tips #484 ～ユーザーが値リストを変更できるようにするには？～

■T'sWare Access Tips #631 ～リスト項目編集後の保存確認メッセージを出さないようにするには？～

「ちょっと怖い」というのはコード自体に危険性があるということではなく感覚的にメインフォームのレコードが削除されてしまうという誤解をしかねないという意味です。

サブフォームがデータシートビューの時はメインフォームに配置するしかないと思います。その場合はコマンドボタンのキャプションをサブフォームのデータの削除だと明確に分かるようにしておくといいでしょう。

帳票フォームなら詳細セクションに削除ボタンを配置するがいいのではと思います。どのレコードを削除するのか明確になりますので。

データシートビューの場合も、非連結のテキストボックスを配置して、コントロールソースに ="削除" と設定して、クリック時（またはダブルクリック時）のイベントプロシージャにレコード削除のコードを記述すれば可能です。

やはり無理なのですね。
サブレポートの方向で考えたいと思います。
ありがとうございました。

コードはコピペするようにしてください

Forms!F診断リスト.refresh
↓
Forms!F診断リスト.Requery

ではどうですか？

Form.Refresh メソッド (Access)

Requery メソッド (Access)

Requery メソッドは、フォームやコントロールの基になるデータを更新して、最後にレコード ソースに再クエリを行った後に追加または削除されたレコードを反映します。 Refresh メソッドを使うと、カレント レコードセットに加えられた変更だけが表示され、レコード ソースで新しく追加されたレコードや削除されたレコードは表示されません。 Repaint メソッドを使うと、指定したフォームとそのコントロールが再描画されます。

カレントレコードとは現在選択中のレコードです
DAO レコードセットからレコードを削除する
カレントレコードを削除した状態で再度（カレントレコードを）削除しようとすれば当然「カレントレコードが存在しません」となります。時々ということは他の処理の影響でカレントレコードが移動しているのでしょう（エラーが出ないほうがたまたまうまく動いているというだけです）

リンク先にある通り

Me!サブフォーム.Form.Recordset.Delete
Me!サブフォーム.Form.Recordset.MoveNext

のようにカレントレコードを移す処理を入れてあげればエラーは出ないと思います

ありがとうございます。
昨日書いたあとも削除を何度も試していて、動きが不安定なので（ちょいちょいエラーになる）この機能は取り外そうかと悩んでいました。
最新のレコードから順に消すとエラーが出ない気がしたんですが…エラーが出る法則まではわかりませんでした。

サブフォームがデータシートビューのものと、帳票だけどヘッダーがフィールドタイトルの罫線区切りで埋まってるものの２種類があり、それについては削除ボタンの配置をメインフォームにしていました。

〉ちょっと怖い
危険性があるなら外そうと思います！
チェックボックスをつけて削除クエリで処理するようにしたいと思います。
アドバイスありがとうございました！

時々「カレントレコードが存在しません」というデバッグエラーが発生します。

下記で回避できそうな気がします。

On Error Resume Next
Me!サブフォーム.Form.Recordset.Delete

しかし、

現在メインフォームから、「削除ボタン」を押すとサブフォームのカレントレコードを削除できるようにしています。

そもそも、この仕様が無理があるように気がします。
サブフォームのレコードを削除するならサブフォームに削除ボタンを置いた方が自然ではないですか？

メインフォームに削除ボタンがあるとメインフォームのレコードごと削除されそうな気がしてクリックするのがちょっと怖いです。
マウス移動も大きくになりますし。

ちなみに、前期のマクロをVBAに翻訳すると下記のよにうなコードになります。

Private Sub コマンド9_Click()
    Me.日付.SetFocus
    DoCmd.FindRecord Me.検索窓口, acAnywhere
    If Me.日付 = Me.検索窓口 Then
    Else
        MsgBox "該当データがありません"
    End If
End Sub

マクロだと下記の画像のようにすればいいでしょう。

マクロでやりたいですか。
VBAはわかりますか。
そろそろ、マクロからVBAへ移行しようという気持ちはありますか。

今回の質問内容から判断するにそろそろVBAへ移行すべきレベルにきているように感じます。

Me!サブフォーム.Form.Recordset.Delete

このコードで続けざまにサブフォームのレコードを選択して（どこかのテキストボックスにカーソルを置いて）削除を実行していると、時々「カレントレコードが存在しません」というデバッグエラーが発生します。
何か解決方法はありますでしょうか。

ネットで検索したコードで削除処理しておりましたが、教えていただいたコードで解決しました。ありがとうございます。

それぞれのテーブルの主キーはどれですか。また、テーブル1、テーブル2というのは実際のテーブル名ですか。テーブル名は内容を表すものにすべきです。

あと、それぞれのテーブルのデータ例も提示してもらえませんか。
フィールド名だけではどのようなデータなのか、データ間でどのような関係があるのか分かりません。

あと、担当者とは、何を担当するのですか。顧客毎に担当者が決まっているのか、グループ毎なのか、それによってもテーブル設計が異なってきます。

左右で行の高さがちがうのですね。それなら、リンク先の方法では無理です。
それぞれのレポートを別に作成して、サブレポートしては埋め込んでください。

テーブルはたぶん、伝票のヘッダー部分のテーブルと明細部分のテーブルがあると思いますので、ヘッダーテーブルをメインレポートのレコードソース、明細テーブルをサブレポートのレコードソースとすればいいでしょう。

返信ありがとうございます。
ページ全体の罫線の配置を左右別々に設定してみました。
しかし、詳細に設定している印字データの高さが左右で違うため、左側の送り状の明細にそろえられてしまい、右側の受領書の明細に上手く配置されません。
左右明細の高さが違う場合はどうしたらよいのでしょうか？
よろしくお願いいたします。

フォームの一番上を表示する

DoCmd.GoToPage 1, 0, 0

そもそも表示位置が変わるような削除処理をしない

Me!サブフォーム.Form.Recordset.Delete

明細を持つ伝票とその複写を同じページに２分割して表示する - hatena chips
のサンプルファイル内の「R_納品書_左右」と同じ方法を使っているということでしょうか。

だとしたら、ページ全体の罫線はページヘッダーに配置してますので、そこの罫線の配置を左右別々に設定すればいいだけです。
ただし１ページの明細データが17件を超えないようにしましょう。
17件を超える場合があるときは、17件で改行するようにページフッターの高さを調整するといいでしょう。