Access VBA 質問スレ Part1
レス数が1000を超えています。これ以上書き込みはできません。
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
全モジュールをExportするコードがネットにあったので試したら､0TESTModuleという名前のモジュールでエラーになった｡0TESTに書き換えたら通った｡
予約語かと思ったけど､そんなリスト見つからない｡モジュールに名前にModuleが含まれていると失敗するものなの?
ちなみに使ったコードは↓
https://stackoverflow.com/questions/16948215/exporting-ms-access-forms-and-class-modules-recursively-to-text-files 学生はaccessの勉強してないよね。既存の社内システムメンテナンスできる人を募集してるけど応募が無い。
accessなんて社会人になってから仕事の合間に覚える人がまれにいる、程度のものなのかな。 そもそもOfficeのPro版がほとんどの市販PCに載ってないから触れたことすらなかった >>902
給料が安いから応募がないんじゃないの？
いくらで募集なのか知らないが、派遣の求人だと
社内システム作れる人だと時給2100円前後という印象だなAccessは
(高くても2300円くらいか)
だから社内システムメンテ出来る人は普通の会社には行かないのでは
そこまで出来るなら専門業者で働いた方がずっと稼げるだろう 人にもよるだろ。
俺の印象では3000円弱ぐらいまではいく。 >>903
今は単品で15,000円位だから、コスパ良い開発環境だと思うのだが。 VBAで自動メンバー表示できるVBE以外のエディタってあるのかな？ >>909
vbseditで試したけどダメだった
emacsで成功した人がいたのでWIN用emacsインスコしてみた
この後は面倒くさいからあしたやるemacsはいろいろ出来てすごいと言うことが少し分かったわ VS CodeにVBA用の拡張があったはず
ふつうのVSにも探せばあるかもな VBE ではないエディタが欲しい場面とは？良かったら教えて。 >>912
VSCの奴は2つ入れたけど,オートコンプリートはできるけど,自動メンバー表示は出来ないですね.
>>913
一般的なエディタと比べると余りにもVBEが低機能だからですね.
たとえばコードフォールディングをしたいし,行番号も見たいけど,出来ないですからね.ズームが出来ないのも案外不便. フォームでマウスホイールをコロコロしてレコードを移動させるプログラムを教えていただけませんか？ ソース連結の単票フォームなら、何にもしなくてもホイールコロコロでページパタパタ出来るけど
そういうのとは違うのか 或いは、制作者が敢えて無効にしてるのを有効化したいのか
或いは、帳票フォームの上下・・ これもホイール効くか、、 シーンを限定してもわらないと >>914
913です。VBE良くできてるな便利だなと思って使ってました。もっと捗るエディタも有るんですね。 >>917
ネット上にはVBEを賞賛する声は余り見ませんね。悪口は沢山見ます。
emacsをインスコしてみましたが､Windows7 64bitではダメでした。
emacsならやりたいことが全部出来るはずですが､lisp書けないから悲しいです。 質問です
UPDATEでテーブルを一斉更新する際に、
「Aさん」「Bさん」「Cさん」のようなデータを
繰り返しで連番のように入力させる手段は無いのでしょうか？
連番のような数値型は出来るようなのですが、
文字列で実現する方法が分からないです
目的は出勤している人間(5名程度)に
難易度にムラがある案件(200件程度)を均等・公平に
割り付けるためです
お手数をおかけしますが、どうかご教授ください
よろしくお願いします 一度連番を振ってその後に「連番 mod 3 = 0」をAさん、
「連番 mod 3 = 1」をBさん、連番 mod = 2」をCさん
っていうようにすれば出来なくもないか…
でもスマートじゃないですし、処理に時間がかかりそうですね >>919
解答ではありません。
私ならexcelにエクスポートして手作業でautofill してインポート。またはvbaで一件ずつ読み書き。
Sqlでどうするかわかったら教えてください。 連番（数値型）を繰り返し入力させる方法が分かるのなら、
1=Aさん、2=Bさん、…っていうテーブル用意しておいて、
連番振ったあと更新クエリで文字列を更新させるのは駄目ですか？ 20人程度が1つのテーブルにそれぞれ10分間隔くらいでUPDATE INSERTをしているんですが、突然テーブルが開けなくなりました
「他者が開いています」というメッセージが出て開くことやコピーすら出来なくなりました
対策やこの症状が出た時の対処方法はないのでしょうか？
フロントエンドとしてユーザーの数だけUI用のAccessファイルを準備して、
バックエンドはテーブル1つだけのAccessファイルを置いています そうなる前に、誰かがなんかのエラーを発してるはず
或いはエラーを殺しちゃってるかどうか
大概マズイことには口を噤むのが社畜の習い性
エラーにならないよう対策するか、エラー時に対策するか
コピーすらできないなら、サーバー側での対策として
バックアップ時に戻すか
そのファイルさえ救出出来たら修復できるんだろうけど 共有数の制限の気がするけど
そのバックエンドのアクセスファイルはどこでどうやって共有してるんだよ 919です
返答が遅くなってしまい申し訳ありません
>>921
解決しました
元々テーブルに連番が振ってあったので、それを利用して
sqlのswitch文とmodを使ってます
リストボックスで選択した担当者を配列に格納して
ubound関数やらを使ってvbaでsqlを生成しました
switch id mod i
0:Aさん
1:Bさん
2:Cさん
3:Dさん
って感じのイメージです
>>922
週休者には割り当てたくなかったので上記方法で解決しました >>925
先日は事前に取っておいたバックアップまでロールバックして対処しました
未だにエラーの原因が分からないので
不具合が起きた時の対策とバックアップ頻度を上げるような
業務フロー(タイマー関数含む)を追加しようと思います
開けなくなったファイルは日を跨いだら開けるようになりました
恐らく誰かが気づかずにバックグラウンド掴んでる状態だったんだと思います
>>926
特にオプションをいじっていないaccdbを共有サーバに
そのまま置いてる状態です
データを取得するのはサーバのバックエンドテーブルを
ローカルファイル(フロントエンド)にコピーして
ローカルで完結して参照しています
更新や追加する時だけバックエンドのテーブルに
UPDATEとINSERTをしています 質問です。
分割フォームの
分割フォームデータシートプロパティを
VBAから操作できる方法がありますでしょうか？
ご教授お願い致します。 具体的なプロパティもわからんしお休みなのでパソコンも手元にないけど検索したらsplitformsize のvba コードがあるから何らかの操作は出来るんでないの？お盆モードの適当コメントですまぬ。 >>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
ありがとうございます！！ サイズの限界まで巨大化しているフォームを改造して､様々なコントロール類をタブコントロール上に配置しようと考えています。
元のフォーム上のコントロール類をコピーしてタブコントロール上にペーストしたまでは良かったのですが､イベントプロシジャーがごっそり抜け落ちています。コマンドボタンを押してもなにも始まらない状態です。
イベントプロシジャーを保持したままコントロールをコピペする方法はありますか？ >>933
良かったね。
俺はVBA コードを頑張ってコピーしてるのでよかったら解説下さい。えーごわからないので。翻訳機能?あの人たちとは話が合わん！ Accessの本はいろいろ買ったけど､良書だなあと感心したのはほとんどが未翻訳の洋書でした。
谷尻､緒方､葛西も和書としては悪くないのですが､洋書と比較すれば月とスッポンです。
技術書の英語は辞書とgoogle翻訳でだいたいなんとかなりますよ。
たまに文学的表現があってイラッとしますけど､だいたいが簡単明瞭です。 すいません質問です。オフィス365です。
手動で空のサブレポートをレポートに配置しました。これをVbaコード でコピーする方法を教えてくださいませ。 すみません、質問させてください。
ExcelからAccessの特定のフォーム
を閉じるとき、
DoCmd.Close acForm, "フォーム名"
で入れると、おそらくacFormがAccessVBAの引数のためか、
エラーが出てしまいます。
何か解決方法があればご教授よろしくお願いします。 アプリが違うからOLEとかActiveXObject使うんでは >>937
acForm=2なので、acFormじゃなく直接2を指定してみると上手く行くかも
DoCmd.Close 2, "フォーム名"
↑でやってみて >>938さん、939さん
ありがとうございます。
939さんの方法でいけました。
ありがとうございますm(_ _)m
番号で指定する方法があったのですね。
感謝です。 Access.AcObjectType.acForm が 2 アホな質問ですまん。
クエリの中でクエリを複数使うクエリを作成したんだけど、これをSQLに書き直すときにエイリアスを使いたいんだけど、クエリに対するエイリアスは使えるのかな？テーブルだけかな？
実験した感じではダメそうなんだけど、どうですか？ >>942
普通に使えるはずだが
AS付けてないとか >>942
普通に出来るはずだぞ
どういう状況でダメになってるんだ？ >>942
サブクエリの話だよな？
自作ツールで確認したがASで普通にできてたぞ たぶん、サブクエリじゃなくて作成済みのクエリをSQL内部のFROM句やJOIN句にテーブルのように使う時にエイリアスを使いたいという話だと思うんだが、それでも普通に使えると思う。 みんな、ごめん。使えました。
おいらがSQLビューで書くときに、どっか間違えたみたい。
クエリのエイリアスも使えるし、サブクエリでネストも出来るし、accessって凄いね。糞長いSQLを書きたくなるね。
問題は余計な括弧がいっぱいくっつくところだよね。 またまたくだらない質問です．
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テーブルが書いてあるのが不可解ですね．
なんで，こんな変な書き方をするのか分かる人いますか？ >>950
FROMを書きました．下のようにしました．でも，演算子がありませんと怒られます．
UPDATE [working],[products]
SET [working].[value] = [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name])); これも同じように怒られます．
UPDATE [working]
SET [working].[value] = [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name])); それだと[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];
スマホからテキトーに書いてるので間違ってたらスマン。 >>953
上のは，更新可能なクエリであることが必要です と怒られました．
下のは成功です．ありがとうございます．
FROMを記載したコードでは出来ないというのが興味深いですね．
クエリーと一般のSQLではコードを処理する方法がかが違うんですかね？
聞きかじりですが，オプティマイザとか実行計画とか言う奴ですかね？
次はクエリを参照するUPDATEを書かないといけないのですが，テーブルならOKでクエリでは怒られるんですよね．
http://www.10days.org/diary/20090705.htmlとかその他いろいろヒットしますが，VBAからSQLを発行したら出来るんですかね？
とりあえず実験します． >>951
横入だがAccessがUPDATEでのFROMを
サポートしていないという意味での「FROMがないから」
じゃないの？ >>954
確かAccessはUPDATEでFROMは使えないぞ >>956
マジすか？ありがとうございます．
SQLって方言が多いんですね． 昔はオラクルとかに直接更新クエリ実行しようとして固まってたなあ、、、
ハード性能上がった今でも固まるのかね? リンクテーブルに対して何かするのを「直接」とは言わないからな？ それ以前に、ハード性能で固まったことなんてないんだが
単に遅いだけで固まったって言ってるのかね >>963
初代ペンティアムマシンでAccess97で動かした事無い人かな >>964
それは何自慢？俺は20年前からACCESS やってるベテランだぞすごいだろう？ >>964
だからそれは単に遅いだけだろうと言ってるんだが
ついでに言えば、ACCESSで外部DBMS使うときに一番気を付けるべきは回線の速さだがな
その環境でも、100MのLANならそれなりに快適だったわ 多分動いたと思う。
ペンティアム90では確実に動いた。
当時486DX100マシンにOffice入れてたと思うんだが、そのマシンでAccess動かしたかどうかで記憶が無い。 Windows95が動いてたからOFFICEの95も動いてたと思う >>970
出張でアキバ行ったらチラシ貰った。あんな事件起こすなんて夢にも思わず、スペックのわりに安いじゃんなんて思ってたわ。 DAOでmdbに接続して､フォーム上のコントロールボタンのCaptionを大量に一括変更したいんだけど､できるかな？
データーベースオブジェクトのメンバーのリストを眺めてもフォーム関連がないので､だめなのかな？ リンクが死んでいて読めません。
ネット探しても情報が見つかりませんね。
パッチを当てるときに便利な気がするのですが…
私が知ってるパッチはモジュールやフォームを入れ替えるものばかりですが､一部編集みたいなことが出来ると便利な気がしますがどうでしょうか。
コードを1行書き換えとか出来ると便利な気がしますが､リスクもありそうですね。 >>974
MSのURLは2chのリンク表示と相性が悪いからクリック
カッコまで全部コピーしてブラウザに貼りつけないと付けると飛べるぞ
ラベルを外部リソースにしてフォーム側で呼び出すのが正攻法な気がするが
多言語対応とか マクロの編集をVBAで出来ませんかね？バージョンアップの際にカスタマイズ済のAutokesyを再現したいもので。 >>978
出来る、何年か前に前の勤め先でやったわ
あまり覚えてないが、VBEにアクセスする方法があって
それで出来たと思う
ググりながらやった覚えがあるからググれば
何かヒントが出てくると思う >>979
saveastextですね。あれ､最近のoffceだとゴミコードが1行あって､そのままでは読み込めないんですよね。 業務用ソフトでどこからもGOTOされていないラベルがあるんだけど､作った奴は馬鹿なのかな？ そうですか…
宣言だけして使わない変数や､空のプロシジャー､その空のプロシジャーを呼び出す無意味なプロシジャー､戻り値を変数に格納だけしてなにも利用しない関数とか意味不明なことが多くてPGの世界ってカオスなんだな。
リーダブルコードとかだと絶対に怒られるようなことが目白押しだわ。 そう、動きゃいいんだから
見た目なんか気にしてたら絶対に間に合わない なるほど…
カスタマイズしている方からすると添削をしているよう気分になりますね。
稼働しているコードの何倍もあるコメントアウトされた過去コードとかあって､正にべからず集みたいなもんですね。 >>987
FileMakerはスクリプト(マクロ)しか無いからな >>988
両方そなわってたら、Accessを潰せてたのにね。 マクロのAutokeysが急にキーを取りこぼすようになった。F1を押すとプロシジャーの実行をしてくれないでHELPが立ち上がる。
F2等をおしても無反応になってしまった。officeのアップデートが原因かな？WIN7とAccess2016の組み合わせなんだけど分かる人いますか？ Access最近アプデしてないな
古いのまだ使ってる >>991
2013使ってるならアプデする意味がほぼないし ２０年くらい前はAccessファイルはいつ壊れるかわからない。
って言われてたけど、いまってどうなの？ >>993
同じだと思うよ。いつもは動くプロシジャーが変な挙動するようになってそのうち､フォームが全部消えちゃうとか何度もあった。というかこの1週間でもあったよ。本当にポンコツだよ。
とはいえ､ここまでカスタマイズが自由に出来るDBって他に無いような気がするけど､どうなんだろう。 WindowsFormの不自由さにはびっくりしたな >>996
小規模のシステムでも
テーブル用のmdbとフォーム用のmdbを分けて
リンクで管理すると壊れるケースはかなり減った レス数が1000を超えています。これ以上書き込みはできません。
