Access の VBA に関する質問スレです
質問テンプレ(雛形)は用意しませんが、OSとAccessのバージョンぐらいは必ず書きましょう
前回のスレッド
Access VBA 質問スレ Part1
https://mevius.5ch.net/test/read.cgi/tech/1328536426/
探検
Access VBA 質問スレ Part2
1デフォルトの名無しさん
2018/12/12(水) 22:14:39.18ID:GF6Qf3Td389デフォルトの名無しさん
2021/06/07(月) 23:05:55.18ID:7Tyglgss390デフォルトの名無しさん
2021/06/08(火) 00:47:30.58ID:Cnc+U0Kq >>389
んなことないだろEIZOのFLEX Scanだし
ぼやけるって言葉の認識だと思うが
ベクターとラスターの拡大みたいなこと
https://i.imgur.com/oT7FRjb.jpg
拡大鏡だと単純拡大だからガタガタのぼやぼや
スマホの拡大縮小だとおかしくならないよね?
ソフトに標準で拡大縮小が実装されているならそれと同じできれいに拡大できる
ACCESSはないから拡大鏡つかうことにかるから汚いしつかいにくい
んなことないだろEIZOのFLEX Scanだし
ぼやけるって言葉の認識だと思うが
ベクターとラスターの拡大みたいなこと
https://i.imgur.com/oT7FRjb.jpg
拡大鏡だと単純拡大だからガタガタのぼやぼや
スマホの拡大縮小だとおかしくならないよね?
ソフトに標準で拡大縮小が実装されているならそれと同じできれいに拡大できる
ACCESSはないから拡大鏡つかうことにかるから汚いしつかいにくい
391デフォルトの名無しさん
2021/06/10(木) 00:40:17.87ID:BRYBvkaF392デフォルトの名無しさん
2021/06/10(木) 01:23:12.45ID:/1oHskcz 文字が
https://i.imgur.com/oQ1lyeU.jpg
こうなるのをボヤボヤといってるんだと思う
MSゴシック使ってるやつはわからないかもしれないが
アンチエイリアス入ったフォントで拡大鏡使うとボヤボヤになるよ
https://i.imgur.com/B1re0t1.png
https://i.imgur.com/oQ1lyeU.jpg
こうなるのをボヤボヤといってるんだと思う
MSゴシック使ってるやつはわからないかもしれないが
アンチエイリアス入ったフォントで拡大鏡使うとボヤボヤになるよ
https://i.imgur.com/B1re0t1.png
393デフォルトの名無しさん
2021/06/14(月) 20:33:26.59ID:bsW07B0Y getobjectでVBSからmdbへ接続してACCESSのモジュールを書き換えているんだけど、プロシジャーをチマチマ書き換えるのが面倒になってきたので、
既存モジュールの全行を削除してからModule.AddFromFile メソッドで新モジュールを一括して書き換えた。
mdbを保存する段になって「ファイルの共有ロック数が制限を超えています」と怒られた。
たしか、コミットトランスするんだよなあ、と資料を読んでみたが、それが出来るオブジェクトが存在しない。
一体どうしたらいいのかな?
既存モジュールの全行を削除してからModule.AddFromFile メソッドで新モジュールを一括して書き換えた。
mdbを保存する段になって「ファイルの共有ロック数が制限を超えています」と怒られた。
たしか、コミットトランスするんだよなあ、と資料を読んでみたが、それが出来るオブジェクトが存在しない。
一体どうしたらいいのかな?
394デフォルトの名無しさん
2021/06/15(火) 10:02:33.87ID:Bs75sj8Q ACCESSを買えば良いと思います。
395デフォルトの名無しさん
2021/06/15(火) 11:17:25.55ID:KpoHzIzW396デフォルトの名無しさん
2021/06/15(火) 13:21:19.21ID:HnTVFPij397デフォルトの名無しさん
2021/06/15(火) 15:19:36.70ID:KpoHzIzW >>396
フォームのコマンドボタンの位置をほんの少しずらしただけで壊れこともあるし、最適化で壊れたこともある。
最近もどっかの記事でそのような記述を見たような気がする。
VBSはコードを見るのも書くのもサクサクだからお気に入りだよ。重たいACCESSを開かなくていいのは気が楽だよ。
でも、関数がVBAと少し仕様が違うとか面倒なことがあるのが玉に瑕だなあ。
フォームのコマンドボタンの位置をほんの少しずらしただけで壊れこともあるし、最適化で壊れたこともある。
最近もどっかの記事でそのような記述を見たような気がする。
VBSはコードを見るのも書くのもサクサクだからお気に入りだよ。重たいACCESSを開かなくていいのは気が楽だよ。
でも、関数がVBAと少し仕様が違うとか面倒なことがあるのが玉に瑕だなあ。
398デフォルトの名無しさん
2021/06/15(火) 20:40:00.08ID:XJxpvmdE >>393
mdbからaccdbにすると壊れ難くなる気がします。
mdbからaccdbにすると壊れ難くなる気がします。
399デフォルトの名無しさん
2021/06/16(水) 09:49:56.68ID:ni17rAhE >>398
面白そうですね。参照設定を変更するくらいで出来そうですね。だめなら宣言文にDAO.を加えれば出来そうな気がします。
今はほぼ全ての改造をVBS経由で行えそうだから、それで行き詰まったらやってみます。
面白そうですね。参照設定を変更するくらいで出来そうですね。だめなら宣言文にDAO.を加えれば出来そうな気がします。
今はほぼ全ての改造をVBS経由で行えそうだから、それで行き詰まったらやってみます。
400デフォルトの名無しさん
2021/06/16(水) 16:39:10.95ID:uJQ6HHCX401デフォルトの名無しさん
2021/06/16(水) 18:15:04.80ID:5mM/xZpb プロシージャーを書き換えるプロシージャーを書くのって面白い?
402デフォルトの名無しさん
2021/06/16(水) 21:11:44.71ID:ni17rAhE403デフォルトの名無しさん
2021/06/16(水) 21:18:57.41ID:ni17rAhE 一括でモジュールを書き換えるのすら面倒になったのでLoadFromTxtに切り替えた。
これならフォームやレポートも丸ごと移植可能だわ。
これならフォームやレポートも丸ごと移植可能だわ。
404デフォルトの名無しさん
2021/06/22(火) 11:37:45.99ID:Ug3/ZHCp オフィス365でデーターを保存したときにウインドウの上のバーの箇所のタイトルに
「ファイル名+保存しました・・」って表示になるけど、
これ出さないように出来ないのかな?
ウインドウのタイトルが変わるとRPAが誤作動をおこすので
いらない機能をつけるなよといつも思います。
「ファイル名+保存しました・・」って表示になるけど、
これ出さないように出来ないのかな?
ウインドウのタイトルが変わるとRPAが誤作動をおこすので
いらない機能をつけるなよといつも思います。
405デフォルトの名無しさん
2021/06/22(火) 11:40:11.76ID:Ug3/ZHCp >>404
誤爆でした。ここAccessなんですね。。
誤爆でした。ここAccessなんですね。。
406デフォルトの名無しさん
2021/06/22(火) 19:29:04.84ID:jEG7fGSr なんでVBA使わずRPAなの?
407デフォルトの名無しさん
2021/06/22(火) 20:23:21.77ID:BN5S6vpx そのVBAを操作する人間の操作を代行させるのがRPAなんやで
408デフォルトの名無しさん
2021/06/23(水) 19:45:53.16ID:G1+Cnxf/ なんで公共の場で地元言葉なの?
409デフォルトの名無しさん
2021/07/24(土) 13:25:46.25ID:1ILHRw72 レポートを変数「i」回だけ複数印刷しようとして、
PrintCountやFormatCountを使ったのですが、
「i」とPrintCount・FormatCountが一致しません。
PrintCountやFormatCountって、
ページ変更・ヘッダー・フッターなどでも、カウントが増えますか?
アルゴリズムそのものが間違いでしょうか?
PrintCountやFormatCountを使ったのですが、
「i」とPrintCount・FormatCountが一致しません。
PrintCountやFormatCountって、
ページ変更・ヘッダー・フッターなどでも、カウントが増えますか?
アルゴリズムそのものが間違いでしょうか?
410デフォルトの名無しさん
2021/07/24(土) 14:08:20.10ID:Q5wmuS+A おまえごときがVBAやる事そのものが間違い
411デフォルトの名無しさん
2021/07/24(土) 19:42:05.93ID:g6yRedEM なな、南斗
412デフォルトの名無しさん
2021/08/04(水) 20:55:05.72ID:+oxSmlyp [タイプ]が勝手に[タイプ]になってしまう。
[ ]で囲んでるのに。なんぞこれ。
[ ]で囲んでるのに。なんぞこれ。
413デフォルトの名無しさん
2021/08/05(木) 08:02:56.74ID:MUFJqoFE あれ、今日は勝手に半角に戻らない。
再起動するだけで良かったのかも。
独り言スマンね。
再起動するだけで良かったのかも。
独り言スマンね。
414デフォルトの名無しさん
2021/08/05(木) 14:37:35.48ID:hIo3G+nj 解決済みという事ですが
名称の勝手変換は[名前の自動修正]を有効にしていると起きます
初心者向けの親切機能ですが、オブジェクト名などを細かく定義している場合には逆に足枷になります
名称変更時に自動トレースしきれずバグを生み出したりします
ご参考までに
名称の勝手変換は[名前の自動修正]を有効にしていると起きます
初心者向けの親切機能ですが、オブジェクト名などを細かく定義している場合には逆に足枷になります
名称変更時に自動トレースしきれずバグを生み出したりします
ご参考までに
415デフォルトの名無しさん
2021/08/05(木) 18:07:31.70ID:Xn5oJsvt いや、再発しました。
名前の自動修正、調べてみます。
名前の自動修正、調べてみます。
416デフォルトの名無しさん
2021/08/07(土) 07:56:44.50ID:GRpq7tgL Windows11+ACCESS365の環境で発生してます。
タイプ(半角)と入力しても行を移るとタイプ(全角)になっちゃう。[ ]でくくっても駄目。
Windows10+ACCESS365では[ ]でくくると勝手に全角にはならないので、Win11Betaのせいっぽいです。
アプリの修復試してみて、駄目ならWin11Betaのフィードバックに上げます。
タイプ(半角)と入力しても行を移るとタイプ(全角)になっちゃう。[ ]でくくっても駄目。
Windows10+ACCESS365では[ ]でくくると勝手に全角にはならないので、Win11Betaのせいっぽいです。
アプリの修復試してみて、駄目ならWin11Betaのフィードバックに上げます。
417デフォルトの名無しさん
2021/08/07(土) 20:17:05.58ID:51b7egKe どっかに全角のタイプってオブジェクトがある(あった)んだろな
そういえばWIN10でNLSのバージョン変わって全角半角の判断がおかしくなる問題があったな
ちょっと試したWin10の詳細バージョン書いてくれ
Win11のNLSってどうなってるんだろ
そういえばWIN10でNLSのバージョン変わって全角半角の判断がおかしくなる問題があったな
ちょっと試したWin10の詳細バージョン書いてくれ
Win11のNLSってどうなってるんだろ
418デフォルトの名無しさん
2021/08/27(金) 14:57:39.16ID:2jUlNhAQ すみません、見逃してた。
Windows10の21H1ですね。
NSLがなんの事かわかんないですが、確かに前にも経験したトラブルの様な気がします。
Windows10の21H1ですね。
NSLがなんの事かわかんないですが、確かに前にも経験したトラブルの様な気がします。
419デフォルトの名無しさん
2021/09/04(土) 15:37:28.00ID:s2WpiZ/S 明後日スタンダード試験だけどやばい模擬問題正答5割だわ
420デフォルトの名無しさん
2021/09/04(土) 16:34:10.88ID:JBLhGxRz ん、まぁ、ガンガレ
421デフォルトの名無しさん
2021/09/05(日) 03:44:21.58ID:Ocn+wvkQ 外部からaccessの特定のレポートを開く方法ある?
422デフォルトの名無しさん
2021/09/05(日) 14:14:02.27ID:ICYnYWWd 外部って?
普通にCOMで操作すれば良いんじゃねえのか
普通にCOMで操作すれば良いんじゃねえのか
423デフォルトの名無しさん
2021/09/07(火) 12:53:43.40ID:3mZ93kfX パススルークエリのパラメータをaccess外から設定する機能教えてください。
424デフォルトの名無しさん
2021/09/07(火) 13:13:29.25ID:7P2mUzTw access外って?
何がやりたいかわからん
何がやりたいかわからん
425デフォルトの名無しさん
2021/09/07(火) 14:16:04.54ID:QthkAqNV ADO
ADODB
DAO
ADODB
DAO
426デフォルトの名無しさん
2021/09/08(水) 22:14:40.15ID:jpM3jR9r427デフォルトの名無しさん
2021/09/09(木) 01:34:00.79ID:4EZcQadY428デフォルトの名無しさん
2021/10/09(土) 23:35:10.80ID:uMcy1fPR VBAエキスパートって取ったほうがいいでしょうか
429デフォルトの名無しさん
2021/10/10(日) 08:29:41.88ID:fy4lWk3l 資格マニアを見る世間の目は冷たい
430デフォルトの名無しさん
2021/11/02(火) 07:37:22.79ID:0Z1mhYfJ >>428
資格より実践を積むべし
資格より実践を積むべし
431デフォルトの名無しさん
2021/11/29(月) 15:04:38.27ID:vB15GkdT レコードが存在しない場合に 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に、何か制限などありますでしょうか?
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に、何か制限などありますでしょうか?
432デフォルトの名無しさん
2021/11/29(月) 15:15:06.43ID:MiFRCJa7 直接の返答じゃないけど、SQL一発書きじゃなきゃだめなの?
事前にレコード数チェックして分岐じゃだめなの?
事前にレコード数チェックして分岐じゃだめなの?
433デフォルトの名無しさん
2021/11/29(月) 15:17:50.75ID:vB15GkdT UPDATE と組み合わせて、SQL一発を考えてます
無理であれば、おっしゃるように分岐かなと
無理であれば、おっしゃるように分岐かなと
434デフォルトの名無しさん
2021/11/29(月) 16:01:33.58ID:MiFRCJa7 ちょっと気になったので手元で実験してみたけど、dummyテーブルが存在して空ではないときには
(多分)431の想定どおりの挙動をしていると思う
バッドノウハウ臭いので、おとなしく事前チェックして分岐かなぁ
まぁAccessのSQLって変だよね
(多分)431の想定どおりの挙動をしていると思う
バッドノウハウ臭いので、おとなしく事前チェックして分岐かなぁ
まぁAccessのSQLって変だよね
435デフォルトの名無しさん
2021/11/29(月) 17:41:32.65ID:XYio4/pG access はupdateいっぱつで初挿入もできたはず
しゅきーのヌルを上書きする感じで
しゅきーのヌルを上書きする感じで
436デフォルトの名無しさん
2021/11/30(火) 05:36:52.18ID:KirC+CSy >>435
さすがにそんなことはないと思うが、ちょっとサンプルコード書いてみてくれ
さすがにそんなことはないと思うが、ちょっとサンプルコード書いてみてくれ
437デフォルトの名無しさん
2021/11/30(火) 09:01:45.87ID:qEKwfbTR >>436
選択クエリは更新できる
UPDATE TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
SET TableA.ID = [TableB]![ID], TableA.Data1 = [TableB]![Data1], TableA.Data2 = [TableB]![Data2];
選択クエリは更新できる
UPDATE TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
SET TableA.ID = [TableB]![ID], TableA.Data1 = [TableB]![Data1], TableA.Data2 = [TableB]![Data2];
438デフォルトの名無しさん
2021/11/30(火) 10:50:50.28ID:d0QAjKSx439デフォルトの名無しさん
2021/11/30(火) 10:58:46.58ID:+NfPg838 >>438
単純にinsertするだけならそれでいいんだけど、existsを使って条件付けようとしてるのでvaluesは使えない(エラーになる)
単純にinsertするだけならそれでいいんだけど、existsを使って条件付けようとしてるのでvaluesは使えない(エラーになる)
440デフォルトの名無しさん
2021/11/30(火) 12:38:13.11ID:nsxxcWz3 それ自分でDUALという名称でテーブルを作って1レコード入れておけば出来るよ。
OracleのDUALも実体はそんな感じだったと思う。
OracleのDUALも実体はそんな感じだったと思う。
441デフォルトの名無しさん
2021/11/30(火) 16:33:37.59ID:KirC+CSy >>437
更新はできるけど、存在しない行を更新しようとしたとして
その行を新規追加することなんてないだろ...
と思ったけど、追加されるのか
ACCESS無茶苦茶しやがるな
リンクテーブルに対してでも追加しやがる
SQL ServerだってFromでJoinしてUPDATEできるけど、
さすがに行が追加されることなんてないぞ
エラーの原因が分からない?
更新はできるけど、存在しない行を更新しようとしたとして
その行を新規追加することなんてないだろ...
と思ったけど、追加されるのか
ACCESS無茶苦茶しやがるな
リンクテーブルに対してでも追加しやがる
SQL ServerだってFromでJoinしてUPDATEできるけど、
さすがに行が追加されることなんてないぞ
エラーの原因が分からない?
442デフォルトの名無しさん
2021/11/30(火) 16:35:34.50ID:KirC+CSy あ、最後なんか変な行入った
443デフォルトの名無しさん
2021/11/30(火) 17:23:09.43ID:aruulzL7 あくせく働くぜ
444デフォルトの名無しさん
2021/11/30(火) 18:49:33.51ID:VsTnDahT >>441
Access的には「更新可能クエリ」はテーブルと同等の扱いなのだろう
Access的には「更新可能クエリ」はテーブルと同等の扱いなのだろう
445デフォルトの名無しさん
2021/11/30(火) 22:05:19.66ID:KirC+CSy446デフォルトの名無しさん
2021/11/30(火) 22:10:51.28ID:VsTnDahT SELECT * FROM TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
これの更新だから行数は変わっていない
これの更新だから行数は変わっていない
447デフォルトの名無しさん
2021/11/30(火) 23:40:10.71ID:KirC+CSy UPDATE文で実テーブルの行数が、な
448デフォルトの名無しさん
2021/12/01(水) 09:46:36.82ID:dv4Z+qI2449431
2021/12/02(木) 11:57:32.43ID:nKskuO+T ありがとうございます
分岐で分けることにしました
分岐で分けることにしました
450440
2021/12/02(木) 22:29:47.92ID:vu0CN48k もうちょっと俺を信用してもええんやないかと思ったが
出来たんならええか
出来たんならええか
451デフォルトの名無しさん
2021/12/08(水) 11:00:44.75ID:8eCyKUYS データベースに対し、レポートを外部データの取込で追加するのですが、
この操作をGUIでなくコマンドで行う事は出来ますでしょうか。
この操作をGUIでなくコマンドで行う事は出来ますでしょうか。
452デフォルトの名無しさん
2021/12/08(水) 11:36:19.36ID:XFpeOKs/ mdbファイルまるごと差し替えでok
453デフォルトの名無しさん
2021/12/08(水) 14:57:00.86ID:8eCyKUYS454デフォルトの名無しさん
2021/12/08(水) 16:58:22.13ID:sRvDCOgH455デフォルトの名無しさん
2021/12/08(水) 18:12:44.70ID:ixTDMdmo456デフォルトの名無しさん
2021/12/08(水) 20:30:00.04ID:FsTgnRus >>451
DoCmd.TransferDatabase acImport
DoCmd.TransferDatabase acImport
457デフォルトの名無しさん
2021/12/13(月) 11:19:46.91ID:HhLRYuYl >>440,450
ありがとうございます、確認しました
dummy テーブルにレコードを入れて動作しました
INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);
ありがとうございます、確認しました
dummy テーブルにレコードを入れて動作しました
INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);
458デフォルトの名無しさん
2022/01/15(土) 00:52:56.35ID:ALzAiADU VBAって、サポート切れてんの?
企業とかこれから、多数のツールどうすんだろうね。
企業とかこれから、多数のツールどうすんだろうね。
459デフォルトの名無しさん
2022/01/15(土) 07:46:29.84ID:8MS0rOI1 サポート気にするような部署でvbaを採用するだろうか?
460デフォルトの名無しさん
2022/01/17(月) 00:16:00.31ID:oS3b1eNW VBAって単独の製品じゃないんだが
そもそもVBAがサポート切れってどこの情報だ?
そもそもVBAがサポート切れってどこの情報だ?
461デフォルトの名無しさん
2022/01/17(月) 12:28:46.14ID:t8m0YBBL OneDriveにコードをバックアップして直接開いたところ
http://imgur.com/qO7I0AB.jpg
こういった線が付きました
Office2016 Proなのですが設定等でVBエディターでも表示できますでしょうか
またお恥ずかしながらこの線の一般的な名称も教えて頂けませんでしょうか
http://imgur.com/qO7I0AB.jpg
こういった線が付きました
Office2016 Proなのですが設定等でVBエディターでも表示できますでしょうか
またお恥ずかしながらこの線の一般的な名称も教えて頂けませんでしょうか
462デフォルトの名無しさん
2022/01/17(月) 17:44:28.15ID:hBkYcVxQ >>461
何で開いたのかは知らんけど、AccessとかのVBAエディタには、そういった今どきの便利な機能は無いかと
一般名称かどうかはしらんけど、VSCodeとかの設定では Indent Guide でひっかかるんじゃないかな
何で開いたのかは知らんけど、AccessとかのVBAエディタには、そういった今どきの便利な機能は無いかと
一般名称かどうかはしらんけど、VSCodeとかの設定では Indent Guide でひっかかるんじゃないかな
463デフォルトの名無しさん
2022/01/17(月) 20:02:01.14ID:r2vXEkpI464デフォルトの名無しさん
2022/01/31(月) 11:21:11.42ID:ZCY1so+a Microsoft 365 Access Runtime ダウンロードリンクが動作してないのですが
ダウンロードできた方おられます??
ダウンロードできた方おられます??
465デフォルトの名無しさん
2022/01/31(月) 11:29:43.23ID:Di33df7w >>464
見てみたけど、ダメだねぇ
見てみたけど、ダメだねぇ
466デフォルトの名無しさん
2022/02/22(火) 22:36:04.61ID:h8gQU92u アクセス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のから操作するとうまくいきません.解決策はないでしょうか?
それで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のから操作するとうまくいきません.解決策はないでしょうか?
467デフォルトの名無しさん
2022/02/22(火) 22:38:16.30ID:h8gQU92u 間違えました。
GetOpenFilenameが開くフォルダーをGetOpenFilenameに→
GetOpenFilenameが開くフォルダーをc:\x\yに
GetOpenFilenameが開くフォルダーをGetOpenFilenameに→
GetOpenFilenameが開くフォルダーをc:\x\yに
468デフォルトの名無しさん
2022/02/23(水) 09:19:56.78ID:yBLUqW/Q 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
WorkBooks.Open
469デフォルトの名無しさん
2022/02/23(水) 10:16:59.77ID:/GeE/zJY >>468
GetOpenFilenameでダイアログが立ち上がったときのフォルダーをc:\x\yにしたいという意味です。
GetOpenFilenameでダイアログが立ち上がったときのフォルダーをc:\x\yにしたいという意味です。
470デフォルトの名無しさん
2022/02/23(水) 14:00:43.13ID:3ksW4w1X FileDialogを使う
471デフォルトの名無しさん
2022/02/23(水) 15:58:28.79ID:noR6ud0U https://officevba.info/filedialog/ こっちスかね
メリットもデメリットも書いてあって親切
メリットもデメリットも書いてあって親切
472デフォルトの名無しさん
2022/02/23(水) 16:48:55.01ID:/GeE/zJY473デフォルトの名無しさん
2022/02/23(水) 16:53:30.10ID:/GeE/zJY >>472
ありがとうございます。この説明はとても親切ですね。よくわかりました
ありがとうございます。この説明はとても親切ですね。よくわかりました
474デフォルトの名無しさん
2022/02/24(木) 15:49:02.02ID:G5PhgONP >>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")
こんな感じか
実行したらエクセルのオプション変わっちまったww
デフォルト何だっけな
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")
こんな感じか
実行したらエクセルのオプション変わっちまったww
デフォルト何だっけな
475デフォルトの名無しさん
2022/02/28(月) 11:00:59.24ID:JmI4xSUc 初歩的な質問でお恥ずかしいのですが教えて下さい
面倒な計算や処理をして値を返す関数Aがあった場合
その戻り値を判定したい場合
If A = 1 or A = 2 then
と記述するとaccessは 2回処理することになるのでしょうか
それでしたら仮に変数(V)を用意して、一旦
V = A
のように格納してから
If V = 1 or V = 2 then
と記述したほうが処理的には一回で済むという解釈になりますでしょうか
すみませんがご教示頂けたらと思います
面倒な計算や処理をして値を返す関数Aがあった場合
その戻り値を判定したい場合
If A = 1 or A = 2 then
と記述するとaccessは 2回処理することになるのでしょうか
それでしたら仮に変数(V)を用意して、一旦
V = A
のように格納してから
If V = 1 or V = 2 then
と記述したほうが処理的には一回で済むという解釈になりますでしょうか
すみませんがご教示頂けたらと思います
476デフォルトの名無しさん
2022/02/28(月) 11:49:10.60ID:JmI4xSUc すみません、試してわかりました。
後者は一回で済みました。
質問することでその後すぐ簡単な確認方法を思いつくことがよくあります
お恥ずかしい。スレ汚し失礼しました;
後者は一回で済みました。
質問することでその後すぐ簡単な確認方法を思いつくことがよくあります
お恥ずかしい。スレ汚し失礼しました;
477デフォルトの名無しさん
2022/02/28(月) 12:38:27.12ID:jOzz1fM6 どんまい 気付きや学びに成りゃ無駄じゃ無い
478デフォルトの名無しさん
2022/02/28(月) 12:41:50.52ID:frLBMESq ちょっと違う話だけど、VBAにもOrElseやAndAlsoが欲しいなと思うときはある
479デフォルトの名無しさん
2022/03/06(日) 15:10:37.27ID:R+n9Kzax SQLの勉強をさいきんはじめました
動的SQLによる数独の超高速解法
というのを読みました
動的にSQLを生成するため
・一つはJDBCを使う方法
・もう一つはストアド・プロシージャを用いた方法
云々って書いてあります
これらって、アクセスのSQLでもできそうなものでしょうか?
(過去に話題として出てたらごめんなさい)
できそうならやってみようかと
茨の道ならあきらめます
動的SQLによる数独の超高速解法
というのを読みました
動的にSQLを生成するため
・一つはJDBCを使う方法
・もう一つはストアド・プロシージャを用いた方法
云々って書いてあります
これらって、アクセスのSQLでもできそうなものでしょうか?
(過去に話題として出てたらごめんなさい)
できそうならやってみようかと
茨の道ならあきらめます
480デフォルトの名無しさん
2022/03/06(日) 16:34:17.90ID:TgGQVPNx 2つとも分からんけど、VBAが使える環境なら動的SQLは可能なはず
481479
2022/03/06(日) 17:10:27.06ID:R+n9Kzax SQLとは、使用人から経営者になることだ
今まで自分で作業してたのをしなくてよくなる
使用人に、「こういうのを出してくれ」と
言うだけでよい
数独についてであれば、今まで
総当りするプログラムとか
条件判定とかを自分で考えていたが
SQLならそうしたものは自分で考えなくてよい
勝手に総当りして勝手に判定してくれる
・・・ということが書いてありました
これって、既存のプログラムの要件を
SQLで表現できれば中身は考えなくてよい
ってことですよね けっこうおもしろいかも
今まで自分で作業してたのをしなくてよくなる
使用人に、「こういうのを出してくれ」と
言うだけでよい
数独についてであれば、今まで
総当りするプログラムとか
条件判定とかを自分で考えていたが
SQLならそうしたものは自分で考えなくてよい
勝手に総当りして勝手に判定してくれる
・・・ということが書いてありました
これって、既存のプログラムの要件を
SQLで表現できれば中身は考えなくてよい
ってことですよね けっこうおもしろいかも
482デフォルトの名無しさん
2022/03/07(月) 07:14:29.39ID:xVPINsIe 経営しなくてもお金が稼げるSQLがどこかに書いてあると良いのに。
483デフォルトの名無しさん
2022/03/07(月) 12:53:13.63ID:+OeG3Wfd484デフォルトの名無しさん
2022/03/07(月) 13:11:37.42ID:3lxJ/2QX これかな?
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で補ったりする必要はあると思う
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で補ったりする必要はあると思う
485デフォルトの名無しさん
2022/03/07(月) 14:07:14.74ID:tjPYNfUL 各DBで使えるSQL構文一覧表
(ROLLUPは jet使えない oracleはokとか)
のページが昔あったのに
今見たら見あたらなかったわ
(ROLLUPは jet使えない oracleはokとか)
のページが昔あったのに
今見たら見あたらなかったわ
486デフォルトの名無しさん
2022/03/08(火) 06:28:34.40ID:fGzXxwFZ 総あたりする場合、SQLはどうやって
候補を管理してるんだろ?
ふつうにメモリ上に持ってたら
メモリが足りないような
候補を管理してるんだろ?
ふつうにメモリ上に持ってたら
メモリが足りないような
487デフォルトの名無しさん
2022/03/08(火) 20:13:50.94ID:fGzXxwFZ 数字の書かれたパネルがあります
このパネルのマスをいくつか
ぬりつぶし、残った数字の積が、
たて・横のどの列も12になるように
してください
2523
6257
5262
2334
これぐらいの規模の問題で
練習したほうがいいかも
ぬりつぶしは1に置き換える
このパネルのマスをいくつか
ぬりつぶし、残った数字の積が、
たて・横のどの列も12になるように
してください
2523
6257
5262
2334
これぐらいの規模の問題で
練習したほうがいいかも
ぬりつぶしは1に置き換える
488デフォルトの名無しさん
2022/03/09(水) 11:17:27.88ID:wDARNtYc 動的SQLっていうから
DBエンジンにSQL投げる
↓
その結果を受けて自分を書き換えて
再度新しいSQL投げる
↓
望む結果になるまで繰り返す
みたいな話を期待したら
拍子抜けだった
DBエンジンにSQL投げる
↓
その結果を受けて自分を書き換えて
再度新しいSQL投げる
↓
望む結果になるまで繰り返す
みたいな話を期待したら
拍子抜けだった
レスを投稿する
ニュース
- 【外交】元台湾総統・馬英九氏、高市首相発言に「台湾を危険にさらす」台湾海峡の問題は「両岸の中国人が自ら話し合うべき」★2 [1ゲットロボ★]
- 高市首相答弁を“引き出した”立民・岡田克也氏が改めて説明「なぜ慎重な答弁をされなかったのか。非常に残念に思っている」 ★8 [ぐれ★]
- 「母の部屋に安倍氏が表紙の機関誌が」「(安倍氏が被害者なのは)不思議に思いませんでした」山上被告の妹が証言 [おっさん友の会★]
- 【野球】大谷翔平、佐々木朗希、山本由伸らがWBC辞退なら広がる不協和音… 『過去イチ盛り上がらない大会』になる可能性も★2 [冬月記者★]
- 【次の一手】台湾問題で小林よしのり氏が私見「まさに戦争前夜」「ただちに徴兵制を敷いて、高市支持者を最前線へ」… ★5 [BFU★]
- 【国際】ロシアはすでに戦争準備段階――ポーランド軍トップが警告 [ぐれ★]
- (´ん`)「公明党、お前だったのか。自民党から国民を守ってくれていたのは...」 [603416639]
- 【高市売り】円安、止まらず!凄い勢いで暴落中。157円へ [219241683]
- 1,000万円のBMWに擦ってしまった札幌のガキ、捕らえられてガチで詰む [329329848]
- 【悲報】ヤフコメ民「中国が水産物を輸入禁止にするなら、日本国民向けに安く販売すればいい。中国依存から脱するべき」 [153736977]
- 維新代表吉村、壊れたレコードになる「中国はカントリーリスク、中国人観光客がいなくても成り立つビジネスを目指せ」を何度も繰り返す [856698234]
- SNKの悪役はギース、ルガール、山崎と魅力的なのが多いよね
