Access VBA 質問スレ Part2

**デフォルトの名無しさん** · 2018/12/12(水) 22:14:39.18

Access の VBA に関する質問スレです

質問テンプレ(雛形)は用意しませんが、OSとAccessのバージョンぐらいは必ず書きましょう

前回のスレッド
Access VBA 質問スレ Part1
https://mevius.5ch.net/test/read.cgi/tech/1328536426/

**213** · 2021/02/02(火) 11:31:56.15

添付ファイル型データのデータとファイル名取得が出来たので
参考に記載します。ありがとうございました。

http://www.proton.jp/main/windows/access-vba.html
（参考URL）添付ファイル型フィールドのファイルを開くには

コーディング抜粋
----------------------------------------------------------------
Dim　SQL, fileName As String
Dim DB As DAO.Database
Dim RS,RS2 As DAO.Recordset

Set DB = CurrentDb
'なお、下記「フアイル」は「.xlsx」形式のデータ
SQL = "SELECT ファイル FROM テストテーブル where ID = 1 ; "
Set RS = DB.OpenRecordset(SQL)

'「ファイル」データ取得
Set RS2 = RS.Fields(0).Value

'「ファイル」データファイル名称取得
fileName = RS2.Fields("FileName").Value

------------------------------------------------------------------------------------

**デフォルトの名無しさん** · 2021/02/02(火) 14:27:49.60

それ、SQLとRSは無駄にVariantになってないか？

**デフォルトの名無しさん** · 2021/02/04(木) 15:46:42.10

OLEオブジェクト型はどうやってSQL（select 文）で抽出するの？

**デフォルトの名無しさん** · 2021/02/04(木) 20:11:15.64

select文は普通に列名とテーブル指定するだけじゃないのか？
そっからどうやってデータ取得するかはどうやってDBアクセスしてるかによるんじゃね
とりあえずDAOかADOかとバージョンぐらい書け

**デフォルトの名無しさん** · 2021/02/04(木) 20:23:44.53

>>228
ファイルを取得したいと言っていたのに、ファイル内のデータでよかったのか？

**デフォルトの名無しさん** · 2021/02/05(金) 00:26:34.08

VBSでmdbに接続してaddnewしてupdateするだけの簡単なスクリプトの挙動がおかしい｡

sub や Functionにして callすると成功するくせに､subじゃなくて素のスクリプトだと何もしない｡
ちなみに読込みはどっちでも成功する｡
なぜ､addnewのときだけ､プロシジャーである必要があるのだろうか?

**デフォルトの名無しさん** · 2021/02/05(金) 00:34:27.19

vbseditがおかしいらしい｡
適当なディレクトリに保存して実行したら素のスクリプトでも成功した｡
わけわらん｡

**230** · 2021/02/05(金) 10:13:06.16

SELECT文でOLE型のファイル（拡張子.docx）を読み込んで保存しようとしています。
処理を行ったところ、「ファイル『temp.xls』は内容に問題があるため、開けませんでした。」という
メッセージが出ますが、「開いて修復」すれば元のファイルと同じに見えるので
SELECT文で項目だして、書き出すまである程度できているようなんですが、
どこがおかしいのでしょうか、ご意見をいただけたら幸いです。

参考サイト
https://www.moug.net/tech/acvba/0080032.html
画像を読み込む（GetChunkメソッド）

ソース一部抜粋

'OLE型用変数
Dim bytFile() As Byte
Dim nFileNo As Integer
Dim nSize As Long
Dim olename As String

Set DB = CurrentDb
　　　　'項目「OLE型データテスト」抽出のSELECT文の実行
Set rs = DB.OpenRecordset(sqlText)

nSize = rs.Fields("OLE型データテスト").FieldSize
bytFile() = rs.Fields("OLE型データテスト").GetChunk(0, nSize)

nFileNo = FreeFile
Open "C:\Users\testuser\Documents\test.docx" For Binary As #nFileNo
Put #nFileNo, , bytImage()
Close #nFileNo

