Access VBA 質問スレ Part2

**デフォルトの名無しさん** · 2021/06/04(金) 04:59:49.95

>>365
整数倍にすればボケませんよ

**デフォルトの名無しさん** · 2021/06/04(金) 05:01:18.78

>>372
150でも200でもぼける

**デフォルトの名無しさん** · 2021/06/04(金) 06:58:24.85

5年ほど前に作った製品ラベルのレポートを修整しようとしたら、老眼は進んでるわ液晶の解像度は上がってるわ、マウスカーソルの移動量を増やしてるわで大変だった。デザインビューの拡大出来るようになると良いですね。

**デフォルトの名無しさん** · 2021/06/05(土) 16:40:26.94

ファイルメーカーの体験版使ったらACCESSに戻れなくなってしまった
ACCESSになんかメリットある？

**デフォルトの名無しさん** · 2021/06/05(土) 18:22:16.60

馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない

**デフォルトの名無しさん** · 2021/06/05(土) 18:58:27.51

と馬鹿が申しております

**デフォルトの名無しさん** · 2021/06/05(土) 18:59:13.81

>>375
コストかな。
田舎の工場で低価格な電子部品作ってる。30台くらいのパソコンで使うからファイルメーカーなんてコストは現実的ではないんです。

**デフォルトの名無しさん** · 2021/06/05(土) 21:31:57.93

ファイルメーカーとAccessは得意分野が全然違うのでは？

**デフォルトの名無しさん** · 2021/06/05(土) 21:53:37.74

ファイルメーカーの宣伝でしょ

**デフォルトの名無しさん** · 2021/06/05(土) 22:47:17.80

>>380
ACCESSでうまくいかずもやもやするたびに体験版つかってみて
ライセンス料なんかが不安でACCESSにもどるってのを繰り返してる
ACCESSが現代的なGUIになってくれて
ある程度はコード書かなくてもできるよえになればいいんだが

**デフォルトの名無しさん** · 2021/06/06(日) 02:59:11.72

え！？ひとりでも最低
じゅじゅじゅじゅじゅうまんえーん！？
https://i.imgur.com/OGGBfwi.png
ちなみにキントーンもこの商法みたいだな

ACCESSはUIがクソなのと共有がほぼできない、ちょっとしたことでもコード書かなきゃならない、その代わりに激安ってことなんだろうな
逆にそこらを改善するのはこんくらい金とらなきゃできないことなのかもしれん

**デフォルトの名無しさん** · 2021/06/06(日) 04:17:17.40

馬鹿
↓
ACCESSは共有がほぼできない

**デフォルトの名無しさん** · 2021/06/06(日) 10:18:31.22

FileMake使いのやつって
Access使いを見付けると必ず攻撃してくるよね
なんで不況に熱心なのかな

**デフォルトの名無しさん** · 2021/06/06(日) 10:21:05.17

馬鹿
↓
FileMakerはコード書かなくていい(キリっ)

**デフォルトの名無しさん** · 2021/06/06(日) 11:26:09.24

と馬鹿が申しております

**デフォルトの名無しさん** · 2021/06/06(日) 14:07:30.75

いくらなんでも高すぎる
あれって全社員にipadもたせてリアルタイムでデータ共有するような大企業向けだろ
とはいえほかにACCESSしか選択肢がなくてACCESSは手間がかかり過ぎるが

**デフォルトの名無しさん** · 2021/06/06(日) 16:01:30.88

ACCESSは実質開発が停止してるからな
Web公開手段を再度実装したらFileMakerなんて駆逐出来るのに

**デフォルトの名無しさん** · 2021/06/07(月) 23:05:55.18

>>373
それ元がボケてるんやな
ディスプレイ買い換えるしかないな
うちは拡大してもクッキリやで

**デフォルトの名無しさん** · 2021/06/08(火) 00:47:30.58

>>389
んなことないだろEIZOのFLEX Scanだし
ぼやけるって言葉の認識だと思うが
ベクターとラスターの拡大みたいなこと
https://i.imgur.com/oT7FRjb.jpg

拡大鏡だと単純拡大だからガタガタのぼやぼや
スマホの拡大縮小だとおかしくならないよね？
ソフトに標準で拡大縮小が実装されているならそれと同じできれいに拡大できる
ACCESSはないから拡大鏡つかうことにかるから汚いしつかいにくい

**デフォルトの名無しさん** · 2021/06/10(木) 00:40:17.87

>>390
〉拡大鏡だと単純拡大だからガタガタのぼやぼや

単純拡大だからガタガタになるので正しい
しかしぼやぼやにはならない

頭（目？）悪そうだなこいつ

**デフォルトの名無しさん** · 2021/06/10(木) 01:23:12.45

文字が
https://i.imgur.com/oQ1lyeU.jpg
こうなるのをボヤボヤといってるんだと思う

MSゴシック使ってるやつはわからないかもしれないが
アンチエイリアス入ったフォントで拡大鏡使うとボヤボヤになるよ
https://i.imgur.com/B1re0t1.png

**デフォルトの名無しさん** · 2021/06/14(月) 20:33:26.59

getobjectでVBSからmdbへ接続してACCESSのモジュールを書き換えているんだけど、プロシジャーをチマチマ書き換えるのが面倒になってきたので、
既存モジュールの全行を削除してからModule.AddFromFile メソッドで新モジュールを一括して書き換えた。
mdbを保存する段になって「ファイルの共有ロック数が制限を超えています」と怒られた。

たしか、コミットトランスするんだよなあ、と資料を読んでみたが、それが出来るオブジェクトが存在しない。
一体どうしたらいいのかな？

**デフォルトの名無しさん** · 2021/06/15(火) 10:02:33.87

ACCESSを買えば良いと思います。

**デフォルトの名無しさん** · 2021/06/15(火) 11:17:25.55

