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/

336 ：名無しさん＠そうだ選挙にいこう：2020/03/24(火) 20:10:46 .net

>>335
昔Access95の頃に少し勉強したけど中途半端で終わり、
本職が忙しくなって、ちょうど今から暇な時期になるんで、
自分で販売管理ソフトを作りたいなと思いまして。

337 ：名無しさん＠そうだ選挙にいこう：2020/03/24(火) 22:36:01.98 .net

>>335
Access Projectの事も、たまには思い出して下さい…
いや、マジであれ廃止になった時、大変だったんだよ…

338 ：名無しさん＠そうだ選挙にいこう：2020/03/25(水) 08:41:07.00 .net

>>335
ＤＬ版で再インストールとかできるのかな？

339 ：名無しさん＠そうだ選挙にいこう：2020/03/25(水) 08:46:32.41 .net

>>334
office365みたいにDL版しかないですよ、netに繋げなくて使えるのは特殊な現場用で一般には売ってないです

340 ：名無しさん＠そうだ選挙にいこう：2020/03/25(水) 21:53:47.74 .net

>>339
マジで？
昔みたいにディスク版はないの？

341 ：名無しさん＠そうだ選挙にいこう：2020/03/25(水) 21:55:41.62 .net

オフライン版も一度オンラインからインストーラー落として入れる形だから

342 ：名無しさん＠そうだ選挙にいこう：2020/04/20(月) 20:25:38 .net

VBAについて質問です。
あるレコードについて、キー以外のすべてフィールドの値を消去したいのですが、フィールドの型によって
NULL値を入れられるものとエラーがでるものがあります。
文字列型のフィールドならOKでも日付型だとダメだったり、Yes/No型だとダメだったり。

Do
　　 If rsB.Fields(fcnt).name <> ("顧客番号") Then
　　　　　　rsB.Fields(fcnt) = ""
end if
　　　fcnt = fcnt + 1
If fcnt > rsB.Fields.Count - 1 Then Exit Do
Loop
rsB.Update

↑このようにまとめて書くのは諦めるしかないのでしょうか？型を判定して場合分けできますでしょうか？

343 ：名無しさん＠そうだ選挙にいこう：2020/04/21(火) 12:58:30.68 .net

>>342
「ダメだった」ときは、何をセットするんですか？セットしないで飛ばすんですか？

サンプルはNullじゃなくて""をセットしているみたいですが。
判定はField.Typeプロパティを参照すればええです。
Null不許可な列だったら...On Error 処理でエラー判定するのですな。

344 ：名無しさん＠そうだ選挙にいこう：2020/04/22(水) 03:02:11.59 .net

>>342
無理にループでまとめなくても良いと思いますよ

rsB.Fields("フィールドA") = Null
rsB.Fields("フィールドB") = False
：

どうしてもまとめたいなら上の方がレスされた様にフィールドタイプ判定ですね
あと値要求「はい」のフィールドや Yes/No 型は Null 更新できません

345 ：名無しさん＠そうだ選挙にいこう：2020/04/23(木) 02:42:50.33 .net

日付と商品、個数などが列挙された紙データを入力するときは
いったんエクセルで処理してACCESSにインポートしてるんですが
みなさんはどのようにやりますか？
同じ日付などはオートフィルできますし楽な気がします
2つのソフトを使う手間はありますが……

みなさんどのようにされていますか？

346 ：名無しさん＠そうだ選挙にいこう：2020/04/23(木) 14:26:39 .net

業務の内容が見えないので何とも言えませんが
配布したり、各部署で編集するならExcel
同じ部署の一人〜数人で運用するならAccess
とか、業務次第ですかね

347 ：名無しさん＠そうだ選挙にいこう：2020/04/23(木) 14:29:39 .net

どんなにがんばってもExcelでは無理そうな時だけAccess

348 ：名無しさん＠そうだ選挙にいこう：2020/04/23(木) 14:43:09 .net

>>346
>>347
直接大量に入力するってのはACCESSではなかなかきついですよね
表形式のエクセルの方がダーッと入力できるきがする
ACCESSでも表組みできないことはないけど
エクセルみたいにエンターとタブで連続して高速で、ってむずかしくない？

349 ：名無しさん＠そうだ選挙にいこう：2020/04/23(木) 17:37:52.23 .net

大量入力は、桐にしとけ、昔のスーパーレジみたいにボコボコ入力できるぞ

350 ：名無しさん＠そうだ選挙にいこう：2020/04/23(木) 23:37:00.70 .net

>>345
いちいちインポートとか面倒だから
アクセス側からリンクで取り込んで必要な表を組み替えて利用する

351 ：名無しさん＠そうだ選挙にいこう：2020/04/24(金) 00:19:22.44 .net

