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

**デフォルトの名無しさん** · 2018/08/30(木) 14:29:11.04

>>937
acForm=2なので、acFormじゃなく直接2を指定してみると上手く行くかも

DoCmd.Close 2, "フォーム名"
↑でやってみて

**デフォルトの名無しさん** · 2018/08/30(木) 16:02:05.01

>>938さん、939さん
ありがとうございます。
939さんの方法でいけました。
ありがとうございますm(_ _)m
番号で指定する方法があったのですね。
感謝です。

**デフォルトの名無しさん** · 2018/08/30(木) 23:00:19.83

Access.AcObjectType.acForm が 2

**デフォルトの名無しさん** · 2018/09/13(木) 01:52:34.58

アホな質問ですまん。
クエリの中でクエリを複数使うクエリを作成したんだけど、これをSQLに書き直すときにエイリアスを使いたいんだけど、クエリに対するエイリアスは使えるのかな？テーブルだけかな？
実験した感じではダメそうなんだけど、どうですか？

**デフォルトの名無しさん** · 2018/09/13(木) 03:14:29.75

>>942
普通に使えるはずだが
AS付けてないとか

**デフォルトの名無しさん** · 2018/09/13(木) 03:15:45.30

DAO経由じゃないとだめだったかも

**デフォルトの名無しさん** · 2018/09/13(木) 12:56:01.88

>>942
普通に出来るはずだぞ
どういう状況でダメになってるんだ？

**デフォルトの名無しさん** · 2018/09/13(木) 13:07:05.55

>>942
サブクエリの話だよな？
自作ツールで確認したがASで普通にできてたぞ

**デフォルトの名無しさん** · 2018/09/14(金) 08:17:56.50

たぶん、サブクエリじゃなくて作成済みのクエリをSQL内部のFROM句やJOIN句にテーブルのように使う時にエイリアスを使いたいという話だと思うんだが、それでも普通に使えると思う。

**942** · 2018/09/14(金) 11:04:12.59

みんな、ごめん。使えました。
おいらがSQLビューで書くときに、どっか間違えたみたい。
クエリのエイリアスも使えるし、サブクエリでネストも出来るし、accessって凄いね。糞長いSQLを書きたくなるね。
問題は余計な括弧がいっぱいくっつくところだよね。

**デフォルトの名無しさん** · 2018/09/14(金) 12:54:33.03

またまたくだらない質問です．
UPDATEで苦労していますが，https://www.ipentec.com/document/sql-multi-record-update　に書いてある
update working set value=price from products where working.name = products.name
だとエラーが出ます．試行錯誤して成功したのは
UPDATE working, products SET working.[value] = [products].[price]
WHERE (((working.name)=[products].[name]));
でした．UPDATEの述語に参照するだけのproductテーブルが書いてあるのが不可解ですね．
なんで，こんな変な書き方をするのか分かる人いますか？

**デフォルトの名無しさん** · 2018/09/14(金) 13:41:49.29

fromが無いから

**デフォルトの名無しさん** · 2018/09/14(金) 15:43:10.38

>>950
FROMを書きました．下のようにしました．でも，演算子がありませんと怒られます．

UPDATE [working],[products]
SET [working].[value] = [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name]));

**デフォルトの名無しさん** · 2018/09/14(金) 15:43:55.27

これも同じように怒られます．

UPDATE [working]
SET [working].[value] = [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name]));

**デフォルトの名無しさん** · 2018/09/14(金) 18:33:15.77

それだと[products].[price]の後が何だか分からん。

[products].[price]を求めるSQLをそのまま書くかJOIN使った方が良い。

UPDATE [working]
SET [working].[value] = (SELECT [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name])));

UPDATE [working]
INNER JOIN [products]
ON [working].[name]=[products].[name]
SET [working].[value] = [products].[price];

スマホからテキトーに書いてるので間違ってたらスマン。

**デフォルトの名無しさん** · 2018/09/14(金) 20:41:59.46

>>953
上のは，更新可能なクエリであることが必要です　と怒られました．
下のは成功です．ありがとうございます．

FROMを記載したコードでは出来ないというのが興味深いですね．
クエリーと一般のSQLではコードを処理する方法がかが違うんですかね？
聞きかじりですが，オプティマイザとか実行計画とか言う奴ですかね？

次はクエリを参照するUPDATEを書かないといけないのですが，テーブルならOKでクエリでは怒られるんですよね．
http://www.10days.org/diary/20090705.htmlとかその他いろいろヒットしますが，VBAからSQLを発行したら出来るんですかね？
とりあえず実験します．