>>394
Microsoft 365 for businessを使用してます。
ACCESSはしょっちゅう壊れるからVBSで出来ることはVBSでやりたいですね。

**デフォルトの名無しさん** · 2021/06/15(火) 13:21:19.21

>>395
そんな面倒なことw
2.0使いはじめた頃は間違った使い方してたのもあって壊しまくったが、ここんとこ壊れたことなどないぞ

**デフォルトの名無しさん** · 2021/06/15(火) 15:19:36.70

>>396
フォームのコマンドボタンの位置をほんの少しずらしただけで壊れこともあるし、最適化で壊れたこともある。
最近もどっかの記事でそのような記述を見たような気がする。

VBSはコードを見るのも書くのもサクサクだからお気に入りだよ。重たいACCESSを開かなくていいのは気が楽だよ。
でも、関数がVBAと少し仕様が違うとか面倒なことがあるのが玉に瑕だなあ。

**デフォルトの名無しさん** · 2021/06/15(火) 20:40:00.08

>>393
mdbからaccdbにすると壊れ難くなる気がします。

**デフォルトの名無しさん** · 2021/06/16(水) 09:49:56.68

>>398
面白そうですね。参照設定を変更するくらいで出来そうですね。だめなら宣言文にDAO.を加えれば出来そうな気がします。
今はほぼ全ての改造をVBS経由で行えそうだから、それで行き詰まったらやってみます。

**デフォルトの名無しさん** · 2021/06/16(水) 16:39:10.95

>>393
共有ロック数って言ってるんだから
VBSからmdbへ接続が何度も繰り返してるか間違ってるんじゃね

**デフォルトの名無しさん** · 2021/06/16(水) 18:15:04.80

プロシージャーを書き換えるプロシージャーを書くのって面白い？

**デフォルトの名無しさん** · 2021/06/16(水) 21:11:44.71

>>400
共有ロックの問題はMaxLocksPerFileを増やしたらあっさり解決しました。
>>401
手作業でプロシジャーを変更していたときより遙かに楽になりましたし。仕事が楽になる過程は面白いです。
なによりもAccessと違ってサクサク動くのがVBSの最大の魅力です。

**デフォルトの名無しさん** · 2021/06/16(水) 21:18:57.41

一括でモジュールを書き換えるのすら面倒になったのでLoadFromTxtに切り替えた。
これならフォームやレポートも丸ごと移植可能だわ。

**デフォルトの名無しさん** · 2021/06/22(火) 11:37:45.99

オフィス365でデーターを保存したときにウインドウの上のバーの箇所のタイトルに
「ファイル名＋保存しました・・」って表示になるけど、
これ出さないように出来ないのかな？

ウインドウのタイトルが変わるとRPAが誤作動をおこすので
いらない機能をつけるなよといつも思います。

**デフォルトの名無しさん** · 2021/06/22(火) 11:40:11.76

>>404
誤爆でした。ここAccessなんですね。。

**デフォルトの名無しさん** · 2021/06/22(火) 19:29:04.84

なんでVBA使わずRPAなの？

**デフォルトの名無しさん** · 2021/06/22(火) 20:23:21.77

そのVBAを操作する人間の操作を代行させるのがRPAなんやで

**デフォルトの名無しさん** · 2021/06/23(水) 19:45:53.16

なんで公共の場で地元言葉なの？

**デフォルトの名無しさん** · 2021/07/24(土) 13:25:46.25

レポートを変数「i」回だけ複数印刷しようとして、
PrintCountやFormatCountを使ったのですが、
「i」とPrintCount・FormatCountが一致しません。

PrintCountやFormatCountって、
ページ変更・ヘッダー・フッターなどでも、カウントが増えますか？

アルゴリズムそのものが間違いでしょうか？

**デフォルトの名無しさん** · 2021/07/24(土) 14:08:20.10

おまえごときがVBAやる事そのものが間違い

**デフォルトの名無しさん** · 2021/07/24(土) 19:42:05.93

なな、南斗

**デフォルトの名無しさん** · 2021/08/04(水) 20:55:05.72

[タイプ]が勝手に[ﾀｲﾌﾟ]になってしまう。
[ ]で囲んでるのに。なんぞこれ。

**デフォルトの名無しさん** · 2021/08/05(木) 08:02:56.74

あれ、今日は勝手に半角に戻らない。
再起動するだけで良かったのかも。
独り言スマンね。

**デフォルトの名無しさん** · 2021/08/05(木) 14:37:35.48

解決済みという事ですが
名称の勝手変換は[名前の自動修正]を有効にしていると起きます
初心者向けの親切機能ですが、オブジェクト名などを細かく定義している場合には逆に足枷になります
名称変更時に自動トレースしきれずバグを生み出したりします
ご参考までに

**デフォルトの名無しさん** · 2021/08/05(木) 18:07:31.70

いや、再発しました。
名前の自動修正、調べてみます。

**デフォルトの名無しさん** · 2021/08/07(土) 07:56:44.50

Windows11+ACCESS365の環境で発生してます。
ﾀｲﾌﾟ(半角)と入力しても行を移るとタイプ(全角)になっちゃう。[ ]でくくっても駄目。
Windows10+ACCESS365では[ ]でくくると勝手に全角にはならないので、Win11Betaのせいっぽいです。
アプリの修復試してみて、駄目ならWin11Betaのフィードバックに上げます。

**デフォルトの名無しさん** · 2021/08/07(土) 20:17:05.58

どっかに全角のタイプってオブジェクトがある（あった）んだろな

そういえばWIN10でNLSのバージョン変わって全角半角の判断がおかしくなる問題があったな
ちょっと試したWin10の詳細バージョン書いてくれ

Win11のＮＬＳってどうなってるんだろ

**デフォルトの名無しさん** · 2021/08/27(金) 14:57:39.16

すみません、見逃してた。
Windows10の21H1ですね。
NSLがなんの事かわかんないですが、確かに前にも経験したトラブルの様な気がします。