>>350
入力はエクセルってこと？

352 ：名無しさん＠そうだ選挙にいこう：2020/04/24(金) 11:35:58.60 .net

access2013のVBAで.netの「enum.getvalues」のように列挙型の一覧を取得する方法ってありますか？

353 ：名無しさん＠そうだ選挙にいこう：2020/04/24(金) 17:05:20 .net

>>351
そう

354 ：名無しさん＠そうだ選挙にいこう：2020/04/24(金) 17:21:12 .net

適材適所
インターフェースとしてExcel使って
後のDB化をAccessで行う

355 ：名無しさん＠そうだ選挙にいこう：2020/04/24(金) 20:57:02.29 .net

もうやってないからどうでもいいけど
エクセル業務をDB化しようとして
エクセルからインポートし、苦労してマスターとか1対多のリレーション組んで完成した後
さて明日から使うには？

データ空にして明日から入力していっても意味が無い
今日の分までのエクセルのデータを取り込むにはどうするべ？
となってお蔵入りした


DB化させたときの元シートの場所に、今日の分までのエクセルシートをコピペしたって
勝手に反映されるわけでもなし
やはりマクロ組んでちまちまマスターに追加、データを追加、とかしかないのかなー？

それか、記録機能つかって
エクセル取り込みからDB化完成までのを記録させて、移行する時も瞬時に終わらす手？
原始的に、半日かけてDB化したら
半日分の追加データを手入力で追加とか・・・全然スマートではないね

356 ：名無しさん＠そうだ選挙にいこう：2020/04/24(金) 21:28:04.59 .net

モノクロで印刷するときに網掛けってどうやるんですか？
薄くグレーで無理つぶしとかでしょうか？

357 ：名無しさん＠そうだ選挙にいこう：2020/04/27(月) 08:27:22.11 .net

>>352
プログラマーじゃないからwebマニュアルでは配列を想定
していることしかわからんけど
i=arr.count
for i=0 to i-1
debug.print arr(i)
next i
くらいで同じことできるんじゃないの？

358 ：名無しさん＠そうだ選挙にいこう：2020/05/08(金) 05:16:13 .net

AccessでこんなUIつくれますか？
https://i.imgur.com/BMtfBmg.png

まず普通には角丸のフィールドがつくれないか……
デザインに関してはファイルメーカーがうらやましい

359 ：名無しさん＠そうだ選挙にいこう：2020/05/08(金) 05:17:22 .net

こんなんでやる気出ないだろ
https://i.imgur.com/lcO9WDA.jpg

360 ：名無しさん＠そうだ選挙にいこう：2020/05/08(金) 07:04:53 .net

>>358
配色を工夫すればもう少しマシなものは作れる
https://dev.classmethod.jp/articles/form-control/

361 ：名無しさん＠そうだ選挙にいこう：2020/05/08(金) 12:23:36 .net

>>360
それにしてもひどいよね
ファイルメーカーはこんな
https://i.imgur.com/N803YhY.jpg
https://i.imgur.com/XIE2Far.jpg

362 ：名無しさん＠そうだ選挙にいこう：2020/05/09(土) 20:40:05 .net

>>361
ファイルメーカー高いんだもの。
年額１万円ちょっとでoffice365を使えると思ったら
そんなに贅沢も言っていられない。
　本当に見た目重視、多人数利用を想定、メンテナンス性重視なら
今時はHTML+CSS＋DBで作り込むわ。

363 ：名無しさん＠そうだ選挙にいこう：2020/05/09(土) 20:56:07 .net

>>362
DBは何使うの？

364 ：名無しさん＠そうだ選挙にいこう：2020/05/09(土) 21:25:45 .net

mysqlでいいんじゃね
phpmyadminなら無料

365 ：名無しさん＠そうだ選挙にいこう：2020/05/11(月) 17:13:35 .net

MySQL Community Editionで十分

366 ：名無しさん＠そうだ選挙にいこう：2020/05/11(月) 19:03:50 .net

それにしてもいくらなんでもAccessはデザイン古すぎるよね
がんばれば>>361みたいなフォームつくれるの？
背景やフィールドがウインドウに追随しないしねえ

まあ業務用だから見た目なんてどうでもいいだろ
そんなの無意味でまやかしだ
ってことなんだろうが

367 ：名無しさん＠そうだ選挙にいこう：2020/05/11(月) 19:20:58.85 .net

まぁでも配色センスゼロなのに頑張って作って赤！黄色！青！緑！文字は斜体！ってのは見辛くて業務に悪影響だ

368 ：名無しさん＠そうだ選挙にいこう：2020/05/12(火) 09:14:52 .net

見た目だけよくても使いにくいものはクソ

表向きよくても中身ガタガタの会社と同じ

369 ：名無しさん＠そうだ選挙にいこう：2020/05/12(火) 22:29:46.69 .net

>>366
webの素材ボタン拾ってきて、イメージオブジェクト
として貼り付けて、実質的アクションは「クリック時」に書くとか。
ちょっとやってみたけど、押しましたよ、をわかりやすく表現
するのはイメージ２枚重ねて、奥を小さめ。
手前のボタンの「マウスクリック時」に「そのオブジェクト.visible=false」、
「マウス解放時」に「そのオブジェクト.visible=true」

accessの描画処理がダメダメなので、やれてこんなもん。
自分は社内用or自分用の賄い飯ツールに
そこまで見た目に気を使う気はない。

https://i.imgur.com/Cj5S2nI.gif

370 ：名無しさん＠そうだ選挙にいこう：2020/05/12(火) 23:32:30 .net

>>369
gifだからじゃなくて
もともとこんなちらついてるの？

371 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 00:02:01 .net

見た目以外でファイルメーカーに負けてるところはない？
値段も安いし

372 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 01:37:29 .net

>>370　macでＶＭ走らせてるせいかもしれんが
元からちらつきあったよ。webページの綺麗さには及ばない。
今時のＨＴＭＬ５やらＣＳＳやらの表現力の豊かさは
天井知らずだと、あらためて思った。

ただ、webアプリＤＢとかは、全て手入力ビルドだし、
設計が複雑なわりに、ユーザーの使い勝手が悪いのが
一般的なので、本業の片手間でAccess開発は続けるけどね。

373 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 01:47:31 .net

>>371　しいてあげれば、サーバー機能。
以前、マクロ記述もしないスキルの人が
クラウド上にデータ実体を上げ、あっさり共有環境作ってたので。
試したことないけど、ACCESSのデータ実体ファイルを
googleドライブに置いても、フロントエンドファイルとの
通信はできないと思う。

374 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 15:02:57.95 .net

サーバー機能の為にFileMaker買うのはなあ、、、
PostgreSQLやMySQLで済む

375 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 16:02:25 .net

&#9654;
こういうレコードの横についてるやつ消せますか？
というか何なんでしょうか？

376 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 18:48:53.07 .net

文字化けしました
三角が横になってるやつです

377 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 19:09:36.85 .net

そんなの付いてねーよ

378 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 19:31:27.73 .net

もう新機能ないのかい？

379 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 20:08:59 .net

ついてるんだよなあ
https://i.imgur.com/JaEUmct.png
https://i.imgur.com/eUko8Oo.jpg

380 ：名無しさん＠そうだ選挙にいこう：2020/05/13(水) 20:57:10 .net

>>379
フォーム　プロパティ　レコードセレクタ　いいえ

メニューセレクタ画面ならまだしも、実務ウィンドウで
本当にレコードセレクタはいらんのかね？

381 ：名無しさん＠そうだ選挙にいこう：2020/05/14(木) 00:09:18 .net

>>380
そもそもなんのためについてるの？
単票ならいらなくない？

382 ：名無しさん＠そうだ選挙にいこう：2020/05/14(木) 00:45:26.93 .net

Accessがださださになるのは配置できるフィールドやボタンがダサいからなんだろうか
ファイルメーカーは意識せずそれっぽくなるんだが
素材の違いかな？
テキストボックスなんかの角が丸いか四角いか、なんかでかなり印象かわるってことなのかもな

あとはサブフォームがやたら角々して線だらけなのも古い感じするよね
ファイルメーカーは最近はやりのべってり系

383 ：名無しさん＠そうだ選挙にいこう：2020/05/14(木) 02:15:06.82 .net

業務全体で
・他社からの注文(EXCELデータ)→請求書発行
・車検や修理歴などの車両管理
・従業員管理
などがある場合、それぞれまったく別個のAccessファイルとしてつくるというのは一般的ですか？
各ファイルから他のファイルのマスタを使うことはあるかもしれません

それともすべてをひとつにして、メニュー画面などから用途ごとのフォームにいくようにするべきでしょうか？

一般的に制作を依頼すると後者の形だと思いますがデマが少ないからと言う理由だけですか？

384 ：名無しさん＠そうだ選挙にいこう：2020/05/14(木) 02:32:33.84 .net

社員に端末渡しまくっておしゃれでだれでも簡単に扱えるUIがほしいならファイルメーカー
その変わりにスクリプトが独特というかわけわからん

見た目とかどうでもいい
がっしりすわって武骨なUIでやり続ける
その変わりにで安くて細かいとこもできる（描画いがい）

385 ：名無しさん＠そうだ選挙にいこう：2020/05/14(木) 07:41:13 .net