**デフォルトの名無しさん** · 2021/02/05(金) 13:09:23.30

VBS って、まだシステムで使えるのか？

保守されてる？

**デフォルトの名無しさん** · 2021/02/06(土) 11:30:21.47

bytImage() の中身は docx に直接上書き保存できるものなのか？

**デフォルトの名無しさん** · 2021/02/07(日) 12:21:08.72

>>236
Windows 10そのものがまだ使っています。

**デフォルトの名無しさん** · 2021/02/26(金) 20:55:30.10

AccessからOracleに接続して、テーブル定義を取得しようとした場合、Currentdbにリンクテーブル作成してtabledefで取得するしかないですかね？

**デフォルトの名無しさん** · 2021/02/26(金) 23:30:20.77

>>239
そんな訳ないだろ
お前の頭には無理ってだけだ

**デフォルトの名無しさん** · 2021/02/26(金) 23:38:57.64

>>240
どうやってやっているんですか？
そんなに人に偉そうにいうくらいならお詳しいんですよね？

**デフォルトの名無しさん** · 2021/02/27(土) 00:39:35.09

一応言っとくが、あわしろ氏は権威だぞ。

**デフォルトの名無しさん** · 2021/02/27(土) 03:37:26.48

>>241
だからお前みたいな馬鹿には無理ってだけだ

**デフォルトの名無しさん** · 2021/02/27(土) 09:00:35.16

わからないんだろ？
教えられないのに質問スレでマウント取って
かっこいいね！

**デフォルトの名無しさん** · 2021/02/27(土) 13:52:55.39

馬鹿が聞き出そうとして必死だな
元の質問が、
「しかないですかね？」
だから、
「他にある。馬鹿にはわからないだけ」
これで完結

**デフォルトの名無しさん** · 2021/03/12(金) 04:20:10.68

クライアントPC複数台にコピーしてあるaccdbの更新を自動化したいのですが、上手い方法が有ったらアドバイス下さい。
今は、終了時に更新版があればコピー専用のaccdbを開く、という方法です。
時々コピーに失敗したり、更新後の起動が出来なかったり、なんかスマートに出来ません。

**デフォルトの名無しさん** · 2021/03/12(金) 07:03:59.49

それぞれのPCに共有サーバーでクライアント各々に1つのものを使ってもらえば？

**デフォルトの名無しさん** · 2021/03/12(金) 07:47:36.33

え？

**デフォルトの名無しさん** · 2021/03/12(金) 15:03:23.20

>>247　コメントありがとうございます。

共有フォルダに置いたテーブルだけのバックエンドや、データベースサーバーにテーブルがあり、フロントエンドにリンクして使ってます。
各クライアントのフロントエンドを更新したいのです。
フロントエンドを共有フォルダに置いて皆んなで使うと壊れやすい、50台のクライアント全て閉じてもらわないと更新できないなどの問題があり、現在のかたちで運用しています。

**デフォルトの名無しさん** · 2021/03/12(金) 16:26:24.53

基本的には別ブログラム（Accessでなくてもいい）で上書きしてもらうしかないけど
タスクに登録して再起動してもらうとか

さがせばそれ用のツールとかありそうだけどな

**デフォルトの名無しさん** · 2021/03/12(金) 18:43:58.19

>>250
WSHで一日一回各クライアントで実行する例があったんですが、やってる事は同じなのです。なんかスマートな方法無いのかなあ。
もう少し探してみます。お騒がせしました。

**デフォルトの名無しさん** · 2021/03/17(水) 08:24:13.18

他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
.ボタン_Click
End With
にすると動くのは私だけ?

**デフォルトの名無しさん** · 2021/03/17(水) 08:27:13.40

まちがった.

**デフォルトの名無しさん** · 2021/03/17(水) 08:27:40.08

With Froms!フォーム名

**デフォルトの名無しさん** · 2021/03/17(水) 08:31:05.18

スレ汚しすみません、やり直し。

