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

**デフォルトの名無しさん** · 2017/12/06(水) 08:50:38.97

固定長レコードw化石乙ww

**デフォルトの名無しさん** · 2017/12/06(水) 09:56:13.57

郵便とのやり取りは今でも固定長フィールド使てんじゃね
さすがに今はないか、フロッピーとか

**デフォルトの名無しさん** · 2017/12/06(水) 11:12:29.56

未だに固定長を扱う事はありますが、設計済みDBに展開して処理していますよ

**デフォルトの名無しさん** · 2017/12/07(木) 05:51:08.35

固定長のEDI、増えたりしないだろうけどいつまでも残るんだろなあ。csvやtsvをメール添付で良いのにって思う。

**デフォルトの名無しさん** · 2017/12/07(木) 12:12:58.82

固定長の方がパースが軽いからなぁ
あといつまでもなくならないレガシな環境とかな
処理系そのものは変更されてもＩＯ部分の仕様変更はなかなかやらない

**デフォルトの名無しさん** · 2017/12/07(木) 12:15:15.31

今どき固定長レコードなんて使ってるのに前向きな理由なんて無いよ

**名無し** · 2017/12/07(木) 17:45:46.41

>>839
同じ拡張子なのに何十種類もバリエーションのある欠陥フォーマットを使うのはやめてくれ

**デフォルトの名無しさん** · 2018/02/05(月) 10:45:37.49

アクセス始めて触る初心者です。
テキストボックスが複数含まれたワードファイルが5000個ぐらいあります
各テキストボックスからいろんな項目を取得するとして、1ファイルあたり３０項目ぐらい
つまり5000個のファイル*３０項目＝15,000項目
これをアクセスで処理していこうと思ってるんですが、アクセスはこの程度さくさく処理できるものでしょうか
目的は、ワードファイルが多すぎて邪魔なんで全部削除したい。必要に応じて元のファイルと同じものを再現できるようにするため、必要な情報をアクセスのデータベースに保存しておくことです
必要なファイルを再現できるように検索機能と再現機能をもったVBAマクロを組むつもりです
最初エクセルでやろうとも思ったのですが、さすがに万単位で今後も増える可能性が高いため
アクセスかな？と思ったのですが、どうでしょう

**デフォルトの名無しさん** · 2018/02/05(月) 13:37:19.07

>>843
初めて触る様な状態なら無理だから、諦めた方がいいですよ

**デフォルトの名無しさん** · 2018/02/05(月) 13:53:17.30

>>844
アクセスは初めてだけどエクセルVBAはそこそこ経験あります
エクセルVBAでなら自分で組める範疇ですね

すでにアクセスで途中までマクロは組んであります
同一フォルダ内にテスト用に作成してあるワードファイルを順次開いてすべてのテキストボックスの値、位置関連の数値を
Debug.Printで出力後、ワードファイルを閉じる
ここまでうまくいってるんであとはアクセスの基本機能理解すればそう困難ではないでしょう
ざっとみたところ、この用途で使う限りではそう複雑なものでもないようですし。

質問の内容はアクセスでやる利益があるかどうかという点ですね
まぁ組めばわかるんですけどね

**デフォルトの名無しさん** · 2018/02/05(月) 20:59:27.31

>>845
エクセルのテーブルに格納したらアクセスにインポートするのが良いんじゃない？
エクセルのままでも良いと思うけど、

**デフォルトの名無しさん** · 2018/02/06(火) 08:18:15.16

>>846
それいいですね
やってみます

**デフォルトの名無しさん** · 2018/02/06(火) 14:52:40.80

貴乃花親方にしろ有賀さつきにしろ
やはり「語らない」ことが年末から今年にかけてのポイントだな
逆に語っている方が何かと物議を醸しているし

**デフォルトの名無しさん** · 2018/02/06(火) 14:53:16.21

ミスった
すまん

**デフォルトの名無しさん** · 2018/02/07(水) 11:19:44.29

医療過誤？

**デフォルトの名無しさん** · 2018/04/14(土) 12:06:32.62

すみません質問させてください。

Private Sub Form_Load()
　　Me.TimerInterval = 1000
End Sub

Sub Form_Timer()
　　Static intShowPicture As Integer
　　If intShowPicture Then
　　　　Me.btnPicture.Picture = "C:\taiyo.jpg"
　　Else
　　　　Me!btnPicture.Picture = ""
　　End If
　　intShowPicture = Not intShowPicture
End Sub

このコードは何をしているのでしょうか？
ご回答よろしくお願いします。

**デフォルトの名無しさん** · 2018/04/14(土) 12:24:03.37

一秒毎に画像を出したり引っ込めたり

**853** · 2018/04/14(土) 12:53:27.07

ご回答ありがとう御座います。
イメージはなんとなく掴めたのですが、
この場合のintShowPictureには何が格納されているのでしょうか？
もしくはBoolean型なのでしょうか？

**デフォルトの名無しさん** · 2018/04/14(土) 16:08:38.27

Static intShowPicture As Boolean
にして試してみろよ

**デフォルトの名無しさん** · 2018/04/14(土) 19:25:20.18

VBAには暗黙の変換ってのがあるから
IntegerをBooleanに暗黙的に変換して評価してる

まあ、あまり良いコードじゃないな

**851,853** · 2018/04/14(土) 21:39:02.03

>>852さん
試しに、フォームと画像を用意して作ったら、点滅しました！
>>854さん
この文でも点滅しました！
>>855さん
Falseが0でTrueが-1なのですね！

ご回答ありがとうございました。
解決しました！

**デフォルトの名無しさん** · 2018/04/15(日) 10:38:49.74

>Falseが0でTrueが-1なのですね！

そうだっけ？

**デフォルトの名無しさん** · 2018/04/15(日) 12:40:33.57

Access で画像を点滅する？

そんなの普通は、JavaScript, jQuery とかだろ

**デフォルトの名無しさん** · 2018/04/15(日) 22:05:01.30

ここは Access の質問スレですよ

**デフォルトの名無しさん** · 2018/04/21(土) 00:22:50.08

10万件以上の大量レコードを追加するインサート処理をクエリを作成してDocmd.OpenQueryでやっているが時間が1分以上かかる
この処理をモジュールにADO、もしくはDAOでインサート処理を記述したら、Docmd.OpenQueryより早くなるかな？

**デフォルトの名無しさん** · 2018/04/21(土) 12:05:09.74

VBAで書くと数倍遅くなるんじゃね？
Cからなら速いかも知れん

**デフォルトの名無しさん** · 2018/04/21(土) 14:39:22.47

たぶんクエリのほうが遥かに速い

**デフォルトの名無しさん** · 2018/04/21(土) 16:21:47.73

OpenQueryをCから実行

**デフォルトの名無しさん** · 2018/04/21(土) 17:48:56.41

BULK INSERT は？

そもそも、INSERT文は速くならない！

**デフォルトの名無しさん** · 2018/04/22(日) 14:54:13.01

10万が大量かどうかという問題も有るがRecordset + AddNewの方が速いと聞いたし、実際俺が組んだ場合も明らかに早いんだが。

状況にもよるかもしれんけど。

**デフォルトの名無しさん** · 2018/04/23(月) 02:01:29.71

そもそもOpenQueryでどんなクエリ流してインサートしてるかわからんのに比較にならんわ

**デフォルトの名無しさん** · 2018/04/23(月) 02:08:10.01

>>865
例えば単純な追加クエリや、INSERT SELECTするSQL発行するより
1件ずつAddNewして（どこかから値持ってきて）１カラムずつ値セットするほうが早いっての？
どこで聞いた話だそれ？

**デフォルトの名無しさん** · 2018/04/23(月) 09:13:20.51

やってみてから言ってくれ。
俺の場合は実際早かった。

俺の場合は1カラムずつじゃなくてフィ―ルド名の配列と値の配列でAddNewだけど、たぶん1カラムずつセットしてUpdateでも早いんじゃないかな。

**デフォルトの名無しさん** · 2018/04/23(月) 09:41:02.27

そんなあほな

**デフォルトの名無しさん** · 2018/04/23(月) 15:45:02.07