>>383 どれほど用途が異なるのかわかりませんが、
特に入力者が異なる場合は別ファイルにしてもかまいません。

一つのテーブルを直したら、あっちもこっちも書き換えなければならない運用があるなら
リレーションを張って参照整合性の連鎖更新を使います。
そのためにデータ実体ファイルに関連テーブルを全部ぶちこんで、
入力用途ファイル(フロントエンド)を分離し、必要なテーブルだけをリンクする方法もあります。

386 ：名無しさん＠そうだ選挙にいこう：2020/05/14(木) 11:08:06 .net

win10+access環境で勝手にrebootする症状出ている人いる？
4月末からめちゃくちゃ落ちるわ。

387 ：名無しさん＠そうだ選挙にいこう：2020/05/15(金) 10:41:43 .net

>>383
Accessの場合は少ないデータ量だと安全な運用がしやすいです
パフォーマンスも良くなります

上記の理由以外にもシステムを業務単位で分ける事は良くあります
請求書を発行したいのに従業員管理に重大なバグが出てシステムが起動しない、とか
不具合発生時に他業務を巻き込まない為です

388 ：名無しさん＠そうだ選挙にいこう：2020/05/18(月) 15:00:02.82 .net

FileMakerは高過ぎるよ

389 ：名無しさん＠そうだ選挙にいこう：2020/05/22(金) 20:23:31 .net

>>388
でも羨ましい機能たくさんあるなあ
webサイトはもちろん
モバイルサイト作れるのはとても良い

390 ：名無しさん＠そうだ選挙にいこう：2020/05/23(土) 21:34:18.30 .net

複数のテーブルの集計値だけを集めたレポートを作ろうとしています
あるテーブルはデータ数だったり、あるテーブルは合計だったり
今までは、ある程度データの抽出が終わったら、excelに投げて処理してたんですが、accessだけで完結させてみようと思うと頭が働きません。
それぞれの集計値を表示するクエリをつくってサブレポートにして非連結のレポートに貼り付ければできるかなと、今思いつきましたが、スマートじゃない気がします。

391 ：名無しさん＠そうだ選挙にいこう：2020/05/24(日) 01:10:03.43 .net

>>390
実は、やろうとしていることはダッシュボードではないですか？
google画像検索　キーワード「ダッシュボード　画面」で
検索。
accessでダッシュボード式レポートを作るのは
地獄みるからやめたほうがいいです。
excelで、直接DB接続（先に、DBでクエリ整形しても良い）、
またはシートでデータ軸別に整えたものを、
最終的に「新聞紙面のように、いろんなニュースが載っているもの」
にまとめたほうがいいです。

392 ：378：2020/05/24(日) 17:18:44.49 .net

ああいうUIをダッシュボードっていうんですね
画像検索で拝見したようなグラフィカルな画面ではなく
数値の羅列ですが、趣旨は同じかもしれません
病院で輸血を生業にしてるのですが、保険点数を計算して
一覧化したいのですが、赤血球液、血小板、凍結血漿
アルブミンでそれぞれの輸血料の計算が全然違うので
製剤ごとのテーブルに分けて計算させて、最後に一覧化したいのです。

393 ：名無しさん＠そうだ選挙にいこう：2020/05/24(日) 17:51:43 .net

1件が
赤血球　〇ｃｃ
血小板　〇ｃｃ
凍結血漿　〇ｃｃ
アルブミン　〇ｃｃ

っていうだけでしょ？

商品マスターの中で輸血料金の単価があり、それを参照すればいいだけでしょ

一般的な商品見積もりDBの作り方でいいじゃん

394 ：名無しさん＠そうだ選挙にいこう：2020/05/24(日) 17:56:05 .net

で、月に何件あったか
件数関係なく赤血球何ｃｃ出たか
金額はアルブミンだけで何円だったかって集計するのも
普通のDBの設計でいいじゃん

まず1件1件のデータをちゃんと設計すること
それが出来てれば集計して何をどう表示させるかも自在でしょ
1件が完成してないから悩むことになる

395 ：378：2020/05/24(日) 21:04:18 .net

確かに設計が甘いのは自覚してますが、点数の計算方法がちょっとめんどくさくって
赤血球液は1単位製剤が140ml、2単位製剤が280ml。一連の（おおむね1週間）輸血
の最初の200mlは450点、以降は200mlごとに350点
血小板は10単位、15単位、20単位がありそれぞれの容量が200ml、250ml、250ml
赤血球と同様に最初の200mlは450点、以降200mlごとに350点
さらにそれぞれの製剤の実費で計算するんです。
実費のほうはおっしゃる通りDBの基本なんですが、輸血料の手技料部分がもはや、
嫌がらせとしか思えない計算なのです。
凍結血漿・アルブミンは6歳未満が100ml未満49点、100ml以上99点
6歳以上は500ml未満49点、500ml以上98点
赤血球製剤は単位数に関係なくバッグごとに交差適合試験の点数が77点、患者ごとに
月一回の不規則抗体検査197点が加算可能