他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
Call .ボタン_Click
End With
にすると動くのは私だけ?

**デフォルトの名無しさん** · 2021/03/23(火) 22:25:21.29

レポートのテキストボックスが関数を呼び出すことがあるんだけど、それを検索する方法はないですかね？
VBEをいくら検索しても、ある特定のFunctionをCallしているのがなんなのかさっぱりわからなくて途方に暮れた後にレポートのテキストボックスと気づいたときの疲労感は凄かった。
スマートに一発検索する方法ありますか？

**256** · 2021/03/24(水) 19:23:21.05

どうも、ないようなので、for eachループを回して全部テキストにしました。
レポートの全部のコントロールを書き出したら24MBになりました。
コントロールから直接Callするのはお行儀が良くないですね。

**デフォルトの名無しさん** · 2021/03/24(水) 19:53:42.42

DoCmd.PrintOut
同じコードなのに、一方ではちゃんと複数枚印刷して、もう一方では常に1枚しか印刷できない。
ググると似たトラブルが見つかる。バグなんだろうか？ご存じの方いますか？

**デフォルトの名無しさん** · 2021/03/25(木) 18:29:57.87

Access365 Windows10です。

Excel上からVBAでDAOにてAccessのクエリのレコードセットを取得しています。
Access上のクエリで表示されるレコード数と、Excel VBA DAOから取得したクエリのレコードセットのレコードの数が異なり、原因がわかりません。

それぞれのレコード一覧を出力してみると、あるフィールド(IIf(・・・,”対象外”, “督促対象”)としている部分) の値が、Access上のクエリでは「対象外」、Excelから取得したレコードセットでは「督促対象」となっているため、抽出条件が誤認識されてレコード数が異なることに気がつきました。

クエリの他の抽出条件にワイルドカード等を使っていないと思います。

クエリをDAOで取得した場合に、違いが生まれる原因を推測できる方はいらっしゃいませんでしょうか？回避策があればお教えいただけると助かります。

**デフォルトの名無しさん** · 2021/03/26(金) 12:11:20.45

>>259
Accessのテーブルを、Excelからのリンクテーブルにしているものがあるのですが、クエリを開いている状態で、ExcelからDAOでレコードセットを取得すると、テーブルにしているExcelファイルが自動で開かれます。
その状態で取得したレコードセットの内容がおかしいことに気がつきました。

なぜレコードセットの値が異なるのかは、不明なのですが、テーブルにしているブックが開かれているとエラーを出力するようにして、回避しました。

**デフォルトの名無しさん** · 2021/03/26(金) 12:30:39.51

わからん　すまん

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

基本的なことで申し訳ないんだけど
https://www.helpforest.com/access/amv_vba/ac080004.htm
に書いてある開いてるファイルのバックアップとるコードで

strNameCopy = Left(strNameMoto, Len(strNameMoto) - 6) & "_" & Format(Now, "yymmdd") & ".accdb"

ってのがあるんですが Left(strNameMoto, Len(strNameMoto) - 6) の意味がわかりません。なぜ -6 なんでしょうか？
それと、
Format(Now, "yymmdd") だと 210404 になりますが”yy_mmdd_hhmm” としました
ここを 21_0404_17h15m とするにはどうしたらいいですか？
hやmの入れ方がわかりません

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

メッセージボックスは自動で閉じないしWSHもmessageboxtimeoutAもうまくできませんでした
通知の代わりに小さいフォームを0.5秒ほど表示させて閉じたいのですが、どのように記述したらいいですか？

**デフォルトの名無しさん** · 2021/04/04(日) 21:11:55.53

>>262
-6は元ファイル名の".accdb"を取り除いてると予想。
"yy_mmdd_hh""h""nn""m"""で良いかな。
うまく行かない場合はグーグル先生に聞いてみて。

**デフォルトの名無しさん** · 2021/04/04(日) 21:24:13.07

>>263
ちっさいフォームをダイヤログ形式で作成して、タイマーを500m秒に、タイマーイベントで
DoCmd.Close acForm, me.Name
だとどうかな。

**デフォルトの名無しさん** · 2021/04/04(日) 22:50:03.97

>>265
開くのはどうするんですか？

**デフォルトの名無しさん** · 2021/04/04(日) 22:50:34.96

ああこれで開いて閉じるのか

**デフォルトの名無しさん** · 2021/04/04(日) 22:56:05.15

>>264
取り除かないと拡張子が2つになってしまうからですね
そうしないと拡張子が2つついてしまうんですね

**デフォルトの名無しさん** · 2021/04/07(水) 00:28:19.15

レポートの詳細の一番下に線引くのってどうやるの？
フィールドや仕切り線だと線の真ん中が指定位置にくるようで、線の太さ分はみ出てしまう

**デフォルトの名無しさん** · 2021/04/07(水) 05:48:31.03

詳細の最終行終わりにだけ線を引く方法が有るのか、知らんかった。
私はグループフッタの上に線を配置します。

**デフォルトの名無しさん** · 2021/04/07(水) 12:38:41.43

>>269
VBAでEOFでVisible=trueにする

**デフォルトの名無しさん** · 2021/04/07(水) 15:58:13.17

>>271
図形の移動ってこう書くらしいんだけど

Sub TopAndLeftSamp1()
　 Dim Sh As Shape
　 For Each Sh In ActiveSheet.Shapes
　 Sh.Top = Range("B2").Top
　 Sh.Left = Range("B2").Left
　Next Sh
　End Sub

それはどう書くんですか？
太い線でもはみ出ないように一番下にくるんですか？

>>270
終わりにだけ、じゃなくて仕切り線を詳細の高さの最後に、はみ出ないようにおきたいということです

**デフォルトの名無しさん** · 2021/04/07(水) 16:12:27.97

>>272
それExcelじゃん
Accessのレポートの話じゃ無いの?

**デフォルトの名無しさん** · 2021/04/07(水) 23:16:36.79

>>273
ホントだ
ネット検索してコピペしたから間違えた
ACCESSでも似たようなので線書いたことあるんだけど

マウスで一番下にやってもラインの真ん中が一番下にくるみたいで、下半分がかけてしまう

**デフォルトの名無しさん** · 2021/04/08(木) 23:29:31.27

>>269
LINEで描けば自由自在
斜め線も描けるから試してみ
（あまり出番はないけど）

**デフォルトの名無しさん** · 2021/04/09(金) 00:19:55.63

いや韓国製はちょっと……

**デフォルトの名無しさん** · 2021/04/09(金) 04:42:31.41

ACCESSに将来はあるんだろうか
ライバルになるファイルメーカーもコロコロ社名変わってあやしいしもはや大規模事業者に焦点をあててるっぽい

mysqlとWeb系でつくるのがスタンダードになりつつあるの？
軽く勉強しようとしたけどVBA程度の知識じゃわけわからんかったというか何を勉強すればいいのかもよくわからん
sqlにhtml とcssも覚えなきゃならなくて
レポートとかどうやってつくるのかわからんし印刷関係はブラウザに依存するらしい
上記でGUIやレポートまでつくれるのかすらわからない

**デフォルトの名無しさん** · 2021/04/09(金) 22:02:57.20

>>277
将来は分かりませんが代わりのツールは少ないですね
Officeは最低10年間はサポートされるのでスグには無くならないでしょう

たまにweb系の話が出るのはデスクトップアプリかブラウザアプリかの話ですよね
個人的にAccessの代わりにweb系というのは少し飛躍している様にも思えますが
どの基盤を使うかは用途や運用保守のし易さによって決めるものですのでその人次第です

**デフォルトの名無しさん** · 2021/04/10(土) 12:39:36.27

Access全盛期と違って、開発環境やDBが無償で提供されているし
ｈｔｍｌをテキスト出力するだけできれいなレポートも作れる
UIを自分でいじりながらデータ入力していくような人種にはいいんだが希少種だろう