**デフォルトの名無しさん** · 2021/09/04(土) 15:37:28.00

明後日スタンダード試験だけどやばい模擬問題正答5割だわ

**デフォルトの名無しさん** · 2021/09/04(土) 16:34:10.88

ん、まぁ、ガンガレ

**デフォルトの名無しさん** · 2021/09/05(日) 03:44:21.58

外部からaccessの特定のレポートを開く方法ある？

**デフォルトの名無しさん** · 2021/09/05(日) 14:14:02.27

外部って？
普通にCOMで操作すれば良いんじゃねえのか

**デフォルトの名無しさん** · 2021/09/07(火) 12:53:43.40

パススルークエリのパラメータをaccess外から設定する機能教えてください。

**デフォルトの名無しさん** · 2021/09/07(火) 13:13:29.25

access外って？
何がやりたいかわからん

**デフォルトの名無しさん** · 2021/09/07(火) 14:16:04.54

ADO
ADODB
DAO

**デフォルトの名無しさん** · 2021/09/08(水) 22:14:40.15

>>425
データベースに
ドライバなしでvbaで接続する方法ってないの？

**デフォルトの名無しさん** · 2021/09/09(木) 01:34:00.79

>>426
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/open-statement

**デフォルトの名無しさん** · 2021/10/09(土) 23:35:10.80

VBAエキスパートって取ったほうがいいでしょうか

**デフォルトの名無しさん** · 2021/10/10(日) 08:29:41.88

資格マニアを見る世間の目は冷たい

**デフォルトの名無しさん** · 2021/11/02(火) 07:37:22.79

>>428
資格より実践を積むべし

**デフォルトの名無しさん** · 2021/11/29(月) 15:04:38.27

レコードが存在しない場合に 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に、何か制限などありますでしょうか?

**デフォルトの名無しさん** · 2021/11/29(月) 15:15:06.43

直接の返答じゃないけど、SQL一発書きじゃなきゃだめなの？
事前にレコード数チェックして分岐じゃだめなの？

**デフォルトの名無しさん** · 2021/11/29(月) 15:17:50.75

UPDATE と組み合わせて、SQL一発を考えてます
無理であれば、おっしゃるように分岐かなと

**デフォルトの名無しさん** · 2021/11/29(月) 16:01:33.58

ちょっと気になったので手元で実験してみたけど、dummyテーブルが存在して空ではないときには
（多分）431の想定どおりの挙動をしていると思う
バッドノウハウ臭いので、おとなしく事前チェックして分岐かなぁ
まぁAccessのSQLって変だよね

**デフォルトの名無しさん** · 2021/11/29(月) 17:41:32.65

access はupdateいっぱつで初挿入もできたはず
しゅきーのヌルを上書きする感じで

**デフォルトの名無しさん** · 2021/11/30(火) 05:36:52.18

>>435
さすがにそんなことはないと思うが、ちょっとサンプルコード書いてみてくれ

**デフォルトの名無しさん** · 2021/11/30(火) 09:01:45.87

>>436
選択クエリは更新できる
UPDATE TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
SET TableA.ID = [TableB]![ID], TableA.Data1 = [TableB]![Data1], TableA.Data2 = [TableB]![Data2];

**デフォルトの名無しさん** · 2021/11/30(火) 10:50:50.28

>>431
values (1, "name")
じゃ駄目なの

**デフォルトの名無しさん** · 2021/11/30(火) 10:58:46.58

>>438
単純にinsertするだけならそれでいいんだけど、existsを使って条件付けようとしてるのでvaluesは使えない（エラーになる）

**デフォルトの名無しさん** · 2021/11/30(火) 12:38:13.11

それ自分でDUALという名称でテーブルを作って1レコード入れておけば出来るよ。
OracleのDUALも実体はそんな感じだったと思う。

**デフォルトの名無しさん** · 2021/11/30(火) 16:33:37.59

>>437
更新はできるけど、存在しない行を更新しようとしたとして
その行を新規追加することなんてないだろ．．．
と思ったけど、追加されるのか

ACCESS無茶苦茶しやがるな
リンクテーブルに対してでも追加しやがる

SQL ServerだってFromでJoinしてUPDATEできるけど、
さすがに行が追加されることなんてないぞ
エラーの原因が分からない？

**デフォルトの名無しさん** · 2021/11/30(火) 16:35:34.50

あ、最後なんか変な行入った

**デフォルトの名無しさん** · 2021/11/30(火) 17:23:09.43

あくせく働くぜ

**デフォルトの名無しさん** · 2021/11/30(火) 18:49:33.51

>>441
Access的には「更新可能クエリ」はテーブルと同等の扱いなのだろう

**デフォルトの名無しさん** · 2021/11/30(火) 22:05:19.66

>>444
Viewが実テーブルとほぼ同じ扱いってのは別に問題じゃない
UPDATE文でテーブルの行数が変わるのが無茶苦茶なんだよ

**デフォルトの名無しさん** · 2021/11/30(火) 22:10:51.28

SELECT * FROM TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID

これの更新だから行数は変わっていない

**デフォルトの名無しさん** · 2021/11/30(火) 23:40:10.71

UPDATE文で実テーブルの行数が、な

**デフォルトの名無しさん** · 2021/12/01(水) 09:46:36.82

>>431
SQL一発では出来ないよ
残念だが
DOループで回す事になる

**431** · 2021/12/02(木) 11:57:32.43

ありがとうございます
分岐で分けることにしました

**440** · 2021/12/02(木) 22:29:47.92

もうちょっと俺を信用してもええんやないかと思ったが
出来たんならええか

**デフォルトの名無しさん** · 2021/12/08(水) 11:00:44.75

データベースに対し、レポートを外部データの取込で追加するのですが、
この操作をGUIでなくコマンドで行う事は出来ますでしょうか。