396 ：名無しさん＠そうだ選挙にいこう：2020/05/24(日) 22:36:38.71 .net

それはそれぞれ別商品として扱うんだよ
赤血球200mｌ　450点
赤血球追加200ml　350点

アルブミン6歳未満100ｍｌ未満　49点
アルブミン6歳未満100ml超過　99点
アルブミン6歳以上500ml未満　49点
ってね

そして値段の方も、さらに複雑なら点数計算と実費計算でも商品名分ける

赤血球200mｌ　450点　0円
赤血球200mｌ　0点　500円
これ2つ同じ名前でも別商品扱いにすれば、点数も価格も干渉しないで集計可能

397 ：名無しさん＠そうだ選挙にいこう：2020/05/24(日) 22:45:09 .net

あー、ちょっと違うな
製品単位と点数計算がまるっきり違うんだな

なら、使用数量の集計と
点数計算の集計は別々でやんなきゃならんじゃん

点数計算に使う商品マスターと
価格計算と数量に使う商品マスターと2つ別々にするんだな

398 ：名無しさん＠そうだ選挙にいこう：2020/05/24(日) 23:26:34 .net

そうなんですよ。
実際元々システムから落としてくるデータは全製剤が混在しているので
製剤ごとのテーブルに分けて、患者IDでグループ化して患者ごとの手技
点数を計算するテーブルと、単純に使用単位数から製剤金額算出用の
テーブルに分けて処理したんです。で、最後に各テーブルの集計値を
レポートにまとめようかなと。余談ですが、私も定年間近なので
（PCを使いたがらない）職場の若い衆に業務統計の引き継ぎがてらやってるもんで、できればVBAはつかいたくないないんです

399 ：名無しさん＠そうだ選挙にいこう：2020/05/25(月) 09:38:03 .net

基本は使用単位からの金額DBで

点数の付け方は、計算でやるより使用量・点数テーブル作って参照させて来る方式の方がいいな


140ml単位でしか使わないんでしょ？

量140　280　　420　　560　700　840・・・
点450　800　1150　1150　1500　1850・・のようなテーブル作って、量比較じゃなく一致検索で返すように

400 ：名無しさん＠そうだ選挙にいこう：2020/05/25(月) 13:16:43 .net

すげえw 他業界の話は面白いなあ。

401 ：名無しさん＠そうだ選挙にいこう：2020/05/25(月) 13:36:42 .net

>>398
輸血やるほどの病院なら、会計は当然、病院会計ソフトでやってると思うんですよ。
医療事務なんて資格があるくらい、複雑でしょうし。
そのシステムの中では文言やコードに揺らぎがなく、ある程度の計算も終わってるはず。

あとは、標準の出力機能や、不足ならばベンダーに有償無償の交渉をして
データベースの中身の開示許可を貰うのが早いてす。
うまく開示されたら、じーっとテーブルの中身を見つめれば、
何をどうすればいいのか、少しずつわかってきます。
どのテーブル、カラムにどの情報がある、とか設計思想的なものとか。
お作りになるものは、少しくらい集計がおかしくてもクリティカルな問題になりにくいものでしょ。

ミッションクリティカルなものなら素直にプロに頼んだ方がいいですよ。

402 ：386：2020/05/25(月) 14:19:06.64 .net

>>401
おっしゃる通りです
保険点数の仕組みは、後から吸い上げて
集計するようなもんではなくって、
支払いのたびに、患者さんごとに計算して
請求するものなので、この数字をもらって
足し算するのが一番正確です。
ただ、クリティカルなものではなく
参考値として経営感覚をスタッフに持たせるためのものなので
自前でやってます。
ご指摘ありがとうございます。
ただ、確かにプロの作品は見てみたいですね。
某社の電子カルテは全編VBで書いてあると聞きましたので
素人でも解析できそうです。

403 ：386：2020/05/26(火) 21:58:47.05 .net

お騒がせしましたが完成しました。
サブフォームだらけで、恐ろしくメンテナンス性の悪そうなものに
なっちゃいましたけど
ありがとうございました

404 ：名無しさん＠そうだ選挙にいこう：2020/05/27(水) 19:02:13.88 .net

>>403
ご苦労様です。親になるものがないので多数のサブフォームになるのは正しい設計です。

accessはリアルタイムコンパイルでどうしてもメモリの使用効率が悪いので
いいパソコン、SSDで乗りきるのが良いでしょう。