**デフォルトの名無しさん** · 2021/04/10(土) 14:43:14.97

>>279
例えばどうするの？

**デフォルトの名無しさん** · 2021/04/11(日) 09:47:57.70

>>277
Accessはデータベースと言うより帳票ツールだよ
FileMakerはデータベースとしての機能が充実してるがFileMaker使うぐらいならMySQL、PostgreSQLで代替えが効く
どっちかと言うとFileMakerがライセンス料金の高さも有って残らないと思う

**デフォルトの名無しさん** · 2021/04/11(日) 11:30:54.71

FileMakerより(MySQL or PostgreSQL)+Accessで安くデータベース&クライアントシステムを作れると思う

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

データベース部分よりもACCESSのフォームやレポートをつくる機能が貧弱なんだよね

>>282
MySQL or PostgreSQLに以降するのってどの規模になってから？
エクセルの延長線で使うレベルだとACCESSのままでいいですよね？

**デフォルトの名無しさん** · 2021/04/11(日) 21:28:08.72

ファイルメーカーはフォームやレポートの機能がリッチなの?
ファイルメーカーが良いかもよ。

**デフォルトの名無しさん** · 2021/04/11(日) 21:33:55.74

>>284
リッチどころじゃないよ
ACCESSがwin95
FMは10

**デフォルトの名無しさん** · 2021/04/11(日) 22:19:59.40

そりゃファイルメーカーに決まりだね

**デフォルトの名無しさん** · 2021/04/12(月) 10:48:48.79

>>283
>>Excelの延長線上
Access mdbはある一定容量で破綻するからね
Excelで収まってるレベルでもMySQL Community EditionやPostgreSQLに移行した方が無料で使える訳だし
Excel,Access自体ライセンス必要だしライセンスフリーで使えるなら、それに越した事無い

**デフォルトの名無しさん** · 2021/04/12(月) 10:51:16.61

FileMakerのメリットはWebサービス公開がし易いって所だよな
そういう使い方するにしてもLAMPとか使う方が安く簡単にWebサービス開始出来る

**デフォルトの名無しさん** · 2021/04/12(月) 11:40:02.98

>>285
ファイルメーカーの45日無料評価版をインストールして少しいじってみました.
いまさら移行を考える程のメリットは感じられませんでしたが,確かにUIはシンプルで使いやすそうでした.

**デフォルトの名無しさん** · 2021/04/12(月) 12:45:07.60

>>289
>>いまさら移行を考える程のメリットは感じられませんでしたが,確かにUIはシンプルで使いやすそうでした.

それでライセンス料金は高い
あまりメリットが無い

**デフォルトの名無しさん** · 2021/04/12(月) 16:33:34.27

>>287
PostgreSQL使うとして一度設定してればACCESS使う感覚でレポートやクエリをつくれるんですか？

**デフォルトの名無しさん** · 2021/04/12(月) 17:49:57.50

>>291
フロントエンドはAccess利用する
PostgreSQL固有のUIツールは無い

**デフォルトの名無しさん** · 2021/04/12(月) 17:51:00.80

桐にしとけ

**デフォルトの名無しさん** · 2021/04/12(月) 18:18:26.93

>>292
ACCESSをフロントエンドで使う場合、という意味でした

**デフォルトの名無しさん** · 2021/04/12(月) 18:32:01.84

>>294
PostgreSQLのテーブルにAccessからLinkはるだけ
そこでクエリー駆使しながらFormやレポート作れる
FileMakerより安く作れる

**デフォルトの名無しさん** · 2021/04/12(月) 21:43:20.13

>>293
桐の価格を調べてきました
40台で使用するために1,115,400でした
機能がどうとか以前のお話しでした

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

>>292
Accessの外部DBなら親和性の高いSQL Serverが多数だとは思います
Expressなら無料でライセンスも商用OKです
機能面もAccessで扱うDBサイズならお釣りが来ます