SQLでもINSERT一回じゃなくて1行のINSERTを何度も繰り返したら遅くなるからな
それと比べるなよ

**デフォルトの名無しさん** · 2018/04/23(月) 17:22:09.14

>>868
やってみるから、フィールド数、フィールド長とレコード数教えれ
あと配列のデータどう用意するのかと、比較するクエリの元データどうすのかも

とうぜんACCESSと対象ＤＢエンジンとADOかDAOのバージョンも明示してくれよ

で、ループまわして１レコードずつ.AddNewして.Updateするんだな

これでほんとにVBAが速いならちょっとACCESS使うの考えるわ

**デフォルトの名無しさん** · 2018/04/25(水) 22:44:48.30

>>870
そんな低レベルの話はしとらん。

>>871
たぶんフィールドは40~50ぐらいじゃね?
レコードは200万ぐらい。
リモートでOracleに接続してる。
JOINで20個位のテーブル繋げてるな。
ADO使ってる。

パススルーのSELECTクエリ+INSERTじゃ永遠に終わらない感じが20分程度で取得出来るようになった。

「access insert addnew 速度」でクグってみればけっこうAddNewの方が早い話が見つかるぞ。

**デフォルトの名無しさん** · 2018/04/26(木) 20:39:25.51

だからどこからどうやって元データ取ってきてるんだと
リンクテーブルやリモートＤＢでADOの方が早いとかなら別に驚くに値せんけどな

というかお前らOpenQueryってレコード数分実行する前提で話してたのか？

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

パススルーωとか使っちゃいけないTOP3じゃないか
素直にリンクテーブルにすれば良いのに

**デフォルトの名無しさん** · 2018/04/27(金) 23:22:48.36

パススルーって駄目なの?
リンクテーブルは話にならないくらい遅くてパススルーのが全然早かったんだが。

**デフォルトの名無しさん** · 2018/04/28(土) 15:07:07.82

ケースバイケース
たいていの場合、リンクテーブルに対する操作よりはSQL飛ばすほうが早いとは思うけどな
パススルーが使っちゃいけないTOP3とか初めて聞いたわ

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

keydownイベントからのキー取得ではなくて、
OnKeyDownイベントからキーを取得する方法がわかりません。
Me("テキストボックス"& i).OnKeyDown = "=get_Key(" & this? & ")"
ご教授お願いします。

**>>877** · 2018/05/09(水) 17:09:04.61

レスが付かないので別の掲示板に移動します。

**デフォルトの名無しさん** · 2018/05/11(金) 06:01:03.99

>>877
OnKeyDownイベントを知らなくてすまん。

**デフォルトの名無しさん** · 2018/05/11(金) 09:03:43.55

Excel で JavaScript も扱える様になるらしいね

**デフォルトの名無しさん** · 2018/05/16(水) 14:07:17.01

業務用mdbのコードを見てて気づいたんだけど､戻り値を使わないのに､functionを作成しているのが非常に多い。
どんなメリット､デメリットがあるのですか？戻り値用の変数を用意するから速度が低下するのが問題なんですか？

英語の本には
>>Many programmers think that they must return something, even if they have to make some artificial return code or status. This practice can make your code harder for others to understand.
て書いてあってヤメレって書いてあるのになんでやりまくるのですかね？

**デフォルトの名無しさん** · 2018/05/16(水) 14:57:23.49

subの代わりにしてんじゃないの

**デフォルトの名無しさん** · 2018/05/16(水) 18:06:12.59

>>881
しまった戻り値無いfunction俺も作ってた
動くから別にいいやって感じだった

**デフォルトの名無しさん** · 2018/05/16(水) 19:24:53.85

業務でプログラム組むような場合は、コーディングスタイルが指定されてる事が多いんだよ

正確には戻り値のないFunctiionじゃなくて、戻り値を無視してるだけだけどな

**デフォルトの名無しさん** · 2018/05/16(水) 20:47:56.46

functionとsubはcallが要るかどうかの違いだと思ってた。

**デフォルトの名無しさん** · 2018/05/16(水) 23:07:53.34

