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/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

聞くがよい

**デフォルトの名無しさん** · 2016/01/18(月) 17:00:22.89

Access総合相談所 27
http://peace.2ch.net/test/read.cgi/bsoft/1424828244/

**デフォルトの名無しさん** · 2016/01/20(水) 21:12:14.20

access 2013での質問です。
テーブルAの構成要素は【id(オートナンバー）、写真（添付ファイルで複数値を持つフィールド）】となっております。

この状態で、テーブルAの任意のIDに写真が入っているか否かを確認したいと考えております。
今のところ
dim RS As DAO.Recordset2
set RS = CurrentDb.OpenRecordset(

**デフォルトの名無しさん** · 2016/01/20(水) 21:13:28.67

すみません、途切れました

set RS = CurrentDb.OpenRecordset("テーブルA")

With RS
.FindFirst "id = ○"
End With

で任意のIDに移動できるのですが、そこから写真フィールドにデータが入っているか否かをどのように確認したら良いかが分かりません。

一応複数値を持つフィールドということから
Dim RS_写真 As DAO.Recordset2
Set RS_写真 = RS.Fields("写真").Value
と代入し、
If RS_写真.Fields("FileName") = "" Then
　MsgBox "hoge"
End If

というように、if分を使ってみたのですが、上手く行きません。

お忙しいところ恐縮ですが、アドバイスを戴けると幸いです。

**デフォルトの名無しさん** · 2016/01/21(木) 00:33:33.20

添付ファイルで複数値を持つフィールドってのがよくわからん
そのフィールドのデータ型と
実際に内容をセットしてるコード出してみ

**デフォルトの名無しさん** · 2016/01/21(木) 07:45:42.44

>>554
お返事ありがとうございます。

TABLEAのフィールド"写真"にデータをセットするのはフォーム上で行っております。

MsgBox TypeName(.Fields("写真"))　で確認をしてみたところ、
Field2 オブジェクト (DAO)
ttps://msdn.microsoft.com/ja-jp/library/office/ff194326.aspx
と返ってきました。

これで伝わりますでしょうか？

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

伝わったが答える気にはならなかった

**デフォルトの名無しさん** · 2016/01/21(木) 13:50:34.34

テーブルAのあるレコードでは【写真】に外部からデータが入っていて，違うレコードでは入っていないから，それを確認したいということ？
RS_写真のeofとbofを調べれば良いだけだと思う．

ttps://msdn.microsoft.com/ja-jp/library/office/ff194326.aspx
ここにサンプルが有るから頑張って

**デフォルトの名無しさん** · 2016/01/21(木) 15:33:43.41

これはひどい

**デフォルトの名無しさん** · 2016/01/21(木) 18:39:11.58

>>555
そのテーブルをデザインビューで開いたときに、そのフィールのデータ型は何になってる？
フォームでセットとは具体的にどうやってるんだ？

**デフォルトの名無しさん** · 2016/01/21(木) 19:53:25.15

添付ファイル型っていうのがあってだな云々・・・

**デフォルトの名無しさん** · 2016/01/21(木) 20:32:40.23

> If RS_写真.Fields("FileName") = "" Then
FileData?
データが入ってたらFileNameとは何を指すのだ

**デフォルトの名無しさん** · 2016/01/21(木) 20:50:12.31

フィールドに複数データが入るんだけど、ファイル名とファイル本体がセットになって入るイメージなんじゃないかな。
>>553 は配列のような捉え方で書いてるんだと思う。
フィールドがnullなのかを見ればいいんだろうけど、ファイル名を指定してそのファイル本体の有無を見たいのかな。
でもそれだとファイル名のみがあってファイル本体がないってことがあり得ることが前提になると思うんだけど。

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

添付ファイル型なら
RS_写真のEOFと(MoveLastしてから)RecordCountみれば、添付されてるファイルの件数はわかる

**553** · 2016/01/22(金) 16:35:45.14

皆様、お返事ありがとうございます。
当該フィールドは「添付ファイル」型です。
「添付ファイル」型の写真フィールドは、下位フィールド？として写真.FileData / 写真.FileName /　写真.FileTypeを持っているため、写真.FileNameの有無でNULLか否かを確認しようとしていました。

>>557 さんと >>563 さんのお陰でNULLか否かはRS_写真のEOFを見れば良いだけと気づき、
何とかやりたい操作ができそうです。

この度はご指摘戴き、誠にありがとうございました。

**デフォルトの名無しさん** · 2016/01/28(木) 08:27:25.34

Access2010のVBAの動作にて質問です。
現在クエリのデータをCSV形式にて出力をするために
DoCmd.TransferText acExportDelim, ,

**デフォルトの名無しさん** · 2016/01/28(木) 09:02:23.84

途中で切れてしまったので再度質問させていただきます。
Access2010のVBAの動作にて質問です。
現在クエリのデータをCSV形式にて出力をするために
DoCmd.TransferText acExportDelim, ,"クエリ名","出力先\ファイル名.csv"
と言う文を使っているのですが、クエリの行が複数の場合は1行ごとに出力をしたいのですがどうすればよろしいのでしょうか。

**デフォルトの名無しさん** · 2016/01/28(木) 09:25:27.95

>>566
連続出力するなら
レコードセット開いてレコード毎に書き出しループ

連続出力しないなら
フォーム上の値を参照するパラメータクエリ作って
DoCmd.TransferTextで書き出し

**デフォルトの名無しさん** · 2016/02/01(月) 21:40:46.53

ACCESS VBAでoracleのデータを読み書きする場合は
リンクテーブルを作ってやるのが普通でしょうか?
それともリンクせずに直接ORACLEにアクセスするのがよいでしょうか?

**デフォルトの名無しさん** · 2016/02/01(月) 22:12:10.32

べつにSQL ServerでもORACLEでも同じだとおもうけど
ケースバイケースとしか言えん

**デフォルトの名無しさん** · 2016/02/02(火) 09:04:52.93

リンク使わないなら別にAccessじゃなくても良いよね、って回答はダメ？