405 ：名無しさん＠そうだ選挙にいこう：2020/06/02(火) 06:42:40.63 .net

Win7からWin10に移行してから

アプリケーション・アイコン指定してるのに

読み込んでくれないときがあるの

もう意味わかんない ((+_+))

406 ：名無しさん＠そうだ選挙にいこう：2020/06/02(火) 13:42:30.02 .net

顧客IDごと、最新の最終売上日のみ、と言うデータを作成したいのです
どのようなSQLを掛けば良いでしょうか？
distinctで頑張って見ましたが、うまくいきませんでした
また、エクセルで処理しようと思いましたが、結果が100万行超えてフリーズしました
どうかお助け下さい

顧客ID　最終売上日
001 2020/5/1
002 2020/3/1
002 2020/2/1
001 2020/7/1

↓

顧客ID　最終売上日
001 2020/7/1
002 2020/3/1

407 ：名無しさん＠そうだ選挙にいこう：2020/06/02(火) 14:31:04.45 .net

>>406
max(売り上げ日)のグループバイ
だべよ。
日付といえどもしょせんは
日付シリアル値を人が見やすいように標準で見せ方機能を備えてるだけだし。

日本は年月日だけど、もうどの国が日月年で、どの国が月日年なのか、ようわからん。

408 ：名無しさん＠そうだ選挙にいこう：2020/06/02(火) 14:51:28.84 .net

質問です。よろしくお願いいたします。
ＰＣに詳しい人がアクセスで作った入出庫管理システムを何年も使ってきたのですが、
このたび、同システムを何人か（複数ＰＣから）で使うために、アクセスを知っている外部の人に、
１つのファイルだったシステムを、システム本体のファイルと、データを入れるためだけのファイルとに
分けてもらいました。データ用のファイルは、部内にある代表的なＰＣに入っていて、システムを起動させる
それぞれのＰＣとはＬＡＮでつながっています。まだ２日目なのですが、問題なく動いています。

質問なのですが、こうやって、システム用のファイルとデータ用のファイルを分けるのはアクセスのシステムとしては
定番の方法らしいのですが、複数のＰＣ（複数のシステムファイル）から同時に接続されて問題ないんでしょうか？
ファイルを分けただけで、同時操作の問題やリスクを回避するようなプログラムは何もしてもらっていないはずです。
でも、アクセスの機能として、「同じデータに対して同時に別々の命令をされたときはちゃんと交通整理する」という機能が
備わっているんでしょうか？
コンピュータは一瞬でいろいろやっちゃうので、今のところたまたま交通事故的なことが起こっていないだけなのか、それとも
ちゃんとアクセスは安心していいのか、どうなんでしょうか？

409 ：名無しさん＠そうだ選挙にいこう：2020/06/02(火) 15:52:06.36 .net

夜間とか動いてない時にバックアップ欠かせないでね

410 ：名無しさん＠そうだ選挙にいこう：2020/06/03(水) 09:37:21.31 .net

>>408
相当、潜在リスクわかってるね。
accessDBは同時入力者3人越えた辺りから、挙動怪しいです。
accessDBとわざわざ書いたのは、そのデータベース機能(sqlserver oracle mysql sqliteに相当するもの)がヘッドロックに弱いというだけで、他の機能は
10分で何か作ってくれ、
と言われたときにこれほど容易さに優れたツールはないからです。

外部の人？分離したのは、ユーザーAがデータ含め全部入り、
ユーザーBがAさんのファイルを見に行く、よりは安全なので、方法論として合ってます。
それ以上触らなかったのは、アマチュアの日曜プログラミングには設計書がないからです。
それに今回、無償作業だったのでは？
もし、そのシステムが必要不可欠で、より安定性を求めるならプロによる「リビルド」のサイクルに入ってください。

411 ：名無しさん＠そうだ選挙にいこう：2020/06/03(水) 09:47:50.38 .net

>>408
具体的に「そなわってるんてしょうか」に答えてなかった。
備わってる。試しにフォームで同じレコード開いてAユーザーから何か打ち込んだら、Bユーザーの画面がわりとすぐに更新されます。
ただ業務レベルで同時に入力をガシガシやってると、わりとデータ破損おきがちです。
回避するには、accessの教本にはあまり紹介されていない、一般的な多ユーザー型プログラムの作り方である、
ローカルコピーを作って、サーバーには編集中フラグを立てといて、作業が終わったらサーバーに書き戻し、サーバー側の該当レコードの作業中フラグを外す、です

412 ：名無しさん＠そうだ選挙にいこう：2020/06/03(水) 23:17:56.76 .net

これをデッドロックと言います

413 ：名無しさん＠そうだ選挙にいこう：2020/06/04(木) 04:23:22.33 .net

