Access VBA 質問スレ Part2 (788ﾚｽ)
上下前次1-新
205: 2021/01/26(火)12:20 ID:pY3ojVqI(1) AAS
ウチの社内の情報システムの制限でwindowsカメラアプリが制限されてるんだけど、VBAで無理矢理動かせないだろうか、、、
いろいろ検索してみても古い情報しかなくて、、
64bit版でも出来るようなプログラムの見本とか有れば助かる。
206(1): 2021/01/26(火)12:31 ID:bIVSUY/u(1) AAS
そんな事してバレたら懲戒処分にならない?
207(1): 2021/01/26(火)21:32 ID:0moyOenU(1) AAS
>>206
少し言い方が悪かったかな。
端末でWEB会議してるから、カメラを使うのは問題無いんだけど、静止画を撮るソフトが入っていないもんで、静止画を撮ってDBと紐づけたいってなると、できなくて。
小規模グループでAccess使ってるから、システムに相談しても本気でかけあってくれなくて、、
それだったらVBAでどうにかならないかと思って。
208: 2021/01/26(火)22:49 ID:5iMVHv+0(1) AAS
>>207
より悪いんだけど
209(1): 204 2021/01/27(水)17:26 ID:Nmg5vWMl(1) AAS
スタンダード受かった（＾ω＾）v
210(1): 2021/01/29(金)13:44 ID:Xkyf+iIu(1) AAS
>>209
もめでとう！
資格は財産！
凄いなスタンダードは
211: 2021/01/29(金)16:32 ID:SG5MocSx(1) AAS
>>210
ありがとう。マイナー資格のせいか、
テキストは悪評にも関わらず他に選択肢ないし、
そのテキストもアプリもやたら高いけど、
一発合格のために全部ちゃんと買ったわー。
212: 2021/01/31(日)10:42 ID:/4jghnKY(1) AAS
VB自体マイナーよりなのがね。。。
参考書の著者は名のある人(武藤玄さん？)だから安心でしょ
213(1): 2021/02/01(月)19:30 ID:JChayj2G(1) AAS
「課題テーブル」 の項目「ファイル：添付ファイル型（拡張子は.xlsx）」をSQLで取得して(1)、
そのファイル名を変更して保存(2)しようと思っています。
(2)の処理は問題ないのですが、肝心な（1）の処理が分かりません
SQLだと以下のような感じかと思うですが、これだと、「ファイル」の名称も取得すらできないようです。
なにかしらヒントをいただけないでしょうか。
検索にヒットするようなキーワードでもかまいません。
よろしくお願いいたします。
省1
214(1): 2021/02/01(月)20:47 ID:g0s2XOHS(1/2) AAS
ファイルを取り出したいのか、ファイル名を変えたいだけなのか、何がしたいのかがわからない。
215: 2021/02/01(月)20:48 ID:g0s2XOHS(2/2) AAS
ファイルをSELECTするとファイルが出てくるというのは奇妙な発想だな
216: 2021/02/01(月)20:52 ID:1CLvOTQ1(1/4) AAS
>>214
ファイルを取り出したいんだけど、
SQLでなくクエリーでやるべきなの？
先日Access始めたから見様見真似。
添付ファイルを取得すれば、renameして保存するところはわかるんだけど。
217: 2021/02/01(月)20:58 ID:90ziZ1xl(1/6) AAS
エクセルファイルはAccessには入ってないだろ
フォルダから取り出すのか？
218: 2021/02/01(月)20:59 ID:90ziZ1xl(2/6) AAS
何がしたいのかマジで分からんｗ
219: 2021/02/01(月)20:59 ID:1CLvOTQ1(2/4) AAS
Accessのテーブルの添付ファイル型の項目に入っている
220: 2021/02/01(月)21:01 ID:90ziZ1xl(3/6) AAS
そのアドレスをエクセルで開いてリネーム保存すればいいじゃん
221(1): 2021/02/01(月)21:03 ID:90ziZ1xl(4/6) AAS
Dim MyExcel As New Excel.Application
とか使って
222: 2021/02/01(月)21:12 ID:1CLvOTQ1(3/4) AAS
>>221
それ使ってるんですけど添付ファイル型ってchar型とかと同じように扱えれるんですかね、
よろしければもう少しヒントを。
223(1): 2021/02/01(月)21:22 ID:1CLvOTQ1(4/4) AAS
ファイルをディスクのどこかに保存するのは、SaveToFile メソッドですかね？
なんか使えそうに思うけどいかがですか？
224: 2021/02/01(月)21:43 ID:FgW8bRhe(1) AAS
そんな新しいAccessなんて持ってないから知らん
225: 2021/02/01(月)21:44 ID:90ziZ1xl(5/6) AAS
外部ﾘﾝｸ[html]:oshiete.goo.ne.jp
添付ファイル型はレコードセットになっていて
その中のフィールドのひとつ（3つ目。つまりF(2)）がファイルネームになっていて、
それを取得する。らしい。
226: 2021/02/01(月)21:45 ID:90ziZ1xl(6/6) AAS
>>223
普通にSaveAsじゃあかんの？
227: 2021/02/01(月)21:48 ID:c76bdQcs(1) AAS
ありがとうございます。
少しヒントが得られたかも。
明日試してみます。
228(1): 213 2021/02/02(火)11:31 ID:UTRQGX0/(1) AAS
添付ファイル型データのデータとファイル名取得が出来たので
参考に記載します。ありがとうございました。
外部ﾘﾝｸ[html]:www.proton.jp
（参考URL）添付ファイル型フィールドのファイルを開くには
コーディング抜粋
----------------------------------------------------------------
Dim SQL, fileName As String
省11
229: 2021/02/02(火)14:27 ID:CQc47MX2(1) AAS
それ、SQLとRSは無駄にVariantになってないか？
230(1): 2021/02/04(木)15:46 ID:QbGo6q9b(1) AAS
OLEオブジェクト型はどうやってSQL（select 文）で抽出するの？
231: 2021/02/04(木)20:11 ID:XRB3PpKu(1) AAS
select文は普通に列名とテーブル指定するだけじゃないのか？
そっからどうやってデータ取得するかはどうやってDBアクセスしてるかによるんじゃね
とりあえずDAOかADOかとバージョンぐらい書け
232: 2021/02/04(木)20:23 ID:w6PAg1HV(1) AAS
>>228
ファイルを取得したいと言っていたのに、ファイル内のデータでよかったのか？
233: 2021/02/05(金)00:26 ID:OHtcWSU6(1/2) AAS
VBSでmdbに接続してaddnewしてupdateするだけの簡単なスクリプトの挙動がおかしい｡
sub や Functionにして callすると成功するくせに､subじゃなくて素のスクリプトだと何もしない｡
ちなみに読込みはどっちでも成功する｡
なぜ､addnewのときだけ､プロシジャーである必要があるのだろうか?
234: 2021/02/05(金)00:34 ID:OHtcWSU6(2/2) AAS
vbseditがおかしいらしい｡
適当なディレクトリに保存して実行したら素のスクリプトでも成功した｡
わけわらん｡
235: 230 2021/02/05(金)10:13 ID:s99X7duh(1) AAS
SELECT文でOLE型のファイル（拡張子.docx）を読み込んで保存しようとしています。
処理を行ったところ、「ファイル『temp.xls』は内容に問題があるため、開けませんでした。」という
メッセージが出ますが、「開いて修復」すれば元のファイルと同じに見えるので
SELECT文で項目だして、書き出すまである程度できているようなんですが、
どこがおかしいのでしょうか、ご意見をいただけたら幸いです。
参考サイト
外部ﾘﾝｸ[html]:www.moug.net
省16
236(1): 2021/02/05(金)13:09 ID:7kBPI4G7(1) AAS
VBS って、まだシステムで使えるのか？
保守されてる？
237: 2021/02/06(土)11:30 ID:PohEB++t(1) AAS
bytImage() の中身は docx に直接上書き保存できるものなのか？
238: 2021/02/07(日)12:21 ID:EDRo6Y49(1) AAS
>>236
Windows 10そのものがまだ使っています。
239(1): 2021/02/26(金)20:55 ID:BHdQltm/(1) AAS
AccessからOracleに接続して、テーブル定義を取得しようとした場合、Currentdbにリンクテーブル作成してtabledefで取得するしかないですかね？
240(1): 2021/02/26(金)23:30 ID:aSS4VuLP(1) AAS
>>239
そんな訳ないだろ
お前の頭には無理ってだけだ
241(1): 2021/02/26(金)23:38 ID:JyNwBwDQ(1) AAS
>>240
どうやってやっているんですか？
そんなに人に偉そうにいうくらいならお詳しいんですよね？
242: 2021/02/27(土)00:39 ID:lzDnqtNz(1) AAS
一応言っとくが、あわしろ氏は権威だぞ。
243: 2021/02/27(土)03:37 ID:oWYDZ6ol(1/2) AAS
>>241
だからお前みたいな馬鹿には無理ってだけだ
244: 2021/02/27(土)09:00 ID:kkUl7IkZ(1) AAS
わからないんだろ？
教えられないのに質問スレでマウント取って
かっこいいね！
245: 2021/02/27(土)13:52 ID:oWYDZ6ol(2/2) AAS
馬鹿が聞き出そうとして必死だな
元の質問が、
「しかないですかね？」
だから、
「他にある。馬鹿にはわからないだけ」
これで完結
246: 2021/03/12(金)04:20 ID:U5Mc6cIw(1) AAS
クライアントPC複数台にコピーしてあるaccdbの更新を自動化したいのですが、上手い方法が有ったらアドバイス下さい。
今は、終了時に更新版があればコピー専用のaccdbを開く、という方法です。
時々コピーに失敗したり、更新後の起動が出来なかったり、なんかスマートに出来ません。
247(1): 2021/03/12(金)07:03 ID:bg4PRHHU(1) AAS
それぞれのPCに共有サーバーでクライアント各々に1つのものを使ってもらえば？
248: 2021/03/12(金)07:47 ID:vZYfq0zb(1) AAS
え？
249: 2021/03/12(金)15:03 ID:6lWZMdzy(1/2) AAS
>>247 コメントありがとうございます。
共有フォルダに置いたテーブルだけのバックエンドや、データベースサーバーにテーブルがあり、フロントエンドにリンクして使ってます。
各クライアントのフロントエンドを更新したいのです。
フロントエンドを共有フォルダに置いて皆んなで使うと壊れやすい、50台のクライアント全て閉じてもらわないと更新できないなどの問題があり、現在のかたちで運用しています。
250(1): 2021/03/12(金)16:26 ID:ZUwUvURf(1) AAS
基本的には別ブログラム（Accessでなくてもいい）で上書きしてもらうしかないけど
タスクに登録して再起動してもらうとか
さがせばそれ用のツールとかありそうだけどな
251: 2021/03/12(金)18:43 ID:6lWZMdzy(2/2) AAS
>>250
WSHで一日一回各クライアントで実行する例があったんですが、やってる事は同じなのです。なんかスマートな方法無いのかなあ。
もう少し探してみます。お騒がせしました。
252: 2021/03/17(水)08:24 ID:o9MkZCaQ(1/4) AAS
他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
.ボタン_Click
End With
にすると動くのは私だけ?
253: 2021/03/17(水)08:27 ID:o9MkZCaQ(2/4) AAS
まちがった.
254: 2021/03/17(水)08:27 ID:o9MkZCaQ(3/4) AAS
With Froms!フォーム名
255: 2021/03/17(水)08:31 ID:o9MkZCaQ(4/4) AAS
スレ汚しすみません、やり直し。
他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
Call .ボタン_Click
End With
省1
256(1): 2021/03/23(火)22:25 ID:OYDSqGqD(1) AAS
レポートのテキストボックスが関数を呼び出すことがあるんだけど、それを検索する方法はないですかね？
VBEをいくら検索しても、ある特定のFunctionをCallしているのがなんなのかさっぱりわからなくて途方に暮れた後にレポートのテキストボックスと気づいたときの疲労感は凄かった。
スマートに一発検索する方法ありますか？
257: 256 2021/03/24(水)19:23 ID:Oy88L6kY(1/2) AAS
どうも、ないようなので、for eachループを回して全部テキストにしました。
レポートの全部のコントロールを書き出したら24MBになりました。
コントロールから直接Callするのはお行儀が良くないですね。
258: 2021/03/24(水)19:53 ID:Oy88L6kY(2/2) AAS
DoCmd.PrintOut
同じコードなのに、一方ではちゃんと複数枚印刷して、もう一方では常に1枚しか印刷できない。
ググると似たトラブルが見つかる。バグなんだろうか？ご存じの方いますか？
259(1): 2021/03/25(木)18:29 ID:25o3kYjY(1) AAS
Access365 Windows10です。
Excel上からVBAでDAOにてAccessのクエリのレコードセットを取得しています。
Access上のクエリで表示されるレコード数と、Excel VBA DAOから取得したクエリのレコードセットのレコードの数が異なり、原因がわかりません。
それぞれのレコード一覧を出力してみると、あるフィールド(IIf(・・・,”対象外”, “督促対象”)としている部分) の値が、Access上のクエリでは「対象外」、Excelから取得したレコードセットでは「督促対象」となっているため、抽出条件が誤認識されてレコード数が異なることに気がつきました。
クエリの他の抽出条件にワイルドカード等を使っていないと思います。
クエリをDAOで取得した場合に、違いが生まれる原因を推測できる方はいらっしゃいませんでしょうか？ 回避策があればお教えいただけると助かります。
260: 2021/03/26(金)12:11 ID:x01Nq0VC(1) AAS
>>259
Accessのテーブルを、Excelからのリンクテーブルにしているものがあるのですが、クエリを開いている状態で、ExcelからDAOでレコードセットを取得すると、テーブルにしているExcelファイルが自動で開かれます。
その状態で取得したレコードセットの内容がおかしいことに気がつきました。
なぜレコードセットの値が異なるのかは、不明なのですが、テーブルにしているブックが開かれているとエラーを出力するようにして、回避しました。
261: 2021/03/26(金)12:30 ID:9TlDuTMy(1) AAS
わからん すまん
262(1): 2021/04/04(日)17:14 ID:gjYxCKFw(1/4) AAS
基本的なことで申し訳ないんだけど
外部ﾘﾝｸ[htm]:www.helpforest.com
に書いてある開いてるファイルのバックアップとるコードで
strNameCopy = Left(strNameMoto, Len(strNameMoto) - 6) & "_" & Format(Now, "yymmdd") & ".accdb"
ってのがあるんですが Left(strNameMoto, Len(strNameMoto) - 6) の意味がわかりません。なぜ -6 なんでしょうか？
それと、
Format(Now, "yymmdd") だと 210404 になりますが”yy_mmdd_hhmm” としました
省2
263(1): 2021/04/04(日)17:38 ID:26lFIPnO(1) AAS
メッセージボックスは自動で閉じないしWSHもmessageboxtimeoutAもうまくできませんでした
通知の代わりに小さいフォームを0.5秒ほど表示させて閉じたいのですが、どのように記述したらいいですか？
264(1): 2021/04/04(日)21:11 ID:3M5QmD23(1/2) AAS
>>262
-6は元ファイル名の".accdb"を取り除いてると予想。
"yy_mmdd_hh""h""nn""m"""で良いかな。
うまく行かない場合はグーグル先生に聞いてみて。
265(1): 2021/04/04(日)21:24 ID:3M5QmD23(2/2) AAS
>>263
ちっさいフォームをダイヤログ形式で作成して、タイマーを500m秒に、タイマーイベントで
DoCmd.Close acForm, me.Name
だとどうかな。
266: 2021/04/04(日)22:50 ID:gjYxCKFw(2/4) AAS
>>265
開くのはどうするんですか？
267: 2021/04/04(日)22:50 ID:gjYxCKFw(3/4) AAS
ああこれで開いて閉じるのか
268: 2021/04/04(日)22:56 ID:gjYxCKFw(4/4) AAS
>>264
取り除かないと拡張子が2つになってしまうからですね
そうしないと拡張子が2つついてしまうんですね
269(2): 2021/04/07(水)00:28 ID:rJDYR4sC(1/3) AAS
レポートの詳細の一番下に線引くのってどうやるの？
フィールドや仕切り線だと線の真ん中が指定位置にくるようで、線の太さ分はみ出てしまう
270(1): 2021/04/07(水)05:48 ID:Vznju2ao(1) AAS
詳細の最終行終わりにだけ線を引く方法が有るのか、知らんかった。
私はグループフッタの上に線を配置します。
271(1): 2021/04/07(水)12:38 ID:RzHskyO4(1) AAS
>>269
VBAでEOFでVisible=trueにする
272(1): 2021/04/07(水)15:58 ID:rJDYR4sC(2/3) AAS
>>271
図形の移動ってこう書くらしいんだけど
Sub TopAndLeftSamp1()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
Sh.Top = Range("B2").Top
Sh.Left = Range("B2").Left
省6
273(1): 2021/04/07(水)16:12 ID:bHi8pMA7(1) AAS
>>272
それExcelじゃん
Accessのレポートの話じゃ無いの?
274: 2021/04/07(水)23:16 ID:rJDYR4sC(3/3) AAS
>>273
ホントだ
ネット検索してコピペしたから間違えた
ACCESSでも似たようなので線書いたことあるんだけど
マウスで一番下にやってもラインの真ん中が一番下にくるみたいで、下半分がかけてしまう
275: 2021/04/08(木)23:29 ID:JQVqmXIG(1) AAS
>>269
LINEで描けば自由自在
斜め線も描けるから試してみ
（あまり出番はないけど）
276: 2021/04/09(金)00:19 ID:Gteazii/(1) AAS
いや韓国製はちょっと……
277(2): 2021/04/09(金)04:42 ID:qNVyDJXN(1) AAS
ACCESSに将来はあるんだろうか
ライバルになるファイルメーカーもコロコロ社名変わってあやしいしもはや大規模事業者に焦点をあててるっぽい
mysqlとWeb系でつくるのがスタンダードになりつつあるの？
軽く勉強しようとしたけどVBA程度の知識じゃわけわからんかったというか何を勉強すればいいのかもよくわからん
sqlにhtml とcssも覚えなきゃならなくて
レポートとかどうやってつくるのかわからんし印刷関係はブラウザに依存するらしい
上記でGUIやレポートまでつくれるのかすらわからない
278: 2021/04/09(金)22:02 ID:p4gVUybA(1) AAS
>>277
将来は分かりませんが代わりのツールは少ないですね
Officeは最低10年間はサポートされるのでスグには無くならないでしょう
たまにweb系の話が出るのはデスクトップアプリかブラウザアプリかの話ですよね
個人的にAccessの代わりにweb系というのは少し飛躍している様にも思えますが
どの基盤を使うかは用途や運用保守のし易さによって決めるものですのでその人次第です
279(1): 2021/04/10(土)12:39 ID:UMFLPSSB(1) AAS
Access全盛期と違って、開発環境やDBが無償で提供されているし
ｈｔｍｌをテキスト出力するだけできれいなレポートも作れる
UIを自分でいじりながらデータ入力していくような人種にはいいんだが希少種だろう
280: 2021/04/10(土)14:43 ID:UjDtjnXq(1) AAS
>>279
例えばどうするの？
281: 2021/04/11(日)09:47 ID:5s7yLoxe(1/2) AAS
>>277
Accessはデータベースと言うより帳票ツールだよ
FileMakerはデータベースとしての機能が充実してるがFileMaker使うぐらいならMySQL、PostgreSQLで代替えが効く
どっちかと言うとFileMakerがライセンス料金の高さも有って残らないと思う
282(1): 2021/04/11(日)11:30 ID:5s7yLoxe(2/2) AAS
FileMakerより(MySQL or PostgreSQL)+Accessで安くデータベース&クライアントシステムを作れると思う
283(1): 2021/04/11(日)17:50 ID:X3jcs1bB(1/2) AAS
データベース部分よりもACCESSのフォームやレポートをつくる機能が貧弱なんだよね
>>282
MySQL or PostgreSQLに以降するのってどの規模になってから？
エクセルの延長線で使うレベルだとACCESSのままでいいですよね？
284(1): 2021/04/11(日)21:28 ID:Zjk0ZDQj(1/2) AAS
ファイルメーカーはフォームやレポートの機能がリッチなの?
ファイルメーカーが良いかもよ。
285(1): 2021/04/11(日)21:33 ID:X3jcs1bB(2/2) AAS
>>284
リッチどころじゃないよ
ACCESSがwin95
FMは10
上下前次1-新書関写板覧索設栞歴
あと 503 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.028s