あえてPostgreSQLを推す理由を教えて欲しいです
無料以外のメリットはありますか？

**デフォルトの名無しさん** · 2021/04/13(火) 11:23:44.71

>>297
https://rainbow-engine.com/sqlserver-express-limitation/
ケースバイケースだがSQL Server Expressでも良いかも知れませんが
Linuxサーバーとかで稼働させる技術蓄積が少ない
PostgreSQL、MySQLはLinuxサーバーでの技術蓄積が多い
まさかWindowsサーバーでSQL Server Express動かすと思って無いか?
無償で構築したいからね

**デフォルトの名無しさん** · 2021/04/13(火) 13:20:04.54

>>298
Access案件でLinuxサーバー導入はかなりのレアケースだと思います
Linuxに明るい個人ならそれでも良いですが
一般的な企業では運用リスクと保守費用の面から現実的ではないのです
Access案件でその様な提案をしたらほぼ蹴られてしまいます

技術蓄積についてもAccess+PostgreSQLよりAccess+SQL Serverの方が遥かに多いです
そもそもこのスレに相談に来ている方はLinuxサーバーを前提に話していないと思いますよ

**デフォルトの名無しさん** · 2021/04/13(火) 13:32:35.21

>>Access案件でLinuxサーバー導入はかなりのレアケースだと思います
Linuxに明るい個人ならそれでも良いですが
>>一般的な企業では運用リスクと保守費用の面から現実的ではないのです
Access案件でその様な提案をしたらほぼ蹴られてしまいます

.NET COREとか提案したら蹴られるのか?
.NET CORE案件も相当数出てるよ
LinuxサーバーでDB,APサーバー運用するのは今や常套手段でしょ

>>技術蓄積についてもAccess+PostgreSQLよりAccess+SQL Serverの方が遥かに多いです

Windows製品ゆえ多いってだけだと思うよ

>>そもそもこのスレに相談に来ている方はLinuxサーバーを前提に話していないと思いますよ

Accessフロントエンドにした場合、サーバー側がWindowsサーバーしか前提としか無い、てのは狭量以外の何物でも無いと思うよ

**デフォルトの名無しさん** · 2021/04/13(火) 13:46:56.78

Access案件でのサーバーなんて、（是非は別として）テキトーなPCの共有フォルダでのaccdb(mdb)の共有で賄ってるだけなんて珍しくも無かろう

**デフォルトの名無しさん** · 2021/04/13(火) 13:47:53.05

中小企業にWindowsサーバー提案するってコストかかって仕方ない
CALの価格を知らないのかな?
中小企業ほどLinux導入し易いのに

**デフォルトの名無しさん** · 2021/04/13(火) 13:48:51.64

>>301
適当なサーバーだから無償のLinuxで十分

**デフォルトの名無しさん** · 2021/04/13(火) 14:52:00.66

>>300
.NET COREを挙げられてますが、Access案件での話です

Linuxサーバー自体は否定しません
実際Access外案件では昔より増えました

単純にAccessの外部DBにPostgreSQLを推す無料以外のメリットが知りたかっただけです
Linuxサーバーという予想外でしたが

長い間Access開発にも携わっており現実はほぼWindowsなんです
確かにAccessの機能自体は様々なデータソースが扱えますから
その意味では狭量と言われてしまっても仕方ありませんね

**デフォルトの名無しさん** · 2021/04/13(火) 14:55:38.30

>>304
CAL払える企業なら問題は何も無いよ
現実はCALで苦しんでる中小企業が多い
そこを見越して提案出来るかだと思う

**デフォルトの名無しさん** · 2021/04/13(火) 20:50:49.88

サーバーも含めて無料で構築したいだけなのにな
Windowsサーバー使ってCAL払い続けるなんて皆金持ってるんだなw

**デフォルトの名無しさん** · 2021/04/14(水) 06:25:02.05

コピー中のExcelのデータをACCESSにいれるときは、テーブル自体を表示させないとペーストできませんか？

**デフォルトの名無しさん** · 2021/04/14(水) 06:49:23.30

>>307
インポートが簡単です。
コピペは知らん、すまん。

**デフォルトの名無しさん** · 2021/04/14(水) 07:42:09.50

excel vbaでsql叩くのが確実

**デフォルトの名無しさん** · 2021/04/14(水) 08:49:11.55

>>309
初心者なのでイマイチわかりません

**デフォルトの名無しさん** · 2021/04/14(水) 10:15:39.10

>>310
AccessからExcelよりのインポートすれば良い
https://www.crie.co.jp/chokotech/detail/375/

**デフォルトの名無しさん** · 2021/04/14(水) 10:16:31.17

>>310
ExcelデータのインポートをAccessから実行すれば良い

**デフォルトの名無しさん** · 2021/04/14(水) 10:25:33.61

>>310
インポートで出来る

**デフォルトの名無しさん** · 2021/04/14(水) 10:26:17.99

>>310
import

**デフォルトの名無しさん** · 2021/04/14(水) 13:18:00.15

お前ら「コピー中」を無視するなよ

**デフォルトの名無しさん** · 2021/04/14(水) 13:26:51.89

コピー中、なんてもともと出来ないべ

**デフォルトの名無しさん** · 2021/04/14(水) 18:59:43.46

クリップボードのデータを貼り付けるなら手作業をなぞってテーブル開いて新規レコードに位置付けしてペーストすれば良さそう。クリップボード操作するapiサンプルコードが何処かにあったような、すまんまた明日。

**デフォルトの名無しさん** · 2021/04/16(金) 09:00:21.71

試してないよ？
Excelで貼り付けたいテーブルと同じレイアウトのデータをコピーしてある状態で
DoCmd.GoToRecord,,acNewRec
DoCmd.RunCommand acCmdPaste
すると張り付いたりしないかな。

**デフォルトの名無しさん** · 2021/04/17(土) 16:25:08.91

OLEオブジェクトって手動じゃないと挿入できないの?
VBAでの挿入を試みているんだけど､似て非なるオブジェクトが作られてしまう｡プロパティの数が少し少ない変なオブジェクトが作られて困ってる｡
とりあえずレポートにオブジェクトをつくるのはCreateReportControl メソッドを使えばできるんだけど､リンク親フィールド､リンク子フィールド､値集合ソース､値集合タイプがないオブジェクトが作られる｡
そのうえ､OLEタイプが読み取り専用だからOLEの設定が出来ない｡
どうしたらいいのかな?

**デフォルトの名無しさん** · 2021/04/17(土) 17:21:36.76

>>319
VBAプロジェクトでそのOLEオブジェクトを参照追加する必要有る
その前提を整えたらVBAで出来るんじゃ無いのかな
https://teratail.com/questions/279573
Formに画像追加する例

**デフォルトの名無しさん** · 2021/04/17(土) 17:43:49.92

>>320
手動なら非連結オブジェクトフレームを挿入するとオブジェクトの種類のダイアログが出てくるので､そこで種類を選びますね｡
この作業をVBAでやっておけばいいということですね｡
ちょっと読んでみますね｡

**319** · 2021/04/17(土) 21:01:55.24

だめだああ
なにをやってもうまくいかない

**デフォルトの名無しさん** · 2021/05/07(金) 07:32:03.14

いまだにAccess 2.0を所有中

**デフォルトの名無しさん** · 2021/05/07(金) 12:12:51.35

Windows3.1の頃? 95だったかな。

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

ACCESSで在庫管理や備品管理作っても出先でみることができません（Androidスマホなので）
みなさんどうしていますか？
Webシステムを組むほど大きいわけでもないので予算もありません

適宜レポートを作っておきExcelやPDFにしてクラウドにいれとくとかですか？

**デフォルトの名無しさん** · 2021/05/13(木) 04:25:52.50

>>325
お前みたいな馬鹿には無理なだけ

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

あーそうかい‼💢