**デフォルトの名無しさん** · 2021/12/08(水) 11:36:19.36

mdbファイルまるごと差し替えでok

**デフォルトの名無しさん** · 2021/12/08(水) 14:57:00.86

>>452
返信ありがとう
やっぱ基本はＤＢごと差し替えになるんですね・・・
最新を管理しないといけないということですか

**デフォルトの名無しさん** · 2021/12/08(水) 16:58:22.13

>>450
レコード入れずに試してみてました
あとで確認してみます

**デフォルトの名無しさん** · 2021/12/08(水) 18:12:44.70

>>451
access起動コマンドラインオプションに
/x マクロ名
で自動実行可能

向きが逆だけどオブジェクトのコピーでレポートをコピー出来る

**デフォルトの名無しさん** · 2021/12/08(水) 20:30:00.04

>>451
DoCmd.TransferDatabase acImport

**デフォルトの名無しさん** · 2021/12/13(月) 11:19:46.91

>>440,450
ありがとうございます、確認しました
dummy テーブルにレコードを入れて動作しました

INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);

**デフォルトの名無しさん** · 2022/01/15(土) 00:52:56.35

VBAって、サポート切れてんの？

企業とかこれから、多数のツールどうすんだろうね。

**デフォルトの名無しさん** · 2022/01/15(土) 07:46:29.84

サポート気にするような部署でvbaを採用するだろうか？

**デフォルトの名無しさん** · 2022/01/17(月) 00:16:00.31

VBAって単独の製品じゃないんだが
そもそもVBAがサポート切れってどこの情報だ？

**デフォルトの名無しさん** · 2022/01/17(月) 12:28:46.14

OneDriveにコードをバックアップして直接開いたところ

http://imgur.com/qO7I0AB.jpg

こういった線が付きました
Office2016 Proなのですが設定等でVBエディターでも表示できますでしょうか
またお恥ずかしながらこの線の一般的な名称も教えて頂けませんでしょうか

**デフォルトの名無しさん** · 2022/01/17(月) 17:44:28.15

>>461
何で開いたのかは知らんけど、AccessとかのVBAエディタには、そういった今どきの便利な機能は無いかと
一般名称かどうかはしらんけど、VSCodeとかの設定では Indent Guide でひっかかるんじゃないかな

**デフォルトの名無しさん** · 2022/01/17(月) 20:02:01.14

>>462
ありがとうございます
名称のほうぐぐってみまして、確かにVS関連の情報が多く出てきました
大変便利ゆえに残念です！

**デフォルトの名無しさん** · 2022/01/31(月) 11:21:11.42

Microsoft 365 Access Runtime ダウンロードリンクが動作してないのですが
ダウンロードできた方おられます??

**デフォルトの名無しさん** · 2022/01/31(月) 11:29:43.23

>>464
見てみたけど、ダメだねぇ

**デフォルトの名無しさん** · 2022/02/22(火) 22:36:04.61

アクセス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のから操作するとうまくいきません．解決策はないでしょうか？

**デフォルトの名無しさん** · 2022/02/22(火) 22:38:16.30

間違えました。
GetOpenFilenameが開くフォルダーをGetOpenFilenameに→
GetOpenFilenameが開くフォルダーをc:\x\yに

**デフォルトの名無しさん** · 2022/02/23(水) 09:19:56.78

https://hironimo.com/prog/excel/vba-excel-open/#:~:text=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E9%96%8B%E3%81%8F%E3%81%AB%E3%81%AF,%E3%83%A1%E3%82%BD%E3%83%83%E3%83%89%E3%81%A7%E9%96%8B%E3%81%8D%E3%81%BE%E3%81%97%E3%82%87%E3%81%86%E3%80%82

WorkBooks.Open

**デフォルトの名無しさん** · 2022/02/23(水) 10:16:59.77

>>468
GetOpenFilenameでダイアログが立ち上がったときのフォルダーをc:\x\yにしたいという意味です。

**デフォルトの名無しさん** · 2022/02/23(水) 14:00:43.13

FileDialogを使う

**デフォルトの名無しさん** · 2022/02/23(水) 15:58:28.79

https://officevba.info/filedialog/ こっちスかね
メリットもデメリットも書いてあって親切

**デフォルトの名無しさん** · 2022/02/23(水) 16:48:55.01

>>470
ありがとうございました．
FileDialogだとカレントフォルダーで開いてくれました．

**デフォルトの名無しさん** · 2022/02/23(水) 16:53:30.10

>>472
ありがとうございます。この説明はとても親切ですね。よくわかりました

**デフォルトの名無しさん** · 2022/02/24(木) 15:49:02.02

>>466
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")

こんな感じか
実行したらエクセルのオプション変わっちまったｗｗ
デフォルト何だっけな

**デフォルトの名無しさん** · 2022/02/28(月) 11:00:59.24

初歩的な質問でお恥ずかしいのですが教えて下さい
面倒な計算や処理をして値を返す関数Aがあった場合

その戻り値を判定したい場合

If A = 1 or A = 2 then

と記述するとaccessは 2回処理することになるのでしょうか

それでしたら仮に変数(V)を用意して、一旦
V = A

のように格納してから
If V = 1 or V = 2 then

と記述したほうが処理的には一回で済むという解釈になりますでしょうか
すみませんがご教示頂けたらと思います

**デフォルトの名無しさん** · 2022/02/28(月) 11:49:10.60

すみません、試してわかりました。
後者は一回で済みました。

質問することでその後すぐ簡単な確認方法を思いつくことがよくあります
お恥ずかしい。スレ汚し失礼しました；

**デフォルトの名無しさん** · 2022/02/28(月) 12:38:27.12

どんまい　気付きや学びに成りゃ無駄じゃ無い

**デフォルトの名無しさん** · 2022/02/28(月) 12:41:50.52