可読性が低下する以外のデメリットは無いんでしょうかね？
個人的には出番のない変数は目障りなんですけどね。

**デフォルトの名無しさん** · 2018/05/17(木) 00:12:37.33

呼び出しネストの限界がFunctionのほうが浅いってデメリットがあるはず
呼び出しに必要なスタック領域が違うから
昔だれかが実測してたな。まあ再帰でよっぽどのことやらんと問題ないんじゃね

SubをFunctionにして可読性が落ちるとか、それ関数の命名に問題がある気がするがな

**デフォルトの名無しさん** · 2018/05/17(木) 08:14:31.45

戻り値ある前提で組んでるんでしょ。
エラー処理等で単に関数が失敗か成功かを返すとか。
後で作ろうとしてたけどグダグダになって無しになっちゃうとか。

**デフォルトの名無しさん** · 2018/05/17(木) 11:23:10.83

後でやろうとしてやめちゃうってのは非常に大変頻繁によくあることだからね。

**デフォルトの名無しさん** · 2018/05/17(木) 12:28:55.01

>>881
呼び出し側でいちいち call 書くの面倒だから

**デフォルトの名無しさん** · 2018/05/17(木) 13:35:45.45

>>890
FunctionもSubもCallを書かなくても呼び出せすので､理由にならないと思います。
個人的には､Callが書いてないと唐突に見慣れない文が出現するので驚いちゃいます。馴れれば､労力の軽減になるのかな？

**デフォルトの名無しさん** · 2018/05/17(木) 13:53:44.02

call 書かないと () 付かないだろ
() 付かないから知らない文が出て来たと思ってしまう
() 付ければ関数だと判るが call 書かないといけないって話

**デフォルトの名無しさん** · 2018/05/17(木) 15:12:43.90

>>892
済みません。よくわかりませんのでかみ砕いておしてもらえますか？
Callと括弧がペアで必要なのは理解しています。
もちろん､CALLなし､括弧なしでFunctionもSubも呼び出せるのも知っています。
両者の呼び出しの記法が全く同じで､唯一の例外が
lngSum=AddNumbers(10,20)
等の場合ということも知っています。

**デフォルトの名無しさん** · 2018/05/17(木) 15:32:30.96

>>884
こんな感じですかね？
SUBは使わないのが基本？
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=47673&;forum=36
↑でも結局解決していませんね。

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

つい全文読んじゃったよ
いろんな考えの人がいるんだね

**デフォルトの名無しさん** · 2018/05/19(土) 13:29:25.00

>>893
えっcallなしで呼び出せるの?知らない事がたくさんあるなあ

**デフォルトの名無しさん** · 2018/05/19(土) 13:36:56.85

>>896
英語の本にはちゃんと書いてあるんですよね。私はVBSの本で知りました。

**デフォルトの名無しさん** · 2018/05/23(水) 19:16:19.68

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

BHZ67

**デフォルトの名無しさん** · 2018/05/24(木) 10:37:30.53

BHZ67

**デフォルトの名無しさん** · 2018/05/24(木) 21:31:25.23

ありがとう、僕も幸せになります

**デフォルトの名無しさん** · 2018/06/13(水) 13:33:14.15

全モジュールをExportするコードがネットにあったので試したら､0TESTModuleという名前のモジュールでエラーになった｡0TESTに書き換えたら通った｡
予約語かと思ったけど､そんなリスト見つからない｡モジュールに名前にModuleが含まれていると失敗するものなの?
ちなみに使ったコードは↓
https://stackoverflow.com/questions/16948215/exporting-ms-access-forms-and-class-modules-recursively-to-text-files

**デフォルトの名無しさん** · 2018/06/29(金) 23:41:22.03

学生はaccessの勉強してないよね。既存の社内システムメンテナンスできる人を募集してるけど応募が無い。
accessなんて社会人になってから仕事の合間に覚える人がまれにいる、程度のものなのかな。

**デフォルトの名無しさん** · 2018/06/30(土) 00:22:45.41

そもそもOfficeのPro版がほとんどの市販PCに載ってないから触れたことすらなかった

