[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
558: 2016/01/21(木)15:33 ID:zpe1QHZ3(2/2) AAS
これはひどい
559: 2016/01/21(木)18:39 ID:eWUPCZWU(2/3) AAS
>>555
そのテーブルをデザインビューで開いたときに、そのフィールのデータ型は何になってる？
フォームでセットとは具体的にどうやってるんだ？
560: 2016/01/21(木)19:53 ID:dhgW0ru6(1/2) AAS
添付ファイル型っていうのがあってだな云々・・・
561: 2016/01/21(木)20:32 ID:xJzWoKjV(1) AAS
> If RS_写真.Fields("FileName") = "" Then
FileData?
データが入ってたらFileNameとは何を指すのだ
562: 2016/01/21(木)20:50 ID:dhgW0ru6(2/2) AAS
フィールドに複数データが入るんだけど、ファイル名とファイル本体がセットになって入るイメージなんじゃないかな。
>>553 は配列のような捉え方で書いてるんだと思う。
フィールドがnullなのかを見ればいいんだろうけど、ファイル名を指定してそのファイル本体の有無を見たいのかな。
でもそれだとファイル名のみがあってファイル本体がないってことがあり得ることが前提になると思うんだけど。
563(1): 2016/01/21(木)21:21 ID:eWUPCZWU(3/3) AAS
添付ファイル型なら
RS_写真のEOFと(MoveLastしてから)RecordCountみれば、添付されてるファイルの件数はわかる
564: 553 2016/01/22(金)16:35 ID:FxZxO26V(1) AAS
皆様、お返事ありがとうございます。
当該フィールドは「添付ファイル」型です。
「添付ファイル」型の写真フィールドは、下位フィールド？として写真.FileData / 写真.FileName / 写真.FileTypeを持っているため、写真.FileNameの有無でNULLか否かを確認しようとしていました。
>>557 さんと >>563 さんのお陰でNULLか否かはRS_写真のEOFを見れば良いだけと気づき、
何とかやりたい操作ができそうです。
この度はご指摘戴き、誠にありがとうございました。
565: 2016/01/28(木)08:27 ID:cOsSJrMS(1/2) AAS
Access2010のVBAの動作にて質問です。
現在クエリのデータをCSV形式にて出力をするために
DoCmd.TransferText acExportDelim, ,
566(1): 2016/01/28(木)09:02 ID:cOsSJrMS(2/2) AAS
途中で切れてしまったので再度質問させていただきます。
Access2010のVBAの動作にて質問です。
現在クエリのデータをCSV形式にて出力をするために
DoCmd.TransferText acExportDelim, ,"クエリ名","出力先\ファイル名.csv"
と言う文を使っているのですが、クエリの行が複数の場合は1行ごとに出力をしたいのですがどうすればよろしいのでしょうか。
567: 2016/01/28(木)09:25 ID:xQdz3S4b(1) AAS
>>566
連続出力するなら
レコードセット開いてレコード毎に書き出しループ
連続出力しないなら
フォーム上の値を参照するパラメータクエリ作って
DoCmd.TransferTextで書き出し
568(1): 2016/02/01(月)21:40 ID:uqBwC27M(1) AAS
ACCESS VBAでoracleのデータを読み書きする場合は
リンクテーブルを作ってやるのが普通でしょうか?
それともリンクせずに直接ORACLEにアクセスするのがよいでしょうか?
569: 2016/02/01(月)22:12 ID:HIlaIvm8(1) AAS
べつにSQL ServerでもORACLEでも同じだとおもうけど
ケースバイケースとしか言えん
570(1): 2016/02/02(火)09:04 ID:nmsl1byO(1/3) AAS
リンク使わないなら別にAccessじゃなくても良いよね、って回答はダメ？
571(1): 2016/02/02(火)10:25 ID:OPpL3JBW(1/3) AAS
ハマってしまいました、cell とoffsetとloopの関係が解明できません。
エクセルデータから一行ずつhtmlファイルを作成するということをしたいです。
minitemplatorを使っています。
試しに３行でつくってみるとファイル名は変わるのですが、
set変数の箇所が一行目のままかわりません。
↓こんなVBAにしてあります
Private Const START_CELL =
572: 2016/02/02(火)10:28 ID:OPpL3JBW(2/3) AAS
すみません
Private Const START_CELL = "T3"
Public Sub PushButton()
'
Dim Cell As Range
Dim Temp As MiniTemplator
Set Temp = New MiniTemplator
省18
573: 571 2016/02/02(火)10:30 ID:OPpL3JBW(3/3) AAS
申し訳ない！accessの方に書き込んでしまいました、excelの方へ移動いたしますorz
574(1): 2016/02/02(火)15:13 ID:ml14fhOB(1/2) AAS
>>570
メインのDBはSQLServerやACCDBだけど、特定のデータだけ
別DBのORACLEからとって来たいなんて要件だったりしたら
ORACLEにリンクテーブル作るほどでは無かったりするかもしれんだろ
575: 2016/02/02(火)15:27 ID:chGMw9p3(1) AAS
これはひどい
576(1): 2016/02/02(火)17:32 ID:nmsl1byO(2/3) AAS
>>574
質問者の質問内容は>>568ですよ〜
577(1): 2016/02/02(火)19:38 ID:ml14fhOB(2/2) AAS
>>576
何が言いたいのかわからん
リンクテーブルかそれ以外でのアクセスかって質問に対して
ACCCESSならリンクテーブル一択だろ、見たいな事を言うから
そうじゃない状況もあるだろって言ってるんだが
578: 2016/02/02(火)22:01 ID:nmsl1byO(3/3) AAS
>>577
質問者はOracleをAccessから操作する場合はどちらかを聞いている訳で
その状況ならリンクで良いんじゃね、と答えただけ
そこにお宅が勘違いして質問にないSQL Server絡めて否定してきたから
ちゃんと質問内容見ろよ、と返しただけ
579(1): 2016/02/03(水)16:11 ID:/VnwDmrp(1) AAS
両成敗
580(1): 2016/02/04(木)08:30 ID:aSn7db66(1) AAS
>>579
うるせぇよ、顔面男性器
581: 2016/02/04(木)15:29 ID:oKzBZVFr(1) AAS
>>580
うん
582(1): 2016/02/07(日)19:26 ID:PcQYM9su(1) AAS
Accessでエクセルファイル読もうと思ってExcelオブジェクトを作成した時、
既にエクセルを立ち上げているとマクロの挙動がおかしくなったり、
あるいは後からエクセルを立ち上げようとするとマクロが終了するまで画面が白いままなのですが、
これを避けてAccess側のみで扱えるエクセルオブジェクトを作ったり、あるいはエクセルと併用したりという事は出来ないでしょうか？
スプレッドシートのインポートは暗号化の影響で上手くいかないので、エクセルオブジェクトを通す必要があります。
583: 2016/02/08(月)15:38 ID:qbvivMLd(1) AAS
>>582
できるよ
584: 2016/02/08(月)18:15 ID:V9YCd2yR(1) AAS
つか普通にやればそうなってたと思ったけど
CreateObjectって、インスタンスあったらそれ掴んで返すのか？
585(1): 2016/02/10(水)00:18 ID:SmKUXNow(1) AAS
vbaでも知りたいのですが、accessで列見出しを行見出しにするには、どんなコードを書けばいいでしょうか？クロス集計ではできませんでした。
586: 2016/02/10(水)09:07 ID:FkM1RfeE(1) AAS
>>585
行列入替えがしたいっての？それ、データベースのルールに反してる
わけだが。
クロス集計クエリの場合にはデータ元がきちんとクロス集計できる形に
なっていれば、できないということはない。
587(2): 2016/02/22(月)10:46 ID:4/RFA0DI(1/2) AAS
金はあるけど時間がない
経験値100倍くらいになる課金ないんか
588: 2016/02/22(月)10:47 ID:4/RFA0DI(2/2) AAS
すまん
誤爆った
589: 2016/02/22(月)12:20 ID:Y1bHL8fN(1) AAS
>>587
それな
590: 2016/02/22(月)12:21 ID:GAqrdc9h(1) AAS
>>587
あえて、経験値にした辺りに謙虚さがあるな
俺だったら、最初からスキルボックス（中身はランダム）みたいな課金する。
591: 2016/02/22(月)18:37 ID:QLpZ1xcH(1) AAS
うざ
592(1): 2016/02/24(水)23:35 ID:UmTzYcDx(1) AAS
日常的にAccessのピボットテーブルをCtrl+A Ctrl+Cして
Excelに貼り付けてるんですが
これをVBAできませんでしょうか
593(1): 2016/02/25(木)10:52 ID:xnX4JkuY(1) AAS
できますん
594: 2016/02/25(木)13:16 ID:W1s9bb7v(1) AAS
>>592
Googleスプレッドシートは簡単に関数でソレが実現できます。
ちなみに、Accessでは「貼り付ける」行為は出来なくはないです。ただ、オートメーションでやる
ならそういうことになりますが、普通はExcel上でピボットを作成スべきでしょう。
595: 2016/02/25(木)22:25 ID:DG6YFXpT(1) AAS
>>593
もうすこしヒントを
どのオブジェクトプロパティをいじればいいとか
596: 2016/02/26(金)15:13 ID:VQGl6zaq(1) AAS
VBAで
597: 2016/02/26(金)18:31 ID:A3HYqZte(1) AAS
全選択なら単にエクセルにエクスポートすればいいんじゃないの？
598: 2016/03/04(金)22:35 ID:KUnf3VuC(1) AAS
質問 Access2010
突然、フォームのデータシートビューで列を入れ替えてもその状態が保存されないようになってしまいました。
いろいろと原因を調べてみるとOpenやLoadイベントでフィルター設定を行うとそんなトラブルが起こってしまうようなのです。
Private Sub Form_Open(Cancel As Integer)
Me.Filter = "ID>3" '例
Me.FilterOn = True
End Sub
省3
599: 2016/03/24(木)22:15 ID:aSgI1iJJ(1/2) AAS
access 2010
windows7
DoCmd.OutputTo acReport,
600: 2016/03/24(木)22:16 ID:aSgI1iJJ(2/2) AAS
access 2010
windows7
DoCmd.OutputTo acReport, "hoge_table", acFormatXLS, "C:\hoge.xls"
レポートファイルをxlsへ出力するときに
「実行時エラー 2587 出力が完了できません」が
出てきてしまいます。
実行時エラー2587を検索しても情報が出てこない為、
省4
601: 2016/03/25(金)13:31 ID:ctOehyRA(1) AAS
プリンタが変わった レポートの書式が変わった(文字コード系)
再インストールで復帰した というようなresが 英語のフォーラムだけど
手動でエクスポートした場合も同じエラーかどうか
ん？レポートファイルをxlsへ？ "hoge_table" テーブルをxlsへの間違い？
テーブルをｃｓｖ出力してｘｌｓなら？ とかいろいろ
602: 2016/03/25(金)16:30 ID:e4gujGfG(1) AAS
データが増えてリソース不足、ってのが一番考えられる理由だけど
何のリソースかはわからんが
もうちょっと詳細なエラー内容ないのかね
603: 2016/03/25(金)21:03 ID:WqFryHCY(1) AAS
今、先月のhoge_tableをoutoputしたらどうなの
604(1): 2016/04/27(水)21:09 ID:KUAYo6wN(1) AAS
フォーム上でリストボックスを選択すると、その他のテキストボックスに値が入る仕組みってどうやったらできますか？
605(1): 2016/04/27(水)23:03 ID:Sazji9Gw(1) AAS
Me.[その他のテキストボックス] = Me.[リストボックス].Value とか
Me.[その他のテキストボックス] = Me.[リストボックス].Column(n) とかを
リストボックス クリック時イベントに仕込む うろ覚え
606: 2016/04/28(木)01:08 ID:ybePhPhs(1) AAS
>>605
後者の場合で、表示させたデータを別のテーブルに保存させるにはどうすればいいですか？
607: 2016/04/28(木)09:47 ID:wel45o+X(1) AAS
ワークテーブルに入れるなりしてSQLとか追加クエリとか
608: 2016/04/28(木)17:15 ID:iPy/jEF0(1) AAS
>>604
リストボックスのコントロールソースをテキストボックスのコントロールソースにも指定
もしくは
テキストボックスのコントロールソースにリストボックス自身を指定
リストボックスのみ編集可設定
609: 2016/07/12(火)06:40 ID:o2wIdsaQ(1/2) AAS
ExcelのシートからADOでデータ取り込みをやろうとしてます
ルックアップで別のテーブルを参照しているフィールドを持つテーブルにレコードを追加したいのですが
具体的にはExcelシートには都道府県名が文字列で入っていて
Accessのテーブルは都道府県名は別テーブルを参照して数値で持っています
色々試してみたのですが 追加先テーブルの数値型のフィールドには数値しか入力できず
参照している先のテーブルの"東京都"などの文字列データはUpdateでエラーが出ます
（あたりまえでしょうけど）
省1
610(1): 2016/07/12(火)16:15 ID:/KovKhYj(1) AAS
別テーブルを参照して数値を入れる
611: 2016/07/12(火)19:00 ID:o2wIdsaQ(2/2) AAS
>>610
やっぱり それしか無いですかね
何万行もあったから データ入力する度に別テーブルのFindFirstとかやってID見つけるの
コスト凄いかと思ってたんですが
やってみたら それほど時間かからなかったです
612: 2016/07/12(火)21:49 ID:hENPvfBC(1) AAS
都道府県名が入ってるシートって郵便番号のあれですかね
まぁ質問の意味がよくわかんないから無視して結構です
613: 2016/08/24(水)19:34 ID:3q4Jyrt7(1/2) AAS
SQLでテキストデータを取り込む時、ヘッダー行を任意の位置で指定する事は出来ますか？
読み込もうとしているcsvファイルのヘッダー行が3行目なので、この位置から読み込ませたいのです。
色々調べたんですが、外部データベースを取り込む際のキーワードがなかなか出てこず苦戦しています。
614(1): 2016/08/24(水)21:33 ID:XY92uhDq(1) AAS
開始行を含めるか含めないかしかなかった様に思う。
取り込んでしまってからヘッダー行を消すSQL実行したらはやいかも。
615: 2016/08/24(水)22:13 ID:3q4Jyrt7(2/2) AAS
>>614
ありがとうございます。
HDR=Noか、もしくはVBAで処理する様にします。
616: 2016/09/29(木)17:49 ID:Z3hVyFqu(1/3) AAS
SQLで質問ですが、
select * from DATATBL group by NAME
こんな感じで集計させても結果が０になってしまうのですが、書式間違ってますか？
ちなみにC++BuilderからMicrosoft.Jet.OLEDB.4.0でmdbファイル操作してます。
617(2): 2016/09/29(木)18:41 ID:2yQBgN/R(1) AAS
select NAME, COUNT(*) from DATATBL group by NAME
618: 2016/09/29(木)18:55 ID:Z3hVyFqu(2/3) AAS
>>617
返答ありがとうございます。
しかしながら selectでNAMEのみを指定すると項目が足らんみたいなエラーが出てしまいます。
select *, COUNT(*) from DATATBL group by NAME
こうするとエラーは出ませんが、結果はやはり０になってしまいます
619: 2016/09/29(木)19:18 ID:Z3hVyFqu(3/3) AAS
>>617
すみません、他の箇所でエラーが出ていました。
正常にselectする事ができました。ありがとうございました。
620: 2016/09/30(金)11:38 ID:tD6+ktpC(1/2) AAS
またSQLで質問ですが、
DATEでソートしてからNAMEをグループ化したいので
select NAME from (select * from TESTTABLE order by DATE) as group by NAME
上記のようにしたのですが結果が０になってしまいます。
何処が間違ってますか？
621: 2016/09/30(金)11:43 ID:tD6+ktpC(2/2) AAS
あ、as取ったらいけました
622: 2016/09/30(金)13:45 ID:VqVPXDNJ(1) AAS
GROUP BY 後の順序は保証されてなかったと思う
確実にやるならグループ化してからソート
623: 2016/09/30(金)13:59 ID:4mQfWuIk(1) AAS
いいかげんスレチ
624: 2016/10/01(土)18:16 ID:94YBKalt(1/2) AAS
すみませんが教えて下さい。
Access2010でフォームにWebブラウザコントロールを張り、
Me![ScrollInfo].Navigate
625: 2016/10/01(土)18:24 ID:94YBKalt(2/2) AAS
すみませんが教えて下さい。
Access2010でフォームにWebブラウザコントロールを張り、
Me![ScrollInfo].Navigate で正常にページが表示されています。
そのフォームを右クリックでデザインビューに切り替えると以下のエラーが出来ます。
StatusTextChange でエラーが発生しました（以下略）
ちなみに×ボタンで普通に閉じるとこのエラーは発生しません。
Access2016でも同様でした。
省1
626: 2016/11/10(木)12:17 ID:MJMdCBmm(1/2) AAS
sendobjectでレポートをPDFで添付して送ろうとすると
添付されたファイル名が・.pdfになるのは仕様ですかね？
ACCESSとOutlookは2013です
ただAccessのファイルはmdb形式
627: 2016/11/10(木)12:51 ID:dxAJlx69(1/3) AAS
どうしたいの？
628: 2016/11/10(木)13:28 ID:MJMdCBmm(2/2) AAS
添付ファイルが"元となったレポート名".pdfになるのかと思っていたのだけど、違うのかなという疑問
629: 2016/11/10(木)13:29 ID:dxAJlx69(2/3) AAS
それで通じるとかマジで思ってる？
630(1): 2016/11/10(木)14:01 ID:lT3NS9hL(1/2) AAS
通じないか…すまん
Docmd.Sendobjectを使ってレポートをPDFに変換してメール送信したい
実行はできているが、変換されてメールに添付されたファイル名が・.pdfになってしまう。
これがなぜ・になるか知りたい。
レポートのオブジェクト名は・ではない。
日本語名がNGなのか？
631: 2016/11/10(木)14:37 ID:dxAJlx69(3/3) AAS
そう思うなら ASCII のファイル名とか UTF-8 のファイル名試してみれば？
632: 2016/11/10(木)14:38 ID:uCLe8e7d(1) AAS
>>630
MIMEでiso-2022-jpとかにしてみ
633: 2016/11/10(木)20:01 ID:lT3NS9hL(2/2) AAS
レポートの表題がファイル名になることがわかった。
レスくれた方ありがとう。
634(2): 2016/12/28(水)11:38 ID:qa9jiDer(1) AAS
?Eval("'山ー田' Like '*山田*'")
-1
何で？
Win7x64+Acs2010
635: 2016/12/28(水)12:22 ID:JT952dSj(1) AAS
>>634
そりゃ真ん中に入ってるからだと思うが。
636: 2017/01/01(日)18:08 ID:T039qKRQ(1) AAS
-1はTrueだから一致することについて疑問に思ってるのでは
637: 2017/01/01(日)20:32 ID:F1PmU62+(1/2) AAS
>>634
Evalの引数が単なる文字列として認識されてるからかも
?Eval("山ー田" Like "*山田*")
だと期待する結果になる
638: 2017/01/01(日)20:35 ID:F1PmU62+(2/2) AAS
すまん環境書き忘れた
Win10 x64, Access2016 32bit
上下前次1-新書関写板覧索設栞歴
あと 364 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.025s