Access VBA 質問スレ Part2 (788ﾚｽ)
上下前次1-新
484(1): 2022/03/07(月)13:11 ID:3lxJ/2QX(1) AAS
これかな？
外部ﾘﾝｸ:codezine.jp
外部ﾘﾝｸ:codezine.jp
外部ﾘﾝｸ:codezine.jp
記事中においてJavaでSQLを生成している部分はVBAで書けるだろうけれど、
他のRDBMSで使えるSQLの全てがAccessでも使えるわけじゃないから
その辺をうまく置き換えたりVBAで補ったりする必要はあると思う
485: 2022/03/07(月)14:07 ID:tjPYNfUL(1) AAS
各DBで使えるSQL構文一覧表
(ROLLUPは jet使えない oracleはokとか)
のページが昔あったのに
今見たら見あたらなかったわ
486: 2022/03/08(火)06:28 ID:fGzXxwFZ(1/2) AAS
総あたりする場合、SQLはどうやって
候補を管理してるんだろ？
ふつうにメモリ上に持ってたら
メモリが足りないような
487(1): 2022/03/08(火)20:13 ID:fGzXxwFZ(2/2) AAS
数字の書かれたパネルがあります
このパネルのマスをいくつか
ぬりつぶし、残った数字の積が、
たて・横のどの列も12になるように
してください
2523
6257
省5
488: 2022/03/09(水)11:17 ID:wDARNtYc(1) AAS
動的SQLっていうから
DBエンジンにSQL投げる
↓
その結果を受けて自分を書き換えて
再度新しいSQL投げる
↓
望む結果になるまで繰り返す
省2
489(1): 2022/03/10(木)18:36 ID:y/Xk/sN2(1) AAS
>>487
SELECT 解答
FROM すべてのあり得る盤面
WHERE 今回の条件
だから
まず盤面を1行にして
2523625752622334
省10
490: 2022/03/11(金)12:30 ID:+z9vFN5I(1) AAS
>>489
>>484の記事を１から読んでこい
491(1): 2022/05/01(日)00:28 ID:uZ+uV6s8(1/4) AAS
VBAのコード内の文字を置換するプログラムをVBAで行うことはできるでしょうか？
置換の組合せが複数あるので一つずつCtrl+Hで操作すると間違いそうなので，
置換前文字列と置換後文字列の配列を書いて，それを順に実行するようにしたいのです．
自分のコード内に当該置換文字列をがでてくるので，その回避も考えないといけないですが
よろしくお願いします
492: 2022/05/01(日)07:29 ID:1HGTgNe1(1/2) AAS
>>491
できるよ
493: 2022/05/01(日)07:36 ID:1HGTgNe1(2/2) AAS
ごめん、AccessVBAスレだった
知らん
494(3): 2022/05/01(日)16:14 ID:4P2yloMu(1) AAS
ACCESSにもApplication.VBEがあるっぽいから、エクセルとかと同じようにできるんじゃね
そもそもコード内をそうそう置換するって状況がよくわからんがな
495: 2022/05/01(日)20:13 ID:uZ+uV6s8(2/4) AAS
>>494
オブジェクト名を修正すると，名前の自動修正機能で，オブジェクト間の整合性は保たれます．
例えば，Aクエリー内でBテーブルを使用していて，Bの名前をCに変更するとA内のBテーブル名もCに自動的に修正されます．
ところが，コード内でオブジェクト名を引数に使用している場合（DoCmd.OpenQuery()やQeryDef()など）は，自動的に修正されないので
コード内の文字置換で修正するしかありません．
オブジェクト名をより統一的にしたいとか，あるルールで短くしたいなどの事情です．
でも本当にコードを使ってコード内の文字置換できますか？
省1
496(2): 2022/05/01(日)20:33 ID:XyObubkl(1) AAS
>>494がApplication.VBEってヒント出してくれてるのに自分で調べる気は無いの？
497(1): 2022/05/01(日)20:51 ID:uZ+uV6s8(3/4) AAS
>>496
いままでApplication.VBEとVBAの違いをしりませんでした．
Application.VBEで検索して，オブジェクトであることをしりました．
できそうな気がしてきました．
調べます
498(1): 2022/05/01(日)21:27 ID:q0kLnjNb(1/2) AAS
>>497
お前みたいな馬鹿は、方法自体間違えていると思うよ
499: 2022/05/01(日)22:36 ID:uZ+uV6s8(4/4) AAS
>>498
正しい方法言ってみな。
言えなきゃ超バカ決定。
500: 2022/05/01(日)23:10 ID:q0kLnjNb(2/2) AAS
やっぱり馬鹿だったか
馬鹿に馬鹿と指摘すると怒りだす
501(1): 2022/05/03(火)18:13 ID:hABwtxOZ(1) AAS
>>494，>>496
497ですが、
Application.VBE.ActiveVBProject.VBComponents(i).codemodule.ReplaceLine(j,"修正後コード文字列")
を使ってできました。
502: 2022/05/03(火)21:57 ID:uVFGqhpy(1) AAS
>>501
ありがとう。勉強になります。
503(1): 2022/05/03(火)23:56 ID:9Zz7qGMa(1) AAS
コードとデータは分離しなさーい！
504: 2022/05/04(水)01:12 ID:L2QcoKdh(1/3) AAS
>>503
オブジェクト名はデータにできない
505: 2022/05/04(水)01:29 ID:T57Ht3+D(1/2) AAS
名前は文字列だろ！
VBAの提供するオブジェクトは大抵コレクションで管理されているだろ！
お前の作ったオブジェクトも管理できるようにしろ！
初歩だぞ初歩！
506: 2022/05/04(水)01:39 ID:L2QcoKdh(2/3) AAS
つまらん
もういいよ
507(1): 2022/05/04(水)03:22 ID:bSJdUNny(1) AAS
やっぱり馬鹿だった
508(1): 2022/05/04(水)08:25 ID:L2QcoKdh(3/3) AAS
>>507
人のこと馬鹿、馬鹿ってほんとにうるさい奴だな
今回のアプリは俺しか使わずオブジェクト名変更も今回限りが確定しているんで、
オブジェクト名をデータ化できるCreateQueryDefなどを使う手間を省いてクエリデザイナーを使っているだけ。
そういう事情も含めて「もういいよ」と書いたんだけど、読み取れんわな。
お前は実生活で他人の事情を汲み取る力が弱くて他人から避けられてるだろう。
実生活では流石に馬鹿と面罵しないとは思うが態度にはでてると思うよ。
省1
509: 2022/05/04(水)12:11 ID:T57Ht3+D(2/2) AAS
何人登録するつもり？
510: 2022/05/06(金)14:43 ID:HOAU3QSN(1) AAS
>>508
もういいから馬鹿は黙ってろ
511: 2022/05/11(水)09:14 ID:+mNN1hZ/(1) AAS
ここはBKのあつまりでつか？
512(1): 44 2022/06/18(土)22:47 ID:yLkug1TW(1) AAS
味噌も糞もいるのがこういう掲示板の特徴
それが面白ければ来るし退屈なら来ない
文句言うのはカッコ悪い
513(1): 2022/06/19(日)06:53 ID:R9q2ZnJn(1) AAS
>>512
こういうのかっこ悪い
514: 44 2022/06/19(日)07:49 ID:ZfwUc+SV(1) AAS
>>513
いやいや本当のイケメンだろうな
515: 2022/06/21(火)16:34 ID:q4pJaYn5(1/4) AAS
test
516(9): 2022/06/21(火)16:34 ID:q4pJaYn5(2/4) AAS
アプリケーションタイトルについて質問です。
今使ってるmdbのタイトルが2種類あって、「Access」のものと「ファイル名:データベース-フルパス-Access」のものがあります。
全部後者のタイトルにしたいのですが、設定の仕方がわかりません。
ヤフー知恵袋の「Accessのタイトルバーにファイル名を表示させることはできますか。
Excelでは表示されるのですがAccessでは”Access”としか表示されず少し不便なので、、」
を読むと何の設定もしなくても後者のようになると書いている人がいます。
どうしたらそうなるのでしょうか？
省1
517(1): 516 2022/06/21(火)17:34 ID:q4pJaYn5(3/4) AAS
解決しました。
518(1): 2022/06/21(火)19:20 ID:EkCiEQiW(1) AAS
>>517
どうやって？
知りたい
519: 516 2022/06/21(火)19:44 ID:q4pJaYn5(4/4) AAS
>>518
いろいろ試したけど、結論は超簡単。
ファイル→オプション→現在のデータバース→アプリケーションオプション→ドキュメントウィンドオプション→タブ付ドキュメントをon
これでファイル名とパス名が表示されて複数のmdbを起動しても混乱しなくなりました。
520(2): 2022/06/21(火)20:23 ID:QtwFSmmg(1) AAS
OS:win10
Ver:365 16.0
フォルダの中に複数のExcelファイルがあります
accessで全てのエクセルの同一セルの文字をテーブルにまとめたいのです
Accecc vba エクセルの特定のセル
などで検索してみましたが解決に至っていません
どうかお力添えお願いします
521(1): 2022/06/21(火)20:46 ID:kU7/2TZz(1) AAS
何がしたいかと、どこまで出来て何がわからないのか詳しくかけ
522(1): 2022/06/22(水)10:12 ID:N/5JiATv(1/3) AAS
>>520
Excelシート全てインポートすればクエリー加工出来ると思うが、、
523(1): 2022/06/22(水)10:16 ID:N/5JiATv(2/3) AAS
>>520
Excelシートリンクでも良いぞ
524: 2022/06/22(水)10:27 ID:lUHG2pSs(1) AAS
ネ申エクセルからデータを拾いたいとかそんな話じゃね？
CreateObject("Excel.Application")
使って対象ファイル開いて、そっからさきはExcel VBAの範疇やろ
525(1): 2022/06/22(水)12:36 ID:N/5JiATv(3/3) AAS
なんだ
Accessでテーブル化したい、のでは無いのか?
何やりたいのか分からんな
526: 2022/06/22(水)15:16 ID:Z6mZqai9(1) AAS
「AccessVBAからexcelファイルのセル参照ってどうやるの？」ていう質問でしょ
527(1): 2022/06/22(水)20:19 ID:rLKMJdnt(1) AAS
質問には答えられるけど
答えるとまた次の質問が来るのが予測出来るからまんどくせ
528: 2022/06/23(木)06:46 ID:nErcbU9U(1) AAS
>>527
スレに来ないと良いよ
529(1): 2022/06/23(木)07:36 ID:xe+L83Np(1) AAS
>>521-523
なにをやりないか再度確認してコード見直していたら不具合点見つかって前進しました…
>>525
やりたいのはこれで30個程度のエクセルがあって全てフォームは統一されています
a3とb4とw30の値をテーブルにズドンと引っ張りたいのです
もうちょっと頑張ってみます
遅くなってごめんなさい
530: 2022/06/23(木)12:13 ID:jwJvRDT9(1) AAS
ACCESS VBA EXCEL CELLでクグルと沢山出て来ますね。
ACCESSからEXCEL開いて操作できると便利です、頑張ってください。
531(1): 2022/06/23(木)12:56 ID:uoofWh9e(1) AAS
>>529
CreateObject("Excel.Application")でエクセルを操作できるようにする
対象とするシートからa3とb4とw30の値を取得して変数 X Y Z に格納する
変数 X Y Z の値をAccess のテーブルに追加する
この二つの処理を全てのシートにループで行う
釣りが終わったExcel オブジェクトを閉じる
Access のオブジェクトの閉じる
省1
532(1): 2022/06/24(金)06:07 ID:X+tgL9yK(1) AAS
>>531-532
ありがとうございます
こう書くとすごくわかりやすいですね
テーブル追加やLOOPは調べて書き方を学べそうなのでやってみます！
533: 2022/06/26(日)13:37 ID:DTfGvOZF(1) AAS
動画ﾘﾝｸ[YouTube]
534(1): 2022/06/26(日)22:59 ID:Ter0iV/V(1) AAS
たびたびすみません
ばしっとフォルダ内のファイル名を取得することはできました
＞CreateObject("Excel.Application")でエクセルを操作できるようにする
これの意味がようやくわかりました ありがとうございます
C:\Users\sanae\Desktop\vba\Book1.xlsx というExcelファイルのa3を変数に入れようとしているのですが
ぐぐったところファイルパスをつける書きかたが参考にできるページがみあたらず詰まっています
(このあたりにファイルパスとかシートとかを指定して)range(3.1) みたいなやり方かなあなんて思っているのですがどれもエラーになっちゃいました
省1
535(1): 2022/06/27(月)00:21 ID:LR8Jvthl(1/2) AAS
>>534
外部ﾘﾝｸ[htm]:officetanaka.net
を参考にしてください。
Sub Sample1
set mybook=myexel.Workbooks.Open "C:\Users\sanae\Desktop\vba\Book1.xlsx"
x=mybook.worksheets(1).range("A 3")
X の値をテーブルに書き込む
省3
536: 2022/06/27(月)01:42 ID:Yed1CrTu(1/2) AAS
>>535
おおお
できてきました とても進みました
・フォルダを指定してファイル名を取得
・変数XYZに特定のセルの値を取得
・
537: 2022/06/27(月)01:45 ID:Yed1CrTu(2/2) AAS
すみませんＣＴＲＬ＋エンターで送信になってしまいました
・フォルダを指定してファイル名を取得
・指定したシートから変数XYZに特定のセルの値を取得
・XYZの値をテーブルに追加
超進みました
後は指定したシート名を持たないファイルに遭遇した時にどんなエラーになるのかが気になりますので
近々時間みつけて頑張ろうと思います
省1
538: 2022/06/27(月)01:59 ID:YAQt7RYR(1) AAS
馬鹿は二度と来るなよ
539(1): 2022/06/27(月)08:41 ID:yeeW9wqV(1) AAS
VBAでやらなくてもテーブルimportで出来るやろ
無駄な努力だな
540: 2022/06/27(月)11:56 ID:LR8Jvthl(2/2) AAS
>>539
ブック数が多いから VBA でやりたいんじゃないの？
インポートでできる量だったら手でコピペの方が早いだろ
541: 2022/06/27(月)15:59 ID:jKYPD+Yx(1) AAS
対象のExcelファイルが固定なのか、頻繁に入れ替わるかどうかにもよるわな
542(1): 2022/06/27(月)20:22 ID:UdQiWAN3(1) AAS
どなたか教えてください。
売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。
目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。
とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。
543: 2022/06/27(月)20:42 ID:NFVjaUBh(1) AAS
なんでAccessVBAスレにまで書いてるんだよ
544: 2022/06/28(火)12:01 ID:W8L8uteA(1) AAS
こんな奴が作るプログラムで金勘定とか笑えるわ
己を知らないって馬鹿の特徴なんだよな
545: 2022/06/28(火)12:08 ID:S7aFTH1N(1) AAS
>>542
Access VBAスレでExcelの質問するなよ
546(1): 2022/06/28(火)12:53 ID:illrnTHm(1) AAS
EXCELで記録したVBAをACCESSで実行するとEXCELはXlmxにしなくても良いからじゃないの?
ソルバーは使い方わからんのでなんにも言えなくてスマン。
547: 2022/06/28(火)13:14 ID:v0i+TmEN(1) AAS
>>546
Excel VBAスレみればなにがあったのか分かるよ
548: 2022/06/28(火)21:08 ID:i28fB/zi(1) AAS
昨日アホな質問した541です。
accessスレにexcel VBAについて投稿してしまい、すみませんでした。
VBA初心者なので、よくわからずに投稿してしまいました。
549: 2022/06/29(水)10:01 ID:Es0nfTu8(1/2) AAS
初心者を言い訳にする香具師は同じ失敗を繰り返す
550: 2022/06/29(水)12:18 ID:C7zOwXa/(1) AAS
狭量にすぎる
551(1): 2022/06/29(水)12:31 ID:WL8L6KaP(1) AAS
スレを間違ったことではなくマルチが問題なのだがな
552: 2022/06/29(水)13:27 ID:tPok425v(1) AAS
>>551
それだけ焦ってたんでしょ。Excel VBA で反応がなければ藁をもすがる気持ちで アクセス VBA で聞いたんじゃない。
広い気持ちで
553: 2022/06/29(水)13:50 ID:Es0nfTu8(2/2) AAS
x VBA初心者
o 5ch初心者
o パソコン初心者
o コミュ障入門者(上級)
554: 516 2022/06/30(木)01:00 ID:1OP/W/CA(1/3) AAS
DoCmd.OpenReport "レポート名", acViewPreview
DoCmd.PrintOut acPrintAll, , , acHigh, 枚数
新規レポートにラベルを貼っただけものだと希望どおりの枚数が印刷される.
しかし,別のレポートだと常に1枚しか印刷されない.
ネットでも同じ報告を確認した.バグ説もある.
皆さんはどうですか？やっぱりバグですかね？
555: 516 2022/06/30(木)16:01 ID:1OP/W/CA(2/3) AAS
解決した.
デコンパイルとコンパクトしたらいつの間にか設定した枚数が印刷されるようになった.
accessはマジで面倒くさいなあ.
デコンパイルとコンパクトの待ち時間をを返して欲しいよ
556: 2022/06/30(木)19:00 ID:PX9/MxY9(1) AAS
デコンパイル、知りませんでした。
557: 2022/06/30(木)20:22 ID:1+oYjPxt(1/2) AAS
デコンパイル、昔は割と鉄板の解決方法だったんだけどね
それでだめなら新規作成して全モジュールインポートとかもあったな
最近は必要性が減ったけど、まだたまにはあるんだな
558: 516 2022/06/30(木)22:53 ID:1OP/W/CA(3/3) AAS
コンパクトだけでも良かったのかも知れないが,習慣で両方やることにしている
ついいましがたも.Docmd.OpenReportのOpenArgsがレポートに渡らなくて困っていたが,コンパクトをしたら作動した.
終了時にコンパクトするオプションがあるくらいだから頻繁にやるべきなんだろうね.
コード書いているときは非常に頻繁に破損するからね.
559: 2022/06/30(木)23:46 ID:1+oYjPxt(2/2) AAS
あれはデータ領域を圧縮するのが主で、コード部分にはあまり影響しなかった気がするが
最近のアクセスでコードが破損するのはだいぶ減ったと思うが
VBEからコンパイルするだけで解決してたんじゃないか？
560: 516 2022/07/01(金)00:40 ID:SILFs/Ha(1) AAS
くわしいことはわからないが,挙動不審が治ることがあるんだよねえ
とにかく,試行錯誤していると必ずと言っていいほど,壊れるよねえ.
メモリーが不足していますとか出始めると,その日のうちに全フォーム消失とか起こるからなあ.
561: 2022/07/01(金)10:45 ID:x9gnk4T5(1) AAS
試行錯誤の過程のほとんどを貯め込むからな 設定で「終了時に最適化」で、都度終了を心掛けるか
大幅な改修の度にコンパイルのクセを付けるか ファイルサイズに気を付けて、「こんなサイズのはずは無い」ってな時は要注意
で、それは、お道具の使い方が雑、間違ってるってだけで、すぐAccessのせいにする連中はお里が知れる ってこと
562(2): 516 2022/07/07(木)15:33 ID:9tJXVGoG(1/3) AAS
下のコードでmdbのディレクトリが表示されると思いきや、
ディレクトリ Documents
フルパス C:\Users\MyName\Documents
が表示された。vbsならscriptの存在するディレクトリだからmdbの存在するディレクトリが表示されると思ったのに、違う。
このことを説明してある資料ありますかね？
Sub test()
Dim fso
省6
563: 2022/07/07(木)16:12 ID:N4ENiOaQ(1) AAS
>>562
mdb/accdbファイルの場所が欲しいのなら
CurrentProject.Path
を使おう
CurDir$や>>562の例なんかで返されるカレントディレクトリはファイルダイアログとかで開いたフォルダになるっぽい
その辺の仕様に関する資料は知らんけど
564(1): 2022/07/07(木)19:57 ID:V/fQnZ1U(1/2) AAS
そもそも、
>vbsならscriptの存在するディレクトリ
が間違ってる気がするが
カレントディレクトリの概念って最近は説明されてるの見ないなぁ
GetFolder(".")が返してるのはカレントディレクトリ（からの相対パスで自分自身）
カレントディレクトリはACCESS.EXEの場所や.MDBファイルの場所とは別に存在する
まあMDB開くときはそこをカレントにする場合が多いけどな
省1
上下前次1-新書関写板覧索設栞歴
あと 224 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s