**デフォルトの名無しさん** · 2018/06/30(土) 12:32:46.83

大学はFileMakerすすめるからな

**デフォルトの名無しさん** · 2018/06/30(土) 22:27:35.34

>>902
給料が安いから応募がないんじゃないの？

いくらで募集なのか知らないが、派遣の求人だと
社内システム作れる人だと時給2100円前後という印象だなAccessは
(高くても2300円くらいか)

だから社内システムメンテ出来る人は普通の会社には行かないのでは
そこまで出来るなら専門業者で働いた方がずっと稼げるだろう

**デフォルトの名無しさん** · 2018/06/30(土) 23:30:30.56

人にもよるだろ。
俺の印象では3000円弱ぐらいまではいく。

**デフォルトの名無しさん** · 2018/07/01(日) 22:59:11.58

>>903
今は単品で15,000円位だから、コスパ良い開発環境だと思うのだが。

**デフォルトの名無しさん** · 2018/07/02(月) 11:07:23.80

VBAで自動メンバー表示できるVBE以外のエディタってあるのかな？

**デフォルトの名無しさん** · 2018/07/04(水) 06:14:38.14

VBS のエディタが使えないかな。

**デフォルトの名無しさん** · 2018/07/04(水) 22:00:33.68

OH1

**デフォルトの名無しさん** · 2018/07/04(水) 22:52:05.24

>>909
vbseditで試したけどダメだった
emacsで成功した人がいたのでWIN用emacsインスコしてみた
この後は面倒くさいからあしたやるemacsはいろいろ出来てすごいと言うことが少し分かったわ

**デフォルトの名無しさん** · 2018/07/04(水) 23:17:14.61

VS CodeにVBA用の拡張があったはず
ふつうのVSにも探せばあるかもな

**デフォルトの名無しさん** · 2018/07/05(木) 04:54:44.26

VBE ではないエディタが欲しい場面とは？良かったら教えて。

**デフォルトの名無しさん** · 2018/07/05(木) 10:21:34.29

>>912
VSCの奴は2つ入れたけど,オートコンプリートはできるけど,自動メンバー表示は出来ないですね.

>>913
一般的なエディタと比べると余りにもVBEが低機能だからですね.
たとえばコードフォールディングをしたいし,行番号も見たいけど,出来ないですからね.ズームが出来ないのも案外不便.

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

フォームでマウスホイールをコロコロしてレコードを移動させるプログラムを教えていただけませんか？

**デフォルトの名無しさん** · 2018/07/10(火) 21:58:48.67

ソース連結の単票フォームなら、何にもしなくてもホイールコロコロでページパタパタ出来るけど
そういうのとは違うのか　　或いは、制作者が敢えて無効にしてるのを有効化したいのか
或いは、帳票フォームの上下・・　これもホイール効くか、、　シーンを限定してもわらないと

**デフォルトの名無しさん** · 2018/07/11(水) 04:54:43.98

>>914
913です。VBE良くできてるな便利だなと思って使ってました。もっと捗るエディタも有るんですね。

**デフォルトの名無しさん** · 2018/07/11(水) 06:04:47.59

>>917
ネット上にはVBEを賞賛する声は余り見ませんね。悪口は沢山見ます。
emacsをインスコしてみましたが､Windows7 64bitではダメでした。
emacsならやりたいことが全部出来るはずですが､lisp書けないから悲しいです。

**デフォルトの名無しさん** · 2018/07/22(日) 19:25:52.08

質問です
UPDATEでテーブルを一斉更新する際に、
「Aさん」「Bさん」「Cさん」のようなデータを
繰り返しで連番のように入力させる手段は無いのでしょうか？
連番のような数値型は出来るようなのですが、
文字列で実現する方法が分からないです

目的は出勤している人間(5名程度)に
難易度にムラがある案件(200件程度)を均等・公平に
割り付けるためです

お手数をおかけしますが、どうかご教授ください
よろしくお願いします

**デフォルトの名無しさん** · 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翻訳でだいたいなんとかなりますよ。
たまに文学的表現があってイラッとしますけど､だいたいが簡単明瞭です。