アクセス使えるってことで職場内で「ＩＴ専門家」面できてる人の半数は「デッドロック」なんて知らない。
なんなら、アクセス使えるだけでＳＥを自称してる人もたくさんいる。
ブラックな開発会社で本当にＳＥやってる人よりも待遇がいいのが皮肉だけど。

414 ：名無しさん＠そうだ選挙にいこう：2020/06/04(木) 06:14:29.22 .net

世界を広く視て自分を相対化する必要なんて無い。
飯が食えているのなら井の中の蛙で十分。

415 ：名無しさん＠そうだ選挙にいこう：2020/06/04(木) 06:34:54.13 .net

>>412 これってどれですか

416 ：名無しさん＠そうだ選挙にいこう：2020/06/04(木) 08:10:58.45 .net

>>412
すまん、デッドロックだった。
自分で書いててなんだよヘッドロックって。プロレスか。

スレチだけどsqlserverのbegin tranもupdateとかの瞬間的な処理時間を想定してるらしく
たまたま同じ行を編集しようとしてました、をデータベースレベルで管理する機能ではないらしいんだよね。
「誰が今開いてる」の作り方を考えるのに結構時間費やした。

417 ：名無しさん＠そうだ選挙にいこう：2020/06/04(木) 09:46:33 .net

桐だと普通にレコードロックやトランザクションがある

418 ：名無しさん＠そうだ選挙にいこう：2020/06/04(木) 23:36:04.53 .net

>>413
中小企業にaccess使える人が一人いるだけでも効率段違いだからな

419 ：名無しさん＠そうだ選挙にいこう：2020/06/05(金) 21:58:16 .net

ACCESSがwebDBとして使えなくなったのが痛い
ブログラム配布したくないのよ

420 ：名無しさん＠そうだ選挙にいこう：2020/06/06(土) 02:32:48.31 .net

>>418
わかる。
中小だけ言えば、アクセスとアクセス中級者がどれくらいの低賃金手作業労働者を失職させてきたことか。

421 ：名無しさん＠そうだ選挙にいこう：2020/06/06(土) 02:38:17.70 .net

>>419　あれを作れたんだ。すごいね。
私にはさっぱりわからなかった。
　簡単な物ならたまにmariaDBとPHPで書いてるけど
画面が全部手打ちなのでしんどい。
　かといってkintoneのような使用料高めのやつも
会社を納得させられる自信ないし。

422 ：名無しさん＠そうだ選挙にいこう：2020/06/06(土) 05:23:07.00 .net

横からだけど本当に知りたい。
ACCESSシステムをWeb化することができた時代があったの？

今、リモートワークの流れの中で、在宅からDBを操作できるようになればと思ってるんだが、
まさかACCESSでそのままWeb化できるもんなの？

423 ：名無しさん＠そうだ選挙にいこう：2020/06/06(土) 06:56:55.08 .net

SharePoint リスト使えば良いんじゃね

424 ：名無しさん＠そうだ選挙にいこう：2020/06/07(日) 06:35:18 .net

>>422
もう使えないのよ
https://blogdajapan.blogspot.com/2017/10/access-web-apppowerapps.html?m=1

425 ：名無しさん＠そうだ選挙にいこう：2020/06/10(水) 11:35:06.99 .net

Accessからのメール送受信でエラーが出るようになりました
Defenderを一時的に無効にするといけるので
レジストリいじって無効にしようと思ってますが
他の有効な方法があればご教授を

426 ：名無しさん＠そうだ選挙にいこう：2020/06/10(水) 22:18:24.01 .net

>>425
cdoやらなんやら、いろいろな方法論がありますけど
どういった手法を使ってますか？　
データベースのリストを使った、メーリングリストのような用途ですか？
今時はあまり褒められた方法ではないけど、
非暗号化用のポートを使うと解消したりします。
暗号化送信が58７だけど、４６５にしてしまうとか。

親切なプロバイダさん、レンタルサーバーさんが古いセキュリティ技術である
POPbeforeSMTPを今までサポートしてきて、ここにきて
廃止した、ということも考えられます。
あるいは、このたびのwindows10大型アップデートでは
ひどい不具合が多いらしい。

427 ：名無しさん＠そうだ選挙にいこう：2020/06/10(水) 23:36:35.34 .net

>>426
cdoだと思います。webで見つけたのをコピペして使わせて頂いております
Tablet(accde)で入力したデータをLhaplusでパス付けたcsvで送信して
accdbで受信してタイトルの特定の文字列をトリガーにして解凍してTransferしてます
最近急に始まった受信エラーはWin10アプデじゃないかなーと思ってます
Win10homeでgpeditが無いのですが有効にする方法を見つけてdefenderを無効にしてみたのですが元に戻ります
丸ごとバックアップした環境でレジストリいじると元に戻らずうまく行ってるように見えますが今日はここまでzzz

