Access VBA 質問スレ Part1

1 名前：デフォルトの名無しさん mailto:sage [2012/02/06(月) 22:53:46.88 .net] AccessのVBAに関する質問スレです ★1 質問テンプレ(雛形)は用意しませんが､OSとAccessのバージョンは必ず書きましょう。 ★2 AccessのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 AccessのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　VBAとは､『Visual Basic for Application』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 ★5 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 関連スレ Excel VBA 質問スレ Part23 toro.2ch.net/test/read.cgi/tech/1327763113/l50 641 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 21:33:54.83 ID:XY92uhDq.net] 開始行を含 642 名前：めるか含めないかしかなかった様に思う。 取り込んでしまってからヘッダー行を消すSQL実行したらはやいかも。 [] [ここ壊れてます] 643 名前：デフォルトの名無しさん mailto:sage [2016/08/24(水) 22:13:48.17 ID:3q4Jyrt7.net] >>615 ありがとうございます。 HDR=Noか、もしくはVBAで処理する様にします。 644 名前：デフォルトの名無しさん [2016/09/29(木) 17:49:20.39 ID:Z3hVyFqu.net] SQLで質問ですが、 select * from DATATBL group by NAME こんな感じで集計させても結果が０になってしまうのですが、書式間違ってますか？ ちなみにC++BuilderからMicrosoft.Jet.OLEDB.4.0でmdbファイル操作してます。 645 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 18:41:58.74 ID:2yQBgN/R.net] select NAME, COUNT(*) from DATATBL group by NAME 646 名前：デフォルトの名無しさん [2016/09/29(木) 18:55:56.52 ID:Z3hVyFqu.net] >>618 返答ありがとうございます。 しかしながら selectでNAMEのみを指定すると項目が足らんみたいなエラーが出てしまいます。 select *, COUNT(*) from DATATBL group by NAME こうするとエラーは出ませんが、結果はやはり０になってしまいます 647 名前：デフォルトの名無しさん mailto:sage [2016/09/29(木) 19:18:38.30 ID:Z3hVyFqu.net] >>618 すみません、他の箇所でエラーが出ていました。 正常にselectする事ができました。ありがとうございました。 648 名前：デフォルトの名無しさん [2016/09/30(金) 11:38:14.95 ID:tD6+ktpC.net] またSQLで質問ですが、 DATEでソートしてからNAMEをグループ化したいので select NAME from (select * from TESTTABLE order by DATE) as group by NAME 上記のようにしたのですが結果が０になってしまいます。 何処が間違ってますか？ 649 名前：デフォルトの名無しさん mailto:sage [2016/09/30(金) 11:43:24.10 ID:tD6+ktpC.net] あ、as取ったらいけました 650 名前：デフォルトの名無しさん mailto:sage [2016/09/30(金) 13:45:49.20 ID:VqVPXDNJ.net] GROUP BY 後の順序は保証されてなかったと思う 確実にやるならグループ化してからソート 651 名前：デフォルトの名無しさん mailto:sage [2016/09/30(金) 13:59:26.62 ID:4mQfWuIk.net] いいかげんスレチ 652 名前：デフォルトの名無しさん [2016/10/01(土) 18:16:06.96 ID:94YBKalt.net] すみませんが教えて下さい。 Access2010でフォームにWebブラウザコントロールを張り、 Me![ScrollInfo].Navigate 653 名前：デフォルトの名無しさん [2016/10/01(土) 18:24:50.88 ID:94YBKalt.net] すみませんが教えて下さい。 Access2010でフォームにWebブラウザコントロールを張り、 Me![ScrollInfo].Navigate で正常にページが表示されています。 そのフォームを右クリックでデザインビューに切り替えると以下のエラーが出来ます。 StatusTextChange でエラーが発生しました（以下略） ちなみに×ボタンで普通に閉じるとこのエラーは発生しません。 Access2016でも同様でした。 ご存知の方がいらっしゃいましたらお願い致します。　 654 名前：デフォルトの名無しさん [2016/11/10(木) 12:17:09.05 ID:MJMdCBmm.net] sendobjectでレポートをPDFで添付して送ろうとすると 添付されたファイル名が・.pdfになるのは仕様ですかね？ ACCESSとOutlookは2013です ただAccessのファイルはmdb形式 655 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 12:51:09.43 ID:dxAJlx69.net] どうしたいの？ 656 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 13:28:54.05 ID:MJMdCBmm.net] 添付ファイルが"元となったレポート名".pdfになるのかと思っていたのだけど、違うのかなという疑問 657 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 13:29:38.75 ID:dxAJlx69.net] それで通じるとかマジで思ってる？ 658 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 14:01:21.25 ID:lT3NS9hL.net] 通じないか…すまん Docmd.Sendobjectを使ってレポートをPDFに変換してメール送信したい 実行はできているが、変換されてメールに添付されたファイル名が・.pdfになってしまう。 これがなぜ・になるか知りたい。 レポートのオブジェクト名は・ではない。 日本語名がNGなのか？ 659 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 14:37:03.21 ID:dxAJlx69.net] そう思うなら ASCII のファイル名とか UTF-8 のファイル名試してみれば？ 660 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 14:38:13.94 ID:uCLe8e7d.net] >>631 MIMEでiso-2022-jpとかにしてみ 661 名前：デフォルトの名無しさん mailto:sage [2016/11/10(木) 20:01:07.80 ID:lT3NS9hL.net] レポートの表題がファイル名になることがわかった。 レスくれた方ありがとう。 662 名前：デフォルトの名無しさん mailto:sage [2016/12/28(水) 11:38:08.54 ID:qa9jiDer.net] ?Eval("'山ー田' Like '*山田*'") -1 何で？ Win7x64+ 663 名前：Acs2010 [] [ここ壊れてます] 664 名前：デフォルトの名無しさん mailto:sage [2016/12/28(水) 12:22:36.72 ID:JT952dSj.net] >>635 そりゃ真ん中に入ってるからだと思うが。 665 名前：デフォルトの名無しさん mailto:sage [2017/01/01(日) 18:08:01.09 ID:T039qKRQ.net] -1はTrueだから一致することについて疑問に思ってるのでは 666 名前：デフォルトの名無しさん mailto:sage [2017/01/01(日) 20:32:48.66 ID:F1PmU62+.net] >>635 Evalの引数が単なる文字列として認識されてるからかも ?Eval("山ー田" Like "*山田*") だと期待する結果になる 667 名前：デフォルトの名無しさん mailto:sage [2017/01/01(日) 20:35:20.03 ID:F1PmU62+.net] すまん環境書き忘れた Win10 x64, Access2016 32bit 668 名前：デフォルトの名無しさん mailto:sage [2017/01/01(日) 22:05:32.13 ID:5bQycJKK.net] 文字判定だから、アクセント無視で長音記号が無視されてるだけだと思ったけど ?Eval("'山xー田' Like '*山田*'") も-1だな ?Eval("'山ーx田' Like '*山田*'") は0だった 長音記号無視するルールになんかあるのかもしれん 669 名前：デフォルトの名無しさん mailto:sage [2017/01/02(月) 21:00:22.06 ID:Qo2R7jJK.net] クエリでもヒットしちゃうな。 670 名前：デフォルトの名無しさん [2017/01/04(水) 15:01:47.06 ID:rtXdgiQY.net] 利用環境 access2010 Windows7 上記環境で同時接続400人程度のファイルを作成しようとしています 管理者2〜3人が100〜1000件程度のレコードを編集しながら 400人程度が編集したレコードを参照。参照後に自動で既読フラグを access内のテーブルに入力する仕組みです 上記イメージで利用する場合、400人が同時に既読情報を DBに対して入力することになります。 (実際は入力するタイミングがずれるので同時編集は 多くて100人程度になりそうです) Accessは負荷に耐えきれるのでしょうか？ 400人の既読情報を40個のテーブルに分割して リンクテーブルで負荷を分散させれば実用範囲になるのでしょうか？ 社内セキュリティの制約でAccessしか利用が出来ない状態なので 他のツールを使用することは出来ないです お手数をおかけしますが、お分かりの方がいらっしゃれば ご教授をお願い致します 671 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 15:08:19.02 ID:XZra0ySO.net] 全員が同じaccess開くならやめとけ >400人の既読情報を40個のテーブルに分割して >リンクテーブルで負荷を分散させれば実用範囲になるのでしょうか？ そこまで分けなくても テーブル専用mdbと参照専用mdbに分けて 参照専用mdbを400人全員ローカルに置く 参照専用mdbからテーブル専用mdbにリンクするだけでいいんじゃね 672 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 15:25:42.45 ID:JR/sdM0U.net] >>642 そこまで社内セキュリティにうるさい会社で勝手にやっていい範囲のシステムだとも思えんけど >Windows7 この時点で、ライセンス違反の可能性が非常に高い おそらく同時接続制限もかかる フロントエンドはアクセスでもいいけど、どう考えてもバックエンドにまともなDB入れるべき てか利用者４００人のシステムで「同時」書き込み１００とかなかなか行かないけどな たぶんライセンス無視すれば>>643のやり方で行けるだろ ほんとに同時書き込みが１００あるならACCDBみたいなファイル共有型のDBじゃ無謀 673 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 15:58:00.68 ID:TNTuXRka.net] >>643 返信ありがとうございます 「400人全員のローカルに参照専用ファイルを保存する」 ということが社内環境上、難しいです また、参照専用ファイルを修正して差し替える場合に 大変な労力がかかる可能性があるので、可能であれば 参照専用mdbを、共有サーバに配置して 400人で開いてもらい、テーブル専用mdbに対して 入出力する方法が取りたいです 400人で参照専用mdbを開くということは無謀でしょうか？ >>644 返信ありがとうございます ライセンス違反の可能性は考慮していませんでした 調べて見ます 未読状態のものは赤表示にしようと考えている為、 テーブルから未読/既読状態のデータを読み取ることもあります 開いた瞬� 674 名前：ﾔに既読フラグを付けるだけのシンプルな入力なので 確かにおっしゃる通り100人で同時に書き込みがあることは ないですね。恐らく多くて20〜30だと推測します 参照専用mdbからテーブル専用mdbに入出力する場合は 「テーブルリンク機能を使う」ということでしょうか？ 仕事中なので返信が遅くなってしまいます 申し訳ありません [] [ここ壊れてます] 675 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 16:06:47.19 ID:kAiTvQKX.net] 未読とか既読フラグは400人全員が個別に持つんだろ？ だったら400人分mdb持った方が多い日も安心 676 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 16:53:55.47 ID:JR/sdM0U.net] >>646 利用者各々が自分の既読が分かれば良いだけならそれで良いけど 管理者が誰が未読か知りたいとか既読者の一覧出せとかいう要件があると 結局既読フラグは集中管理する方が楽 まあどっちにしてもプログラム用のMDBは各ユーザに配るべきだが 677 名前：デフォルトの名無しさん [2017/01/04(水) 16:58:07.53 ID:ZppiaYb0.net] accessでやる案件じゃないな 678 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 17:01:26.69 ID:JR/sdM0U.net] >400人で参照専用mdbを開くということは無謀でしょうか？ アクセスのDBは基本的にはファイル共有で動作してる 共有サーバどうする気か知らんが、その共有サーバで実際に４００人でファイル同時オープンしてみ それで問題なさそうなら真剣にmdb共有検討してみても良いかもしれん 679 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 17:29:52.12 ID:geFs4Pus.net] >>649 仰る通り、管理者用に作成しようとしているツールです ゆくゆくはアンケートを取るようにして、 400人のユーザの傾向分析などに使おうと思っています > アクセスのDBは基本的にはファイル共有で動作してる ファイル共有で動作している事で、同時に複数人で mdbを開くと負荷が大きくなるということでしょうか？ > 共有サーバどうする気か知らんが、その共有サーバで実際に４００人でファイル同時オープンしてみ この部分が最大のネックで、テストが出来ない環境なんです 680 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:07:33.39 ID:Hrm6AnDP.net] 社内セキュリティで制約厳しいのに　仕事中に2chで相談　　阿呆らし　　アホじゃ無いよ、阿呆だよ 681 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:09:47.67 ID:J+uePkPh.net] 釣りには反応しないことにしている 682 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 04:36:33.99 ID:n6wSBZKS.net] >>650 mdbですよね? データ量にもよりますが同時セッションでせいぜい数人です 同時でないにせよ400人はAccessの要件じゃないです ほぼ確実にmdb壊れますよ 683 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 13:00:18.18 ID:UOU5yV0Y.net] >>653 ありがとうございます 同時にたくさんのユーザで開くことが現実的でないのであれば 下記方法を検討してみようと思います。 ・共有サーバーに起動用mdbを1個。参照用mdbを40個。テーブル専用mdbを7個設置。 ・全ユーザーは起動用mdbからIDによって振り分けられた参照用mdbに移動。 (400人に対して参照用mdb40個なので、 10人単位で参照用mdbを割り当てる) ・各参照用mdbからテーブル専用mdbに入出力を行う (既読フラグの入力。既読状態を読み取って参照用mdbの フォームに既読の表示をする) 684 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 13:07:54.05 ID:2uA+A+xC.net] 人の話を聞かないひとだな 685 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 13:50:12.16 ID:L/jinxrk.net] ヴァージョン管理は何が良いのかな？ 実際に使っている人いますか？ 686 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 13:58:55.25 ID:UOU5yV0Y.net] >>655 人の話を聞いていないように見えたのであれば謝罪します 申し訳ありません Accessで扱うには難しい案件だという事は分かりました その難しい環境下で、どうやったら実現出来るかが知りたいです 687 名前：デフォルトの名無しさん [2017/01/05(木) 14:34:29.15 ID:2uA+A+xC.net] >Accessで扱うには難しい案件だという事は分かりました 論点はそこじゃないよ 688 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 14:57:02.77 ID:YjTG1plI.net] しらんがな 689 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 15:21:53.24 ID:UOU5yV0Y.net] >>658 「人の話を聞かないひとだな」「論点はそこじゃないよ」 論点はどこですか？ 690 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 16:44:07.63 ID:1cxa7M6H.net] >>654 色々アイデアを出されておりますが400人が接続する先は「テーブル専用mdb」ですから 仮に動作したとしてもクエリ1つ投げて戻ってくるのに数十秒かかる、という事態も想定されますよ どうしてもAccessで開発するのであれば バックエンドをSQL Serverなどにして「参照用mdb」を各クライアントに配布する形になります 691 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 19:41:31.33 ID:V7dbykQV.net] ファイルベースだとmdb以前に共有サーバの同時接続数も見積もらないといけないのでは 692 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 23:23:39.16 ID:quCbp6zV.net] 阿呆通り越して馬鹿か いかれてる 到底400人を超える社員を擁する企業の案件とも思えず（担当がこのレベルなんだし） じゃあ何だ？ゲームのなんちゃら？とも思えず、僕ちゃんAccessなら少しはお上手だから それで400人のお年寄りを騙す仕組みを思い付いたから構成教えて！なのか なんなんだ？こいつ　　ひつこいし 693 名前：デフォルトの名無しさん mailto:sage [2017/01/06(金) 08:55:08.12 ID:977IrQIJ.net] >>663 まずは日本語勉強しようね 694 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 10:59:41.54 ID:tUVpbJjX.net] そもそも誰もWin7の同時接続数制限とか突っ込まない件 652除く 695 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 12:33:28.94 ID:0mVP2hZ6.net] 政治には興味ないですし 696 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 16:28:19.18 ID:7mm8hykc.net] >>665 >>644で突っ込まれてるけど？ 697 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 23:15:06.32 ID:tUVpbJjX.net] >>667 ライセンス違反じゃなくて、もともとできんのだよ。動的パッチでも当てないと。またレジストリをいじらないと実際にはその前に限界が来る。 わからないくせに出しゃばるなよ。 698 名前：デフォルトの名無しさん [2017/02/16(木) 10:45:18.11 ID:aBJd2B4P.net] Accessから参照設定なしでExcelを起動し、種々作業を行うPGを作ってます。 その際、Excelの自作関数（Function）が使えんのですが、 良い方法がありましたらご教示お願いします。 699 名前：デフォルトの名無しさん [2017/02/16(木) 11:30:15.28 ID:KUjZVbQE.net] 追記です。 自作関数（Function）は、=SUMのように Excelシート上で使う関数です。 700 名前：デフォルトの名無しさん mailto:sage [2017/02/16(木) 12:08:53.08 ID:1VBkG9E6.net] 参照しろ 701 名前：デフォルトの名無しさん [2017/02/16(木) 12:33:12.55 ID:l4cugFFN.net] 回答ありがとうございます。 いちおう参照設定してのテストも行ってますが、結果は同じでした。 なので困ってます。(；ω；) ちなみに参照設定しないのは、AccessでExcelを扱う際にやっかいとなる、 残プロセスを残さないためです。 702 名前：デフォルトの名無しさん mailto:sage [2017/02/16(木) 13:29:00.95 ID:1VBkG9E6.net] じゃあ再定義しろ 中身はformulaでとって来れるだろ 703 名前：デフォルトの名無しさん mailto:sage [2017/02/16(木) 13:59:57.08 ID:0BcpOJQi.net] >>672 自作関数については分かりませんが > ちなみに参照設定しないのは、AccessでExcelを扱う際にやっかいとなる、 > 残プロセスを残さないためです。 参照設定(事前バインディング)はコンパイル最適化とコーディングをしやすくするのが主な目的です それが原因でプロセスが残る事は考えにくいです(そんな現象は見た事がない) 定番の「Excelオブジェクトを解放しきれていない」が原因ですよ 704 名前：デフォルトの名無しさん mailto:sage [2017/02/16(木) 16:50:59.97 ID:ha+qjoA8.net] えっ?使えるでしょ。 objExcel.WorksheetFunction.Sum(... 705 名前：デフォルトの名無しさん mailto:sage [2017/02/16(木) 16:54:22.22 ID:ha+qjoA8.net] ああ、自作関数だったか。 Application.Runじゃ出来なかったっけ? 706 名前：デフォルトの名無しさん mailto:sage [2017/02/16(木) 17:58:12.26 ID:6ZvAKcv7.net] >>674 その通りなんですが… 参照設定しないのが一番簡単なので。。 みなさまありがとうございました。 自作関数は諦めて、標準の関数でなんとかしました。 記述はかなり冗長になりましたが… 707 名前：デフォルトの名無しさん [2017/03/14(火) 15:44:05.81 ID:xSphHjM7.net] プロシージャ内でSQLを使用する際に、 SELECT [テーブル名].[フィールド名]… みたいな感じで、テーブルオブジェクト全てにカギ括弧をつけてるんですが、 みなさんはどうしてますか？ 708 名前：デフォルトの名無しさん mailto:sage [2017/03/14(火) 15:52:48.60 ID:vbV/Jpv3.net] 付けてるよ 709 名前：デフォルトの名無しさん [2017/03/14(火) 18:46:12.84 ID:hwBjOTV4.net] あざーっす！ 710 名前：デフォルトの名無しさん [2017/03/15(水) 09:24:20.26 ID:5k9Lj/ic.net] カッコなんてつけなくても よくね？ 711 名前：デフォルトの名無しさん mailto:sage [2017/03/15(水) 11:36:01.57 ID:7YWEdixI.net] 構文エラーになるケースを避けるため 712 名前：デフォルトの名無しさん mailto:sage [2017/03/16(木) 15:27:44.93 ID:IvuT2rvG.net] フィールド名に全角英数字を使っている場合にカギ括弧を付けないと構文エラーになる まあ、普通はフィールド名に全角英数は付けないけどね。 713 名前：デフォルトの名無しさん mailto:sage [2017/03/16(木) 23:24:09.16 ID:PNfj678B.net] いまどき、普通に日本語を使えないのかよ 714 名前：デフォルトの名無しさん [2017/03/23(木) 10:28:42.05 ID:5Vz0tz9C.net] お疲れさまです。 DoCmd.RunSQL で、select結果を表示する方法ってあります？ 715 名前：デフォルトの名無しさん mailto:sage [2017/03/23(木) 11:35:43.51 ID:AyyVp0Pm.net] あります 716 名前：デフォルトの名無しさん [2017/03/23(木) 12:21:55.77 ID:sD6rx87L.net] ご教示いただけたら幸いでございます 717 名前：デフォルトの名無しさん mailto:sage [2017/03/23(木) 12:46:28.00 ID:AyyVp0Pm.net] 948 デフォルトの名無しさん sage 2017/03/22(水) 18:27:50.62 vhfzvoEm 少し調べればすぐ分かることなんだから 聞く前にまず自分で調べなよ 949 デフォルトの名無しさん sage 2017/03/22(水) 20:02:01.65 pQEBF+SX >>947 初心者のくせに欲張りだね君は 718 名前：デフォルトの名無しさん mailto:sage [2017/03/23(木) 14:40:42.73 ID:BfWircGx.net] 999 名前:本当にあった怖い名無し＠無断転載は禁止 :2017/03/23(木) 04:44:44.44 ID:7MjKM4Gx0 てめえか？ てめえかよ！え？ その腐った根性！ https://youtu.be/Dd9Xiqoehsc 719 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 10:33:15.33 ID:hesGBEnq.net] >>685 docmdでは無いけどこちらを利用してみてはどうでしょうか？ https://m.chiebukuro.yahoo.co.jp/detail/q1043675165 720 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 10:45:51.14 ID:hesGBEnq.net] ・access2010 ・win7 ・共有サーバ上での利用 ・共有サーバにaccessで作成したスターターファイル.accdbとフロントエンドファイル.accdbがあります ・accessを開くと必ず上部に黄色のバーが表示されて 「コンテンツを有効化してください」が表示されます 上記環境での質問です 1,スターターファイルを開いて、フロントエンドファイルをvbaで共有サーバ上の別のフォルダにファイル名「a.accdb」としてコピー 2.vbaでコピーした「a.accdb」を起動 3.ユーザはマウス操作で「a.accdb」の「コンテンツを有効化」ボタンを押下 3の動作をした際に「a.accdb」が必ず自動で閉じられてしまいます 2回目の起動の際には「コンテンツを有効化してください」が有効になっている為、閉じられることはありません 何が原因で「a.accdb」が自動で閉じられているのでしょうか？ またどうすれば閉じないように処理をすることが出来るのでしょうか？ 恐れ入りますが、ご教示願います 721 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 12:24:07.44 ID:BKaS1p5r.net] フロントエンドは各クライアントに置く 各クライアントにはRuntimeをインスコ その状況なら、いろいろ解説しているサイトがごまんと転がってる 鯖でアプリケーションサーバー機能を持たせてないなら 鯖上のアプリを起動しようとする意図が間違っている スターターは何だか判らん 722 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 13:58:30.12 ID:43/Py1Cq.net] すみません、下記前提が抜けていました ・クライアント側はローカルへのデータ保存不可 ・クライアント端末にruntimeのインストール不可 スターターはクライアントが直接フロントエンドファイルを開かない(占有)しないようにする為のファイルです accessが閉じられてしまう原因が分かりました Sub test() Dim acApp As Access.Application Dim strDBPath As Stri 723 名前：ng strDBPath = "hogehoge\db1.MDB" Set acApp = New Access.Application acApp.OpenCurrentDatabase strDBPath End Sub プロシージャを抜けるとローカル変数の acAppが無効化されてしまう為に accessが閉じられていました グローバル変数としてacAppを宣言することによって 閉じられてしまう事は回避出来たのですが 同じプロシージャ内に「スターターを閉じる」命令を すると、コピーしたファイルまで閉じてしまいます 理想はスターターを起動後、 1.ファイルをコピー 2.コピーしたファイルを開く 3.スターターを閉じる を全て実行出来るようにしたいのですが、accessVBAでは 出来ないのでしょうか？ [] [ここ壊れてます] 724 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 14:35:23.27 ID:AilOqA4r.net] >>693 環境とやりたい事が全く分からん >・クライアント端末にruntimeのインストール不可 当然ACCESSそのものもインストール不可なんだろうな その状態で、スターターやコピーしたaccdbは「誰が」「開く」んだ ふつうaccdbを開くというのはACCESS（ランタイム含む）で開くことだぞ クライアントにACCESS(ランタイム)インストール不可 ローカル（クライアント）にACCDBコピー不可 の環境で、ACCESSで作ったアプリ使おうとか俺なら無理って言って断るけど 725 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 15:33:38.97 ID:fguab9d+.net] バッチファイルなら2行で出来る Copy A B B 726 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 17:40:07.70 ID:Jx2ehMcZ.net] >>695 ありがとうございます 共有サーバ上にバッチファイルを置く事は出来ないので バッチファイルでの対応は検討していなかったんですが accessVBAでクライアントのローカルにバッチファイルを 生成して、それを実行した後にスターターファイル自身を 閉じれば想定通りの動作をするかもしれません！ 727 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 18:40:12.06 ID:AilOqA4r.net] >>696 なあ、そのバッチファイルやVBAはいったいどこで実行する気なんだ？ 728 名前：デフォルトの名無しさん mailto:sage [2017/04/17(月) 22:03:56.60 ID:BKaS1p5r.net] もうリモートでやれよ　後々のメンテ考えてもリモートのが百万倍楽だろ 何十時間費やしてご自慢の構成組み上げても、余人に理解できなきゃ ポンツコアプリに堕するだけ　お前亡き後後輩がハゲあがるわ 今日びのクライアントマシンならストレスも少なくて済む性能持ってるし バッチは置けないけど鯖上でVBAならなんでもござれ　ってのもな シンクライアントなら尚更リモートで発想してやるのが環境にやさしいってもんだ 729 名前：デフォルトの名無しさん mailto:sage [2017/04/18(火) 00:11:18.28 ID:hjZqdERg.net] クライアントに インストールは駄目なのに バッチファイルは置いていい とかwwwwwwwww 730 名前：デフォルトの名無しさん mailto:sage [2017/04/18(火) 18:05:35.01 ID:UkP+KrtI.net] 業務委託契約として顧客に準備された制限の多い 環境下で業務をしています共有サーバも特殊である為、 理解出来ないような仕様が多いです 「別のaccess起動」はshell関数で対応する事で 解決出来ました たくさんのご意見どうもありがとうございました 731 名前：デフォルトの名無しさん mailto:sage [2017/04/18(火) 18:15:43.89 ID:Uw8XacGP.net] はよ逃げ 732 名前：デフォルトの名無しさん mailto:sage [2017/04/19(水) 12:26:18.06 ID:j6KP6NRK.net] クライアントにACCESSインストール不可なのに どこでどうやって「別のaccess起動」を解決できたのかすごく気になる 特殊なサーバってメタフレームとかじゃないだろうな 733 名前：デフォルトの名無しさん mailto:sage [2017/04/19(水) 22:16:46.24 ID:JHVKZFyT.net] インストール不可なのはランタイムだろ 734 名前：デフォルトの名無しさん mailto:sage [2017/04/20(木) 06:20:13.83 ID:1KNeIeUu.net] >>703 これだな 別にクライアントでaccessが使えないとは書いてないし 変な奴が揚げ足とって粘着してるようにしか見えん 735 名前：デフォルトの名無しさん mailto:sage [2017/04/21(金) 11:31:18.08 ID:cjUCDLpJ.net] accessVBAでファイルコピーをするのですが、 テーブルにある数値をコピー先のファイル名としてファイルコピーしたいのですが、 どうすればいいでしょうか？ テーブルには1フィールド1件のレコードしかないようにしています。 736 名前：デフォルトの名無しさん mailto:sage [2017/04/22(土) 01:12:38.74 ID:qUZ+Jwsq.net] コードはどこまで書けたのよ？ 737 名前：デフォルトの名無しさん mailto:sage [2017/05/09(火) 21:18:01.19 ID:4Eh9wDDp.net] レポートにクエリを埋め込んだ場合、フィールド幅とかフォントとかって指定はできませんか？ 738 名前：デフォルトの名無しさん mailto:sage [2017/05/09(火) 22:38:58.26 ID:ho5latp+.net] ひどく難しい質問だが ： 　レポートのソースをクエリにしている、という意味なのか 　　　だとするとその一文は無用なのだが 　レポート上のテキストボックスにクエリのSQL文を埋め込み（貼り付け） 　たいんだが、それぞれ文字数が変わるのでそのテキストボックスの 　フィールド幅とかフォントを自在に変えたいのか 下の意味だとしたら　cf.　www.newsbit.org/vol16/　幅は変わらないけれども Verが2010以上なら　cl.　mukkumuku.blogspot.jp/2013/02/access-2010-2013-anchor-property-2.html　とか 739 名前：デフォルトの名無しさん mailto:sage [2017/05/09(火) 22:42:38.49 ID:ho5latp+.net] なんだよ　cl.　って、こっ恥ずかしい　cf.　confer 【参照】の意味で 740 名前：デフォルトの名無しさん mailto:sage [2017/05/09(火) 23:10:41.56 ID:4Eh9wDDp.net] >>708 残念ながらどっちでもないです。 1枚のレポートの中に複数のクエリの結果を表示させているのだけど、幅サイズ指定どころかフォントすら指定出来なくてこまっているんです。 741 名前：デフォルトの名無しさん mailto:sage [2017/05/09(火) 23:42:18.10 ID:ho5latp+.net] そのクエリの結果をそれぞれ個別にレポートに仕上げる分には フィールド幅とかフォントを固定できるものなのか？ 一つのクエリでならMaxサイズがそれぞれのフィールドで指定できるものなのかを聞いてるんだが それができるなら個別にレポートを作って、最終的に一つのレポートにそれぞれをサブレポートとして 埋め込めば可能だろうが、個別のクエリでもフィールドサイズが都度都度変わるものだとしたら 無理気味な気が　　つか、そこまで可変を重要視するならフォームに表示してそっちで印刷・・ 現物に当たれないからフォームでの仕様は後日確認してみるけど

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef