Access VBA 質問スレ Part1

**デフォルトの名無しさん** · 2012/02/06(月) 22:53:46.88

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
http://toro.2ch.net/test/read.cgi/tech/1327763113/l50

**デフォルトの名無しさん** · 2015/10/25(日) 21:29:15.26

>>450
殆ど消えたも同然の状態。

**デフォルトの名無しさん** · 2015/10/26(月) 20:56:01.66

フォームやレポートの作成が簡単で助かってるんだけど、Accessに匹敵するほどお手軽簡単な開発環境あるのですか？

**デフォルトの名無しさん** · 2015/10/27(火) 02:06:01.33

ない

**デフォルトの名無しさん** · 2015/10/27(火) 06:08:45.26

だから無くなると困るんだよなあ

**デフォルトの名無しさん** · 2015/10/27(火) 08:16:54.33

Filemakerとどっちがいいの
わりとまじで質問

**デフォルトの名無しさん** · 2015/10/27(火) 09:01:30.38

どっちもどっちだろうな。
バックエンドにもよるだろうけど、いつも使ってる方とか得意な方で開発するだろ。
指定があるときはそれに従うだけだから比べなくていい。
FileMakerはiPadなんかで使えるっていうのがウリみたいだけど。

**デフォルトの名無しさん** · 2015/10/27(火) 22:44:31.91

Accessのほうが情報は手に入れやすいんじゃない?

**デフォルトの名無しさん** · 2015/10/28(水) 18:34:43.87

それは言える

**デフォルトの名無しさん** · 2015/10/28(水) 22:29:42.64

結局のところAccessが担当してた部分ってETLツールに置き換えられてきてるってことかな?入力は除いてだけど。

**デフォルトの名無しさん** · 2015/10/29(木) 10:20:50.66

何が結局のところだよ
ETL言いたいだけちゃうんかと
そもそもAccessでビッグデータなんか扱えくぇｒちゅいおｐｓｄｆｇ

**デフォルトの名無しさん** · 2015/10/29(木) 23:09:13.90

>>459
ｈ？

**デフォルトの名無しさん** · 2015/10/29(木) 23:46:52.13

Forguncyに流れちゃった人いる?

**デフォルトの名無しさん** · 2015/10/29(木) 23:50:41.92

>>460
人それぞれだと思うが、おいらの使い方ならビックじゃないデータでもETLは結構いい選択肢だと思たあるよ
定形業務にはいいんじゃないか?

**デフォルトの名無しさん** · 2015/10/30(金) 15:53:29.13

あるレポートが、あるクエリを元に作成されていて、そのクエリのレコード毎に、レポートをPDF出力し、出力先はまた別のクエリのフルパス文字内との元クエリデータとの一致で決めたいのですが、ご教示いただけないでしょうか？

**デフォルトの名無しさん** · 2015/10/30(金) 15:57:13.83

>>464
どこまで出来てて何がわからんのだ？

**デフォルトの名無しさん** · 2015/10/30(金) 19:35:33.54

>>465
レポートをレコード毎にPDF出力して、クエリにあるパスに保存するところ

**デフォルトの名無しさん** · 2015/10/31(土) 02:10:26.31

どこまで出来てるんだ

**デフォルトの名無しさん** · 2015/10/31(土) 03:08:21.25

>>466
「MS-Accessのレポートをページ毎にPDF化する」でググって一番上のページ
そこみて、わからないとこは自分で勉強してくれ

**デフォルトの名無しさん** · 2015/11/01(日) 03:17:03.71

>>466
あのさ、ここはお前の願望を叶えるスレじゃないの。
わからない所を聞く為のスレなわけ。

お前のそれは1機能まるごと作ってここにコード貼れって命令してるに過ぎない。自分でコードもはらずにね。

**デフォルトの名無しさん** · 2015/11/04(水) 20:19:18.57

VBAでSELECT文を作って、Formに渡してRequeryして結果を表示しています。
テキストボックスに表示するテキストデータが途中で切れているという現象がおきました。
別のフォームで同じデータを同じようにテキストボックスに表示させると、全部のデータがきちんと表示されます。
スクロールとかではありません。文字列がぶつっ！と切れて途中までしか表示されないのです。

この現象の原因とかわかる人いますでしょうか？

**デフォルトの名無しさん** · 2015/11/04(水) 21:27:15.64

>>470
なぞなぞかよっ！ｗ
テキストボックスのプロパティを良く見た？

**デフォルトの名無しさん** · 2015/11/05(木) 11:16:36.84

>>470
そおテキストボックスどっかからコピペしてきたと見た

**デフォルトの名無しさん** · 2015/11/05(木) 19:21:36.55

>>471,>>472
表示ができているテキストボックスと同じプロパティです。
でも、１０００件データのうち、１つだけ200文字くらいの文字列なんですが、１００文字くらいの
ところでブツッ！って切れてるんです。
他のデータで同じくらいのサイズの文字列は問題なく表示されています。
SQLが悪いのかと思って、Debug.PrintしてSQLを取り出して、クエリを実行してみると、ちゃんと文字列が全部表示されています。
文字コードかなんかでしょうか？
でも、同じ文字列を別のフォームにあるテキストボックスで表示可能なんです。(ToT)

**デフォルトの名無しさん** · 2015/11/05(木) 19:22:59.62

>>473
同じ方法で出してるの？
ヌル文字ってVBAは関係なかったっけ？

**デフォルトの名無しさん** · 2015/11/05(木) 19:44:01.06

SQLは、違います。
あぁ・・・・その実験やってなかった・・・。
やってから報告します・・・。

**デフォルトの名無しさん** · 2015/11/05(木) 19:53:07.35

VBAの文字列はヌル文字ではターミネートされない
改行とか入って、見えなくなってるだけとかじゃないのか

**デフォルトの名無しさん** · 2015/11/06(金) 09:46:24.95

union
を
union all
にしたら現象がでなくなりました。
(ヽ´ω`)でもクエリデザインから実行するとunionでも普通に表示されるんだよなぁ、、、

**デフォルトの名無しさん** · 2015/11/06(金) 10:26:38.77

>>477
重複業があるんじゃないの？
目視で見てるのは違う行とかないよね。

**デフォルトの名無しさん** · 2015/11/06(金) 12:39:06.37

test

**デフォルトの名無しさん** · 2015/11/06(金) 17:29:52.25

>>478
質疑回答IDも一致してて、単純なSELECTぶんなので、、
超レアなバグなのかなと

**デフォルトの名無しさん** · 2015/11/06(金) 19:16:39.01

メモ型あたりでunionの同一行判定でなんかあるかもしれんけど
どう考えても>>480の勘違いの可能性の方か高いと思うぞ

まあACCESSのバージョンもテーブルの種類もSQLもデータをどうやって表示してるかも書かんような奴の話は
聞くだけ無駄かもしれん

**デフォルトの名無しさん** · 2015/11/06(金) 19:41:20.27

メモ型ってgroup by 出来なかった気がしたのでちょっと調べた
どうも、TEXT型にキャストして判定するみたいだな
なので、255文字目までが同一のメモ型は同一と判定される

distinctで採択されるのがどっちの行かはわからんが
とりあえずメモ型の制限だからメモ型使って値操作するのが悪いと言う結論だな

個人的にはエラーにしてほしいところだし、昔はエラーになってた気がするんだが俺の気のせいだろうか

**デフォルトの名無しさん** · 2015/11/06(金) 19:56:07.21

あと、unionは単純なSQLとは言えんし
はなからunionしてるSQLとテーブルレイアウト出してればもっと解決早かっただろうに
全く同じ現象出てるって書いてるブログあるぞ

**デフォルトの名無しさん** · 2015/11/07(土) 13:41:21.41

あのっ某所でAccessはフロントエンドのみの製品で
RDB自体はOS標準で使えますぜｇｆｆ・・・
みたいな内容見たんだけど
本当なんです？

**デフォルトの名無しさん** · 2015/11/07(土) 16:11:16.86

yes

**デフォルトの名無しさん** · 2015/11/07(土) 17:29:39.50

>>484
んだ。
だから、ExcelがあればVBAで組める人がいるなら、ぶっちゃけいらん。

**デフォルトの名無しさん** · 2015/11/07(土) 17:54:57.33

OSに標準でついてるRDBってなんのこと？？

**デフォルトの名無しさん** · 2015/11/07(土) 18:34:51.46

RDBは付いてないでしょう

**デフォルトの名無しさん** · 2015/11/07(土) 19:25:43.69

ちゅーかVBScriptからもいけるじゃん
後付けコンポーネントってわけでもなさそうだし
Officeいらないのかもしかして

**デフォルトの名無しさん** · 2015/11/07(土) 19:37:37.20

SQLサーバのこといってんの？

**デフォルトの名無しさん** · 2015/11/07(土) 19:39:42.37

>>487-488
>Jetデータベースエンジンとは、Microsoft社が開発したリレーショナルデータベースエンジン。Microsoft Access用に開発されたもので、現在ではWindowsに統合され、様々な製品から利用されている。
だそうですよ

**デフォルトの名無しさん** · 2015/11/07(土) 19:47:42.23

>>491
トン
jetってAccess買わなくてもつかえるんだ。
ランタイムはしってたけど

**デフォルトの名無しさん** · 2015/11/07(土) 20:47:46.88

windowsに統合されたjetの使い方はどうすれば？

**デフォルトの名無しさん** · 2015/11/07(土) 22:03:40.43

レポートをレコードごとに、pdf出力したく
daoで以下のような感じで書いたんだが。
ファイルのフルパスが書いてある別クエリの中のレコードとレポートの項目が合致するレコードのフルパスにpdfを出力したいんだがどうしたらいいのかわからない。

Do Until rs.EOF
DoCmd.OpenReport ～
DoCmd.OutputTo acOutputReport, , acFormatPDF, "ファイルパス.pdf"
DoCmd.Close acReport, レポート名
rs.MoveNext
Loop

**デフォルトの名無しさん** · 2015/11/07(土) 22:57:08.01

SQL書いてそれをレコードセットに入れたら？

**デフォルトの名無しさん** · 2015/11/08(日) 02:11:48.41

JETだけでDB組むとか何の拷問だよ
素直にAccess使え

**デフォルトの名無しさん** · 2015/11/08(日) 12:15:44.95

Pythonで書いても楽

**デフォルトの名無しさん** · 2015/11/08(日) 13:04:28.61

で、Accessって
何に使えばいいの？
(´・ω・｀)

**デフォルトの名無しさん** · 2015/11/08(日) 14:01:11.47

>>498
一人で完結する仕事で面倒臭くて外注する予算もなくてなことを
自動化するのに使ってるよ。だから保守も自分でしかできない（笑）
そんな仕事じゃないか?

**デフォルトの名無しさん** · 2015/11/08(日) 15:13:38.10

社内の統計担当とかそんなポジションの人かな？
社内の簡単な統計ならほんと楽ちん。
Access使えるか使えないかでどえらい作業能力の差が生まれる。

**デフォルトの名無しさん** · 2015/11/08(日) 18:18:56.29

m9 pgr

**デフォルトの名無しさん** · 2015/11/10(火) 21:11:26.36

>>501
それは何？

**デフォルトの名無しさん** · 2015/11/11(水) 13:15:07.58

むきゅー
ぷぎゃー

**sage** · 2015/11/11(水) 19:27:14.97

access2013でフォームからの入力期間の金額を集計してレポート作成をしようとしています。
vbaでリボンにあるレポートボタンを押下した動作と同じコードは存在しますでしょうか。

**デフォルトの名無しさん** · 2015/11/11(水) 20:31:20.16

マクロの操作を記録すれば出てくるでしょ

**デフォルトの名無しさん** · 2015/11/11(水) 22:30:56.87

>>505
ACCESSにマクロの記録は無かったと思ったが
2013とかだと出来るようになってるのか？

**デフォルトの名無しさん** · 2015/11/11(水) 22:51:22.82

無いと思うよ

**デフォルトの名無しさん** · 2015/11/11(水) 22:55:33.44

vba レポートでくぐったがはやいよ。

**デフォルトの名無しさん** · 2015/11/12(木) 04:28:05.37

>>505
は？馬鹿はいちいちスレに出張って来るなよww
何がマクロの操作を記録だ馬鹿が。

**デフォルトの名無しさん** · 2015/11/12(木) 12:35:52.00

普通にフォームと同じソースの「れぽーとほげ」を用意しておいて

DoCmd, OpenReport "れぽーとほげ", acViewPreview
ではダメな理由があるのかな？　フォーム上でレポートに応用できるように画面設計
作り込むよりは専用のレポートで別制作しといたほうが何十倍も効率いいだろうにな

**デフォルトの名無しさん** · 2015/11/12(木) 12:42:12.51

>>504
ちょっと出来ない事があるとVBAに頼るのはよくない。
Officeの使い方をもっと勉強してからVBAに手を出すべきだよ。

「パラメータクエリ」と「フォーム」で作ればなんとかなるかな。
というわけで、VBA必要ないので↑の２つのキーワードでggrks

**511** · 2015/11/12(木) 12:43:58.58

パラメータクエリとレポートでも作れるわ。

**デフォルトの名無しさん** · 2015/11/12(木) 14:18:08.75

フォームからfrom日付-to日付を入力
↓
テーブルから購入日が対象範囲のデータ取得
テーブル構造は
シーケンスno.,氏名,購入品1,購入日1(購入日、購入品は6まで存在)
↓
クロス集計にて月毎の金額を集計
↓
レポートに出力

入力する日付によってフィールド数が可変なため、レポートの作成はしていないです。
vbaを使う必要がなく可変レポートが作成出来るならスルーして下さい

**デフォルトの名無しさん** · 2015/11/12(木) 15:03:31.62

>>513
クエリ作っときゃいいんじゃないの？集計の。
フィールド数が可変とはなんぞ。

**511** · 2015/11/12(木) 16:03:58.58

>>513
テーブルの基本設計からやり直せ。
購入品と購入日が１～６って無いと思います。

**デフォルトの名無しさん** · 2015/11/12(木) 16:36:07.67

>>515
くそなテーブルだと思ってますが自分が作ったテーブルではないので変更出来ません

**511** · 2015/11/12(木) 16:42:28.68

>>516
レポート用にテーブル作っちゃうことはできないの？

**デフォルトの名無しさん** · 2015/11/12(木) 16:43:56.03

>>516
だからクエリ作れよ。
select id,1 as 区分,氏名,購入日1 as 購入日,購入品1 as 購入品
union
select id,2 as 区分,氏名,購入日2 as 購入日,購入品2 as 購入品
:
select id,6 as 区分,氏名,購入日6 as 購入日,購入品6 as 購入品
で、あとはそれに対して、fromToでフィルタ掛ければいいんでないの？

**デフォルトの名無しさん** · 2015/11/12(木) 16:44:59.17

>>514
入力した期間に応じて月が増減します
http://i.imgur.com/gnTtfzv.jpg

集計用のクエリは作成したのでリボンにあるレポートボタン同様に自動でリポート作成出来ないかと思ってます

**デフォルトの名無しさん** · 2015/11/12(木) 16:47:06.72

>>519
帳票一枚に並べられる分の月数を元からつくっとけ。

**デフォルトの名無しさん** · 2015/11/12(木) 17:02:23.22

>>517
くえりをそのままレポートは難しそうだったのでテーブル化はしてあります

**デフォルトの名無しさん** · 2015/11/13(金) 20:45:36.98

複雑になってるクエリが循環参照になってるようなのだが、読み解かずにテーブル作成して逃げようとしたらまたエラーなんとかならんかなー

**デフォルトの名無しさん** · 2015/11/13(金) 20:51:20.52

>>519
クエリ出来てるなら、レポート作って保存しておけば好きなときに開くだけじゃん

**デフォルトの名無しさん** · 2015/11/13(金) 22:14:56.04

vbaでfilecopy(fsoも含む)でリムーバブルディスクにファイルをコピーするとハードウェアの安全な取り外しで
ファイルが使用中とかでできない。まぁ警告のダイアログで続行を押すと取り外せるんだけど、これやると
マイコンピュータからリムーバブルディスクが消えなかったりすることがある。
accessを終了すると普通に取り外せるんだけど、これをなんとかできないかなぁ。

**デフォルトの名無しさん** · 2015/11/14(土) 00:03:58.17

>>524
Fsoでやるなら、
宣言で　as new ...とかしない、最後にNothing入れとくを徹底したら無くなるんじゃないかな。

**デフォルトの名無しさん** · 2015/11/14(土) 00:13:34.12

カレントフォルダとカレントドライブを明示的に
リムーバブルじゃないとこに設定してやれば行ける見たいな事を聞いたことがある

**デフォルトの名無しさん** · 2015/11/14(土) 07:50:49.05

>>524
それ、使用したメソッドがファイル掴んだままで、開放してないからでしょ。ちゃんとプログラミングのイロハ身につけてたらやらない。

使ったら必ず開放する。VBAユーザはなぜか使いっぱなしが多い。

**デフォルトの名無しさん** · 2015/11/14(土) 08:28:36.61

.NETなんかだとマネージドは書いてもほぼ意味なかったりで使いっ放し推奨

**524** · 2015/11/14(土) 10:27:44.88

>>525、527
Dim objFileSys As Object
Set objFileSys = CreateObject("Scripting.FileSystemObject")
objFileSys.CopyFile 元ファイル, コピー先フォルダ & "\"
Set objFileSys = Nothing
copyfileの部分だけをかいつまんで書くとこんな感じだけど、解放の仕方を教えてくれないか。
リムーバブルディスクにコピーしたファイルは開けるし削除もできるからロックされた感じじゃないんだよね。
安全なハードウェアの取り外しだけがうまくいかないんだよ。

**デフォルトの名無しさん** · 2015/11/14(土) 11:01:39.40

getdriveとか適当なのを実行してみたら？
カレントが移動するかも。

**524** · 2015/11/14(土) 12:52:04.15

>>526、530
ありがとう。この方法で解決した。
ChDrive "c"　って1行追加しただけでOKでした。言われないと気付かなかったから助かりました。
他のみなさんもありがとう。

**デフォルトの名無しさん** · 2015/12/06(日) 22:14:00.95

重複した文言の多いcsvファイルの情報を読み込む時に、重複しない文言を蓄えたテーブルと、
文言テーブルのIDだけを入力したテーブルに分けて管理する事で容量を節約しようと思ってるんですが、
人が読める様にIDから元の文言を復元したテーブルを作りたいと思った時、
VBAで文言一つ一つ代入したテーブルを新たに作るしかないですかね？

**デフォルトの名無しさん** · 2015/12/07(月) 01:08:03.51

IDでテーブル結合したview作るなりクエリにすりゃいいんじゃないの
どちらにしろVBAとか関係ないと思う

**デフォルトの名無しさん** · 2015/12/10(木) 11:46:09.31

質問です
Access2007ファイルのショートカットをデスクトップに作ろうと思って

https://www.moug.net/tech/acvba/0020025.html

ここを参考にパスとかだけ変えて作ったんだけど、ショートカットが作成されません
解決策教えてください

**デフォルトの名無しさん** · 2015/12/10(木) 12:16:08.88

うちはできたよ

**534** · 2015/12/11(金) 16:06:56.86

出来ました。

**デフォルトの名無しさん** · 2016/01/04(月) 04:37:40.84

mdbファイルのテーブル構造をADO.NET SqlCommandで取り出す方法を知りたいです。（データ定義言語的な取り出し）
DoCmd.TransferDatabase acExportでできるテーブル構造のコピーと同じことを，ADO.NETで，元データなしで実現（テーブル生成）したり
プログラム側が想定するテーブル構造と一致するか確認する処理をテーブル生成→比較とすることで一般化したりしたいのですが

**デフォルトの名無しさん** · 2016/01/04(月) 18:57:08.11

ADODBEX

**デフォルトの名無しさん** · 2016/01/09(土) 22:01:59.03

Accessでプロマネの仕事頼まれたけど断ったわ
もうVisualStudioが無いと何もできない体になってしまった

**デフォルトの名無しさん** · 2016/01/10(日) 01:26:39.26

プロマネの仕事は開発じゃない、とつっこみ

**デフォルトの名無しさん** · 2016/01/11(月) 08:38:46.37

>>540
そういういかにも日本的で世界で通用しない回答は誰も期待していないし、
君みたいな奴は誰も求めていない。

**デフォルトの名無しさん** · 2016/01/11(月) 17:35:29.30

>>541
君には悲しいかもしれないけど、ここ日本なのよね

**デフォルトの名無しさん** · 2016/01/14(木) 21:12:26.51

テーブルにインポートするとたまに失敗する変なゴミデータが入ったエクセルファイルをVBAでテーブルに登録しようとしてます。1レコード100フィールドほどあるもので、addnewで登録すると100件で20秒ほど掛かってしまいます。
Insertでも23秒でした。
全部で10万件あるのですが、高速登録する方法ないでしょうか？

**デフォルトの名無しさん** · 2016/01/14(木) 22:01:16.12

>>543
配列で受けると速くなるかもしれない
dim ary as variant
ary = Range("A1").CurrentRegion.value ' 1オリジンの2次元配列

**デフォルトの名無しさん** · 2016/01/14(木) 22:04:06.66

ゴミは数式やエラー値が混ざってるんだろうから配列にした段階で適当に変換する
dim row, col
for row = lbound(ary(), 1) to ubound(ary(), 1)
for col= lbound(ary(), 2) to ubound(ary(), 2)
if ゴミ？(ary(row, col)) then ary(row, col) = ゴミ処理(ary(row, col))
next
next
この後でテーブル登録する

**デフォルトの名無しさん** · 2016/01/14(木) 23:52:25.44

>>543
パフォーマンス重視ならレコードセットやExcelオブジェクトは扱わない方が良いですよ
1.インポート定義でインポート
2.リンクテーブルを作って追加クエリ
3.SQL の IN 句使って INSERT
4.OLE DB の Jet か ACE で接続して INSERT
などなど...

ゴミが混ざるならゴミを許容する作業テーブルにインポートしてから後始末をするとか
処理の仕方も色々あると思います、頑張ってください

**デフォルトの名無しさん** · 2016/01/14(木) 23:55:58.95

書き忘れ
インポート定義は文字列切り詰めなどが起きるかもしれないので
使うなら想定しておいた方が良いです

**デフォルトの名無しさん** · 2016/01/15(金) 00:07:44.49

レコード長とかPCのスペックとかもわからんが
コードでもっと早くできる余地がいっぱいある気がするぞ

というか、純粋な追加で時間かかってるのか？
エラーチェックに時間かかってるんじゃないのか

**デフォルトの名無しさん** · 2016/01/17(日) 14:16:21.53

access2013の質問がしたいのですがここでは不可でしょうか？探してもスレが見つからなかったので誘導していただけないでしょうか？

**デフォルトの名無しさん** · 2016/01/17(日) 18:47:14.28

聞くがよい