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/07/23(月) 00:04:34.46

一度連番を振ってその後に「連番 mod 3 = 0」をAさん、
「連番 mod 3 = 1」をBさん、連番 mod = 2」をCさん
っていうようにすれば出来なくもないか…
でもスマートじゃないですし、処理に時間がかかりそうですね

**デフォルトの名無しさん** · 2018/07/23(月) 06:42:41.53

>>919
解答ではありません。
私ならexcelにエクスポートして手作業でautofill してインポート。またはvbaで一件ずつ読み書き。
Sqlでどうするかわかったら教えてください。

**デフォルトの名無しさん** · 2018/07/23(月) 10:05:37.58

連番（数値型）を繰り返し入力させる方法が分かるのなら、
1=Aさん、2=Bさん、…っていうテーブル用意しておいて、
連番振ったあと更新クエリで文字列を更新させるのは駄目ですか？

**デフォルトの名無しさん** · 2018/07/23(月) 10:21:18.69

autoincrement

**デフォルトの名無しさん** · 2018/07/27(金) 08:00:42.36

20人程度が1つのテーブルにそれぞれ10分間隔くらいでUPDATE INSERTをしているんですが、突然テーブルが開けなくなりました
「他者が開いています」というメッセージが出て開くことやコピーすら出来なくなりました

対策やこの症状が出た時の対処方法はないのでしょうか？

フロントエンドとしてユーザーの数だけUI用のAccessファイルを準備して、
バックエンドはテーブル1つだけのAccessファイルを置いています

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

そうなる前に、誰かがなんかのエラーを発してるはず
或いはエラーを殺しちゃってるかどうか
大概マズイことには口を噤むのが社畜の習い性

エラーにならないよう対策するか、エラー時に対策するか

コピーすらできないなら、サーバー側での対策として
バックアップ時に戻すか
そのファイルさえ救出出来たら修復できるんだろうけど

**デフォルトの名無しさん** · 2018/07/27(金) 13:38:08.89

共有数の制限の気がするけど
そのバックエンドのアクセスファイルはどこでどうやって共有してるんだよ

**デフォルトの名無しさん** · 2018/07/27(金) 17:29:47.26

919です
返答が遅くなってしまい申し訳ありません

>>921
解決しました
元々テーブルに連番が振ってあったので、それを利用して
sqlのswitch文とmodを使ってます
リストボックスで選択した担当者を配列に格納して
ubound関数やらを使ってvbaでsqlを生成しました

switch id mod i
0:Aさん
1:Bさん
2:Cさん
3:Dさん

って感じのイメージです

>>922
週休者には割り当てたくなかったので上記方法で解決しました

**デフォルトの名無しさん** · 2018/07/27(金) 17:35:57.88

>>925
先日は事前に取っておいたバックアップまでロールバックして対処しました
未だにエラーの原因が分からないので
不具合が起きた時の対策とバックアップ頻度を上げるような
業務フロー(タイマー関数含む)を追加しようと思います

開けなくなったファイルは日を跨いだら開けるようになりました
恐らく誰かが気づかずにバックグラウンド掴んでる状態だったんだと思います

>>926
特にオプションをいじっていないaccdbを共有サーバに
そのまま置いてる状態です
データを取得するのはサーバのバックエンドテーブルを
ローカルファイル(フロントエンド)にコピーして
ローカルで完結して参照しています
更新や追加する時だけバックエンドのテーブルに
UPDATEとINSERTをしています

**デフォルトの名無しさん** · 2018/08/11(土) 16:51:32.08

質問です。
分割フォームの
分割フォームデータシートプロパティを
VBAから操作できる方法がありますでしょうか？
ご教授お願い致します。

**デフォルトの名無しさん** · 2018/08/11(土) 18:04:27.51

具体的なプロパティもわからんしお休みなのでパソコンも手元にないけど検索したらsplitformsize のvba コードがあるから何らかの操作は出来るんでないの？お盆モードの適当コメントですまぬ。

**929** · 2018/08/11(土) 18:45:39.43

>>930さん

ありがとうございます！
splitform vbaで調べていたら見つかりました！！
うれしいです！

Private Sub コマンド11_Click()

If Forms("test").SplitFormDatasheet = acDatasheetReadOnly Then
Forms("test").SplitFormDatasheet = acDatasheetAllowEdits
Forms("test").コマンド11.Caption = "過去のデータを編集不可にします。"
Else
Forms("test").SplitFormDatasheet = acDatasheetReadOnly
Forms("test").コマンド11.Caption = "過去のデータを編集可能にします。"
End If

End Sub

ありがとうございます！！

**デフォルトの名無しさん** · 2018/08/23(木) 22:05:56.98

サイズの限界まで巨大化しているフォームを改造して､様々なコントロール類をタブコントロール上に配置しようと考えています。
元のフォーム上のコントロール類をコピーしてタブコントロール上にペーストしたまでは良かったのですが､イベントプロシジャーがごっそり抜け落ちています。コマンドボタンを押してもなにも始まらない状態です。
イベントプロシジャーを保持したままコントロールをコピペする方法はありますか？

**デフォルトの名無しさん** · 2018/08/23(木) 22:21:39.28

解決しました。
https://bytes.com/topic/access/answers/688028-controls-cut-paste

**デフォルトの名無しさん** · 2018/08/24(金) 06:25:14.72

>>933
良かったね。
俺はVBA コードを頑張ってコピーしてるのでよかったら解説下さい。えーごわからないので。翻訳機能?あの人たちとは話が合わん！

**デフォルトの名無しさん** · 2018/08/24(金) 09:58:42.20

Accessの本はいろいろ買ったけど､良書だなあと感心したのはほとんどが未翻訳の洋書でした。
谷尻､緒方､葛西も和書としては悪くないのですが､洋書と比較すれば月とスッポンです。
技術書の英語は辞書とgoogle翻訳でだいたいなんとかなりますよ。
たまに文学的表現があってイラッとしますけど､だいたいが簡単明瞭です。

**デフォルトの名無しさん** · 2018/08/24(金) 10:46:31.53

すいません質問です。オフィス365です。
手動で空のサブレポートをレポートに配置しました。これをVbaコードでコピーする方法を教えてくださいませ。

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

すみません、質問させてください。
ExcelからAccessの特定のフォーム
を閉じるとき、
DoCmd.Close acForm, "フォーム名"
で入れると、おそらくacFormがAccessVBAの引数のためか、
エラーが出てしまいます。
何か解決方法があればご教授よろしくお願いします。

**デフォルトの名無しさん** · 2018/08/30(木) 13:20:53.05

アプリが違うからOLEとかActiveXObject使うんでは

**デフォルトの名無しさん** · 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秒