ちょっと違う話だけど、VBAにもOrElseやAndAlsoが欲しいなと思うときはある

**デフォルトの名無しさん** · 2022/03/06(日) 15:10:37.27

SQLの勉強をさいきんはじめました

動的SQLによる数独の超高速解法
というのを読みました

動的にSQLを生成するため
・一つはJDBCを使う方法
・もう一つはストアド・プロシージャを用いた方法
云々って書いてあります

これらって、アクセスのSQLでもできそうなものでしょうか？
（過去に話題として出てたらごめんなさい）
できそうならやってみようかと
茨の道ならあきらめます

**デフォルトの名無しさん** · 2022/03/06(日) 16:34:17.90

2つとも分からんけど、VBAが使える環境なら動的SQLは可能なはず

**479** · 2022/03/06(日) 17:10:27.06

SQLとは、使用人から経営者になることだ
今まで自分で作業してたのをしなくてよくなる
使用人に、「こういうのを出してくれ」と
言うだけでよい

数独についてであれば、今まで
総当りするプログラムとか
条件判定とかを自分で考えていたが
SQLならそうしたものは自分で考えなくてよい
勝手に総当りして勝手に判定してくれる

・・・ということが書いてありました
これって、既存のプログラムの要件を
SQLで表現できれば中身は考えなくてよい
ってことですよね　けっこうおもしろいかも

**デフォルトの名無しさん** · 2022/03/07(月) 07:14:29.39

経営しなくてもお金が稼げるSQLがどこかに書いてあると良いのに。

**デフォルトの名無しさん** · 2022/03/07(月) 12:53:13.63

>>479
JDBC Driver で Access MDB に接続できる

つまりワカラン

**デフォルトの名無しさん** · 2022/03/07(月) 13:11:37.42

これかな？
https://codezine.jp/article/detail/1627
https://codezine.jp/article/detail/1628
https://codezine.jp/article/detail/1629
記事中においてJavaでSQLを生成している部分はVBAで書けるだろうけれど、
他のRDBMSで使えるSQLの全てがAccessでも使えるわけじゃないから
その辺をうまく置き換えたりVBAで補ったりする必要はあると思う

**デフォルトの名無しさん** · 2022/03/07(月) 14:07:14.74

各DBで使えるSQL構文一覧表
(ROLLUPは jet使えない oracleはokとか)
のページが昔あったのに
今見たら見あたらなかったわ

**デフォルトの名無しさん** · 2022/03/08(火) 06:28:34.40

総あたりする場合、SQLはどうやって
候補を管理してるんだろ？
ふつうにメモリ上に持ってたら
メモリが足りないような

**デフォルトの名無しさん** · 2022/03/08(火) 20:13:50.94

数字の書かれたパネルがあります
このパネルのマスをいくつか
ぬりつぶし、残った数字の積が、
たて・横のどの列も12になるように
してください

2523
6257
5262
2334

これぐらいの規模の問題で
練習したほうがいいかも
ぬりつぶしは1に置き換える

**デフォルトの名無しさん** · 2022/03/09(水) 11:17:27.88

動的SQLっていうから

DBエンジンにSQL投げる
↓
その結果を受けて自分を書き換えて
再度新しいSQL投げる
↓
望む結果になるまで繰り返す

みたいな話を期待したら
拍子抜けだった

**デフォルトの名無しさん** · 2022/03/10(木) 18:36:45.22

>>487
SELECT 解答
FROM すべてのあり得る盤面
WHERE 今回の条件
だから
まず盤面を1行にして
2523625752622334
と表す

すべてのあり得る盤面は
2523625752622334
2523625752622331
2523625752622314
2523625752622311
　～
1111111111111111
だけどこれをどうSQL文の中で
表現すればいいのかわからん

**デフォルトの名無しさん** · 2022/03/11(金) 12:30:05.01

>>489
>>484の記事を１から読んでこい

**デフォルトの名無しさん** · 2022/05/01(日) 00:28:53.70

VBAのコード内の文字を置換するプログラムをVBAで行うことはできるでしょうか？
置換の組合せが複数あるので一つずつCtrl+Hで操作すると間違いそうなので，
置換前文字列と置換後文字列の配列を書いて，それを順に実行するようにしたいのです．

自分のコード内に当該置換文字列をがでてくるので，その回避も考えないといけないですが

よろしくお願いします

**デフォルトの名無しさん** · 2022/05/01(日) 07:29:11.23

>>491
できるよ

**デフォルトの名無しさん** · 2022/05/01(日) 07:36:23.30

ごめん、AccessVBAスレだった
知らん

**デフォルトの名無しさん** · 2022/05/01(日) 16:14:10.55

ACCESSにもApplication.VBEがあるっぽいから、エクセルとかと同じようにできるんじゃね
そもそもコード内をそうそう置換するって状況がよくわからんがな

**デフォルトの名無しさん** · 2022/05/01(日) 20:13:11.92

>>494
オブジェクト名を修正すると，名前の自動修正機能で，オブジェクト間の整合性は保たれます．
例えば，Aクエリー内でBテーブルを使用していて，Bの名前をCに変更するとA内のBテーブル名もCに自動的に修正されます．
ところが，コード内でオブジェクト名を引数に使用している場合（DoCmd.OpenQuery()やQeryDef()など）は，自動的に修正されないので
コード内の文字置換で修正するしかありません．
オブジェクト名をより統一的にしたいとか，あるルールで短くしたいなどの事情です．

でも本当にコードを使ってコード内の文字置換できますか？
「エクセルとかと同じようにできる」とのことですが，エクセルのVBAでできる方法を知りません．

**デフォルトの名無しさん** · 2022/05/01(日) 20:33:27.28

>>494がApplication.VBEってヒント出してくれてるのに自分で調べる気は無いの？

**デフォルトの名無しさん** · 2022/05/01(日) 20:51:07.35