**デフォルトの名無しさん** · 2018/09/14(金) 21:06:57.90

>>951
横入だがAccessがUPDATEでのFROMを
サポートしていないという意味での「FROMがないから」
じゃないの？

**デフォルトの名無しさん** · 2018/09/14(金) 21:11:41.20

>>954
確かAccessはUPDATEでFROMは使えないぞ

**デフォルトの名無しさん** · 2018/09/14(金) 21:32:20.19

>>956
マジすか？ありがとうございます．
SQLって方言が多いんですね．

**デフォルトの名無しさん** · 2018/09/15(土) 02:34:58.26

UPDATE文は特に方言が多いんだよ

**デフォルトの名無しさん** · 2018/09/15(土) 11:35:48.46

>>954
更新クエリに設定しろ

**デフォルトの名無しさん** · 2018/09/16(日) 09:41:31.06

昔はオラクルとかに直接更新クエリ実行しようとして固まってたなあ、、、
ハード性能上がった今でも固まるのかね?

**デフォルトの名無しさん** · 2018/09/16(日) 16:10:48.91

リンクテーブルに対して何かするのを「直接」とは言わないからな？

**デフォルトの名無しさん** · 2018/09/16(日) 18:15:18.31

アスペですね

**デフォルトの名無しさん** · 2018/09/16(日) 19:05:43.00

それ以前に、ハード性能で固まったことなんてないんだが
単に遅いだけで固まったって言ってるのかね

**デフォルトの名無しさん** · 2018/09/16(日) 19:27:12.80

>>963
初代ペンティアムマシンでAccess97で動かした事無い人かな

**デフォルトの名無しさん** · 2018/09/16(日) 20:39:37.56

>>964
それは何自慢？俺は20年前からACCESS やってるベテランだぞすごいだろう？

**デフォルトの名無しさん** · 2018/09/16(日) 22:05:06.06

>>964
だからそれは単に遅いだけだろうと言ってるんだが

ついでに言えば、ACCESSで外部DBMS使うときに一番気を付けるべきは回線の速さだがな
その環境でも、100MのLANならそれなりに快適だったわ

**デフォルトの名無しさん** · 2018/09/17(月) 18:07:40.72

486DXでAccess95とか動いたっけ

**デフォルトの名無しさん** · 2018/09/17(月) 19:52:07.58

多分動いたと思う。
ペンティアム90では確実に動いた。
当時486DX100マシンにOffice入れてたと思うんだが、そのマシンでAccess動かしたかどうかで記憶が無い。

**デフォルトの名無しさん** · 2018/09/18(火) 01:29:37.70

Windows95が動いてたからOFFICEの95も動いてたと思う

**デフォルトの名無しさん** · 2018/09/18(火) 19:14:26.16

マハーポーシャの思い出しかないわ

**デフォルトの名無しさん** · 2018/09/18(火) 21:06:59.49

>>970
出張でアキバ行ったらチラシ貰った。あんな事件起こすなんて夢にも思わず、スペックのわりに安いじゃんなんて思ってたわ。

**デフォルトの名無しさん** · 2018/10/15(月) 12:32:08.29

DAOでmdbに接続して､フォーム上のコントロールボタンのCaptionを大量に一括変更したいんだけど､できるかな？
データーベースオブジェクトのメンバーのリストを眺めてもフォーム関連がないので､だめなのかな？

**デフォルトの名無しさん** · 2018/10/15(月) 13:28:15.42

>>972
COMオブジェクト生成で
Application→Forms→Form→Controls→Control
ってたどる感じかな
最近どうなってるか知らん
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa663065(v=office.11)

**デフォルトの名無しさん** · 2018/10/15(月) 19:00:25.28

リンクが死んでいて読めません。
ネット探しても情報が見つかりませんね。
パッチを当てるときに便利な気がするのですが…
私が知ってるパッチはモジュールやフォームを入れ替えるものばかりですが､一部編集みたいなことが出来ると便利な気がしますがどうでしょうか。
コードを1行書き換えとか出来ると便利な気がしますが､リスクもありそうですね。

**デフォルトの名無しさん** · 2018/10/15(月) 23:32:47.15

>>974
MSのURLは2chのリンク表示と相性が悪いからクリック
カッコまで全部コピーしてブラウザに貼りつけないと付けると飛べるぞ

ラベルを外部リソースにしてフォーム側で呼び出すのが正攻法な気がするが
多言語対応とか

**デフォルトの名無しさん** · 2018/10/16(火) 07:11:10.97

DAO で接続じゃなぁ

