21/04/13 13:32:35.21 3B0ES/zA.net
>>Access案件でLinuxサーバー導入はかなりのレアケースだと思います
Linuxに明るい個人ならそれでも良いですが
>>一般的な企業では運用リスクと保守費用の面から現実的ではないのです
Access案件でその様な提案をしたらほぼ蹴られてしまいます
.NET COREとか提案したら蹴られるのか?
.NET CORE案件も相当数出てるよ
LinuxサーバーでDB,APサーバー運用するのは今や常套手段でしょ
>>技術蓄積についてもAccess+PostgreSQLよりAccess+SQL Serverの方が遥かに多いです
Windows製品ゆえ多いってだけだと思うよ
>>そもそもこのスレに相談に来ている方はLinuxサーバーを前提に話していないと思いますよ
Accessフロントエンドにした場合、サーバー側がWindowsサーバーしか前提としか無い、てのは狭量以外の何物でも無いと思うよ
303:デフォルトの名無しさん
21/04/13 13:46:56.78 LjzwNZrT.net
Access案件でのサーバーなんて、（是非は別として）テキトーなPCの共有フォルダでのaccdb(mdb)の共有で賄ってるだけなんて珍しくも無かろう
304:デフォルトの名無しさん
21/04/13 13:47:53.05 3B0ES/zA.net
中小企業にWindowsサーバー提案するってコストかかって仕方ない
CALの価格を知らないのかな?
中小企業ほどLinux導入し易いのに
305:デフォルトの名無しさん
21/04/13 13:48:51.64 3B0ES/zA.net
>>303
適当なサーバーだから無償のLinuxで十分
306:デフォルトの名無しさん
21/04/13 14:52:00.66 b5G9r+g0.net
>>302
.NET COREを挙げられてますが、Access案件での話です
Linuxサーバー自体は否定しません
実際Access外案件では昔より増えました
単純にAccessの外部DBにPostgreSQLを推す無料以外のメリットが知りたかっただけです
Linuxサーバーという予想外でしたが
長い間Access開発にも携わっており現実はほぼWindowsなんです
確かにAccessの機能自体は様々なデータソースが扱えますから
その意味では狭量と言われてしまっても仕方ありませんね
307:デフォルトの名無しさん
21/04/13 14:55:38.30 3B0ES/zA.net
>>306
CAL払える企業なら問題は何も無いよ
現実はCALで苦しんでる中小企業が多い
そこを見越して提案出来るかだと思う
308:デフォルトの名無しさん
21/04/13 20:50:49.88 b7IZM+9u.net
サーバーも含めて無料で構築したいだけなのにな
Windowsサーバー使ってCAL払い続けるなんて皆金持ってるんだなw
309:デフォルトの名無しさん
21/04/14 06:25:02.05 iZ4KD1hd.net
コピー中のExcelのデータをACCESSにいれるときは、テーブル自体を表示させないとペーストできませんか？
310:デフォルトの名無しさん
21/04/14 06:49:23.30 Y6ryzCuB.net
>>309
インポートが簡単です。
コピペは知らん、すまん。
311:デフォルトの名無しさん
21/04/14 07:42:09.50 DQnn+aVQ.net
excel vbaでsql叩くのが確実
312:デフォルトの名無しさん
21/04/14 08:49:11.55 iZ4KD1hd.net
>>311
初心者なのでイマイチわかりません
313:デフォルトの名無しさん
21/04/14 10:15:39.10 G8f2jTvc.net
>>312
AccessからExcelよりのインポートすれば良い
URLﾘﾝｸ(www.crie.co.jp)
314:デフォルトの名無しさん
21/04/14 10:16:31.17 G8f2jTvc.net
>>312
ExcelデータのインポートをAccessから実行すれば良い
315:デフォルトの名無しさん
21/04/14 10:25:33.61 G8f2jTvc.net
>>312
インポートで出来る
316:デフォルトの名無しさん
21/04/14 10:26:17.99 G8f2jTvc.net
>>312
import
317:デフォルトの名無しさん
21/04/14 13:18:00.15 5eouqB2E.net
お前ら「コピー中」を無視するなよ
318:デフォルトの名無しさん
21/04/14 13:26:51.89 g6z8n+hy.net
コピー中、なんてもともと出来ないべ
319:デフォルトの名無しさん
21/04/14 18:59:43.46 Y6ryzCuB.net
クリップボードのデータを貼り付けるなら手作業をなぞってテーブル開いて新規レコードに位置付けしてペーストすれば良さそう。クリップボード操作するapiサンプルコードが何処かにあったような、すまんまた明日。
320:デフォルトの名無しさん
21/04/16 09:00:21.71 V1Kjbl/r.net
試してないよ？
Excelで貼り付けたいテーブルと同じレイアウトのデータをコピーしてある状態で
DoCmd.GoToRecord,,acNewRec
DoCmd.RunCommand acCmdPaste
すると張り付いたりしないかな。
321:デフォルトの名無しさん
21/04/17 16:25:08.91 beZyyPJh.net
OLEオブジェクトって手動じゃないと挿入できないの?
VBAでの挿入を試みているんだけど､似て非なるオブジェクトが作られてしまう｡プロパティの数が少し少ない変なオブジェクトが作られて困ってる｡
とりあえずレポートにオブジェクトをつくるのはCreateReportControl メソッドを使えばできるんだけど､リンク親フィールド､リンク子フィールド､値集合ソース､値集合タイプがないオブジェクトが作られる｡
そのうえ､OLEタイプが読み取り専用だからOLEの設定が出来ない｡
どうしたらいいのかな?
322:デフォルトの名無しさん
21/04/17 17:21:36.76 rlSH46Cx.net
>>321
VBAプロジェクトでそのOLEオブジェクトを参照追加する必要有る
その前提を整えたらVBAで出来るんじゃ無いのかな
URLﾘﾝｸ(teratail.com)
Formに画像追加する例
323:デフォルトの名無しさん
21/04/17 17:43:49.92 beZyyPJh.net
>>322
手動なら非連結オブジェクトフレームを挿入するとオブジェクトの種類のダイアログが出てくるので､そこで種類を選びますね｡
この作業をVBAでやっておけばいいということですね｡
ちょっと読んでみますね｡
324:319
21/04/17 21:01:55.24 GNfw/saY.net
だめだああ
なにをやってもうまくいかない
325:デフォルトの名無しさん
21/05/07 07:32:03.14 DloXWpsH.net
いまだにAccess 2.0を所有中
326:デフォルトの名無しさん
21/05/07 12:12:51.35 nZH7MU+b.net
Windows3.1の頃? 95だったかな。
327:デフォルトの名無しさん
21/05/13 02:39:37.83 fH5L5fl1.net
ACCESSで在庫管理や備品管理作っても出先でみることができません（Androidスマホなので）
みなさんどうしていますか？
Webシステムを組むほど大きいわけでもないので予算もありません
適宜レポートを作っておきExcelやPDFにしてクラウドにいれとくとかですか？
328:デフォルトの名無しさん
21/05/13 04:25:52.50 HlQKEMAc.net
>>327
お前みたいな馬鹿には無理なだけ
329:デフォルトの名無しさん
21/05/13 05:05:22.97 4K+rsr0c.net
あーそうかい‼💢
330:デフォルトの名無しさん
21/05/13 06:42:53.98 l6yrLvBl.net
>>327
リモートデスクトップとかTeamViewerでWindowsにログインかな？
331:デフォルトの名無しさん
21/05/13 07:15:26.91 Ak9zxoyZ.net
>>327
データベース更新後にEXCEL作ってクラウドに保管するのを自動化すれば充分な気がしますね。
332:デフォルトの名無しさん
21/05/13 07:26:32.47 NATYYilK.net
そもそも、Windows 用のアプリはパソコン用だから、インターネットで使えない。
それに、文字コードも違うから読めない
インターネット用の表計算アプリを使えば？
333:デフォルトの名無しさん
21/05/13 08:30:28.57 hOYLqCl+.net
ストアでMDBを検索したら見れそうなやついっぱいあるやん
334:デフォルトの名無しさん
21/05/13 11:30:23.03 yB8C7/7J.net
>>327
Webアクセスする目的ならAccessよりFileMakerになるよ
そこまでするならデータベースをMySQLかPostgreSQLに移行してVB.NETでアプリ作る方が良いけどね
335:デフォルトの名無しさん
21/05/13 11:48:19.49 63TpZ/FZ.net
クエリーが上手く作動して、ニコニコしながら、sqlビューへ切り替えてコピーして、VBEでペースト。
余計なカッコを取り除いてdebug.printに打ち出すと結果が違うことがある。
なにが原因なのかなあ？いまはADOでやってるけど、DAOならうまくいくもんかなあ？
クエリーのSQLとADOのクエリーが仕様が違うのかなあ？
同じMS謹製だからANSIとかなんとか気にしなくていいのかと思っていたけど、違うのかな？
336:デフォルトの名無しさん
21/05/13 12:20:50.87 igbBK4jX.net
>>334
ファイルメーカーからハードル上がりすぎだろ
337:デフォルトの名無しさん
21/05/13 12:36:51.71 yB8C7/7J.net
>>336
FileMakerはライセンス料高いからね
Visual Studio習得してアプリ作れるならその方が良い
Webサーバーは必要だけどね
338:デフォルトの名無しさん
21/05/13 12:42:45.76 aIL5A3Qh.net
>>337
VB.netでwebサーバとか完全にもう別物ですやん
339:デフォルトの名無しさん
21/05/13 12:55:37.00 GXeEY8R8.net
>>335
カナ？はカタカナにしろ
340:デフォルトの名無しさん
21/05/13 13:09:30.39 yB8C7/7J.net
>>338
高いライセンス払う余裕有ればFileMakerで良いよ
現実は高いライセンス料払いたく無い企業が多いからね
FileMakerが普及しないのもこれが原因
341:デフォルトの名無しさん
21/05/13 13:31:32.10 DinFNpWn.net
だからって一から自分でつくるってのは飛躍してない？
家建てるときにどこのメーカーがいいですか？
に対して自分で建てろといってるようなもん
342:デフォルトの名無しさん
21/05/13 14:03:30.60 yB8C7/7J.net
>>341
自分で作れ、とは言って無いよ
ソフトウェアハウスの手を借りれば良い
343:デフォルトの名無しさん
21/05/13 14:07:34.22 fH5L5fl1.net
>>342
ライセンス料より高い気が……
344:デフォルトの名無しさん
21/05/13 14:56:12.91 HlQKEMAc.net
>>343
馬鹿には無理なのだから他人に金を出して頼むしかないだろ
馬鹿のくせに金を出さずに人にやってもらおうとか、ゆとりか？
345:デフォルトの名無しさん
21/05/13 15:00:43.59 9/CKV48N.net
>>343
ランニングコストってのが有ってだな、、
FileMakerだとライセンス1回切りじゃ無いから
346:デフォルトの名無しさん
21/05/13 16:59:09.51 fH5L5fl1.net
>>345
ソフトウェアハウスでも保守料かかるだろ
基本的には自分で改変できないし
347:デフォルトの名無しさん
21/05/13 17:16:07.25 9/CKV48N.net
Web化って時点でファイルメーカー選ぶしか無い様な、、
外部からアクセスするしないが重要
348:デフォルトの名無しさん
21/05/13 17:25:00.83 MH+VlhFF.net
外から見たいだけなら、リモートデスクトップでいいんじゃなかろうか
349:デフォルトの名無しさん
21/05/13 17:25:32.84 HlQKEMAc.net
>>347
馬鹿
350:デフォルトの名無しさん
21/05/13 17:48:02.70 9/CKV48N.net
>>347
それ有るの忘れてた
351:デフォルトの名無しさん
21/05/13 18:13:16.22 6ddXJmx+.net
ACCESSで在庫更新したあとOneDriveフォルダにEXCELエクスポートします。
あとはスマホでもタブレットでも参照可能です。
352:デフォルトの名無しさん
21/05/13 18:26:55.54 hOrZuwcL.net
デ、データアクセスページ……
353:デフォルトの名無しさん
21/05/13 20:11:21.52 R/rAXCYS.net
>>347
｢Web化って時点でファイルメーカー選ぶしか無い｣
なぜこういう嘘を書くのか。それとも本当にそう思っているならそんな頭の弱い人は書かなきゃいいのに。
354:デフォルトの名無しさん
21/05/14 10:03:38.95 wh02PaxN.net
>>352
実際使ってる例って有るのかな?
355:デフォルトの名無しさん
21/05/14 10:10:19.21 A+WZ3bIw.net
>>354
とっくの昔にお亡くなりになったような記憶が…
356:デフォルトの名無しさん
21/05/14 10:18:39.71 wh02PaxN.net
>>355
実例がほとんど無いね
URLﾘﾝｸ(support.microsoft.com)ロードマップの-access-services-497fd86b-e982-43c4-8318-81e6d3e711e8?ui=ja-jp&rs=ja-jp&ad=jp
Access Webアプリも無くなってる
ファイルメーカーの有利な点だな
357:デフォルトの名無しさん
21/05/22 19:40:24.10 1Qe3fJgv.net
ちょっと前までGoogleでデータベース・サービス持ってたのにいつの間にかなくなっちゃたな。
最近VBAよりGASが面白くなってきたので手を出そうと思ってたのに。
やはり無料じゃGoogleも厳しいか。
358:デフォルトの名無しさん
21/05/27 01:00:52.60 3lF12N8K.net
レポートやフォーム作るときに、拡大できないの致命的だよね
win標準の拡大ではぼやぼやで目がたえりれない
エクセルあたりでは普通に拡大できるのになあ
これだけでファイルメーカーに乗り換えようと思ったりしてよ
359:デフォルトの名無しさん
21/05/27 02:13:23.53 J8UpNeL3.net
馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない
360:デフォルトの名無しさん
21/05/27 08:19:11.99 qf3Pvmmz.net
と馬鹿が申しております
361:デフォルトの名無しさん
21/05/27 12:00:09.01 3lF12N8K.net
FM→ACCESSときたけど
レイアウトつくるのはびっくするくらい大変
そして頑張っても前時代的なのになってしまう
金額の問題だけで以降したんだけどね
ACCESSは365についてるから無料みたいなもの
FMは約6万
362:デフォルトの名無しさん
21/05/27 12:05:37.62 3lF12N8K.net
サブスクは5ユーザ からのみで年¥96,000
というびっくりプライス
363:デフォルトの名無しさん
21/05/27 14:45:17.54 U0nLnJgd.net
Report は pdf 出力やろ常考
364:デフォルトの名無しさん
21/05/27 15:51:14.66 ksqD/aLA.net
>>363
フィールドの位置とか外部ソフトでできるの？
365:デフォルトの名無しさん
21/05/27 15:53:14.54 UBVWS17P.net
ACCESSでA4に収まるように8ptくらいのフィールド配置してたら目が痛くなって具合が悪くなったな
366:デフォルトの名無しさん
21/05/29 06:45:06.05 b7REYRZH.net
>>365
ノートだとそうなんかな…
自作のときはずっと9ptがデフォだけど何ともないな…
拡大鏡でも使った方が楽な気がする
367:デフォルトの名無しさん
21/05/29 12:27:27.87 hFIjeD7o.net
>>366
拡大鏡ってぼやぼやになるからなあ
368:デフォルトの名無しさん
21/05/29 12:27:43.67 hFIjeD7o.net
ん？ノート？
369:デフォルトの名無しさん
21/05/30 02:44:36.28 gYrIGJpw.net
右側のプロパティって時間小さすぎるよな
レイアウト配置よりこっちをでかくできるようにしてほしい
370:デフォルトの名無しさん
21/05/30 02:46:50.94 gYrIGJpw.net
あれもうちょっとどうかならないんだろうか
一日使うにはストレスがすごすぎる
371:デフォルトの名無しさん
21/05/30 08:25:31.88 13wLe9nW.net
ユーの眼球レベルにあった
でかくて低解像度のモニター使え
372:デフォルトの名無しさん
21/05/30 11:48:00.52 AsIzYzCY.net
ユー買っちゃいなyo!
373:デフォルトの名無しさん
21/06/01 06:40:30.63 UJDWMLaS.net
共有ファイルとして使う場合
処理がバッティングすると、待ち？っぽい動きするんだけど、この待ち時間を短くとか長くとか設定できない？
374:デフォルトの名無しさん
21/06/04 04:59:49.95 JYH5jKrW.net
>>367
整数倍にすればボケませんよ
375:デフォルトの名無しさん
21/06/04 05:01:18.78 4UOZ506g.net
>>374
150でも200でもぼける
376:デフォルトの名無しさん
21/06/04 06:58:24.85 pJrSJSTA.net
5年ほど前に作った製品ラベルのレポートを修整しようとしたら、老眼は進んでるわ液晶の解像度は上がってるわ、マウスカーソルの移動量を増やしてるわで大変だった。デザインビューの拡大出来るようになると良いですね。
377:デフォルトの名無しさん
21/06/05 16:40:26.94 RpMlRy13.net
ファイルメーカーの体験版使ったらACCESSに戻れなくなってしまった
ACCESSになんかメリットある？
378:デフォルトの名無しさん
21/06/05 18:22:16.60 HEfJq5i5.net
馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない
379:デフォルトの名無しさん
21/06/05 18:58:27.51 vqCzfq5H.net
と馬鹿が申しております
380:デフォルトの名無しさん
21/06/05 18:59:13.81 ZYY2LhyT.net
>>377
コストかな。
田舎の工場で低価格な電子部品作ってる。30台くらいのパソコンで使うからファイルメーカーなんてコストは現実的ではないんです。
381:デフォルトの名無しさん
21/06/05 21:31:57.93 3DV79FRa.net
ファイルメーカーとAccessは得意分野が全然違うのでは？
382:デフォルトの名無しさん
21/06/05 21:53:37.74 mImo/W/A.net
ファイルメーカーの宣伝でしょ
383:デフォルトの名無しさん
21/06/05 22:47:17.80 RpMlRy13.net
>>382
ACCESSでうまくいかずもやもやするたびに体験版つかってみて
ライセンス料なんかが不安でACCESSにもどるってのを繰り返してる
ACCESSが現代的なGUIになってくれて
ある程度はコード書かなくてもできるよえになればいいんだが
384:デフォルトの名無しさん
21/06/06 02:59:11.72 g1lC8rmM.net
え！？ひとりでも最低
じゅじゅじゅじゅじゅうまんえーん！？
URLﾘﾝｸ(i.imgur.com)
ちなみにキントーンもこの商法みたいだな
ACCESSはUIがクソなのと共有がほぼできない、ちょっとしたことでもコード書かなきゃならない、その代わりに激安ってことなんだろうな
逆にそこらを改善するのはこんくらい金とらなきゃできないことなのかもしれん
385:デフォルトの名無しさん
21/06/06 04:17:17.40 I3Drh9AD.net
馬鹿
↓
ACCESSは共有がほぼできない
386:デフォルトの名無しさん
21/06/06 10:18:31.22 9mmqAG88.net
FileMake使いのやつって
Access使いを見付けると必ず攻撃してくるよね
なんで不況に熱心なのかな
387:デフォルトの名無しさん
21/06/06 10:21:05.17 9mmqAG88.net
馬鹿
↓
FileMakerはコード書かなくていい(キリっ)
388:デフォルトの名無しさん
21/06/06 11:26:09.24 tDAG+yA0.net
と馬鹿が申しております
389:デフォルトの名無しさん
21/06/06 14:07:30.75 g1lC8rmM.net
いくらなんでも高すぎる
あれって全社員にipadもたせてリアルタイムでデータ共有するような大企業向けだろ
とはいえほかにACCESSしか選択肢がなくてACCESSは手間がかかり過ぎるが
390:デフォルトの名無しさん
21/06/06 16:01:30.88 /p4HIOC8.net
ACCESSは実質開発が停止してるからな
Web公開手段を再度実装したらFileMakerなんて駆逐出来るのに
391:デフォルトの名無しさん
21/06/07 23:05:55.18 7Tyglgss.net
>>375
それ元がボケてるんやな
ディスプレイ買い換えるしかないな
うちは拡大してもクッキリやで
392:デフォルトの名無しさん
21/06/08 00:47:30.58 Cnc+U0Kq.net
>>391
んなことないだろEIZOのFLEX Scanだし
ぼやけるって言葉の認識だと思うが
ベクターとラスターの拡大みたいなこと
URLﾘﾝｸ(i.imgur.com)
拡大鏡だと単純拡大だからガタガタのぼやぼや
スマホの拡大縮小だとおかしくならないよね？
ソフトに標準で拡大縮小が実装されているならそれと同じできれいに拡大できる
ACCESSはないから拡大鏡つかうことにかるから汚いしつかいにくい
393:デフォルトの名無しさん
21/06/10 00:40:17.87 BRYBvkaF.net
>>392
〉拡大鏡だと単純拡大だからガタガタのぼやぼや
単純拡大だからガタガタになるので正しい
しかしぼやぼやにはならない
頭（目？）悪そうだなこいつ
394:デフォルトの名無しさん
21/06/10 01:23:12.45 /1oHskcz.net
文字が
URLﾘﾝｸ(i.imgur.com)
こうなるのをボヤボヤといってるんだと思う
MSゴシック使ってるやつはわからないかもしれないが
アンチエイリアス入ったフォントで拡大鏡使うとボヤボヤになるよ
URLﾘﾝｸ(i.imgur.com)
395:デフォルトの名無しさん
21/06/14 20:33:26.59 bsW07B0Y.net
getobjectでVBSからmdbへ接続してACCESSのモジュールを書き換えているんだけど、プロシジャーをチマチマ書き換えるのが面倒になってきたので、
既存モジュールの全行を削除してからModule.AddFromFile メソッドで新モジュールを一括して書き換えた。
mdbを保存する段になって「ファイルの共有ロック数が制限を超えています」と怒られた。
たしか、コミットトランスするんだよなあ、と資料を読んでみたが、それが出来るオブジェクトが存在しない。
一体どうしたらいいのかな？
396:デフォルトの名無しさん
21/06/15 10:02:33.87 Bs75sj8Q.net
ACCESSを買えば良いと思います。
397:デフォルトの名無しさん
21/06/15 11:17:25.55 KpoHzIzW.net
>>396
Microsoft 365 for businessを使用してます。
ACCESSはしょっちゅう壊れるからVBSで出来ることはVBSでやりたいですね。
398:デフォルトの名無しさん
21/06/15 13:21:19.21 HnTVFPij.net
>>397
そんな面倒なことw
2.0使いはじめた頃は間違った使い方してたのもあって壊しまくったが、ここんとこ壊れたことなどないぞ
399:デフォルトの名無しさん
21/06/15 15:19:36.70 KpoHzIzW.net
>>398
フォームのコマンドボタンの位置をほんの少しずらしただけで壊れこともあるし、最適化で壊れたこともある。
最近もどっかの記事でそのような記述を見たような気がする。
VBSはコードを見るのも書くのもサクサクだからお気に入りだよ。重たいACCESSを開かなくていいのは気が楽だよ。
でも、関数がVBAと少し仕様が違うとか面倒なことがあるのが玉に瑕だなあ。
400:デフォルトの名無しさん
21/06/15 20:40:00.08 XJxpvmdE.net
>>395
mdbからaccdbにすると壊れ難くなる気がします。
401:デフォルトの名無しさん
21/06/16 09:49:56.68 ni17rAhE.net
>>400
面白そうですね。参照設定を変更するくらいで出来そうですね。だめなら宣言文にDAO.を加えれば出来そうな気がします。
今はほぼ全ての改造をVBS経由で行えそうだから、それで行き詰まったらやってみます。
402:デフォルトの名無しさん
21/06/16 16:39:10.95 uJQ6HHCX.net
>>395
共有ロック数って言ってるんだから
VBSからmdbへ接続が何度も繰り返してるか間違ってるんじゃね
403:デフォルトの名無しさん
21/06/16 18:15:04.80 5mM/xZpb.net
プロシージャーを書き換えるプロシージャーを書くのって面白い？
404:デフォルトの名無しさん
21/06/16 21:11:44.71 ni17rAhE.net
>>402
共有ロックの問題はMaxLocksPerFileを増やしたらあっさり解決しました。
>>403
手作業でプロシジャーを変更していたときより遙かに楽になりましたし。仕事が楽になる過程は面白いです。
なによりもAccessと違ってサクサク動くのがVBSの最大の魅力です。
405:デフォルトの名無しさん
21/06/16 21:18:57.41 ni17rAhE.net
一括でモジュールを書き換えるのすら面倒になったのでLoadFromTxtに切り替えた。
これならフォームやレポートも丸ごと移植可能だわ。
406:デフォルトの名無しさん
21/06/22 11:37:45.99 Ug3/ZHCp.net
オフィス365でデーターを保存したときにウインドウの上のバーの箇所のタイトルに
「ファイル名＋保存しました・・」って表示になるけど、
これ出さないように出来ないのかな？
ウインドウのタイトルが変わるとRPAが誤作動をおこすので
いらない機能をつけるなよといつも思います。
407:デフォルトの名無しさん
21/06/22 11:40:11.76 Ug3/ZHCp.net
>>406
誤爆でした。ここAccessなんですね。。
408:デフォルトの名無しさん
21/06/22 19:29:04.84 jEG7fGSr.net
なんでVBA使わずRPAなの？
409:デフォルトの名無しさん
21/06/22 20:23:21.77 BN5S6vpx.net
そのVBAを操作する人間の操作を代行させるのがRPAなんやで
410:デフォルトの名無しさん
21/06/23 19:45:53.16 G1+Cnxf/.net
なんで公共の場で地元言葉なの？
411:デフォルトの名無しさん
21/07/24 13:25:46.25 1ILHRw72.net
レポートを変数「i」回だけ複数印刷しようとして、
PrintCountやFormatCountを使ったのですが、
「i」とPrintCount・FormatCountが一致しません。
PrintCountやFormatCountって、
ページ変更・ヘッダー・フッターなどでも、カウントが増えますか？
アルゴリズムそのものが間違いでしょうか？
412:デフォルトの名無しさん
21/07/24 14:08:20.10 Q5wmuS+A.net
おまえごときがVBAやる事そのものが間違い
413:デフォルトの名無しさん
21/07/24 19:42:05.93 g6yRedEM.net
なな、南斗
414:デフォルトの名無しさん
21/08/04 20:55:05.72 +oxSmlyp.net
[タイプ]が勝手に[ﾀｲﾌﾟ]になってしまう。
[ ]で囲んでるのに。なんぞこれ。
415:デフォルトの名無しさん
21/08/05 08:02:56.74 MUFJqoFE.net
あれ、今日は勝手に半角に戻らない。
再起動するだけで良かったのかも。
独り言スマンね。
416:デフォルトの名無しさん
21/08/05 14:37:35.48 hIo3G+nj.net
解決済みという事ですが
名称の勝手変換は[名前の自動修正]を有効にしていると起きます
初心者向けの親切機能ですが、オブジェクト名などを細かく定義している場合には逆に足枷になります
名称変更時に自動トレースしきれずバグを生み出したりします
ご参考までに
417:デフォルトの名無しさん
21/08/05 18:07:31.70 Xn5oJsvt.net
いや、再発しました。
名前の自動修正、調べてみます。
418:デフォルトの名無しさん
21/08/07 07:56:44.50 GRpq7tgL.net
Windows11+ACCESS365の環境で発生してます。
ﾀｲﾌﾟ(半角)と入力しても行を移るとタイプ(全角)になっちゃう。[ ]でくくっても駄目。
Windows10+ACCESS365では[ ]でくくると勝手に全角にはならないので、Win11Betaのせいっぽいです。
アプリの修復試してみて、駄目ならWin11Betaのフィードバックに上げます。
419:デフォルトの名無しさん
21/08/07 20:17:05.58 51b7egKe.net
どっかに全角のタイプってオブジェクトがある（あった）んだろな
そういえばWIN10でNLSのバージョン変わって全角半角の判断がおかしくなる問題があったな
ちょっと試したWin10の詳細バージョン書いてくれ
Win11のＮＬＳってどうなってるんだろ
420:デフォルトの名無しさん
21/08/27 14:57:39.16 2jUlNhAQ.net
すみません、見逃してた。
Windows10の21H1ですね。
NSLがなんの事かわかんないですが、確かに前にも経験したトラブルの様な気がします。
421:デフォルトの名無しさん
21/09/04 15:37:28.00 s2WpiZ/S.net
明後日スタンダード試験だけどやばい模擬問題正答5割だわ
422:デフォルトの名無しさん
21/09/04 16:34:10.88 JBLhGxRz.net
ん、まぁ、ガンガレ
423:デフォルトの名無しさん
21/09/05 03:44:21.58 Ocn+wvkQ.net
外部からaccessの特定のレポートを開く方法ある？
424:デフォルトの名無しさん
21/09/05 14:14:02.27 ICYnYWWd.net
外部って？
普通にCOMで操作すれば良いんじゃねえのか
425:デフォルトの名無しさん
21/09/07 12:53:43.40 3mZ93kfX.net
パススルークエリのパラメータをaccess外から設定する機能教えてください。
426:デフォルトの名無しさん
21/09/07 13:13:29.25 7P2mUzTw.net
access外って？
何がやりたいかわからん
427:デフォルトの名無しさん
21/09/07 14:16:04.54 QthkAqNV.net
ADO
ADODB
DAO
428:デフォルトの名無しさん
21/09/08 22:14:40.15 jpM3jR9r.net
>>427
データベースに
ドライバなしでvbaで接続する方法ってないの？
429:デフォルトの名無しさん
21/09/09 01:34:00.79 4EZcQadY.net
>>428
URLﾘﾝｸ(docs.microsoft.com)
430:デフォルトの名無しさん
21/10/09 23:35:10.80 uMcy1fPR.net
VBAエキスパートって取ったほうがいいでしょうか
431:デフォルトの名無しさん
21/10/10 08:29:41.88 fy4lWk3l.net
資格マニアを見る世間の目は冷たい
432:デフォルトの名無しさん
21/11/02 07:37:22.79 0Z1mhYfJ.net
>>430
資格より実践を積むべし
433:デフォルトの名無しさん
21/11/29 15:04:38.27 vB15GkdT.net
レコードが存在しない場合に INSERTを動作させようとしてます
FROMが無いと、演算子がありません、となるため
ダミーの FROM を入れましたが(Oracle でいうところの dual)
レコードが追加されません
INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);
Access の INSERT での FROM や WHEREに、何か制限などありますでしょうか?
434:デフォルトの名無しさん
21/11/29 15:15:06.43 MiFRCJa7.net
直接の返答じゃないけど、SQL一発書きじゃなきゃだめなの？
事前にレコード数チェックして分岐じゃだめなの？
435:デフォルトの名無しさん
21/11/29 15:17:50.75 vB15GkdT.net
UPDATE と組み合わせて、SQL一発を考えてます
無理であれば、おっしゃるように分岐かなと
436:デフォルトの名無しさん
21/11/29 16:01:33.58 MiFRCJa7.net
ちょっと気になったので手元で実験してみたけど、dummyテーブルが存在して空ではないときには
（多分）431の想定どおりの挙動をしていると思う
バッドノウハウ臭いので、おとなしく事前チェックして分岐かなぁ
まぁAccessのSQLって変だよね
437:デフォルトの名無しさん
21/11/29 17:41:32.65 XYio4/pG.net
access はupdateいっぱつで初挿入もできたはず
しゅきーのヌルを上書きする感じで
438:デフォルトの名無しさん
21/11/30 05:36:52.18 KirC+CSy.net
>>437
さすがにそんなことはないと思うが、ちょっとサンプルコード書いてみてくれ
439:デフォルトの名無しさん
21/11/30 09:01:45.87 qEKwfbTR.net
>>438
選択クエリは更新できる
UPDATE TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
SET TableA.ID = [TableB]![ID], TableA.Data1 = [TableB]![Data1], TableA.Data2 = [TableB]![Data2];
440:デフォルトの名無しさん
21/11/30 10:50:50.28 d0QAjKSx.net
>>433
values (1, "name")
じゃ駄目なの
441:デフォルトの名無しさん
21/11/30 10:58:46.58 +NfPg838.net
>>440
単純にinsertするだけならそれでいいんだけど、existsを使って条件付けようとしてるのでvaluesは使えない（エラーになる）
442:デフォルトの名無しさん
21/11/30 12:38:13.11 nsxxcWz3.net
それ自分でDUALという名称でテーブルを作って1レコード入れておけば出来るよ。
OracleのDUALも実体はそんな感じだったと思う。
443:デフォルトの名無しさん
21/11/30 16:33:37.59 KirC+CSy.net
>>439
更新はできるけど、存在しない行を更新しようとしたとして
その行を新規追加することなんてないだろ．．．
と思ったけど、追加されるのか
ACCESS無茶苦茶しやがるな
リンクテーブルに対してでも追加しやがる
SQL ServerだってFromでJoinしてUPDATEできるけど、
さすがに行が追加されることなんてないぞ
エラーの原因が分からない？
444:デフォルトの名無しさん
21/11/30 16:35:34.50 KirC+CSy.net
あ、最後なんか変な行入った
445:デフォルトの名無しさん
21/11/30 17:23:09.43 aruulzL7.net
あくせく働くぜ
446:デフォルトの名無しさん
21/11/30 18:49:33.51 VsTnDahT.net
>>443
Access的には「更新可能クエリ」はテーブルと同等の扱いなのだろう
447:デフォルトの名無しさん
21/11/30 22:05:19.66 KirC+CSy.net
>>446
Viewが実テーブルとほぼ同じ扱いってのは別に問題じゃない
UPDATE文でテーブルの行数が変わるのが無茶苦茶なんだよ
448:デフォルトの名無しさん
21/11/30 22:10:51.28 VsTnDahT.net
SELECT * FROM TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
これの更新だから行数は変わっていない
449:デフォルトの名無しさん
21/11/30 23:40:10.71 KirC+CSy.net
UPDATE文で実テーブルの行数が、な
450:デフォルトの名無しさん
21/12/01 09:46:36.82 dv4Z+qI2.net
>>433
SQL一発では出来ないよ
残念だが
DOループで回す事になる
451:431
21/12/02 11:57:32.43 nKskuO+T.net
ありがとうございます
分岐で分けることにしました
452:440
21/12/02 22:29:47.92 vu0CN48k.net
もうちょっと俺を信用してもええんやないかと思ったが
出来たんならええか
453:デフォルトの名無しさん
21/12/08 11:00:44.75 8eCyKUYS.net
データベースに対し、レポートを外部データの取込で追加するのですが、
この操作をGUIでなくコマンドで行う事は出来ますでしょうか。
454:デフォルトの名無しさん
21/12/08 11:36:19.36 XFpeOKs/.net
mdbファイルまるごと差し替えでok
455:デフォルトの名無しさん
21/12/08 14:57:00.86 8eCyKUYS.net
>>454
返信ありがとう
やっぱ基本はＤＢごと差し替えになるんですね・・・
最新を管理しないといけないということですか
456:デフォルトの名無しさん
21/12/08 16:58:22.13 sRvDCOgH.net
>>452
レコード入れずに試してみてました
あとで確認してみます
457:デフォルトの名無しさん
21/12/08 18:12:44.70 ixTDMdmo.net
>>453
access起動コマンドラインオプションに
/x マクロ名
で自動実行可能
向きが逆だけどオブジェクトのコピーでレポートをコピー出来る
458:デフォルトの名無しさん
21/12/08 20:30:00.04 FsTgnRus.net
>>453
DoCmd.TransferDatabase acImport
459:デフォルトの名無しさん
21/12/13 11:19:46.91 HhLRYuYl.net
>>442,452
ありがとうございます、確認しました
dummy テーブルにレコードを入れて動作しました
INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);
460:デフォルトの名無しさん
22/01/15 00:52:56.35 ALzAiADU.net
VBAって、サポート切れてんの？
企業とかこれから、多数のツールどうすんだろうね。
461:デフォルトの名無しさん
22/01/15 07:46:29.84 8MS0rOI1.net
サポート気にするような部署でvbaを採用するだろうか？
462:デフォルトの名無しさん
22/01/17 00:16:00.31 oS3b1eNW.net
VBAって単独の製品じゃないんだが
そもそもVBAがサポート切れってどこの情報だ？
463:デフォルトの名無しさん
22/01/17 12:28:46.14 t8m0YBBL.net
OneDriveにコードをバックアップして直接開いたところ
URLﾘﾝｸ(imgur.com)
こういった線が付きました
Office2016 Proなのですが設定等でVBエディターでも表示できますでしょうか
またお恥ずかしながらこの線の一般的な名称も教えて頂けませんでしょうか
464:デフォルトの名無しさん
22/01/17 17:44:28.15 hBkYcVxQ.net
>>463
何で開いたのかは知らんけど、AccessとかのVBAエディタには、そういった今どきの便利な機能は無いかと
一般名称かどうかはしらんけど、VSCodeとかの設定では Indent Guide でひっかかるんじゃないかな
465:デフォルトの名無しさん
22/01/17 20:02:01.14 r2vXEkpI.net
>>464
ありがとうございます
名称のほうぐぐってみまして、確かにVS関連の情報が多く出てきました
大変便利ゆえに残念です！
466:デフォルトの名無しさん
22/01/31 11:21:11.42 ZCY1so+a.net
Microsoft 365 Access Runtime ダウンロードリンクが動作してないのですが
ダウンロードできた方おられます??
467:デフォルトの名無しさん
22/01/31 11:29:43.23 Di33df7w.net
>>466
見てみたけど、ダメだねぇ
468:デフォルトの名無しさん
22/02/22 22:36:04.61 h8gQU92u.net
アクセス2010でVBA内でエクセルのブックを操作するためにブック選択ダイアログを開こうとしています．ブックが存在するフォルダーはc:\x\y内にあります．
それでChDirでGetOpenFilename実行時に開くフォルダーをc:\x\yにしたいのですが，規定のドキュメントフォルダーが開きます．
Debug.Print CurDirは"C:\x\y"を返しますので，システムが認識するカレントフォルダーが"C:\x\y"に変わっているのは確認済みです．GetOpenFilenameが開くフォルダーをGetOpenFilenameに変更できないことが問題です．
sub test
ChDir "C:\x\y"
Debug.Print CurDir
Set exApp = CreateObject("Excel.Application")
ChDir "C:\x\y"
Debug.Print CurDir
res = exApp.GetOpenFilename("Csv Files (*.csv), *.csv")
end sub
ところがエクセルのVBA内でtest2を実行するとフォルダーc:\x\yが開きます．
sub test2
ChDir "C:\x\y"
res=aplication.GetOpenFilename("Csv Files (*.csv), *.csv")
end sub
アクセスのVBAのから操作するとうまくいきません．解決策はないでしょうか？
469:デフォルトの名無しさん
22/02/22 22:38:16.30 h8gQU92u.net
間違えました。
GetOpenFilenameが開くフォルダーをGetOpenFilenameに→
GetOpenFilenameが開くフォルダーをc:\x\yに
470:デフォルトの名無しさん
22/02/23 09:19:56.78 yBLUqW/Q.net
URLﾘﾝｸ(hironimo.com)
WorkBooks.Open
471:デフォルトの名無しさん
22/02/23 10:16:59.77 /GeE/zJY.net
>>470
GetOpenFilenameでダイアログが立ち上がったときのフォルダーをc:\x\yにしたいという意味です。
472:デフォルトの名無しさん
22/02/23 14:00:43.13 3ksW4w1X.net
FileDialogを使う
473:デフォルトの名無しさん
22/02/23 15:58:28.79 noR6ud0U.net
URLﾘﾝｸ(officevba.info) こっちスかね
メリットもデメリットも書いてあって親切
474:デフォルトの名無しさん
22/02/23 16:48:55.01 /GeE/zJY.net
>>472
ありがとうございました．
FileDialogだとカレントフォルダーで開いてくれました．
475:デフォルトの名無しさん
22/02/23 16:53:30.10 /GeE/zJY.net
>>474
ありがとうございます。この説明はとても親切ですね。よくわかりました
476:デフォルトの名無しさん
22/02/24 15:49:02.02 G5PhgONP.net
>>468
Excel.ApplicationのDefaultFilePathを設定していったん終了したら、
次からそこで開くっぽいぞ
Set exApp = CreateObject("Excel.Application")
exApp.DefaultFilePath = "C:\x\y"
exApp.Quit
Set exApp = CreateObject("Excel.Application")
res = exApp.GetOpenFilename("Csv Files (*.csv), *.csv")
こんな感じか
実行したらエクセルのオプション変わっちまったｗｗ
デフォルト何だっけな
477:デフォルトの名無しさん
22/02/28 11:00:59.24 JmI4xSUc.net
初歩的な質問でお恥ずかしいのですが教えて下さい
面倒な計算や処理をして値を返す関数Aがあった場合
その戻り値を判定したい場合
If A = 1 or A = 2 then
と記述するとaccessは 2回処理することになるのでしょうか
それでしたら仮に変数(V)を用意して、一旦
V = A
のように格納してから
If V = 1 or V = 2 then
と記述したほうが処理的には一回で済むという解釈になりますでしょうか
すみませんがご教示頂けたらと思います
478:デフォルトの名無しさん
22/02/28 11:49:10.60 JmI4xSUc.net
すみません、試してわかりました。
後者は一回で済みました。
質問することでその後すぐ簡単な確認方法を思いつくことがよくあります
お恥ずかしい。スレ汚し失礼しました；
479:デフォルトの名無しさん
22/02/28 12:38:27.12 jOzz1fM6.net
どんまい 気付きや学びに成りゃ無駄じゃ無い
480:デフォルトの名無しさん
22/02/28 12:41:50.52 frLBMESq.net
ちょっと違う話だけど、VBAにもOrElseやAndAlsoが欲しいなと思うときはある
481:デフォルトの名無しさん
22/03/06 15:10:37.27 R+n9Kzax.net
SQLの勉強をさいきんはじめました
動的SQLによる数独の超高速解法
というのを読みました
動的にSQLを生成するため
・一つはJDBCを使う方法
・もう一つはストアド・プロシージャを用いた方法
云々って書いてあります
これらって、アクセスのSQLでもできそうなものでしょうか？
（過去に話題として出てたらごめんなさい）
できそうならやってみようかと
茨の道ならあきらめます
482:デフォルトの名無しさん
22/03/06 16:34:17.90 TgGQVPNx.net
2つとも分からんけど、VBAが使える環境なら動的SQLは可能なはず
483:479
22/03/06 17:10:27.06 R+n9Kzax.net
SQLとは、使用人から経営者になることだ
今まで自分で作業してたのをしなくてよくなる
使用人に、「こういうのを出してくれ」と
言うだけでよい
数独についてであれば、今まで
総当りするプログラムとか
条件判定とかを自分で考えていたが
SQLならそうしたものは自分で考えなくてよい
勝手に総当りして勝手に判定してくれる
・・・ということが書いてありました
これって、既存のプログラムの要件を
SQLで表現できれば中身は考えなくてよい
ってことですよね けっこうおもしろいかも
484:デフォルトの名無しさん
22/03/07 07:14:29.39 xVPINsIe.net
経営しなくてもお金が稼げるSQLがどこかに書いてあると良いのに。
485:デフォルトの名無しさん
22/03/07 12:53:13.63 +OeG3Wfd.net
>>481
JDBC Driver で Access MDB に接続できる
つまりワカラン
486:デフォルトの名無しさん
22/03/07 13:11:37.42 3lxJ/2QX.net
これかな？
URLﾘﾝｸ(codezine.jp)
URLﾘﾝｸ(codezine.jp)
URLﾘﾝｸ(codezine.jp)
記事中においてJavaでSQLを生成している部分はVBAで書けるだろうけれど、
他のRDBMSで使えるSQLの全てがAccessでも使えるわけじゃないから
その辺をうまく置き換えたりVBAで補ったりする必要はあると思う
487:デフォルトの名無しさん
22/03/07 14:07:14.74 tjPYNfUL.net
各DBで使えるSQL構文一覧表
(ROLLUPは jet使えない oracleはokとか)
のページが昔あったのに
今見たら見あたらなかったわ
488:デフォルトの名無しさん
22/03/08 06:28:34.40 fGzXxwFZ.net
総あたりする場合、SQLはどうやって
候補を管理してるんだろ？
ふつうにメモリ上に持ってたら
メモリが足りないような
489:デフォルトの名無しさん
22/03/08 20:13:50.94 fGzXxwFZ.net
数字の書かれたパネルがあります
このパネルのマスをいくつか
ぬりつぶし、残った数字の積が、
たて・横のどの列も12になるように
してください
2523
6257
5262
2334
これぐらいの規模の問題で
練習したほうがいいかも
ぬりつぶしは1に置き換える
490:デフォルトの名無しさん
22/03/09 11:17:27.88 wDARNtYc.net
動的SQLっていうから
DBエンジンにSQL投げる
↓
その結果を受けて自分を書き換えて
再度新しいSQL投げる
↓
望む結果になるまで繰り返す
みたいな話を期待したら
拍子抜けだった
491:デフォルトの名無しさん
22/03/10 18:36:45.22 y/Xk/sN2.net
>>489
SELECT 解答
FROM すべてのあり得る盤面
WHERE 今回の条件
だから
まず盤面を1行にして
2523625752622334
と表す
すべてのあり得る盤面は
2523625752622334
2523625752622331
2523625752622314
2523625752622311
～
1111111111111111
だけどこれをどうSQL文の中で
表現すればいいのかわからん
492:デフォルトの名無しさん
22/03/11 12:30:05.01 +z9vFN5I.net
>>491
>>486の記事を１から読んでこい
493:デフォルトの名無しさん
22/05/01 00:28:53.70 uZ+uV6s8.net
VBAのコード内の文字を置換するプログラムをVBAで行うことはできるでしょうか？
置換の組合せが複数あるので一つずつCtrl+Hで操作すると間違いそうなので，
置換前文字列と置換後文字列の配列を書いて，それを順に実行するようにしたいのです．
自分のコード内に当該置換文字列をがでてくるので，その回避も考えないといけないですが
よろしくお願いします
494:デフォルトの名無しさん
22/05/01 07:29:11 1HGTgNe1.net
>>493
できるよ
495:デフォルトの名無しさん
22/05/01 07:36:23 1HGTgNe1.net
ごめん、AccessVBAスレだった
知らん
496:デフォルトの名無しさん
22/05/01 16:14:10 4P2yloMu.net
ACCESSにもApplication.VBEがあるっぽいから、エクセルとかと同じようにできるんじゃね
そもそもコード内をそうそう置換するって状況がよくわからんがな
497:デフォルトの名無しさん
22/05/01 20:13:11.92 uZ+uV6s8.net
>>496
オブジェクト名を修正すると，名前の自動修正機能で，オブジェクト間の整合性は保たれます．
例えば，Aクエリー内でBテーブルを使用していて，Bの名前をCに変更するとA内のBテーブル名もCに自動的に修正されます．
ところが，コード内でオブジェクト名を引数に使用している場合（DoCmd.OpenQuery()やQeryDef()など）は，自動的に修正されないので
コード内の文字置換で修正するしかありません．
オブジェクト名をより統一的にしたいとか，あるルールで短くしたいなどの事情です．
でも本当にコードを使ってコード内の文字置換できますか？
「エクセルとかと同じようにできる」とのことですが，エクセルのVBAでできる方法を知りません．
498:デフォルトの名無しさん
22/05/01 20:33:27.28 XyObubkl.net
>>496がApplication.VBEってヒント出してくれてるのに自分で調べる気は無いの？
499:デフォルトの名無しさん
22/05/01 20:51:07.35 uZ+uV6s8.net
>>498
いままでApplication.VBEとVBAの違いをしりませんでした．
Application.VBEで検索して，オブジェクトであることをしりました．
できそうな気がしてきました．
調べます
500:デフォルトの名無しさん
22/05/01 21:27:48.04 q0kLnjNb.net
>>499
お前みたいな馬鹿は、方法自体間違えていると思うよ
501:デフォルトの名無しさん
22/05/01 22:36:20.05 uZ+uV6s8.net
>>500
正しい方法言ってみな。
言えなきゃ超バカ決定。
502:デフォルトの名無しさん
22/05/01 23:10:31.48 q0kLnjNb.net
やっぱり馬鹿だったか
馬鹿に馬鹿と指摘すると怒りだす
503:デフォルトの名無しさん
22/05/03 18:13:45.75 hABwtxOZ.net
>>496，>>498
497ですが、
Application.VBE.ActiveVBProject.VBComponents(i).codemodule.ReplaceLine(j,"修正後コード文字列")
を使ってできました。
504:デフォルトの名無しさん
22/05/03 21:57:49.43 uVFGqhpy.net
>>503
ありがとう。勉強になります。
505:デフォルトの名無しさん
22/05/03 23:56:04.39 9Zz7qGMa.net
コードとデータは分離しなさーい！
506:デフォルトの名無しさん
22/05/04 01:12:27 L2QcoKdh.net
>>505
オブジェクト名はデータにできない
507:デフォルトの名無しさん
22/05/04 01:29:47 T57Ht3+D.net
名前は文字列だろ！
VBAの提供するオブジェクトは大抵コレクションで管理されているだろ！
お前の作ったオブジェクトも管理できるようにしろ！
初歩だぞ初歩！
508:デフォルトの名無しさん
22/05/04 01:39:45.29 L2QcoKdh.net
つまらん
もういいよ
509:デフォルトの名無しさん
22/05/04 03:22:14 bSJdUNny.net
やっぱり馬鹿だった
510:デフォルトの名無しさん
22/05/04 08:25:20.61 L2QcoKdh.net
>>509
人のこと馬鹿、馬鹿ってほんとにうるさい奴だな
今回のアプリは俺しか使わずオブジェクト名変更も今回限りが確定しているんで、
オブジェクト名をデータ化できるCreateQueryDefなどを使う手間を省いてクエリデザイナーを使っているだけ。
そういう事情も含めて「もういいよ」と書いたんだけど、読み取れんわな。
お前は実生活で他人の事情を汲み取る力が弱くて他人から避けられてるだろう。
実生活では流石に馬鹿と面罵しないとは思うが態度にはでてると思うよ。
エクセルVBAのようにワッチョイ付きならNG登録するんだが。
511:デフォルトの名無しさん
22/05/04 12:11:33.62 T57Ht3+D.net
何人登録するつもり？
512:デフォルトの名無しさん
22/05/06 14:43:39.68 HOAU3QSN.net
>>510
もういいから馬鹿は黙ってろ
513:デフォルトの名無しさん
22/05/11 09:14:31.47 +mNN1hZ/.net
ここはBKのあつまりでつか？
514:44
22/06/18 22:47:23 yLkug1TW.net
味噌も糞もいるのがこういう掲示板の特徴
それが面白ければ来るし退屈なら来ない
文句言うのはカッコ悪い
515:デフォルトの名無しさん
22/06/19 06:53:58.66 R9q2ZnJn.net
>>514
こういうのかっこ悪い
516:44
22/06/19 07:49:57.69 ZfwUc+SV.net
>>515
いやいや本当のイケメンだろうな
517:デフォルトの名無しさん
22/06/21 16:34:11.41 q4pJaYn5.net
test
518:デフォルトの名無しさん
22/06/21 16:34:30.21 q4pJaYn5.net
アプリケーションタイトルについて質問です。
今使ってるmdbのタイトルが2種類あって、「Access」のものと「ファイル名:データベース-フルパス-Access」のものがあります。
全部後者のタイトルにしたいのですが、設定の仕方がわかりません。
ヤフー知恵袋の「Accessのタイトルバーにファイル名を表示させることはできますか。
Excelでは表示されるのですがAccessでは”Access”としか表示されず少し不便なので、、」
を読むと何の設定もしなくても後者のようになると書いている人がいます。
どうしたらそうなるのでしょうか？
後者のやつは別にAppTitleとかで設定していませんので不思議です。
519:516
22/06/21 17:34:19.49 q4pJaYn5.net
解決しました。
520:デフォルトの名無しさん
22/06/21 19:20:51.51 EkCiEQiW.net
>>519
どうやって？
知りたい
521:516
22/06/21 19:44:50.71 q4pJaYn5.net
>>520
いろいろ試したけど、結論は超簡単。
ファイル→オプション→現在のデータバース→アプリケーションオプション→ドキュメントウィンドオプション→タブ付ドキュメントをon
これでファイル名とパス名が表示されて複数のmdbを起動しても混乱しなくなりました。
522:デフォルトの名無しさん
22/06/21 20:23:15.71 QtwFSmmg.net
OS:win10
Ver:365 16.0
フォルダの中に複数のExcelファイルがあります
accessで全てのエクセルの同一セルの文字をテーブルにまとめたいのです
Accecc vba エクセルの特定のセル
などで検索してみましたが解決に至っていません
どうかお力添えお願いします
523:デフォルトの名無しさん
22/06/21 20:46:00.64 kU7/2TZz.net
何がしたいかと、どこまで出来て何がわからないのか詳しくかけ
524:デフォルトの名無しさん
22/06/22 10:12:43 N/5JiATv.net
>>522
Excelシート全てインポートすればクエリー加工出来ると思うが、、
525:デフォルトの名無しさん
22/06/22 10:16:19 N/5JiATv.net
>>522
Excelシートリンクでも良いぞ
526:デフォルトの名無しさん
22/06/22 10:27:56.84 lUHG2pSs.net
ネ申エクセルからデータを拾いたいとかそんな話じゃね？
CreateObject("Excel.Application")
使って対象ファイル開いて、そっからさきはExcel VBAの範疇やろ
527:デフォルトの名無しさん
22/06/22 12:36:20.21 N/5JiATv.net
なんだ
Accessでテーブル化したい、のでは無いのか?
何やりたいのか分からんな
528:デフォルトの名無しさん
22/06/22 15:16:59.53 Z6mZqai9.net
「AccessVBAからexcelファイルのセル参照ってどうやるの？」ていう質問でしょ
529:デフォルトの名無しさん
22/06/22 20:19:24.91 rLKMJdnt.net
質問には答えられるけど
答えるとまた次の質問が来るのが予測出来るからまんどくせ
530:デフォルトの名無しさん
22/06/23 06:46:56.49 nErcbU9U.net
>>529
スレに来ないと良いよ
531:デフォルトの名無しさん
22/06/23 07:36:49.86 xe+L83Np.net
>>523-525
なにをやりないか再度確認してコード見直していたら不具合点見つかって前進しました…
>>527
やりたいのはこれで30個程度のエクセルがあって全てフォームは統一されています
a3とb4とw30の値をテーブルにズドンと引っ張りたいのです
もうちょっと頑張ってみます
遅くなってごめんなさい
532:デフォルトの名無しさん
22/06/23 12:13:27.06 jwJvRDT9.net
ACCESS VBA EXCEL CELLでクグルと沢山出て来ますね。
ACCESSからEXCEL開いて操作できると便利です、頑張ってください。
533:デフォルトの名無しさん
22/06/23 12:56:15.59 uoofWh9e.net
>>531
CreateObject("Excel.Application")でエクセルを操作できるようにする
対象とするシートからa3とb4とw30の値を取得して変数 X Y Z に格納する
変数 X Y Z の値をAccess のテーブルに追加する
この二つの処理を全てのシートにループで行う
釣りが終わったExcel オブジェクトを閉じる
Access のオブジェクトの閉じる
これでいけるんじゃね？
534:デフォルトの名無しさん
22/06/24 06:07:38.19 X+tgL9yK.net
>>533-534
ありがとうございます
こう書くとすごくわかりやすいですね
テーブル追加やLOOPは調べて書き方を学べそうなのでやってみます！
535:デフォルトの名無しさん
22/06/26 13:37:45.11 DTfGvOZF.net
URLﾘﾝｸ(www.youtube.com)
536:デフォルトの名無しさん
22/06/26 22:59:47.94 Ter0iV/V.net
たびたびすみません
ばしっとフォルダ内のファイル名を取得することはできました
＞CreateObject("Excel.Application")でエクセルを操作できるようにする
これの意味がようやくわかりました ありがとうございます
C:\Users\sanae\Desktop\vba\Book1.xlsx というExcelファイルのa3を変数に入れようとしているのですが
ぐぐったところファイルパスをつける書きかたが参考にできるページがみあたらず詰まっています
(このあたりにファイルパスとかシートとかを指定して)range(3.1) みたいなやり方かなあなんて思っているのですがどれもエラーになっちゃいました
参考になるページでもご教示いただければ幸いでございます
537:デフォルトの名無しさん
22/06/27 00:21:56.25 LR8Jvthl.net
>>536
URLﾘﾝｸ(officetanaka.net)
を参考にしてください。
Sub Sample1
set mybook=myexel.Workbooks.Open "C:\Users\sanae\Desktop\vba\Book1.xlsx"
x=mybook.worksheets(1).range("A 3")
X の値をテーブルに書き込む
End Sub
myexelはクリエイトオブジェクトで作ったエクセルオブジェクトね
あと変数は適当に定義しておいてね。
538:デフォルトの名無しさん
22/06/27 01:42:38.20 Yed1CrTu.net
>>537
おおお
できてきました とても進みました
・フォルダを指定してファイル名を取得
・変数XYZに特定のセルの値を取得
・
539:デフォルトの名無しさん
22/06/27 01:45:22.88 Yed1CrTu.net
すみませんＣＴＲＬ＋エンターで送信になってしまいました
・フォルダを指定してファイル名を取得
・指定したシートから変数XYZに特定のセルの値を取得
・XYZの値をテーブルに追加
超進みました
後は指定したシート名を持たないファイルに遭遇した時にどんなエラーになるのかが気になりますので
近々時間みつけて頑張ろうと思います
ありがとうございました！超ハッピー！
540:デフォルトの名無しさん
22/06/27 01:59:55.53 YAQt7RYR.net
馬鹿は二度と来るなよ
541:デフォルトの名無しさん
22/06/27 08:41:44.29 yeeW9wqV.net
VBAでやらなくてもテーブルimportで出来るやろ
無駄な努力だな
542:デフォルトの名無しさん
22/06/27 11:56:31.55 LR8Jvthl.net
>>541
ブック数が多いから VBA でやりたいんじゃないの？
インポートでできる量だったら手でコピペの方が早いだろ
543:デフォルトの名無しさん
22/06/27 15:59:24.18 jKYPD+Yx.net
対象のExcelファイルが固定なのか、頻繁に入れ替わるかどうかにもよるわな
544:デフォルトの名無しさん
22/06/27 20:22:09.19 UdQiWAN3.net
どなたか教えてください。
売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。
目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。
とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。
545:デフォルトの名無しさん
22/06/27 20:42:56.65 NFVjaUBh.net
なんでAccessVBAスレにまで書いてるんだよ
546:デフォルトの名無しさん
22/06/28 12:01:23.56 W8L8uteA.net
こんな奴が作るプログラムで金勘定とか笑えるわ
己を知らないって馬鹿の特徴なんだよな
547:デフォルトの名無しさん
22/06/28 12:08:16.40 S7aFTH1N.net
>>544
Access VBAスレでExcelの質問するなよ
548:デフォルトの名無しさん
22/06/28 12:53:23.92 illrnTHm.net
EXCELで記録したVBAをACCESSで実行するとEXCELはXlmxにしなくても良いからじゃないの?
ソルバーは使い方わからんのでなんにも言えなくてスマン。
549:デフォルトの名無しさん
22/06/28 13:14:48.17 v0i+TmEN.net
>>548
Excel VBAスレみればなにがあったのか分かるよ
550:デフォルトの名無しさん
22/06/28 21:08:59 i28fB/zi.net
昨日アホな質問した541です。
accessスレにexcel VBAについて投稿してしまい、すみませんでした。
VBA初心者なので、よくわからずに投稿してしまいました。
551:デフォルトの名無しさん
22/06/29 10:01:41.27 Es0nfTu8.net
初心者を言い訳にする香具師は同じ失敗を繰り返す
552:デフォルトの名無しさん
22/06/29 12:18:55.14 C7zOwXa/.net
狭量にすぎる
553:デフォルトの名無しさん
22/06/29 12:31:17.45 WL8L6KaP.net
スレを間違ったことではなくマルチが問題なのだがな
554:デフォルトの名無しさん
22/06/29 13:27:42.53 tPok425v.net
>>553
それだけ焦ってたんでしょ。Excel VBA で反応がなければ藁をもすがる気持ちで アクセス VBA で聞いたんじゃない。
広い気持ちで
555:デフォルトの名無しさん
22/06/29 13:50:40.09 Es0nfTu8.net
x VBA初心者
o 5ch初心者
o パソコン初心者
o コミュ障入門者(上級)
556:516
22/06/30 01:00:46.93 1OP/W/CA.net
DoCmd.OpenReport "レポート名", acViewPreview
DoCmd.PrintOut acPrintAll, , , acHigh, 枚数
新規レポートにラベルを貼っただけものだと希望どおりの枚数が印刷される.
しかし,別のレポートだと常に1枚しか印刷されない.
ネットでも同じ報告を確認した.バグ説もある.
皆さんはどうですか？やっぱりバグですかね？
557:516
22/06/30 16:01:17.27 1OP/W/CA.net
解決した.
デコンパイルとコンパクトしたらいつの間にか設定した枚数が印刷されるようになった.
accessはマジで面倒くさいなあ.
デコンパイルとコンパクトの待ち時間をを返して欲しいよ
558:デフォルトの名無しさん
22/06/30 19:00:33.50 PX9/MxY9.net
デコンパイル、知りませんでした。
559:デフォルトの名無しさん
22/06/30 20:22:38.17 1+oYjPxt.net
デコンパイル、昔は割と鉄板の解決方法だったんだけどね
それでだめなら新規作成して全モジュールインポートとかもあったな
最近は必要性が減ったけど、まだたまにはあるんだな
560:516
22/06/30 22:53:16.59 1OP/W/CA.net
コンパクトだけでも良かったのかも知れないが,習慣で両方やることにしている
ついいましがたも.Docmd.OpenReportのOpenArgsがレポートに渡らなくて困っていたが,コンパクトをしたら作動した.
終了時にコンパクトするオプションがあるくらいだから頻繁にやるべきなんだろうね.
コード書いているときは非常に頻繁に破損するからね.
561:デフォルトの名無しさん
22/06/30 23:46:30.14 1+oYjPxt.net
あれはデータ領域を圧縮するのが主で、コード部分にはあまり影響しなかった気がするが
最近のアクセスでコードが破損するのはだいぶ減ったと思うが
VBEからコンパイルするだけで解決してたんじゃないか？
562:516
22/07/01 00:40:02.55 SILFs/Ha.net
くわしいことはわからないが,挙動不審が治ることがあるんだよねえ
とにかく,試行錯誤していると必ずと言っていいほど,壊れるよねえ.
メモリーが不足していますとか出始めると,その日のうちに全フォーム消失とか起こるからなあ.
563:デフォルトの名無しさん
22/07/01 10:45:11.72 x9gnk4T5.net
試行錯誤の過程のほとんどを貯め込むからな 設定で「終了時に最適化」で、都度終了を心掛けるか
大幅な改修の度にコンパイルのクセを付けるか ファイルサイズに気を付けて、「こんなサイズのはずは無い」ってな時は要注意
で、それは、お道具の使い方が雑、間違ってるってだけで、すぐAccessのせいにする連中はお里が知れる ってこと
564:516
22/07/07 15:33:38.95 9tJXVGoG.net
下のコードでmdbのディレクトリが表示されると思いきや、
ディレクトリ Documents
フルパス C:\Users\MyName\Documents
が表示された。vbsならscriptの存在するディレクトリだからmdbの存在するディレクトリが表示されると思ったのに、違う。
このことを説明してある資料ありますかね？
Sub test()
Dim fso
Dim objfolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set objfolder = fso.GetFolder(".")
Debug.Print "ディレクトリ", objfolder.Name
Debug.Print "フルパス", objfolder.Path
End Sub
565:デフォルトの名無しさん
22/07/07 16:12:50.20 N4ENiOaQ.net
>>564
mdb/accdbファイルの場所が欲しいのなら
CurrentProject.Path
を使おう
CurDir$や>>564の例なんかで返されるカレントディレクトリはファイルダイアログとかで開いたフォルダになるっぽい
その辺の仕様に関する資料は知らんけど
566:デフォルトの名無しさん
22/07/07 19:57:05.70 V/fQnZ1U.net
そもそも、
>vbsならscriptの存在するディレクトリ
が間違ってる気がするが
カレントディレクトリの概念って最近は説明されてるの見ないなぁ
GetFolder(".")が返してるのはカレントディレクトリ（からの相対パスで自分自身）
カレントディレクトリはACCESS.EXEの場所や.MDBファイルの場所とは別に存在する
まあMDB開くときはそこをカレントにする場合が多いけどな
つねに一致してるとは限らん
567:516
22/07/07 20:26:42.06 9tJXVGoG.net
>>566
> そもそも、
> >vbsならscriptの存在するディレクトリ
> が間違ってる気がするが
VBSで稼働していたスクリプトをVBAに移植している際に気づいたので、正しいと思います。
スクリプトを任意のフォルダにコピーしてそのフォルダ内のファイルを一括処理するのに使っていましたので。
568:デフォルトの名無しさん
22/07/07 20:31:06.22 ty1oWU7C.net
chdirで変えられちゃうけど
569:516
22/07/07 20:55:49.31 9tJXVGoG.net
ユーザはおいら1人だからいいのです。
570:デフォルトの名無しさん
22/07/07 21:30:15.27 V/fQnZ1U.net
いやだから、scriptの存在するディレクトリじゃなくて、
カレントディレクトリが表示されてるって話なんだがな
たまたまそれが同じだっただけだ
ここ理解しないと思ったディレクトリが表示されない理由が理解できないぞ
571:デフォルトの名無しさん
22/07/07 22:24:24.15 rKn8i4wF.net
馬鹿に何を言っても無駄な例だぞ
572:デフォルトの名無しさん
22/07/08 10:33:00.73 aHYxM19P.net
>>567
そのスクリプトをショートカットにして、
作業フォルダを変えて動かしてみたい
573:デフォルトの名無しさん
22/07/08 12:10:02.96 /znuHP85.net
カレントディレクトリみたいな、あやふやなものを使ってはいけない。
これが使えるのは、絶対に変化しない場合だけ
起動時に、特定のフォルダを指定するとか、
あらかじめ定数などに保存しておく
574:デフォルトの名無しさん
22/07/08 12:16:33.93 /znuHP85.net
例えばデスクトップに、以下のショートカットを作ると、
WSL2 で、Ubuntu 18.04 を起動して、
その /home/ユーザー名/test ディレクトリを、VSCode で開く
リンク先
C:\Windows\System32\wsl.exe code .
作業フォルダ
\\wsl$\Ubuntu-18.04\home\ユーザー名\test
575:デフォルトの名無しさん
22/07/08 12:30:53 PreZKXp3.net
もはやAccess VBAとは関係ない話になってるし、元質問者は聞く耳持たないみたいだから
これ以上続ける意味無いよ
576:デフォルトの名無しさん
22/07/11 11:04:56.16 1W23UOpt.net
>>564
fso使ってるんだから当たり前
577:デフォルトの名無しさん
22/07/12 17:20:09.84 xDQ7ywi9.net
>>576
なぜ「fsoを使うと」なにが、「当たり前」なんだい？
578:デフォルトの名無しさん
22/07/13 18:08:17.37 sooqvjiy.net
7月12日のWindows Updateを実施した端末で軒並み「要求されたタイプ ライブラリまたはウィザードは VBA プロジェクトではありません。」
というエラーが出てAccessで作ったものが起動できない症状が出てるんだけど、何か知ってる？
ちなみにAccess Runtimeを再インストールすると直る。修復ではダメ。
579:デフォルトの名無しさん
22/07/13 18:15:29.57 sooqvjiy.net
>>578 書き忘れたけど手元で問題が発生しているのはAccess Runtime 2013 32bitの端末。
OSはWin8.1とWin10の両方で発生してる。
580:デフォルトの名無しさん
22/07/13 19:12:40.99 PtV2v+lq.net
うちの環境とほぼ同じですね、まだ発生してないけど明日あたり起きるのかな。
runtimeの入れ直しですね、了解っす。
581:デフォルトの名無しさん
22/07/14 09:57:45.69 gGJjrJSy.net
>>578
特定した。
KB5002121を入れると症状が発生する。
Access Runtimeを再インストールしても再度Windows Updateを実施すると元に戻るから
KB5002121をブロックしないとダメだ。
582:44
22/07/14 12:52:21.90 Fq9OF9ol.net
迷惑な話ですねえ。
MSのプログラマーがアホなのは今に始まったことじゃないけど
583:デフォルトの名無しさん
22/07/14 18:41:39.80 Zi9qyvS+.net
昔ＥＸＣＥＬのＶＢＡで似たような話が合った気がするな
その時はテンポラリディレクトリの掃除したら起動するようになったはずだから
いちど試してみては
584:デフォルトの名無しさん
22/07/18 12:31:42.55 1omE+gQa.net
MSは自社製品のテスト駆動開発すらしてない
テストが面倒になるとサポート打ち切り
585:デフォルトの名無しさん
22/07/18 13:02:03.33 dNd6yRIh.net
>>584
それソースあるの？
586:デフォルトの名無しさん
22/07/19 13:18:07.18 4mWHj4S5.net
2022年7月パッチで「Microsoft Access」に問題、バージョンが異なるとファイルが開けない
URLﾘﾝｸ(forest.watch.impress.co.jp)
＞異なるバージョンの「Microsoft Access」で作成されたデータベースファイル（ACCDE/MDE）を開こうとすると、「要求されたタイプ ライブラリまたはウィザードは VBA プロジェクトではありません」というエラーが発生する場合がある
587:デフォルトの名無しさん
22/07/20 10:36:39.60 Rwr2SDqT.net
Formを変数にSetするとき下の二つのやり方のどちらが速いか試したら、結構まちまちなんですよね。
後者はEarly Bindingだと思うんだけど、ループさせると前者が速いことも結構あって不思議だ。
だれかこのあたりの事情をご存じの方いますか？
Dim F As Form
Set F = Forms!FormName
Dim F As Form_FormName
Set F = Forms!FormName
588:デフォルトの名無しさん
22/07/20 11:16:41.39 2HHkZJi9.net
>>586
runtime版でそれ出たな、試行錯誤でruntime2016からruntime365に変えたら動いたｗ事がある。
589:デフォルトの名無しさん
22/07/20 15:41:40 qJwz0nM8.net
runtimeは糞
590:デフォルトの名無しさん
22/07/20 18:29:58.22 BaO5YoZA.net
>>587
あってるかどうかは知らんが
!は実行時に列挙する気がするんだが
後者は型チェックと変換が入るから後者のほうが遅いと思う
前者も入るかもしれんが、そうなるとForm型とForm_FormName型でどっちのキャストが早いかで
結局やっぱり後者が遅い気がする
どっちにしたってFは型指定されているので事前バインドだが、
それが差に出るのはFのメンバーを使うときだぜ
まあ、なんにしても誤差レベルだと思うが
591:デフォルトの名無しさん
22/10/28 11:06:17.52 L4jXkRvB.net
PC画面のスクショを撮って、印刷させたいのですが
とっかかりすら分からない初心者です
検索しても該当サイトはなかったので
よろしければご教授願いたいです
592:デフォルトの名無しさん
22/10/28 12:19:16.61 QXDDHW1b.net
>>591
Windows標準の切り取り＆スケッチを使えばできます
ACCESSからコントロールしたいのですか?
593:デフォルトの名無しさん
22/10/28 12:33:34.88 L4jXkRvB.net
>>592
はい、ExcelかAccessでとのことで、
今後の勉強含めAccessに挑んでいます。
不特定多数が使用する環境で
（リテラシーが低い人も混在）
ボタン一つで全画面スクショ印刷と
アクティブウィンドウのみスクショ印刷
の2通りできるようにしたいです
（スクショしたデータは印刷後削除される仕様にしたい）
今のところ全画面スクショはできたのですが
アクティブウィンドウと
その後の印刷と削除で、つまづいてます。
ド初心者なので、見当違いな質問をしていたら
申し訳ありません
594:デフォルトの名無しさん
22/10/28 12:48:59.54 14o/00kf.net
API経由で[PrtSc]（全画面）、[Alt]+[PrtSc]（アクティブウィンドウのみ）を押せばクリップボードに画面キャプチャができるだろうから
それをレポート上のImageに突っ込んで印刷すればいいんじゃないのかな？
試してないから実際にできるかは知らんけど
595:デフォルトの名無しさん
22/10/28 18:23:03.59 ivdM6iIS.net
>>594
ありがとうございます
土日に試してみます！
596:デフォルトの名無しさん
22/12/09 21:17:19.25 XI7rGRQs.net
サーバーから検索したいのに上手くいかない
どこか修正するとこありますか？
Private Sub CommandButton1_Click()
Const BASE_PATH = "\\L\設計\図面"Dim myPath As String, myName As String
Dim FSO As Object, oFolder As Object, oSubFolder As Object, oFile As Object
On Error Resume Next
If TextBox1.Value = ""Then Exit Sub
ListBox1.Clear
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(BASE_PATH)
For Each oSubFolder In oFolder.SubFolders
For Each oFile In oSubFolder.Files
If LCase(oFile.Name) Like LCase(TextBox1.Value) &"*.pdf"Then
Debug.Print oFile.Path
myPath = oFile.ParentFolder &"\"myName = oFile.Name
ListBox1.AddItem myName
ListBox1.List(ListBox1.ListCount - 1, 1) = myPath
End If
Next
Next
Set FSO = Nothing
End Sub
597:デフォルトの名無しさん
22/12/10 17:10:55.98 HwePKFIg.net
何がどううまくいかないんだ？
On Error Resume Next外して、エラー内容かけ
598:デフォルトの名無しさん
22/12/11 02:53:35.00 08xatqWx.net
知らんけど、コマンドプロンプトで取得した方が速いと思うぞ。
599:デフォルトの名無しさん
22/12/11 14:47:06.06 BK2dpDEr.net
ネットワークだとビックリするほど遅いよね
600:デフォルトの名無しさん
22/12/21 12:29:44.27 29nQbkr4.net
表形式にしたフォーム上の一行一行に対して、そのレコードのID.pdfが指定のフォルダにあれば○、無ければ空白って文字を連結したテキストボックスに入れたいんだけど。
Dir使って判定させるところまでは出来たけど、vbaを実行させるタイミングの問題なのかな？
詳細セクションの描画時選んだら代入出来ませんって出た。
試しに詳細セクションダブルクリックだと該当レコードだけは入ったけど。。
一括で全レコード対象にする方法あるんでしょうか。。？
601:デフォルトの名無しさん
22/12/21 13:19:20.60 oTvIdtcL.net
データシートビューのソースの段階でクエリ使ってる？
〇や(空白)を入力するフィールドは確保されてる？
元のソースにpdfファイルがあるか無いかを画面上で比較しながらひとつずつ入力するつもり？
仮のテーブル作ってフォルダ内のpdfのファイル名をDir使ってそのテーブルに代入すれば
簡単に元のソースにも反映出来ると思うけど どうしてもデータシートビューで比較しながら入れたい？
pdfが入ってるフォルダ内がしょっちゅう追加・変更・削除がある場合だとしても、仮のテーブル使っとけば
都度最新の状況での比較が可能だと思えるし、不足してるからpdf作らなきゃ、の指針にも成るような気がする
でも、元のソースに〇のフィールド作っちゃうと、pdf削除されても〇のまま消えない可能性もあるから対策必要か
つまり、一括で全レコード対象にするなら、Dir結果をcsvなりtxtなりに落とし込んで、それと元ソースで更新クエリがいちばん早い
602:デフォルトの名無しさん
22/12/21 14:08:13.72 29nQbkr4.net
>>601
ありがとうございます
一旦別のテーブルなりCSVなりにファイル一覧作ってみる事にします！
思い付きもしませんでした
603:デフォルトの名無しさん
23/03/02 17:30:45.61 oTm0acsN.net
値にtrueやfalseが含まれるexcelファイルをDocmd.TransferSpreadsheetを使ってテーブルに取り込むと、
数値として反映されてしまうんですが、理論値のまま取り込む方法はありますか？
変換かけるしかないのかな
604:デフォルトの名無しさん
23/03/05 12:31:16.13 Yb2sf8rL.net
>>603
取り込んだ後でクエリーで値変えれば良かろうに
605:デフォルトの名無しさん
23/03/24 00:30:10.12 higFVnZ+.net
recordset.Fields.Append "フィールド名", adChar, 200
とかでフィールドを新規設定するといろいろと挙動不審になって､エラーが頻発した｡
俺が気がついたのはLen関数がおかしな数字を返すこと｡スペースの数を返す｡
これのおかげなのか､DictionaryのKeyが変なことになり､ただしいItemが取得出来なくて2日潰したわ｡
Trim関数に入れたらまともに動き出した｡よけいなスペースが付加されていたため､本来の値と異なっていた｡
このあたりの事情を書いたものあるのかなあ？
606:デフォルトの名無しさん
23/03/24 10:46:32.87 pyQciQm5.net
Recordsetの作成（DAO編）
URLﾘﾝｸ(www7b.biglobe.ne.jp)
レコードセットの作成（ADO編）
URLﾘﾝｸ(www7b.biglobe.ne.jp)
第4話 DAOとADOの違い
URLﾘﾝｸ(www.r-staffing.co.jp)
同一システム内でDAOとADOを併用しないよう留意 とか？
607:デフォルトの名無しさん
23/03/25 11:49:45.50 zs10i3Ml.net
エラーが出るもんだから､VarType関数使って疑わしい変数を調べたら､18が返ってきた｡
しかし､そんな定数ないんだよなあ｡これはどういうことだ？
608:デフォルトの名無しさん
23/03/25 11:59:33.48 nHkGBQf7.net
値の合計なので、10と8とか 5と6と7とか 思い当たるのをひとつずつ潰してく
609:デフォルトの名無しさん
23/03/25 13:37:32.34 zs10i3Ml.net
>>608
ありがとう｡
Msgboxでそような定数の合計をしますね｡
ところで､そのような知識は私の持っているVBA､VBS､Accessの本には記載されていない様な気がします｡
もしかしたら､Visual Basicでは常識なのでしょうか？それとも一般的なプログラミングの世界での常識ですか？
私は仕事でVBAをいじるだけで､一般的なプログラミングはほとんど知らないのでお尋ね致します｡
610:デフォルトの名無しさん
23/03/25 14:20:16.26 nHkGBQf7.net
本はあくまでも全体のほんの一部を抽出して購買欲そそるタイトル付けて売ってるだけ
MSのリファレンスに頼るのが本筋
URLﾘﾝｸ(learn.microsoft.com)
URLﾘﾝｸ(learn.microsoft.com)
ネットの情報でも、ご丁寧にスクショ混ぜて説明してるのに、すでにUI変わってて役に立たないとかも多い
紛らわしい情報が氾濫する中で、どれがじぶんの求めるお宝なのかを見極める目を養うのもだいじ
611:デフォルトの名無しさん
23/03/27 19:32:00.21 zT0GYsm+.net
>>605
CHARとVARCHARの違い
まあ、SQLの型の基本なんだが、ACCESS関連であまりちゃんと解説してるのみたことないな
URLﾘﾝｸ(learn.microsoft.com)
OLE DB プログラマリファレンスの第 13 章および付録 A を参照してください、らしい
612:デフォルトの名無しさん
23/03/27 19:43:31.02 zT0GYsm+.net
>>609
ビットマスクって考え方があって、別にＶＢＡに限った話じゃない
が、VarTypeで18ってリファレンス見る限りないな。
どんな変数がその値だったんだ？
613:デフォルトの名無しさん
23/03/29 07:20:36.71 P3Zmpymz.net
AIに書いてほしいコードを聞くと正しく動くコードが返ってくる
bingとchatGPTは頼れる、かも
614:デフォルトの名無しさん
23/04/04 10:14:28.50 Az13f9J9.net
最近の VisualStudio に搭載されたコード補完は
おせっかいなくらいにコードの続き出てくるな
615:デフォルトの名無しさん
23/04/04 16:33:58.07 vSpSLcg3.net
>>613
俺はChat GPTに嘘ばかり教えられている｡
用語の定義から間違えている｡
Chat GPTの吐いた嘘を貼り付けるページがあったら参加したいわ｡
616:デフォルトの名無しさん
23/04/04 17:16:46.37 SG+vqM06.net
>>615
確かに鵜呑みには出来ないね、よく嘘を言ってくる。ある程度自力で捌けないとヤバいね
617:デフォルトの名無しさん
23/04/05 00:48:28.57 wtS5Em1S.net
嘘を嘘と見抜けない人の利用はお勧めできない、か
どっかで聞いた話だな
618:デフォルトの名無しさん
23/04/05 19:08:02.04 iYloijFa.net
GPTのウソ、具体例有ったら教えて
619:デフォルトの名無しさん
23/04/08 23:18:08.84 m5gy6cDu.net
Excelスレに貼られていたWebview2のコードはﾜﾛﾀ
620:デフォルトの名無しさん
23/04/10 19:36:08.19 YifXJ3Ct.net
今日も大嘘をつかれました｡
質問
MS Accessのvbaで既に存在するプログラム中に宣言されていない変数があります｡これを探して,宣言するvba プロシジャーを教えて｡
回答
MS AccessのVBAで、プログラム中で宣言されていない変数を検出して、宣言するための手順を説明します。
MS Accessを開き、VBAエディターを起動します。
検索機能を使用して、すべてのモジュール内の未宣言の変数を検索します。
未宣言の変数を検索するには、VBAエディターで「Ctrl + F」を押して、「検索」ダイアログボックスを開きます。ダイアログボックスで「未定義の」または「未宣言の」を検索キーワードとして入力し、「検索」または「次へ」ボタンをクリックします。これにより、未宣言の変数が使用されている場所がすべて検索されます。
未宣言の変数を見つけたら、変数の宣言を追加します。
例えば、未宣言の変数「myVariable」が使用されている場合、以下のように宣言を追加できます。
Dim myVariable As DataType ' 変数の宣言
DataTypeは変数のデータ型を指定するために使用されます。例えば、myVariableが数値である場合、データ型はLong、Integer、Doubleなどになります。文字列である場合は、データ型はStringになります。
全ての未宣言の変数を宣言したら、プログラムを保存して実行してください。
これにより、未宣言の変数エラーが回避され、プログラムが正常に実行されるようになります。
621:デフォルトの名無しさん
23/04/12 18:35:03.42 b8lcjBjc.net
未宣言の変数が300種類くらいあるポンコツ業務用mdbがある。Option Explicit化して手作業で未宣言変数を探すとものすごく時間がかかる。ローカル変数だけならテキストに対しての構文解析だけで出来そうだけど、誰かやり方知ってますか？
Access用の解析ツールは時間がかかりすぎるので諦めました
622:デフォルトの名無しさん
23/04/14 12:20:23.58 ooEkRg5K.net
全角数字を含むフォームは普通VBEのプロジェクトエクスプローラでも全角数字で表示される｡
しかし､俺の持っているmdbはなぜかフォームによってはVBEで半角の場合がある｡
つまりForm１番→Form1番
というように半角になっている｡
フォームのもっている名前とモジュールの名前が異なるので検索漏れが発生して何かと不便｡
解決策ありますかね？
623:デフォルトの名無しさん
23/04/19 15:36:15.06 hTeej4zs.net
>>622
Accessのバージョンによって全半角を同一視されるのとされないのがあったよーな
半角に統一して、置換するしかないんじゃね
624:デフォルトの名無しさん
23/04/19 21:07:01.70 UiOYL9zn.net
>>623
VBEはクラスオブジェクトのリネームはできないんですよねえ
Text化してファイル名を統一してから読み込みますかねえ？それでなおるか未確認ですが。
今は検索文字列のパターンを増やして対応してますが、邪道だなあと思いながらやってます。
625:デフォルトの名無しさん
23/04/20 00:39:31.09 Ck2wYtqO.net
ACCESS側で名前変更しても、VBE側が変わらないことがあるっぽいな
フォームの コード保持 を いいえ にして保存してから はい にしたら同じになったぞ
まあ、コード全部いったん消えるがな
626:デフォルトの名無しさん
23/04/20 10:07:33.88 b7y+tf5m.net
>>625
テキスト化してフォームと同じ全角のファイル名にしてからLoadしたらVBEのクラスオブジェクトの名前と一致させることが出来ました｡
思うに､このプログラムを書いた人はテキスト化して､お好みのエディタで書いていたんでしょうね｡
だからOption Explicitなんてしてなくて､問題なく書けるので､変数のスペルミスがあります｡
今回はファイル名の全角半角を間違えてままLoadしてフォーム名とクラスオブジェクト名が一致しないということになったと思います｡
よほどVBEを使いたくなかったんでしょうね｡
627:デフォルトの名無しさん
23/04/28 05:20:11.81 d0ZMhP2N.net
やけにエラーが出るので調べたら、クラスオブジェクトの名前のカッコが前側が半角、後側が全角のものを発見。しかも複数。
俺はプロじゃないけど、このデータベースに毎月金を払っている。金取るならちゃんとしたものを作って欲しいわ。
宣言だけして読み書きしない変数が約2000個、呼び出されないプロシジャーと空のプロシジャーが100個以上がもあるし、どうなっているんだ？
戻り値のないプロシジャーをFunctionにして，呼び出すだけのために変数を使ったりしてアホかと思うことばかり
628:デフォルトの名無しさん
23/05/03 21:33:01.68 u6AyBhT9.net
クエリがいくつかあってそのなかであるテーブルを使ってるかどうか検索する方法ないですか
629:デフォルトの名無しさん
23/05/03 21:34:54.38 u6AyBhT9.net
これVBA関係ないな
630:デフォルトの名無しさん
23/05/04 13:12:55.46 xnh5NJU8.net
関係無いけど、ヒマだから
URLﾘﾝｸ(www.feedsoft.net)
この手順でコツコツ「リレーションシップ」を出力してけば把握できる
631:デフォルトの名無しさん
23/05/04 20:33:29.74 i/jCXYvG.net
QueryDefsのSQLプロパティをinstringで調べる
それをループ かな
632:デフォルトの名無しさん
23/05/10 00:24:35.45 qaMHPguU.net
>>631
これがベストだね
633:デフォルトの名無しさん
23/05/12 20:45:34.35 nGf/Bj/G.net
流行りのChatGPTをACCESSで使えるようにしてみた
BingやBardもレスポンス良く使えるようになったのであまり意味はなかったが面白かった
VBAコードはChatGPTに書かせたのをほぼコピペで動くようにできた
634:デフォルトの名無しさん
23/05/13 09:19:13.17 uR6hVfud.net
スレの意図を無視するがAccessは出来るだけVBA使わず作成する方がバージョンアップにも対応し易い
635:デフォルトの名無しさん
23/05/13 13:15:28.85 JkElVRfp.net
お客様に納品するならそういう気遣いも要りますね
自家用なので気の済むまで作り込みます
自社の50人くらいが快適なように
636:デフォルトの名無しさん
23/05/13 16:13:18.44 74jfRr8+.net
どうした？ 総合で同意が得られなかったから改めてコッチに書いたのか？
Accessをインストールだけして使わないでいればバージョンアップもへったくれも無いから、そうした方がいいぞ？
637:デフォルトの名無しさん
23/05/14 08:52:04.69 UU9sI9hc.net
Rubberduckは大きいデータベースだとパース中にエラーが出て使い物にならないねえ
数年前よりはるかにマシになったけど。
638:デフォルトの名無しさん
23/05/16 21:12:36.24 dmITDlP3.net
msgboxの戻り値を格納する変数の型をvbMsgboxResultにするかLongにするか悩んだので､
時間を計ろうと思って､古い本を引っ張り出して､二つを比較するプロシジャーを書いた｡
ふと､全く同じテストをしたらどうなるのか気になったので､やってみたら､全く同じプロシジャー同士の比較なのに30%位スピードに差が出る｡さっきやったら最大で37%速度差があった｡
一方が速いこともあれば､もう一方が速いときもある｡こんなのでスピード比較する意味あるのかなあ？
時間測定はGetTickCountを使って､変数宣言のみ100万回のループをするプロシジャーを100回呼び出すという感じ｡
なんかいい測定方法ありますかね？
639:デフォルトの名無しさん
23/05/16 21:52:45.08 Mqz2m8JL.net
timer使っても同じかな
640:デフォルトの名無しさん
23/05/17 06:33:48.44 AOXlzNDq.net
timerが秒単位でGetTickCountはミリ秒単位と古い本に書いてあったなあ
あと､timerはそれ自体の動作が遅いって書いてあった
641:デフォルトの名無しさん
23/05/18 18:57:23.27 8+QzSev9.net
ユーザーフォームが大きいんで下半分を隠す、上半分を隠す、という2つのコードを書きたいんです。下半分を隠す、はハイト プロパティを小さくすれば可能なんだけど、上半分を隠す、は不可能なんですかね。
642:デフォルトの名無しさん
23/05/18 20:29:25.05 FTp82+/Y.net
>>641
何をやりたいのかイマイチ分からんけど、タブコントロールじゃだめなん？
643:デフォルトの名無しさん
23/05/18 21:32:12.21 UaeB70YO.net
上半分を隠したら×ボタン無くなってにっちもさっちも行かなくなるぞ
644:デフォルトの名無しさん
23/05/18 21:36:12.00 /q1eE0wB.net
>>641
2つのフォームに分けたら良いと思うの