Access総合相談所 29

1 ：名無しさん＠そうだ選挙にいこう：2019/09/23(月) 20:02:25.84 .net

ACCESSに関する質問はこちらへ
▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★ 質問内容は具体的に書いてください。
　　業務上の守秘義務も大事ですが、貴方の所属組織を特定できるほど、特異な業務・システムは滅多にありません。
　作りたいものの内容を隠しすぎないようにし、列名、データ値を適当に変更して例示するなどしましょう。
★ 事前にGoogle等で調べられる範囲は調べてください。
★ 完全初心者はまず、新規作成テンプレから「NorthWind」を開いて、一通り触ってみてください。ACCESSの概念を理解する
もっとも簡単な方法です。
★ お金の管理でシステム設計ミスが会社経営に重大な支障が予見される場合は、パッケージソフトに誘導する場合があります。
格安なソフトもあるので設計に取りかかってから悩む前に、市場調査も行なってください。
★ アドバイスを貰ったら、必ず経過・結果の報告をして下さい。
　　ギブアンドテイクで情報を共有しましょう。
▼━初心者用質問テンプレ ━━━━━━━━━━━━━━━━━
【Windows】 7, 8,10 【Access】 365,2013,2016,2019
【作りたいものの業務分野】
販売管理,買掛管理,営業予算管理,営業実績管理,生産管理,
財務管理,労務管理,学術研究統計,文字格納を主体としたDB,その他（）
【あなたのスキル】
LV1:完全初心者,
LV2:ACCESSの基本要素（テーブルやクエリーなど）の役割を知っている
LV3:VBAが打てる
【どのオブジェクトに関する質問か】
テーブル,クエリー,フォーム,レポート,サブフォーム（サブレポート）,リレーション,VBA
【やりたいこと】
（質問によっては各テーブル名と列名を例示）
（クエリーの場合は、左上の「表示」を押し”SQLビュー”に変更して表示される”SQL文”を貼り付けると回答者がわかりやすい）
(得たい出力結果や挙動)
【エラーメッセージに関する質問】
・エラーメッセージの内容　・windowsは32bit版か64bit版か
前スレ
Access総合相談所 28
https://mevius.5ch.net/test/read.cgi/bsoft/1535638568/

2 ：名無しさん＠そうだ選挙にいこう：2019/09/23(月) 20:17:20.58 .net

桐にしとけ

3 ：名無しさん＠そうだ選挙にいこう：2019/09/23(月) 20:42:11.72 .net

あーウゼー

4 ：名無しさん＠そうだ選挙にいこう：2019/09/23(月) 22:22:49.49 .net

何このテンプレ・・・
誰も使わないだろう

5 ：名無しさん＠そうだ選挙にいこう：2019/09/24(火) 14:10:28.91 .net

>>4
申し訳ございませんでした。
調子こきました。
歴代のテンプレをひきつづきお使いください。

▼━質問テンプレ ━━━━━━━━━━━━━━━━━
【 システム環境　 】 Windows**, Access**
【 VBAが使えるか 】 はい･いいえ
【 VBAでの回答　 】 可･否
【 検索キーワード 】 Googleやヘルプでの検索キーワード

6 ：840：2019/09/24(火) 20:02:55.57 ID:Gm5oAzOkX

桐にしとけというのは大賛成
作るにも直すにも桐の方がはるかに楽

7 ：名無しさん＠そうだ選挙にいこう：2019/09/27(金) 02:19:34.08 .net

FileMakerまたライセンス料金アップだってよ

8 ：名無しさん＠そうだ選挙にいこう：2019/09/30(月) 21:30:10.54 .net