>>496
いままでApplication.VBEとVBAの違いをしりませんでした．
Application.VBEで検索して，オブジェクトであることをしりました．
できそうな気がしてきました．
調べます

**デフォルトの名無しさん** · 2022/05/01(日) 21:27:48.04

>>497
お前みたいな馬鹿は、方法自体間違えていると思うよ

**デフォルトの名無しさん** · 2022/05/01(日) 22:36:20.05

>>498
正しい方法言ってみな。
言えなきゃ超バカ決定。

**デフォルトの名無しさん** · 2022/05/01(日) 23:10:31.48

やっぱり馬鹿だったか
馬鹿に馬鹿と指摘すると怒りだす

**デフォルトの名無しさん** · 2022/05/03(火) 18:13:45.75

>>494，>>496
497ですが、
Application.VBE.ActiveVBProject.VBComponents(i).codemodule.ReplaceLine(j,"修正後コード文字列")
を使ってできました。

**デフォルトの名無しさん** · 2022/05/03(火) 21:57:49.43

>>501
ありがとう。勉強になります。

**デフォルトの名無しさん** · 2022/05/03(火) 23:56:04.39

コードとデータは分離しなさーい！

**デフォルトの名無しさん** · 2022/05/04(水) 01:12:27.06

>>503
オブジェクト名はデータにできない

**デフォルトの名無しさん** · 2022/05/04(水) 01:29:47.87

名前は文字列だろ！
VBAの提供するオブジェクトは大抵コレクションで管理されているだろ！
お前の作ったオブジェクトも管理できるようにしろ！
初歩だぞ初歩！

**デフォルトの名無しさん** · 2022/05/04(水) 01:39:45.29

つまらん
もういいよ

**デフォルトの名無しさん** · 2022/05/04(水) 03:22:14.79

やっぱり馬鹿だった

**デフォルトの名無しさん** · 2022/05/04(水) 08:25:20.61

>>507
人のこと馬鹿、馬鹿ってほんとにうるさい奴だな

今回のアプリは俺しか使わずオブジェクト名変更も今回限りが確定しているんで、
オブジェクト名をデータ化できるCreateQueryDefなどを使う手間を省いてクエリデザイナーを使っているだけ。

そういう事情も含めて「もういいよ」と書いたんだけど、読み取れんわな。

お前は実生活で他人の事情を汲み取る力が弱くて他人から避けられてるだろう。
実生活では流石に馬鹿と面罵しないとは思うが態度にはでてると思うよ。

エクセルVBAのようにワッチョイ付きならNG登録するんだが。

**デフォルトの名無しさん** · 2022/05/04(水) 12:11:33.62

何人登録するつもり？

**デフォルトの名無しさん** · 2022/05/06(金) 14:43:39.68

>>508
もういいから馬鹿は黙ってろ

**デフォルトの名無しさん** · 2022/05/11(水) 09:14:31.47

ここはBKのあつまりでつか？

44 · 2022/06/18(土) 22:47:23.35

味噌も糞もいるのがこういう掲示板の特徴
それが面白ければ来るし退屈なら来ない
文句言うのはカッコ悪い

**デフォルトの名無しさん** · 2022/06/19(日) 06:53:58.66

>>512
こういうのかっこ悪い

44 · 2022/06/19(日) 07:49:57.69

>>513
いやいや本当のイケメンだろうな

**デフォルトの名無しさん** · 2022/06/21(火) 16:34:11.41

test

**デフォルトの名無しさん** · 2022/06/21(火) 16:34:30.21

アプリケーションタイトルについて質問です。
今使ってるmdbのタイトルが2種類あって、「Access」のものと「ファイル名:データベース-フルパス-Access」のものがあります。

全部後者のタイトルにしたいのですが、設定の仕方がわかりません。
ヤフー知恵袋の「Accessのタイトルバーにファイル名を表示させることはできますか。
Excelでは表示されるのですがAccessでは”Access”としか表示されず少し不便なので、、」
を読むと何の設定もしなくても後者のようになると書いている人がいます。
どうしたらそうなるのでしょうか？

後者のやつは別にAppTitleとかで設定していませんので不思議です。

**516** · 2022/06/21(火) 17:34:19.49

解決しました。

**デフォルトの名無しさん** · 2022/06/21(火) 19:20:51.51

>>517
どうやって？
知りたい

**516** · 2022/06/21(火) 19:44:50.71

>>518
いろいろ試したけど、結論は超簡単。
ファイル→オプション→現在のデータバース→アプリケーションオプション→ドキュメントウィンドオプション→タブ付ドキュメントをon

これでファイル名とパス名が表示されて複数のmdbを起動しても混乱しなくなりました。

**デフォルトの名無しさん** · 2022/06/21(火) 20:23:15.71

OS:win10
Ver:365 16.0

フォルダの中に複数のExcelファイルがあります
accessで全てのエクセルの同一セルの文字をテーブルにまとめたいのです
Accecc vba エクセルの特定のセル
などで検索してみましたが解決に至っていません
どうかお力添えお願いします

**デフォルトの名無しさん** · 2022/06/21(火) 20:46:00.64

何がしたいかと、どこまで出来て何がわからないのか詳しくかけ

**デフォルトの名無しさん** · 2022/06/22(水) 10:12:43.83

>>520
Excelシート全てインポートすればクエリー加工出来ると思うが、、

**デフォルトの名無しさん** · 2022/06/22(水) 10:16:19.65

>>520
Excelシートリンクでも良いぞ

**デフォルトの名無しさん** · 2022/06/22(水) 10:27:56.84

ネ申エクセルからデータを拾いたいとかそんな話じゃね？
CreateObject("Excel.Application")
使って対象ファイル開いて、そっからさきはExcel VBAの範疇やろ

**デフォルトの名無しさん** · 2022/06/22(水) 12:36:20.21

なんだ
Accessでテーブル化したい、のでは無いのか?
何やりたいのか分からんな