428 ：名無しさん＠そうだ選挙にいこう：2020/06/11(木) 20:49:36.15 .net

>>427
なかなかのギークですね。私もたまに「もはやACCESSである必要がない」ツールを
作る時がありますが。コンパイラでパッケージを作る知識もないので。
もし、メールサーバーに何も変更がないのであれば、このたびの大型アップデートが一因かもしれません。
windows2000で出来上がったdllをやむを得ず収載している状態なので
VBA頻出の外部ファイルuser32.dllも含めて、近々予告なしに店じまいされるかも。
また、cdoについては、こちらさん（なぜか最近執筆）
https://excel-ubara.com/excelvba4/EXCEL233.html
の記事を参考にすると、マイクロソフトでホストしているスキーマ参照が出てきますが、
http://schemas.microsoft.com/cdo/
開いてみると「ないよ」と宣言している。つまりディスコンな技術だと思います。

MSとしては代わりをどう提供したいかというと、RPAで括ってもいいかと思いますが
MSFlowを使って欲しいんだと思います。
AzureDBか、EXCEL365と接続して、一定条件でメール送信アクションを発火させるとか。
会社・事業の予算が厳しくとも、
レガシーを維持する時間・金を費やすより、
そろそろ「次」を考えた方がいいかもしれません。

429 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 03:14:11.32 .net

最近何かレコード間移動で表示が遅いなあと思って
インデックス見直そうとテーブルデザイン見てみたら
主キーが勝手に外れてた。
半年以上デザイン変更なんてしてないのに。

430 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 09:44:33.26 .net

テーマって何だよ、コントロール配色を自分で設定するとテーマに二度と戻れなくなるのか？

431 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 11:10:09.52 .net

>>429
自分で外したくせに

どうせ主キーなんて無い方が軽いだろと考えたんだろ

432 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 18:54:34.86 .net

Windows10 2020-05累積的更新プログラムなのか。2020-06累積的更新プログラムのどちらか定かではないけど
インストール後、テーブル定義でデータ型を数値型、フィールドサイズを十進、精度を18で定義した項目に以下の
Val(Str(Kokyaku!jinmei_cd) & Right("00" & Trim(Str(Kokyaku!edaban)), 2) & Right("00" & Trim(Str(Kokyaku!card_hakkoujun)), 2))
で、代入するとAccess事態が「動作を停止します」となってしまうので、仕方なく倍精度浮動小数点数に修正する事が必要になった。
この修正で解決するまでしばらく日数が必要だった

433 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 19:38:19.51 .net

Ebo Quansah from the Microsoft Access Team announced problems with decimal fields using the current Microsoft Access Build 12827.20010
that was released with the Monthly cycle. Decimal fields are not commonly used in Access database files, but they are used in linked SQL Server tables.

Fixes and workarounds will be posted once announced.

------------------------
June 8, 2020, from Ebo Quansah
Very soon, we will ship a new data type, known as Date & Time Extended, which enhances syntax compatibility with SQL while increasing accuracy & level of detail in date & time records.
While the feature is not yet enabled in Current Channel builds, most of the code for the feature is in the product in an inactive state. Nonetheless, we are aware of a problem that currently exists with this new code.
As of today, if you are on version 2005, build 12827.20010 or greater, and you manipulate Decimal fields (Access DataType=Number/FieldSize=Decimal, or SQL DataType=Decimal) using DAO (Data Access Objects), you might have identified your app crashing.
If you hover a variable with the type in VBA code, you may see that the field is not being displayed properly; either reading as ‘?????’ or giving a Type Mismatch error, or Access may crash.
We are very sorry for the inconvenience this causes in your Access app. The Access team is working on resolving this issue as soon as possible, and we will report back to you once this error has been fixed.
In the interim, we’d recommend for you to roll back to a previous version (https://support.microsoft.com/en-us/help/2770432/how-to-revert-to-an-earlier-version-of-office-2013-or-office-2016-clic),
or switch to a slower channel (e.g Monthly Enterprise Channel, or SemiAnnual Channel), until the issue is fixed in Current Channel.
The issue only impacts Decimal types so if avoiding DAO code that manipulates Decimal types is possible, we’d advise this as a short term solution.

434 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 20:51:52.64 .net

十進型にValの返り値を代入したらAccess自体が死ぬの、うちもなったわ
今まで普通に動いてたのにおかしいなと思ったら更新プログラムが原因だったのか

435 ：名無しさん＠そうだ選挙にいこう：2020/06/14(日) 23:35:41.73 .net

>>422
うんこ過ぎで残ってないね。
普通にMySQLかPostgreで組むのが一番。