- 1 名前：デフォルトの名無しさん mailto:sage [2012/02/06(月) 22:53:46.88 .net]
- 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
toro.2ch.net/test/read.cgi/tech/1327763113/l50
- 372 名前：デフォルトの名無しさん mailto:sage [2015/08/03(月) 20:41:54.56 ID:CU261QGz.net]
- その域じゃ無いことが判ったからいいよｗ その域じゃない奴に諭される謂れわ無いわｗ
いくつかのキー・ワードで「あぁ、あのことか」って気付けないならこれ以上は時間の無駄 おまえの言うとおりでいいよｗ
そもそもここはAccessの板だし、おれはAccessの話をしてるんだ アプリケーションのアの字も使って無ぇｗ
よしんばAccessで作られた業務パッケージをアプリと呼びたいなら呼べばいいが、その業務アプリを動作させるうえで
発生するセキュアに関するメッセージはAccessの基本機能で回避できる って云ってるんだ
それを「信用できねえ」っつーんなら使わなくていいんじゃね？ 世の中にはごまんと同様の機能を備えたアプリケーションが存在するだろ
Accessに拘る理由なんざこれっぱかしも無ぇだろ 俺の文章のどれがおまえの琴線に触れたか知ったこっちゃ無いが 「ごめんな」
- 373 名前：デフォルトの名無しさん [2015/08/03(月) 21:08:56.51 ID:Mp/3eH1E.net]
- 逆鱗(ぎゃくりん)
- 374 名前：デフォルトの名無しさん mailto:sage [2015/08/03(月) 22:23:38.07 ID:C0QRYaFQ.net]
- runtime 2010(2013も同じ)の起動時のセキュリティ警告を出ないようにする
www.mkkobo.com/runtime/runtime04.htm
- 375 名前：デフォルトの名無しさん mailto:sage [2015/08/04(火) 03:50:55.73 ID:Kz/6+HRH.net]
- >>343で質問した者です
細かい利用環境等を書いてなかった事で迷惑をかけました
ごめんなさい
会社独自で開発したと思われる共有サーバシステム上に、accdbを置いて利用者は「読み取り専用」で利用します。(accdeは共有サーバ上では起動できません。)
なので、Access内で設定出来るオプション以外は全く自由がきかず、共有サーバ上でaccdbを開くと必ず「コンテンツを有効化にする」ボタンが表示されてしまうのです
今回の問題自体は、FormLoad関数をExcelで言うAutoOpen代わりに使う事で解決出来たと思っています
しかしAccessって、Web上で資料を探すにしても、資料が豊富なExeclVBAに比べてAccessVBAは資料が少なく、更にバージョンによって仕様が大きく変わるので大変ですね
このスレのやり取りを見ているだけで非常に勉強になります
ありがとうございます
- 376 名前：デフォルトの名無しさん mailto:sage [2015/08/04(火) 04:09:40.86 ID:JacjvlNa.net]
- >>363
ファイル共有のプロトコルとかによって制約あるかもしれんが
共有フォルダを信頼できる場所に追加する事は可能だぞ
ただ信頼されてないaccdb(のVBA)から、信頼できる場所を設定とか出来ないし
そんなことができたら信頼できる場所の意味がないからな
- 377 名前：デフォルトの名無しさん mailto:sage [2015/08/05(水) 15:51:27.89 ID:dmHYZv4f.net]
- 利用環境:Access2010、Win7
現在、国内の物件情報をテーブルに入力して、出力フォームで参照出来るようにしています
テーブルのフィールドは「物件No(主キー)」「物件名」「県」「市」「区」「町」「番地」「物件情報」です
新しいレコードが増えた場合は、入力フォームから、データを入力出来るようにしようと思っています
ここでお聞きしたいのは、入力フォームで新しいレコードを登録しようとした際の「重複チェックの方法」です
物件名は、入手先の情報や、入力者の考えによって
様々な表記ゆれが生じます(例:2棟 二棟 ②棟 Ⅱ棟)
入力規則を設ける事によってある程度は回避できると思いますが、
回避が難しいケース(例:ライオンズマンション Lionsマンション Lion'sMansion)の場合は
みなさんはどうやって重複チェックを行っているのでしょうか？
自身で考えた所では、入力フォームで新たなレコードを登録する際に、
似ている物件名があった場合は、お互いのレコードで「県」「市」「区」「町」の重複チェックを行い、最終的にユーザーに「似ている物件がありますが、これとは別の物件ですか？」と警告を出そうと思っています
そうする場合は、「フリガナ」フィールドを追加する必要があると思っています
しかし、もっとスマートな方法があるのではないかと思い、ここで質問させていただきました
よろしくお願いします
- 378 名前：デフォルトの名無しさん mailto:sage [2015/08/05(水) 16:57:05.93 ID:Bc8ICzH9.net]
- >>365
挙げられてますが、半角数字のみなど番地の入力制限は必須でしょうね
物件名のフリガナで番地違いもチェックされるみたいですし
十分スマートだと思いますよ
自分だったら番地まで一致した時にアラート出しますね
残りは住所or物件名でソートした物件リストに丸投げしちゃいます
- 379 名前：デフォルトの名無しさん mailto:sage [2015/08/05(水) 17:07:34.90 ID:URaglvwf.net]
- >>365
月1くらいで住所は同じ、物件名が違うの重複チェックを動かしてリストに出すような運用にするとか。
難しいことをら考えずに済む。
- 380 名前：デフォルトの名無しさん mailto:sage [2015/08/05(水) 17:23:47.23 ID:ndgPjsPh.net]
- なんで郵便番号のフィールドがないのか不思議
- 381 名前：デフォルトの名無しさん mailto:sage [2015/08/05(水) 22:00:34.14 ID:VP6wM0Pb.net]
- 時代はすでに二十一世紀なんだよ いまさらフリガナでもあるまい
フィールドひとつ追加 lat,lng 緯度・経度 43.386338,144.0087
- 382 名前：51 下六桁あたりで固定すれば
間違いようも無いだろ 不動産業界に身を置きながらなんでそんなことにも気付かない
マップアプリに上の数字コピペしてみりゃ、世界中の誰だって間違いようも無い
なに？ じゃあ緯度・経度どうやって調べるだと？ そのぐらいじぶんで調べろ 長押しするだけだ
まぁ、ゆえに危険が危ないがな 便利って物はとてつもなく不便なものにも等しいんだ 覚悟して使え
雌阿寒岳山頂が出るはずなんですけど、違う位置を示すマップアプリ有ったら教えてください 使用禁止にしますので [] - [ここ壊れてます]
- 383 名前：デフォルトの名無しさん mailto:sage [2015/08/05(水) 22:40:26.46 ID:yfcMdSNW.net]
- まあ、ACCESSもVBAも全く関係ない話なんだが
最終的には人間が検査しないとどうしようもないんだろうなと思う
市区町村番地あたりまではルール決めて、そこまで一致なら警告でいいんじゃね
- 384 名前：デフォルトの名無しさん mailto:sage [2015/08/06(木) 01:30:34.87 ID:f5x8JVe4.net]
- すみません、郵便番号のフィールドもあります。入力し忘れていました
・1.レコード入力時に、住所関連のフィールドを利用して重複チェックを行い、ヒットした場合は警告を出す
・2.定期的にテーブル内のレコードの重複チェックをする
・3.物件の座標を利用して重複チェックをする
上記3つの案をいただいたと思いますので
1と2を組み合わせて運用したいと考えます
3の案>>369は、完全に自身の頭に無かったアイデアなので驚きました
入力者の稼働を考えて、負担にならなければ導入してみようと思います
たくさんのレスをいただき、心から感謝致します
受けた恩を忘れず、このスレに来た別の質問者の力になれるよう精進します
- 385 名前：デフォルトの名無しさん mailto:sage [2015/08/06(木) 09:14:11.16 ID:/XuT1ECN.net]
- 警告出すとかVB脳的にダサいから
郵便番号入力してヒットしたらリストボックスに表示させて
番地を半角か全角縛りにしてヒットしたらリストボックスに表示させる
リストボックスが件数ゼロなら新規入力ボタンをイナーブル
あぁ俺それ作りたい
- 386 名前：デフォルトの名無しさん mailto:sage [2015/08/07(金) 12:16:55.68 ID:TsVm0Bt4.net]
- 人名・地名、固有名詞系はなあ 特殊と考えたほうが無難だからな 例えば・・
吾妻 という人名のふりがなを ある人は「あづま」と入れ別の人は「あずま」と入れてしまったり
じつは「あがつま」と読みます だったり
3-11-22 という地番を三丁目11番22号 三丁目11-22だの、 宛名印刷に合わせて三丁目十一番二十二号としていたり・・
それが結構な確率で頻出するのだからやっかい
それらを一律の規律で縛るのはあまりクレバーとは言えない時代になってるような
鱸 が読めないゆとりのためには「ふりがな」が必要 ってのなら意義あるだろうけど まあ、おれだけど
- 387 名前：デフォルトの名無しさん mailto:sage [2015/08/11(火) 19:16:37.92 ID:FwE103qy.net]
- フォームでFilter関数使おうと思ったら
IntelliSenseが効かなくて
無理に使おうとしてもエラーで使えず
？？？と思ったら
Filterプロパティとバッティングしてた。
VBA.Filterで解決したんだけど
プロパティの値ってオブジェクト変数無しでもアクセスできるのな。
- 388 名前：デフォルトの名無しさん mailto:sage [2015/08/11(火) 23:34:57.56 ID:AWvgSxoB.net]
- >>374
フォームモジュールでそのフォームのプロパティならな
- 389 名前：デフォルトの名無しさん mailto:sage [2015/08/12(水) 14:59:32.42 ID:G2C7HV6B.net]
- 皆様、すみません
フォームAに入力されているテキストボックスAの値(数値)を、
フォームB（データ登録用）を開いた際に自動的にテキストボックスBに入力させないのですが、どうしてもわかりません
openform ～ , , , , acforma
- 390 名前：dd で記述しています
教えていただけないでしょうか [] - [ここ壊れてます]
- 391 名前：デフォルトの名無しさん mailto:sage [2015/08/12(水) 15:32:18.52 ID:Q+lcejU0.net]
- >>376
自動入力「させない」になってますが「させたい」って事ですよね？
Form_Load もしくは Form_Open イベントに
Me.テキストボックスB.Value = [Forms]![フォームB]![テキストボックスA].Value
もしくは >>319 みたいに
Me.テキストボックスB.Value = Forms("フォームB").Controls("テキストボックスA").Value
Load、Openどちらでも動くと思いますが、適した方を使ってください
コレクションに関しても好きな方を使ってください
- 392 名前：デフォルトの名無しさん mailto:sage [2015/08/12(水) 16:26:57.95 ID:G2C7HV6B.net]
- >>377
あっさりとできました
ありがとうございました
たしかにformのイベントでやるべきでしたね、思い付かなかったです
勉強になりました
- 393 名前：デフォルトの名無しさん mailto:sage [2015/08/12(水) 18:38:30.96 ID:6lFy7xXj.net]
- >>376
単純に
DoCmd.OpenForm "フォームB", , , , acFormAdd
Forms!フォームB!テキストボックスB.Value = Forms!フォームA!テキストボックスA.Value
で出来ると思うけど？
- 394 名前：デフォルトの名無しさん mailto:sage [2015/08/17(月) 21:45:03.07 ID:7VERYxcQ.net]
- 今使っているACCESSデータをPC3台で共有しようと思っています。
その場合、テーブルをサーバーPcに、フォームとクエリをクライアントPCに入れて使うと良いとのことでした。
ただいま、フォームを非連結にして、ADOでの追加や更新ができるように変更中です。
質問ですが、
すべてのフォームを非連結にするべきなのでしょうか？
データの追加更新のない、閲覧専用のフォームをネットワークトラフィックを考えて変更すべきでしょうか？
また、分割したテーブルのあるACCESSデータをNASに入れようかとも思っているのですが、PCの場合と動作に違いはでますか？（ここは単にスペックの問題でしょうか？）
どうかお時間のあるかた、教えていただけないでしょうか。
- 395 名前：デフォルトの名無しさん mailto:sage [2015/08/18(火) 01:04:22.51 ID:l45kMI9F.net]
- テーブルを外部からリンクすれば連結でいける
- 396 名前：デフォルトの名無しさん mailto:sage [2015/08/18(火) 06:18:28.72 ID:KaSAZPht.net]
- >>380
テーブルだけのファイルをネット上の共有フォルダに置いて、それのリンクテーブルとその他のオブジェクトが入ったファイルを配布して使うだけ。
フォームの作り直しはしなくて良いと思います。
- 397 名前：デフォルトの名無しさん mailto:sage [2015/08/18(火) 19:55:28.61 ID:LTr8/sln.net]
- >>381
>>382
ありがとうございます
今まで作ったフォームをすべて非連結にするのは難しそうなので追加更新するフォームだけにしようと思います。
- 398 名前：デフォルトの名無しさん [2015/09/02(水) 22:58:44.74 ID:U41rngxq.net]
- >>382
その他のオブジェクトの入ったファイルは複数人で開いても問題ないのでしょうか？
- 399 名前：デフォルトの名無しさん mailto:sage [2015/09/03(木) 12:17:52.51 ID:TMANfQ/W.net]
- >>384
オブジェクトだけのファイルは各パソコンにコピーして使うの。
- 400 名前：デフォルトの名無しさん mailto:sage [2015/09/09(水) 20:14:57.09 ID:k4ZkuMcU.net]
- 二次元配列からレコードにデータを入れる方法は
With Rcd
.AddNew
For i = 0 to 99
.Fields(i).Value = x(0,i)
Next
.Update
End With
という様な地道な方法しかないんでしょうか？
データを入れるのに時間が掛かるので、Excelの
Range(Cells(1,1),Cells(UBound(x,1),UBound(x,2)) = x
みたいな形で一気に代入出来て処理時間を短縮できる方法はないのでしょうか？
あとDoCmd.TransferSpreadSheetでエクセルシートをインポートする方法も試したんですが、
Access側からExcel.Applicationを取得してワークブック開く方法だとエラーが出て、手動で開いた状態にしておくと読み込むんですが、
これはインポートする際にいちいちエクセルで開いておく必要があるんでしょうか？
- 401 名前：デフォルトの名無しさん mailto:sage [2015/09/10(木) 04:22:41.07 ID:t/YL/t1I.net]
- >>386
>地道な方法しかないんでしょうか？
地道に見えるんですね・・・。
DoCmd.TransferSpreadSheet
で、ググると
ttps://msdn.microsoft.com/ja-jp/library/office/Ff844793.aspx
なるページが出てきまして、そこに・・・
「インポートする際にいちいちエクセルで開いておく必要」
なんて書いてありませんでしたよ？
- 402 名前：デフォルトの名無しさん mailto:sage [2015/09/11
]
- [ここ壊れてます]
- 403 名前：(金) 00:19:59.73 ID:8grThG6x.net mailto: >>386
SQL は長くなるけどパフォーマンス気にしてるなら INSERT VALUES 試してみれば？
多少は早くなるかもよ [] - [ここ壊れてます]
- 404 名前：386 mailto:sage [2015/09/11(金) 19:59:14.96 ID:pqg3O3xw.net]
- >>388
SQLがなんとか分かってきたので、今度やってみたいと思います。
ありがとうございました。
- 405 名前：デフォルトの名無しさん mailto:sage [2015/09/11(金) 21:45:17.29 ID:HscreZA4.net]
- >>389
TransferSpreadSheetsもう少しがんばれ。
簡単で早いと思うよ。
387さんも言ってるけどEXCEL開く必要は無い。何ならEXCELがインストールされて無くてもインポートやリンクが可能なはず。
- 406 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 15:21:36.68 ID:Az8/vHuw.net]
- 質問させてください。
コマンドボタンをクリックしたら、フォーム上の任意の位置にコンボボックスを新規作成させたいんですが、こんな事出来ますか？
- 407 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 15:37:46.84 ID:nsZcbsgt.net]
- 似たようなことしたかったときはメニューで代用したな
- 408 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 15:41:04.97 ID:Az8/vHuw.net]
- >>392
詳しく
- 409 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 15:41:50.47 ID:nsZcbsgt.net]
- 右クリックでコンテキストのpopupメニューだったかな
- 410 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 15:55:30.30 ID:Az8/vHuw.net]
- >>394
ありがとう
けど、求めてる者と違う感じです…
- 411 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 15:59:22.69 ID:uZJD7NWm.net]
- ACCESSでフォームに直接新規で追加するのは難しい
非表示にしといてボタンクリックで表示させればいいんじゃないか
- 412 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 18:24:32.94 ID:sF3uHAKT.net]
- やぱ難しいですか…
必要に応じて、数に上限定めずコンボボックスを増やしたいので、表示/非表示の方法は望ましくないんです…
仮に無理なら…
質問を変えて、1フォーム中にコンボボックスはいくつまで設置出来ますか？
↑ググれば出そうですが、ついで質問ですいません。
- 413 名前：デフォルトの名無しさん [2015/09/27(日) 19:09:24.48 ID:nTKThYNU.net]
- 好きなだけ作ったらええねん
- 414 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 19:18:33.43 ID:sF3uHAKT.net]
- むむぅ…
違う方法を模索してみます。
- 415 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 19:30:00.48 ID:uZJD7NWm.net]
- じゃあフォームかサブフォームで帳票フォームにして詳細セクションにコンボ配置すればいいんじゃね
それ以外で不定数のコンボ欲しいとか言うなら設計がおかしすぎる
- 416 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 21:13:46.60 ID:sF3uHAKT.net]
- 帳票フォームにコンボボックス設置したら、そこで変更した内容が全部のコンボボックスに反映されるじゃん？それは困る
- 417 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 22:14:17.55 ID:uZJD7NWm.net]
- ちょっと言ってる意味が分からない
あるレコードのコンボボックスの値が、他のレコードの値に影響すると？
- 418 名前：デフォルトの名無しさん mailto:sage [2015/09/27(日) 23:58:41.76 ID:Wa2IEO89.net]
- 最初の構想としては
データが存在するフィールドにコンボボックスを表示させて、それぞれに別々のデータを入れて、新しいテーブルを生成したかった。
説明下手ですいません。
- 419 名前：デフォルトの名無しさん [2015/09/28(月) 10:36:51.52 ID:0RjOK4Zp.net]
- 設計がおかしい
もしくは
Accessを使うべきではない
- 420 名前：391 mailto:sage [2015/09/28(月) 10:50:56.86 ID:08kJukTg.net]
- 設計し直します
- 421 名前：デフォルトの名無しさん mailto:sage [2015/09/28(月) 11:18:27.64 ID:65OblfGI.net]
- >>405
最終的な目的というか、なにをするためにこういった機能が欲しいのか
わからない。
>データが存在するフィールドにコンボボックスを表示させて、
ここまでは何となくわかる。
フィールドのルックアップをコンボボックスにすることはできる。
ただ、あるフィールドをこのレコードはテキストボックス、
そのレコードではコンボボックスってのはできない。
どっちも似たようなものだけどねｗ
>それぞれに別々のデータを入れて、新しいテーブルを生成したかった。
これがわからない。それぞれにってなんぞ？
フィールドにデータが入力された、そのテーブルのコピーって。。。作れるよね？
- 422 名前：391 mailto:sage [2015/09/28(月) 20:06:23.90 ID:cvdri0js.net]
- ホント説明下手で申し訳ない
写真を付けてみた
・作業用テーブルAで帳票フォーム作る
・(出来ない所その1)フィールド上にデータがあるレコードにだけコンボボックスを表示させたい。
・(出来ない所その2)コンボボックスにデータを入力すると、他レコードにも同内容が入力される。←違うデータを入れた
- 423 名前：い
http://i.imgur.com/hdHud4y.jpg
http://i.imgur.com/KDmSreu.jpg [] - [ここ壊れてます]
- 424 名前：デフォルトの名無しさん mailto:sage [2015/09/28(月) 21:48:54.09 ID:hW3kfusx.net]
- 両方無理だね。
- 425 名前：デフォルトの名無しさん mailto:sage [2015/09/28(月) 21:53:23.92 ID:65OblfGI.net]
- >>407
いろいろ試したけど、コンボボックスのvisibleのプロパティを
帳票フォームの詳細のpaintイベントで操作できないので無理かなと。
背景色は変えられるみたいだから、コンボボックス全部並べて
背景色で区別できるようにするくらいしかできないかも。
書かれている通りの物が欲しいのであれば、.Netで作るしかないかなぁと。
- 426 名前：391 mailto:sage [2015/09/28(月) 22:16:45.56 ID:XnIORDmB.net]
- やぱ無理ですよね
諦めて違う方法を考えます
- 427 名前：デフォルトの名無しさん mailto:sage [2015/09/29(火) 03:32:01.48 ID:FcuCREbJ.net]
- コンボボックスには何を表示/入力させたいんだ？
すくなくとも その２ はできるはずだと思うが
- 428 名前：デフォルトの名無しさん mailto:sage [2015/09/29(火) 03:32:38.44 ID:FcuCREbJ.net]
- コンボボックスには何を表示/入力させたいんだ？
すくなくとも その２ はできるはずだと思うが
- 429 名前：デフォルトの名無しさん mailto:sage [2015/09/29(火) 12:52:55.08 ID:12O/9Fge.net]
- ひとつのフォームにひとつのコンボボックスのフォームをフィールド分作って
OpenしたりCloseしたりすればいいんじゃない？
フォームの表示位置は指定できるんだし、作り込めばカッコよくなりそう(俺はやらないけど)
- 430 名前：デフォルトの名無しさん [2015/10/07(水) 12:00:19.12 ID:qdqRCjiZ.net]
- 受ける会社大丈夫？
下記の条件が全て当てはまる会社にご注意下さい。
・IT系 in tokyo
・「社名 労基」でググると過去の2chスレが出てくる
・転職会議で2.5点
- 431 名前：391 mailto:sage [2015/10/09(金) 20:00:26.30 ID:7kbTW2jS.net]
- 結構前に質問した者だけど
設計変更して、無事にアプリが完成しました
色々アドバイスくれた人サンキューでした
- 432 名前：デフォルトの名無しさん mailto:sage [2015/10/10(土) 08:45:04.70 ID:7MsZxkaP.net]
- >>415
わからんけど、良かったね
- 433 名前：デフォルトの名無しさん [2015/10/10(土) 12:55:30.31 ID:/egW/Cb1.net]
- 事後報告なんて珍しい
- 434 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 15:34:31.54 ID:hlB+t7r4.net]
- 質問です
現在Accessでチェックシートを作成しています。
内容は以下の通りです。
・目的:接客の際の必須項目の聞き取り漏れ、説明漏れを防ぐ
・仕様の概要:必須項目の各チェックボックスにチェックが入っていなければ各チェックボックスの背景を赤塗り
チェックが入っていれば緑塗り
注意が必要な組み合わせにチェックをした際に警告メッセージを出す等の、相関チェックを導入
フォームで入力した値はテーブルに格納。
対応1件につき、1レコード。
・環境:win7 access2010
上記仕様のチェックシートをAccessのフォームで作成していますが、
別のレコードに移動するとチェックボックスの色が
画面遷移前のレコードの色のままになってしまいます。
レコードを移動する度に、移動先のフィールドの値に
適した色に変えたいと思っています。
自身の考えでは、レコード移動をする度に、移動後のレコードの
チェックボックスの値を取得。
値に適した色に変更と考えていますが
Access標準装備の機能等で、
もっとスマートな方法があるのではないかと思ったので、ここに質問に来ました
皆様のお知恵をお貸しください
どうかよろしくお願い致します
- 435 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 15:52:31.22 ID:K+nxBSBI.net]
- 条件付き書式って機能があるけど、2007で試したら、チェックボックスには適用できないっぽいな
>別のレコードに移動するとチェックボックスの色が
>画面遷移前のレコードの色のままになってしまいます
今どうやってやってるんだ？
- 436 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 18:00:58.67 ID:hlB+t7r4.net]
- >>419
今は下記のようにコントロールの背景色を変えています
Checkboxの初期背景色はコントロールのプロパティで赤を選択しています
private sub Checkbox1_Click()
If Checkbox.Value = True then
Checkbox1.Backcolor = 緑
Else
Checkbox1.Backcolor = 赤
End If
End Sub
- 437 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 20:33:04.19 ID:K+nxBSBI.net]
- >>420
基本的には同じ事をレコード移動時にやるだけだな
ところで2007のCheckboxにはBackcolorとか無いっぽいけど、2010じゃあるのか
- 438 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 20:57:15.41 ID:0pbjHxf6.net]
- >>421
でもこれだとレコード移動時に、反映されないんですよね
1.リアルタイムで色を変えるコード
2.レコード移動時に色を変えるコード
2倍のコーディングが必要になる点がスマートじゃないと思ってます
今更ですが「全相関チェック(警告メッセージ含む) & 全チェックボックスの色変更」の
判定を行うサブルーチンを1つ作り、
「レコード移動時」「チェックボックスのチェック時」のイベントで
都度サブルーチンを呼び出しすれば
結構スマートになるのかな？と思いました
ただ、チェックをする度にサブルーチンが実行され、
関係の無い箇所まで判定されてしまうと
チェックボックスの数次第で重くなる可能性がありますね
また、相関チェック(メッセージ有)に引っかかる組み合わせになっていると、
関係のないチェックをした際にも
メッセージが出てしまうので、操作性が損なわれてしまいますね
- 439 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 21:10:04.23 ID:h/UXEdKw.net]
- >>421
条件付き書式はダメなのかと思い、一応調べてみたら下記サイトにあるように利用出来るかもしれません
条件付き書式で実装した方が
メンテナンス性も上がるので、一旦条件付き書式でやってみようと思います
hamachan.info/win8/access/and.html
m.chiebukuro.yahoo.co.jp/detail/q11134637911
Excelでは、条件付き書式を多用していたんですが、
今回は何故かその考えが完全に抜けてました
お教えくださり本当にありがとうございます
- 440 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 21:20:09.79 ID:K+nxBSBI.net]
- 入力不可能なテキストボックスをチェックボックスの下に配置して条件付き書式設定とか
まあ、やりようはあるんだが
条件付き書式は、コード見てもプロパティ見てもその設定が分からんからなぁ
個人的には好きではない
- 441 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 22:42:29.78 ID:h/UXEdKw.net]
- >>424
仰る通り確かに、他者の事を考えると
条件付き書式だらけになってしまうってのも考える物ですね…
悩ましいです
- 442 名前：デフォルトの名無しさん mailto:sage [2015/10/11(日) 23:16:40.32 ID:OogdFVxU.net]
- 男のくせに「悩ましい」とか使う奴の言動は一切信用しないことにしている
これっぱかしもだ 微塵もだ 毛一厘もだ うじゃじゃけてるヒマあったら答え出せ
できるのか？ できないのか？ できないなら去れ できるなら結果出せ 以上
- 443 名前：デフォルトの名無しさん mailto:sage [2015/10/12(月) 00:54:54.91 ID:7l73laAr.net]
- >>426
＞男のくせに
単純に疑問です。何を根拠にして男と判断したのでしょうか？
- 444 名前：デフォルトの名無しさん [2015/10/13(火) 21:07:29.45 ID:iGPs38vk.net]
- VBAじゃないんだが助けてくれ～。Access を複数人で使用する時について質問させて下さい。
テストのために、Access（2010）でこういう簡単なシステムを作りました。
バックエンド 2フィールド／レコードが数レコードだけあるテーブルが1つ
フロントエンド リンクテーブルと、そのテーブルの全フィールドを表示するクエリ
（クエリのレコードロックプロパティ：編集済みレコード）
※ 全 accdb ファイルについて、オプションから
「共有モード」「編集済みレコード」レコードレベルでロックして開く」を指定済み
でさて、フロントエンドＡ・Ｂを開き、Ａがレコードを編集する時に、
よく解らないきっかけでＢのほうで複数レコードに渡ってロックされる事態になり
（これは全レコードの時もあるし、１行より多く全レコードより少ない時もあります）、
またよく解らないきっかけでその事態が解消されることがあるのに気づいたのですが、
この異常事態の原因は何で、対策はどうすればいいでしょうか？
検索しても手持ちの書籍でも解らずお手上げでして、
ど
- 445 名前：なたかご助言を下さればありがたいです。 []
- [ここ壊れてます]
- 446 名前：デフォルトの名無しさん mailto:sage [2015/10/13(火) 22:09:39.22 ID:v0mnZW8d.net]
- >>428
それがわからないなら、諦めろ。
外注に出そうな。
- 447 名前：デフォルトの名無しさん mailto:sage [2015/10/14(水) 02:52:15.27 ID:EFTour7u.net]
- 良くわからないきっかけとやらを特定する
エスパーを探す
お好きな方で
- 448 名前：デフォルトの名無しさん mailto:sage [2015/10/14(水) 06:55:27.52 ID:fbrLImlI.net]
- 428ですが先輩の皆様非常に手厳しいですね
何とか自分で特定できました おじゃましました
- 449 名前：デフォルトの名無しさん [2015/10/14(水) 11:31:57.79 ID:EGTHNy+H.net]
- 自分で解決できるなら質問しないでください
うざいだけです
- 450 名前：デフォルトの名無しさん mailto:sage [2015/10/14(水) 19:36:39.06 ID:Wlh7M+gV.net]
- 解決した結果というか原因を書いておけば、後輩が喜ぶよ。
- 451 名前：デフォルトの名無しさん mailto:sage [2015/10/17(土) 08:19:31.95 ID:P+NFgFW2.net]
- Accessなんて俺以外は誰も使ってないよね。
- 452 名前：デフォルトの名無しさん mailto:sage [2015/10/17(土) 19:12:33.45 ID:ee0s4Mox.net]
- >>434
俺は使ってるぞ!
ちょっと癖はあるがAccess最強伝説は不滅さ!
ただし小さいシステムに限る。。。。
- 453 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 06:40:13.96 ID:262pAAoP.net]
- MSDEとかSQL Serverと組み合わせれば少しはレベルが上がりますかね？
- 454 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 07:25:07.68 ID:cUqtHutT.net]
- >>436
いまそこまでするならWebで使えるようなスキルを身につけてしまう事も考えちゃいますね。。。。phpとかいい感じに枯れてきてるよう思います
- 455 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 11:01:28.83 ID:vJDQVwJW.net]
- access + django 試したら意外といけた
- 456 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 16:38:41.44 ID:cUqtHutT.net]
- >>438
少しだけｋｗｓｋ
Pythonのフレームワークだよね?
- 457 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 17:07:54.47 ID:Vpke6UWK.net]
- 今からweb連携て
php覚える前に俺のいろいろが枯れてるのを何とかしてくれ
- 458 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 17:18:09.60 ID:81sora9Q.net]
- ウェブアプリよりネイティブアプリだよね
- 459 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 18:00:30.34 ID:cUqtHutT.net]
- >>441
いやーWebでしょう。
限られた環境ならネイティブアプリでもいいんでしょうけど。。
どこまで広げるかによるけどね。
入力はネイティブ、閲覧はWebという感じに住み分けるのも
いいのかもしれない。
- 460 名前：デフォルトの名無しさん mailto:sage [2015/10/18(日) 18:19:24.53 ID:81sora9Q.net]
- >>442
>入力はネイティブ、閲覧はWeb
そうそう
それそれ
- 461 名前：デフォルトの名無しさん [2015/10/23(金) 20:11:11.99 ID:YF5Y/5+5.net]
- カラムの中で、空白の場合は、空白でない上のデータもってくるってクエリを作りたいのですが、どのようにすればできますか？
Excelでは可能なのですが、百万件以上のテーブルのためできません。
- 462 名前：デフォルトの名無しさん mailto:sage [2015/10/24(土) 04:28:16.14 ID:dOe1BR+K.net]
- >>444
原則としてRDBのテーブルの行に、上とか下とか順序はないんだが
頑張ればSQL(クエリ)だけで出来なくもないけど、簡単なVBAマクロ作って流せばいいんじゃね
- 463 名前：デフォルトの名無しさん mailto:sage [2015/10/24(土) 12:14:04.67 ID:niXzNvfm.net]
- ソート後の順序で真上のレコードっていう条件が必要だろう
- 464 名前：デフォルトの名無しさん mailto:sage [2015/10/24(土) 17:03:31.97 ID:XMDiNwuL.net]
- >>443
マイクロソフトさんこんな需要がありますよー
アクセスこれからも面倒見てね
- 465 名前：デフォルトの名無しさん mailto:sage [2015/10/24(土) 18:35:34.63 ID:niXzNvfm.net]
- FileMakerでも出来ること
- 466 名前：デフォルトの名無しさん mailto:sage [2015/10/24(土) 20:02:10.36 ID:pancXijC.net]
- >>447
MySQLに接続して閲覧側はウェブでAccess側は入出力側で実現。
でも、MSはAccessはいずれ亡くすと思うよ。年々需要が減ってる
- 467 名前：デフォルトの名無しさん mailto:sage [2015/10/24(土) 21:31:19.29 ID:XMDiNwuL.net]
- LightSwitchってその後どうなったのかな?
- 468 名前：デフォルトの名無しさん mailto:sage [2015/10/25(日) 21:29:15.26 ID:3h+48Nx8.net]
- >>450
殆ど消えたも同然の状態。
- 469 名前：デフォルトの名無しさん mailto:sage [2015/10/26
]
- [ここ壊れてます]
- 470 名前：(月) 20:56:01.66 ID:GrJVc3nW.net mailto: フォームやレポートの作成が簡単で助かってるんだけど、Accessに匹敵するほどお手軽簡単な開発環境あるのですか？ []
- [ここ壊れてます]
- 471 名前：デフォルトの名無しさん mailto:sage [2015/10/27(火) 02:06:01.33 ID:P3tmhbiJ.net]
- ない
- 472 名前：デフォルトの名無しさん mailto:sage [2015/10/27(火) 06:08:45.26 ID:aDjshOL6.net]
- だから無くなると困るんだよなあ
|
 |