mdbでフォーム読み込み時にピクチャのリンク先設定するVBA使って動かしてたんだが
(Me!ピクチャ.Picture=　画像フルパスの文字列(gifファイル) の形）

2019のaccdbに変換したら実行時エラー2220　ファイルが開けませんと出て開けなくなった…
最初画像が壊れたのかと思って確認したけど普通に開けるしフォームから直接リンク設定すれば表示される
変換前のmdbなら全く同じ構文のまま2019でもエラー出ずに表示されるのにどういう事なの…
多分mdbのままで運営する事になるのかなと思うけど何故こうなるのか解せん

9 ：名無しさん＠そうだ選挙にいこう：2019/10/01(火) 21:53:46.46 ID:Cah0rBLIv

>>8
こういう場合に、秘策として推奨される方法がある。
新しいaccdb形式のファイルを作って、元のテーブルからモジュールまでの全てを
インポートする方法。

コレを試してみたらどうか。

10 ：名無しさん＠そうだ選挙にいこう：2019/10/01(火) 20:58:26.65 .net

参照設定でも見たらどうかな　何かが参照不可とかに変わってたり

11 ：名無しさん＠そうだ選挙にいこう：2019/10/05(土) 22:05:43.33 .net

【 システム環境　 】 Windows10, Access2019
【 VBAが使えるか 】 はい
【 VBAでの回答　 】 否
【 検索キーワード 】 文字列結合

データを文字列結合させたいのですが、どうやれば良いでしょうか？

1 abc
2 wxy
1 def
2 z
3 jkl

というデータがある時

1 abc|||def
2 wxy|||z
3 jkl

というデータを作りたいのです。連結文字列は「|||」・「$$$」など変化する可能性があります（とりあえず|||になる予定です）
右側のフィールドが空になることは無いので、そこは考慮しなくても大丈夫です

12 ：名無しさん＠そうだ選挙にいこう：2019/10/05(土) 22:41:06.06 .net

まず軽く業務フローを書きます
受注→業務→PCにデータ登録→請求です

この受注データは
作業A 10000円といったもので
別途夜間割増などがつきます

この夜間割増があるときに
請求書に
○月○日 作業A 10000
○月○日 夜間割増 5000

と2行にわけてかきたいです

いまは、はじめに登録するとき売上を入力して
夜間割増にチェックをいれて割増金額をいれています
これは一つのレコードでおこなっています

これはやめて親子関係の親売上 子割増
というテーブルにするべきでしょうか？

13 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 00:21:52.51 .net

>>12
割増の種類が今後次々と増える可能性があるなら親子にした方がいいけど
そうでなければ増える度に同テーブルで列追加でいいんじゃないかと思うよ
処理を記述するなら同テーブルの方が楽だから、それとDBそのものに手を加える手間とのバランスでどうするか判断すればいいかと

14 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 02:42:33.35 .net

>>13
請求書にするとき

○月○日 作業A 10000
○月○日 夜間割増 5000

のように分けて表示できますか？
レコードごとにあるように、1行ごとに仕切り線をいれたいです

割増はよほどのことがなければ3つで固定です

15 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 14:59:25.33 ID:m2wtuaaMi

>>14
1つのテーブルで売上と割増を別フィールドに入れてる場合は
単票レポートでそう設計すればよい。
単票レポートでは、出力するフィールドの配置は自由に設定できるからね。

売上と割増を別テーブルにする場合
売上のテーブルがレコードソースになる方は単票レポートにして
割増のテーブルがレコードソースになる帳票レポートをサブレポートとして入れる。

16 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 15:05:41.50 ID:m2wtuaaMi

>>11
Excelじゃないから、異なるレコードの値どうしを結合するのは面倒
VBA使って、一旦、全レコードの文字列を配列に入れて
それを結合させて作るのが妥当かな。

それにしても、文字列の順番とかはどうでも良いのかな？
つまり
1 abc|||def
は
1 def|||abc
でも良いの？

17 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 12:36:46.76 .net

>>11
これ確かVBAしか無理だった気がする
ちなみになんでそんな事してるの？

18 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 13:47:31.06 .net

>>17
データの移行元が前者、データの移行先が後者の形になっているためです
本来は移行先も前者の形で使うものなのですが、使いにくいので1レコードにまとめてほしいと利用者からの要望なのです

19 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 14:54:37.82 .net

列は数値に対して合計や集計は出来るけど文字列連結は出来ないんだな、これが

20 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 18:23:25.95 .net

データのフィールドが違うならアンド使えば簡単何だけどね
違うなら一回エクセルに出力して加工したほうが簡単かも

21 ：名無しさん＠そうだ選挙にいこう：2019/10/06(日) 23:27:25.60 .net

>>11です。
vba、DAOで作成しました。一応置いておきます
なにかの参考になれば幸いです

https://i.imgur.com/JYPGBrm.png
https://dotup.org/uploda/dotup.org1963052.txt

※5chにコード直接貼れませんでした

22 ：名無しさん＠そうだ選挙にいこう：2019/10/07(月) 15:39:48.98 ID:wRyFnkLYg

>>11
Excel 使って良いなら
行列入れ替えて貼り付けを応用した方が早い気がする

23 ：名無しさん＠そうだ選挙にいこう：2019/10/10(木) 08:08:15.02 .net

【 システム環境　 】 Windows10, Access2016
【 VBAが使えるか 】 いいえ
【 VBAでの回答　 】 否
【 検索キーワード 】 リレーション

前方一致でリレーションを繋ぐことは出来ますか？

○取引先テーブル
A社　北海道札幌市1-1
B社　北海道函館市1-2
・・・

○市区町村テーブル
011002 北海道札幌市
012025 北海道函館市
・・・

○作りたいもの
A社　北海道札幌市1-1　011020
B社　北海道函館市1-2　012025
・・・

vbaは使えないです、よろしくおねがいします

24 ：名無しさん＠そうだ選挙にいこう：2019/10/10(木) 09:42:58.88 .net

>>23
リレーションはクエリかテーブルに「独立したカラム」として存在している場合しか繋げないので無理
素直に、市区町村とそれ以降をわけましょう
A社 北海道札幌市 1-1

さらに、
取引先テーブル
id, 社名, 市区町村id, 住所

市区町村テーブル
(市区町村)id, 市区町村名
のようにしておいたほうがいいです。

VBA経由で正規表現使えば、これまでのテーブルのままでも可能だけど、
いまのデータの持ち方はよくないので、直したほうがいいと思います。

25 ：名無しさん＠そうだ選挙にいこう：2019/10/10(木) 20:16:54.35 .net

>>24
オーノー…
200万行ぐらいありますので、vba覚えます・・・ありがとうございました

26 ：名無しさん＠そうだ選挙にいこう：2019/10/11(金) 08:25:44.95 .net

>>25
おい！
おまえは、桐にしとけ

27 ：名無しさん＠そうだ選挙にいこう：2019/10/11(金) 08:39:19.80 .net

こんなデータのもたせ方で取引先が200万件か
いろいろとアレだな

28 ：名無しさん＠そうだ選挙にいこう：2019/10/12(Sat) 15:01:44 .net

すみませんが教えてください
かなり以前にアクセスでアプリを作成し、データとアプリを分離して、パソコン数台でデータを共有して運用してました
この度、新しいHDDにデータを移すのですが、データ参照場所の指定の仕方がわかりません
以前分離した時は、作成したアプリをコピーして配布した気がします
よろしくお願いします

29 ：名無しさん＠そうだ選挙にいこう：2019/10/12(土) 16:52:50.50 .net

そんなレベルなら止めといた方がいい
以前がどのくらい前なのか知らんが、ずっと蓄積してきたデータを迂闊に消し去っても
責任とれる？　近隣のシステム開発屋さんでAccess案件可能な所に相談しな

複雑な作りしてなきゃリンクテーブル張ってるだけだろうから、Accessがインスコされてる
端末でリンクテーブル張り直してキチンと動作するか確認してから、その端末のアプリ
を各PCにコピーすりゃ動作するだろうけど、ホントにそれだけでいいかは開発した人間に
ちゃんと確認するなり近隣の・・　に確認してもらわないと、思わぬ被害・損害を被る
でっかい授業料払う覚悟あるなら自己責任で

PC一台壊しても十万位で済むけど、会社の重要データ復旧できなくしたらどうなるかは

30 ：名無しさん＠そうだ選挙にいこう：2019/10/12(土) 21:32:11.52 .net

まあまあ、そんな厳しく指摘しなくても...
>>29の言うとおり、リンクテーブルマネージャでリンク先を更新すれば良いと思うよ
ただし、VBAのOprnDatabase関数で実ファイルを参照していると思うから、
検索してConst関数で指定しているようなら、そこを修正
何らかの自作関数を参照しているなら、そこを解析
やってみたけど意味不明状態なら、どう制御されているか、ここで再質問かな

31 ：名無しさん＠そうだ選挙にいこう：2019/10/13(日) 11:29:14.43 ID:PZmvQY1BD

>>23
>○作りたいもの
>A社　北海道札幌市1-1　011020
>B社　北海道函館市1-2　012025

亀レスだが、
「北海道札幌市」と「011020」は等価なんだから、この二つを
同じテーブルに置くのはどうなのかと思われ。
つまり直交性が失われているんだよね。
それに、札幌市だったらナントカ区の何番何号とかいうのが住所だろ？
取引先の住所を表すには足りていない。

32 ：名無しさん＠そうだ選挙にいこう：2019/10/13(日) 16:34:24.17 ID:PZmvQY1BD

>>23
そういうテーブルを作ることは可能

"取引先"テーブルのフィールド構成を
社名,住所

"市区町村"テーブルのフィールド構成を
市区町村コード，市区町村名

とする。

取引先テーブルをコピーして、名称を仮に"取引先改"として、フィールド構成を
社名,住所,市区町村コード
と市区町村コードのフィールドを追加しておく(フィールドの属性は市区町村テーブルのと一致させとく）

この市区町村コードを更新クエリで書き換えれば良い。

更新クエリの作り方は
1　クエリの作成をして、"取引先改"と"市区町村"のテーブルを表示
2　「デザイン」タブで「更新」を選んで更新クエリに切り替え
3　1つ目のフィールドは市区町村コード、テーブルは取引先改、レコードの更新は[市区町村.市区町村コード]
4　2つ目のフィールドは住所、テーブルは、取引先改、抽出条件は
like [市区町村名]*
と入れる。

それを実行すれば良い。

33 ：名無しさん＠そうだ選挙にいこう：2019/10/14(月) 15:54:03.42 .net

23です
お答えありがとうございます
今はリンクテーブルマネージャーが出てこなくて困っています笑
なぜか2台とも出てきません
故障なのか、使い方が悪いのか？？？
焦ってアクセスをアンインストールしたら再インストールに手間取って、もう泣きたい気分です
仰る通りリンクテーブルにしてアプリを配布しただけです
ローカルテーブルに戻してからまたリンクテーブルに戻して配布すればいいんだなといまはかんがえています
リンクマネージャーが使えるパソコンが1台はあるので、それでチャレンジしてみようと思います
全部プロに丸投げしたいのですが、高いこと言われるんじゃないかと思うと踏み切れませんでした
ちな、1カ所ではHDDのデータ復活には20−30と言われました
かなり以前に自分でマクロで作ったアプリなので愛着があってまだ使っています
まだ先はありそうですが取り敢えずありがとうございました

34 ：名無しさん＠そうだ選挙にいこう：2019/10/14(月) 16:02:43.92 .net

頭に0をつける時、何か楽にする方法はありますか？
今はクエリを作成してformatで"000000"、テーブルにし、元のテーブルと置き換え…という手順を取っています

35 ：名無しさん＠そうだ選挙にいこう：2019/10/14(月) 16:15:10.14 .net

表示ならフォームで、印刷ならレポートで
その形でデータ持ちたいならデータマクロか入力規則で

36 ：名無しさん＠そうだ選挙にいこう：2019/10/14(月) 16:24:09.66 .net

質問が雑すぎてよくわからんけど、
入力時に0を付けたいなら、入力規則なりVBAで整形するなりすればいいし、
テーブルにあるデータを変えたいだけなら、更新クエリで一発

37 ：名無しさん＠そうだ選挙にいこう：2019/10/14(月) 16:26:47.99 .net

>>35-36
更新クエリってのがあるんですか、ありがとうございます、使ってみます