**デフォルトの名無しさん** · 2022/06/22(水) 15:16:59.53

「AccessVBAからexcelファイルのセル参照ってどうやるの？」ていう質問でしょ

**デフォルトの名無しさん** · 2022/06/22(水) 20:19:24.91

質問には答えられるけど
答えるとまた次の質問が来るのが予測出来るからまんどくせ

**デフォルトの名無しさん** · 2022/06/23(木) 06:46:56.49

>>527
スレに来ないと良いよ

**デフォルトの名無しさん** · 2022/06/23(木) 07:36:49.86

>>521-523
なにをやりないか再度確認してコード見直していたら不具合点見つかって前進しました…
>>525
やりたいのはこれで30個程度のエクセルがあって全てフォームは統一されています
a3とb4とw30の値をテーブルにズドンと引っ張りたいのです

もうちょっと頑張ってみます
遅くなってごめんなさい

**デフォルトの名無しさん** · 2022/06/23(木) 12:13:27.06

ACCESS VBA EXCEL CELLでクグルと沢山出て来ますね。
ACCESSからEXCEL開いて操作できると便利です、頑張ってください。

**デフォルトの名無しさん** · 2022/06/23(木) 12:56:15.59

>>529
CreateObject("Excel.Application")でエクセルを操作できるようにする

対象とするシートからa3とb4とw30の値を取得して変数 X Y Z に格納する
変数 X Y Z の値をAccess のテーブルに追加する
この二つの処理を全てのシートにループで行う

釣りが終わったExcel オブジェクトを閉じる
Access のオブジェクトの閉じる

これでいけるんじゃね？

**デフォルトの名無しさん** · 2022/06/24(金) 06:07:38.19

>>531-532
ありがとうございます
こう書くとすごくわかりやすいですね

テーブル追加やLOOPは調べて書き方を学べそうなのでやってみます！

**デフォルトの名無しさん** · 2022/06/26(日) 13:37:45.11

https://www.youtube.com/watch?v=jppnWu6am3Q

**デフォルトの名無しさん** · 2022/06/26(日) 22:59:47.94

たびたびすみません
ばしっとフォルダ内のファイル名を取得することはできました
＞CreateObject("Excel.Application")でエクセルを操作できるようにする
これの意味がようやくわかりました　ありがとうございます

C:\Users\sanae\Desktop\vba\Book1.xlsx　というExcelファイルのa3を変数に入れようとしているのですが
ぐぐったところファイルパスをつける書きかたが参考にできるページがみあたらず詰まっています
(このあたりにファイルパスとかシートとかを指定して)range(3.1)　みたいなやり方かなあなんて思っているのですがどれもエラーになっちゃいました
参考になるページでもご教示いただければ幸いでございます

**デフォルトの名無しさん** · 2022/06/27(月) 00:21:56.25

>>534
http://officetanaka.net/excel/vba/file/file01.htm

を参考にしてください。

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はクリエイトオブジェクトで作ったエクセルオブジェクトね
あと変数は適当に定義しておいてね。

**デフォルトの名無しさん** · 2022/06/27(月) 01:42:38.20

>>535
おおお
できてきました　とても進みました
・フォルダを指定してファイル名を取得
・変数XYZに特定のセルの値を取得
・

**デフォルトの名無しさん** · 2022/06/27(月) 01:45:22.88

すみませんＣＴＲＬ＋エンターで送信になってしまいました
・フォルダを指定してファイル名を取得
・指定したシートから変数XYZに特定のセルの値を取得
・XYZの値をテーブルに追加
超進みました

後は指定したシート名を持たないファイルに遭遇した時にどんなエラーになるのかが気になりますので
近々時間みつけて頑張ろうと思います

ありがとうございました！超ハッピー！

**デフォルトの名無しさん** · 2022/06/27(月) 01:59:55.53

馬鹿は二度と来るなよ

**デフォルトの名無しさん** · 2022/06/27(月) 08:41:44.29

VBAでやらなくてもテーブルimportで出来るやろ
無駄な努力だな

**デフォルトの名無しさん** · 2022/06/27(月) 11:56:31.55

>>539
ブック数が多いから VBA でやりたいんじゃないの？
インポートでできる量だったら手でコピペの方が早いだろ

**デフォルトの名無しさん** · 2022/06/27(月) 15:59:24.18

対象のExcelファイルが固定なのか、頻繁に入れ替わるかどうかにもよるわな

**デフォルトの名無しさん** · 2022/06/27(月) 20:22:09.19

どなたか教えてください。

売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。

目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。

とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。

**デフォルトの名無しさん** · 2022/06/27(月) 20:42:56.65

なんでAccessVBAスレにまで書いてるんだよ

**デフォルトの名無しさん** · 2022/06/28(火) 12:01:23.56

こんな奴が作るプログラムで金勘定とか笑えるわ
己を知らないって馬鹿の特徴なんだよな

**デフォルトの名無しさん** · 2022/06/28(火) 12:08:16.40

>>542
Access VBAスレでExcelの質問するなよ

**デフォルトの名無しさん** · 2022/06/28(火) 12:53:23.92

EXCELで記録したVBAをACCESSで実行するとEXCELはXlmxにしなくても良いからじゃないの?
ソルバーは使い方わからんのでなんにも言えなくてスマン。

**デフォルトの名無しさん** · 2022/06/28(火) 13:14:48.17

>>546
Excel VBAスレみればなにがあったのか分かるよ

**デフォルトの名無しさん** · 2022/06/28(火) 21:08:59.28

昨日アホな質問した541です。

accessスレにexcel VBAについて投稿してしまい、すみませんでした。

VBA初心者なので、よくわからずに投稿してしまいました。

**デフォルトの名無しさん** · 2022/06/29(水) 10:01:41.27

初心者を言い訳にする香具師は同じ失敗を繰り返す