**デフォルトの名無しさん** · 2018/10/16(火) 19:50:00.82

接続は別になんでもいいです。

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

マクロの編集をVBAで出来ませんかね？バージョンアップの際にカスタマイズ済のAutokesyを再現したいもので。

**デフォルトの名無しさん** · 2018/10/23(火) 14:44:19.48

>>978
出来る、何年か前に前の勤め先でやったわ
あまり覚えてないが、VBEにアクセスする方法があって
それで出来たと思う

ググりながらやった覚えがあるからググれば
何かヒントが出てくると思う

**デフォルトの名無しさん** · 2018/10/23(火) 17:12:08.69

>>979
saveastextですね。あれ､最近のoffceだとゴミコードが1行あって､そのままでは読み込めないんですよね。

**デフォルトの名無しさん** · 2018/12/04(火) 21:13:39.22

業務用ソフトでどこからもGOTOされていないラベルがあるんだけど､作った奴は馬鹿なのかな？

**デフォルトの名無しさん** · 2018/12/05(水) 13:19:49.01

いくらでもある

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

そうですか…
宣言だけして使わない変数や､空のプロシジャー､その空のプロシジャーを呼び出す無意味なプロシジャー､戻り値を変数に格納だけしてなにも利用しない関数とか意味不明なことが多くてPGの世界ってカオスなんだな。
リーダブルコードとかだと絶対に怒られるようなことが目白押しだわ。

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

理想と現実は違う

**デフォルトの名無しさん** · 2018/12/05(水) 15:58:58.90

そう、動きゃいいんだから
見た目なんか気にしてたら絶対に間に合わない

**デフォルトの名無しさん** · 2018/12/05(水) 17:29:29.08

なるほど…
カスタマイズしている方からすると添削をしているよう気分になりますね。
稼働しているコードの何倍もあるコメントアウトされた過去コードとかあって､正にべからず集みたいなもんですね。

**デフォルトの名無しさん** · 2018/12/05(水) 17:34:49.19

実際問題
中身はgdgd
https://www.filemaker.com/jp/solutions/customers/stories/shinshu-ham.html

**デフォルトの名無しさん** · 2018/12/07(金) 12:18:56.42

>>987
FileMakerはスクリプト(マクロ)しか無いからな

**デフォルトの名無しさん** · 2018/12/07(金) 18:12:05.49

>>988
両方そなわってたら、Accessを潰せてたのにね。

**デフォルトの名無しさん** · 2018/12/10(月) 21:20:32.74

マクロのAutokeysが急にキーを取りこぼすようになった。F1を押すとプロシジャーの実行をしてくれないでHELPが立ち上がる。
F2等をおしても無反応になってしまった。officeのアップデートが原因かな？WIN7とAccess2016の組み合わせなんだけど分かる人いますか？

**デフォルトの名無しさん** · 2018/12/11(火) 13:04:58.28

Access最近アプデしてないな
古いのまだ使ってる

**デフォルトの名無しさん** · 2018/12/11(火) 18:13:25.39

>>991
2013使ってるならアプデする意味がほぼないし

**デフォルトの名無しさん** · 2018/12/11(火) 19:29:38.35

２０年くらい前はAccessファイルはいつ壊れるかわからない。
って言われてたけど、いまってどうなの？

**デフォルトの名無しさん** · 2018/12/11(火) 21:03:35.30

>>993
今は壊れることはなくなったよ。

**デフォルトの名無しさん** · 2018/12/11(火) 21:35:29.03

いつの間にかデータアクセスページなくなったの？

**デフォルトの名無しさん** · 2018/12/11(火) 23:24:33.12

>>993
同じだと思うよ。いつもは動くプロシジャーが変な挙動するようになってそのうち､フォームが全部消えちゃうとか何度もあった。というかこの1週間でもあったよ。本当にポンコツだよ。
とはいえ､ここまでカスタマイズが自由に出来るDBって他に無いような気がするけど､どうなんだろう。

**デフォルトの名無しさん** · 2018/12/12(水) 00:19:48.14

WindowsFormの不自由さにはびっくりしたな

**デフォルトの名無しさん** · 2018/12/12(水) 10:51:22.24

いまはIMEの辞書が良く壊れるイメージ

**デフォルトの名無しさん** · 2018/12/12(水) 10:53:08.65

>>996
小規模のシステムでも
テーブル用のmdbとフォーム用のmdbを分けて
リンクで管理すると壊れるケースはかなり減った

**デフォルトの名無しさん** · 2018/12/12(水) 10:53:27.51

次スレはよ

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 2500日 11時間 59分 41秒