**デフォルトの名無しさん** · 2022/06/29(水) 12:18:55.14

狭量にすぎる

**デフォルトの名無しさん** · 2022/06/29(水) 12:31:17.45

スレを間違ったことではなくマルチが問題なのだがな

**デフォルトの名無しさん** · 2022/06/29(水) 13:27:42.53

>>551
それだけ焦ってたんでしょ。Excel VBA で反応がなければ藁をもすがる気持ちでアクセス VBA で聞いたんじゃない。
広い気持ちで

**デフォルトの名無しさん** · 2022/06/29(水) 13:50:40.09

x VBA初心者
o 5ch初心者
o パソコン初心者
o コミュ障入門者(上級)

**516** · 2022/06/30(木) 01:00:46.93

DoCmd.OpenReport "レポート名", acViewPreview
DoCmd.PrintOut acPrintAll, , , acHigh, 枚数

新規レポートにラベルを貼っただけものだと希望どおりの枚数が印刷される.
しかし,別のレポートだと常に1枚しか印刷されない.
ネットでも同じ報告を確認した.バグ説もある.

皆さんはどうですか？やっぱりバグですかね？

**516** · 2022/06/30(木) 16:01:17.27

解決した.
デコンパイルとコンパクトしたらいつの間にか設定した枚数が印刷されるようになった.
accessはマジで面倒くさいなあ.
デコンパイルとコンパクトの待ち時間をを返して欲しいよ

**デフォルトの名無しさん** · 2022/06/30(木) 19:00:33.50

デコンパイル、知りませんでした。

**デフォルトの名無しさん** · 2022/06/30(木) 20:22:38.17

デコンパイル、昔は割と鉄板の解決方法だったんだけどね
それでだめなら新規作成して全モジュールインポートとかもあったな

最近は必要性が減ったけど、まだたまにはあるんだな

**516** · 2022/06/30(木) 22:53:16.59

コンパクトだけでも良かったのかも知れないが,習慣で両方やることにしている
ついいましがたも.Docmd.OpenReportのOpenArgsがレポートに渡らなくて困っていたが,コンパクトをしたら作動した.
終了時にコンパクトするオプションがあるくらいだから頻繁にやるべきなんだろうね.
コード書いているときは非常に頻繁に破損するからね.

**デフォルトの名無しさん** · 2022/06/30(木) 23:46:30.14

あれはデータ領域を圧縮するのが主で、コード部分にはあまり影響しなかった気がするが
最近のアクセスでコードが破損するのはだいぶ減ったと思うが
VBEからコンパイルするだけで解決してたんじゃないか？

**516** · 2022/07/01(金) 00:40:02.55

くわしいことはわからないが,挙動不審が治ることがあるんだよねえ
とにかく,試行錯誤していると必ずと言っていいほど,壊れるよねえ.
メモリーが不足していますとか出始めると,その日のうちに全フォーム消失とか起こるからなあ.

**デフォルトの名無しさん** · 2022/07/01(金) 10:45:11.72

試行錯誤の過程のほとんどを貯め込むからな　設定で「終了時に最適化」で、都度終了を心掛けるか
大幅な改修の度にコンパイルのクセを付けるか　ファイルサイズに気を付けて、「こんなサイズのはずは無い」ってな時は要注意
　で、それは、お道具の使い方が雑、間違ってるってだけで、すぐAccessのせいにする連中はお里が知れる　ってこと

**516** · 2022/07/07(木) 15:33:38.95

下のコードで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

**デフォルトの名無しさん** · 2022/07/07(木) 16:12:50.20

>>562
mdb/accdbファイルの場所が欲しいのなら
CurrentProject.Path
を使おう
CurDir$や>>562の例なんかで返されるカレントディレクトリはファイルダイアログとかで開いたフォルダになるっぽい
その辺の仕様に関する資料は知らんけど

**デフォルトの名無しさん** · 2022/07/07(木) 19:57:05.70

そもそも、
>vbsならscriptの存在するディレクトリ
が間違ってる気がするが

カレントディレクトリの概念って最近は説明されてるの見ないなぁ
GetFolder(".")が返してるのはカレントディレクトリ（からの相対パスで自分自身）
カレントディレクトリはACCESS.EXEの場所や.MDBファイルの場所とは別に存在する

まあMDB開くときはそこをカレントにする場合が多いけどな
つねに一致してるとは限らん

**516** · 2022/07/07(木) 20:26:42.06

>>564
> そもそも、
> >vbsならscriptの存在するディレクトリ
> が間違ってる気がするが

VBSで稼働していたスクリプトをVBAに移植している際に気づいたので、正しいと思います。
スクリプトを任意のフォルダにコピーしてそのフォルダ内のファイルを一括処理するのに使っていましたので。

**デフォルトの名無しさん** · 2022/07/07(木) 20:31:06.22

chdirで変えられちゃうけど

**516** · 2022/07/07(木) 20:55:49.31

ユーザはおいら1人だからいいのです。

**デフォルトの名無しさん** · 2022/07/07(木) 21:30:15.27

いやだから、scriptの存在するディレクトリじゃなくて、
カレントディレクトリが表示されてるって話なんだがな
たまたまそれが同じだっただけだ

ここ理解しないと思ったディレクトリが表示されない理由が理解できないぞ

**デフォルトの名無しさん** · 2022/07/07(木) 22:24:24.15

馬鹿に何を言っても無駄な例だぞ

**デフォルトの名無しさん** · 2022/07/08(金) 10:33:00.73

>>565
そのスクリプトをショートカットにして、
作業フォルダを変えて動かしてみたい

**デフォルトの名無しさん** · 2022/07/08(金) 12:10:02.96

カレントディレクトリみたいな、あやふやなものを使ってはいけない。
これが使えるのは、絶対に変化しない場合だけ

起動時に、特定のフォルダを指定するとか、
あらかじめ定数などに保存しておく