Access VBA 質問スレ Part2

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

Access の VBA に関する質問スレです

質問テンプレ(雛形)は用意しませんが、OSとAccessのバージョンぐらいは必ず書きましょう

前回のスレッド
Access VBA 質問スレ Part1
https://mevius.5ch.net/test/read.cgi/tech/1328536426/

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

女性の体にアクセスするにはどうすればよいですか？

**デフォルトの名無しさん** · 2018/12/13(木) 18:14:38.10

プロパティーシートから直接Functinをcallするときに=Function()と書きますね。
これをvbaで設定できますか？
モジュールプロパティーのCreateEvetnPorcからは当然ながらできません。
どのオブジェクトのメソッドならできますかね？それとも不可能でイベントプロシジャーでcall Functionと書くしか方法がないのでしょうか？

**デフォルトの名無しさん** · 2018/12/13(木) 18:44:40.99

自己解決しました。

**デフォルトの名無しさん** · 2019/01/13(日) 23:33:33.86

順位が1位から20位までのデータがあったとして、

SQLを使用して、下位3件のデータを上位から取得（18位、19位、20位の順)するにはどうすればよいですか？

**デフォルトの名無しさん** · 2019/01/20(日) 08:19:09.61

select * from (select top 3 * from テーブル名 order by 順位 desc) order by 順位 asc

**デフォルトの名無しさん** · 2019/01/20(日) 19:20:31.32

>>6
ありがとうございます。これです。これがやりたかったんです。本当にありがとうございます！

**デフォルトの名無しさん** · 2019/01/30(水) 21:17:34.34

業務用mdbを眺めていたら,モジュールレベルでPublic宣言とGlobal宣言が混在している.
このPGはアホなのかな?

**デフォルトの名無しさん** · 2019/01/31(木) 19:42:49.72

Excelからmdb更新するとかありなの？

**デフォルトの名無しさん** · 2019/02/01(金) 21:39:02.72

テーブル定義いじるやつはマゾだがデータ更新なら普通だろ

**デフォルトの名無しさん** · 2019/02/02(土) 15:17:40.44

そういえばGlobalって余り使わないけど
publicとどういう差が有るのかは知らないなぁ

**デフォルトの名無しさん** · 2019/02/20(水) 18:39:48.45

会社のPCがようやく７から１０に切り替わり、
ついでにofficeが2010から2016になった。

そしたら・・・・・・
Accessのシステムが壊滅状態（；＿；）
一番シンプルなところで、DateTimePickerがない・・・。

Access2016で日付フィールドとリンクしてない状態で、カレンダー使うのどしたらいいの・・・
2010と互換性を維持したまま

**デフォルトの名無しさん** · 2019/02/20(水) 21:54:34.71

もうAccessを卒業するんだ

**デフォルトの名無しさん** · 2019/02/21(木) 13:02:36.57

参照設定弄ってもだめなの？

**デフォルトの名無しさん** · 2019/02/21(木) 19:38:17.35

>>14
情シス「VBのランタイム入れません。よくわからないから。」

(;_;)

**デフォルトの名無しさん** · 2019/02/21(木) 19:55:52.51

>>12
カレンダー用のOCXだかDLLだかを持ってきて入れれば動くはずけど
ライセンス的にどうだか知らない

>>14
そもそもそのコンポーネントが今のACCESSに無くなってるから
2016をクリーンインストールしてれば参照設定できない

2010とかランタイム版あったはずだから、2016入れた後からインストールできるなら
それ入れれば行ける気がする
試して報告してくれ

**デフォルトの名無しさん** · 2019/02/21(木) 20:11:01.25

そもそもAccessって、サポートあるの？
あるとしたら、SA結んだら何回までオッケーただしおま環は知らんみたいな？

**デフォルトの名無しさん** · 2019/02/23(土) 08:51:07.40

>>15
それじゃどうしようもないじゃん

**デフォルトの名無しさん** · 2019/03/02(土) 05:49:40.18

Accessの謎の異常終了は、永久に治らないの？？

**デフォルトの名無しさん** · 2019/03/02(土) 18:30:04.00

microsoftはしかたなくaccessを続けているだけで
microsoftは多分本気でやる気はないよ
本気ならとっくに2G制限も越えているだろうしネットワーク処理機能搭載くらいしている
microsoftが本気ならファイルメーカーがやってる感じくらいの機能搭載や改良はしてる筈
office製品の一部だから止められないだけで
本格的な改修とかは無いと思っていた方が良い
絶対無いとは思わないけど
今ある範囲でやれる内容をこなす程度で期待とかはしないほうが良いと思う

**デフォルトの名無しさん** · 2019/03/04(月) 09:50:39.88

そもそも元々MS製品じゃないしなあ。

**デフォルトの名無しさん** · 2019/03/04(月) 19:28:23.37

そうなの？

**デフォルトの名無しさん** · 2019/03/05(火) 17:59:42.40

元々別会社が作っていた物を会社ごと買収してaccessって名前にして出した?
みたいな経緯だったと思う
確かwikipediaとかに書いてあったと思う
だからなんつーか
microsoftも余り思い入れが無いというか本気で無いというか
そういう感じの所が有るのは仕方が無いのよ
寧ろここまで続いている方が驚き
近年他のアプリケーションの値段が上がっている中でaccessは値上げもたいしてしないし(はっきり確認したわけではないが)
vb6.0が終わったのに比べて
良くaccessはこんなに続くなぁとは思う
vb6.0とaccessvbaなんて殆ど同じなのになんでvb6.0止めたんだろうと思うくらい
64bit版は出すのに本格改修なんかはするつもりないみたいだし
いったい何処まで続くのかある意味解らなくなってきた
他のアプリケーションが大きく変わったり無くなっている中で
これだけ変わらず(細かい点を除けば)長く続くのはかなり珍しい気がする

**デフォルトの名無しさん** · 2019/03/05(火) 22:29:47.29

止めたら影響大きいだろうな。電子カルテもあるし。

**デフォルトの名無しさん** · 2019/03/06(水) 07:31:01.14

言語仕様がほとんど変わらないおかげで20年前のシステムが今も使えている
開発コストと保守コスト考えたらAccessは素晴らしいよ

**936** · 2019/03/06(水) 11:17:38.29

ローカルでランダムアクセスできるAccessは気楽でいい

**デフォルトの名無しさん** · 2019/03/09(土) 21:57:04.20

excel vbaとaccess vba
どっちの方が実用的ですか？

**デフォルトの名無しさん** · 2019/03/09(土) 23:04:33.82

>>27
必要に合わせてどっちも実用的

**デフォルトの名無しさん** · 2019/03/10(日) 00:06:55.04

T_商品というテーブルを用意し、そこには次の内容が入っており、
商品　　　　　　材料１　材料２　材料３
卵かけご飯　　　　卵　　　米
お好み焼き　　　　小麦　　卵　　　豚肉
ショートケーキ　　卵　　　小麦　　苺
アップルパイ　　　りんご　小麦　　牛乳

フォームに、材料A、材料Bのテキストボックスを置き、
検索ボタンを押すと、材料AかつBを含む商品が検索されるというVBAの記述に苦慮しています。
単独の材料であれば、VBAにSQLを組み込み、
SELECT * FROM 商品テーブル WHERE 材料１ = ' & 材料A & ' OR 材料２ = ' & 材料A & ' OR 材料３ = ' & 材料A & ' ;
こんな感じでできるのですが、材料が２つ以上になるとどうすればよいか見当がつかなくなりました。
アドバイスいただけませんでしょうか？

**デフォルトの名無しさん** · 2019/03/10(日) 01:11:27.75

>>29
1がAかB
かつ
2がAかB
かつ
3がAかB
じゃないかな…眠くて間違ってる気もする…
あと、候補がおおすぎないなら、テキストボックスはコンボかな…（フォーム起動遅くなるなど副作用もあったりするのでこの案は無視して可）
おやすみなさい…

**デフォルトの名無しさん** · 2019/03/10(日) 01:18:29.26

>>30
間違ってます。zzz

**デフォルトの名無しさん** · 2019/03/10(日) 13:11:16.19

>>29
悪いことは言わんから、まずテーブル設計見直せ

**デフォルトの名無しさん** · 2019/03/10(日) 15:10:38.80

馬鹿の次の質問

材料4を追加した時にはどうすれぱよいでしょうか？

**デフォルトの名無しさん** · 2019/03/10(日) 17:44:21.19

>>27
そもそもExcelでは応用効かない

**デフォルトの名無しさん** · 2019/03/10(日) 17:46:58.02

>>15
Visual Studio ExpressでDLL作れ

**デフォルトの名無しさん** · 2019/03/10(日) 17:55:45.50

>>29
そのテ―ブルはちょっと…
商品のテーブルと材料のテーブルで結合じゃね?

**デフォルトの名無しさん** · 2019/03/10(日) 18:51:26.88

accessは大昔にやってて今は持ってすらいないけど

該当行をdynasetで取り出した後
該当fieldから値を取り出して
if分で有るか調べれば出来たりしないか?

**デフォルトの名無しさん** · 2019/03/10(日) 18:58:03.76

いくらでも増やしていいぞ

SELECT * FROM 商品テーブル
WHERE (材料１ = ' & 材料A & ' OR 材料２ = ' & 材料A & ' OR 材料３ = ' & 材料A & ')
AND ("" = ' & 材料B & ' OR 材料１ = ' & 材料B & ' OR 材料２ = ' & 材料B & ' OR 材料３ = ' & 材料B & ')
AND ("" = ' & 材料C & ' OR 材料１ = ' & 材料C & ' OR 材料２ = ' & 材料C & ' OR 材料３ = ' & 材料C & ');

**デフォルトの名無しさん** · 2019/03/10(日) 22:38:23.14

いやぁぁぁぁぁぁぁ

**デフォルトの名無しさん** · 2019/03/10(日) 23:14:01.04

だから、材料フィールドを横に並べるのは作りが悪いだろ。
フィールド1個にして縦に並べるべきじゃね?

**デフォルトの名無しさん** · 2019/03/10(日) 23:50:20.06

unionで繋げばいいんじゃね

**デフォルトの名無しさん** · 2019/03/11(月) 00:08:26.31

設計の問題だろ。
できるできないの問題じゃない。

なんで使い勝手の悪いもんをわざわざ作らなきゃならんのよ。

**デフォルトの名無しさん** · 2019/03/11(月) 08:04:29.38

取り敢えず動かすなら、
材料1～4をカンマで連結した文字列の中に、AとB両方ある
と書けば人間にはわかりやすい

**デフォルトの名無しさん** · 2019/03/11(月) 13:56:54.71

まぁリレーショナルデータベースだから設計を変えるべきだけど
access使うような所なんて零細なんだから
そんなリファクタリングだのテストファーストだのモダンだのオブジェクト指向だのも関係無いような人材しか居ないんだから
vbaベタベタというのでやるしかない
みたいな感じなんだろう
その人がそれしか出来ないならvbaベタベタしか方法が無かったりする
この人がそうなのかは知らないけど

**デフォルトの名無しさん** · 2019/03/12(火) 00:15:11.07

普通の設計にしたとして
countが3以上の～、とかやるのが正しいの？
なんか不安なんだが

**デフォルトの名無しさん** · 2019/03/12(火) 12:34:12.09

なんでcountなんて話になってるの?
商品テ―ブルと材料テーブルで結合するなら、商品テーブルには材料IDのフィールドが1つしかないんだから、材料IDのフィールドに材料AのIDと材料BのIDを持つ商品を検索するだけだよ。

**デフォルトの名無しさん** · 2019/03/12(火) 14:56:37.82

一つの材料IDフィールドに2つの材料IDをカンマ区切りで入れるのが正解なの？
リレーショナル全否定？

**デフォルトの名無しさん** · 2019/03/12(火) 21:15:05.16

リレーショナルデータベースを前提にするならどんな設計が一番使い勝手がよいんだろうかね

**デフォルトの名無しさん** · 2019/03/12(火) 22:39:48.12

>>46
商品テーブル、材料テーブル、商品の材料テーブルを作って、こんな感じで

SELECT [商品] FROM 商品の材料
WHERE 材料 IN (Form!材料A, Form!材料B, Form!材料C)
GROUP BY [商品]
HAVING Count([商品]) >= Form!条件数;

材料A,B,CそれぞれのサブクエリをJIONするよりは速い気がする

**デフォルトの名無しさん** · 2019/03/13(水) 08:11:10.52

>>49
うん、基本的に同じ考えだ。
以下の書き込みをしようとしてたが、放置してた。

>>47
何を言ってるんだ?
俺はカンマ区切りなんて言ってないぞ。

リレーショナルが分かってるなら>>29みたいにゃならんだろうよ。
卵かけご飯の材料1の卵と材料2の米は、材料1を米、材料2を卵と取り替えちゃいかんのか?
そんなこと無いだろ。
こういう同じ種別の物を別フィールドにすると管理出来なくなるだろ。

商品　　　　　　　　材料
卵かけご飯のID　　　　卵のID
卵かけご飯のID　　　　米のID
お好み焼きのID　　　　小麦のID
お好み焼きのID　　　　卵のID
お好み焼きのID　　　　豚肉のID
ショートケーキのID　　卵のID
ショ－トケーキのID　　小麦のID
ショートケーキのID　　苺のID
アップルパイのID　　　りんごのID
アップルパイのID　　　小麦のID
アップルパイのID　　　牛乳のID

こういう風にして商品マスタ、材料マスタ、商品作成の3テーブルにする。
しかし、商品、材料どっちのテーブルの場合もそうだが他に管理したい情報がないならそれぞれマスタテーブルやめてIDの所を商品名や材料名にしてテーブル減らしても良い。
その場合は最小1テ―ブルになる。
なお、>>46は商品マスタをやめて2テーブルにした場合だ。

**デフォルトの名無しさん** · 2019/03/13(水) 11:51:37.19

仕様が解らないからアレだけど
そのhaving countだと同じ材料が複数行登録されていた場合に
フォームに設定した別々な材料で検索した時に検索しても且つ条件にならないんじゃないかな?
同じ材料を登録できないように作ってあれば問題無いと思うけど
その辺どうなんだろうか?
まぁ作りと要求次第だと思うけど
的外れだったらごめんよ
ちょっと気になったんで

複数列の場合に連結してから文字列検索で探すというのは
sqlが長く複雑になり難いかもしれないね

何にしても実現の仕方は色々有るね
その人の技量や置かれている状況次第だろうね

**デフォルトの名無しさん** · 2019/03/13(水) 19:07:03.88

最初に不安だと書いているように私もCountは邪道だと思ってるんですよね
「なんでcountなんて話になってるんだ」と怒られる程度には

それで、いろいろな方法がある中で「王道」をご指導いただけないんでしょうか？

**デフォルトの名無しさん** · 2019/03/13(水) 21:35:24.37

>>51
基本的に、テーブルには誤りのあるデータは登録しない
逆に言うと、読み出したデータに誤りがあるかもしれないなら、全ての読み出し処理の後に全項目の妥当性チェックが必要になる

**デフォルトの名無しさん** · 2019/03/15(金) 17:36:53.07

製品テーブルと素材テーブルと連結用テーブルの三つつくる
あとIDいらんから消して

**デフォルトの名無しさん** · 2019/03/15(金) 18:33:31.75

idいらないのではってこと時々あるよね。
性別項目なんて"男"、"女"って直接入れてエエやんて思う。

**デフォルトの名無しさん** · 2019/03/15(金) 18:46:17.04

>>54
id使わないなら 1テーブルでええんとちゃう？

**デフォルトの名無しさん** · 2019/03/15(金) 18:47:49.00

>>56
余りにも近視眼でした

**デフォルトの名無しさん** · 2019/03/15(金) 19:00:16.39

>>55
性別はboolでいい

ただしオカマちゃんなどに対応するため
Bool 肉体の性別
Bool 精神の性別
Bool 改造後の性別
Bool 住民基本台帳の性別
Bool 一般公開する性別
Bool セキュリティで保護された性別
などのフィールドを用意するのがベスト

**デフォルトの名無しさん** · 2019/03/15(金) 20:17:51.87

SLC、MLC、TLC、QLCだな

**デフォルトの名無しさん** · 2019/03/15(金) 21:26:19.10

オカマでも、男専、バイ、女専と分けないとトイレで掘られるリスクが

**デフォルトの名無しさん** · 2019/03/16(土) 08:42:08.72

Excel VBA質問スレが最後までいって終わったので、次スレ検索したらここが出てきた
Excel VBA質問スレの新スレはないのか？

**デフォルトの名無しさん** · 2019/03/16(土) 08:43:02.89

Excel VBA質問スレでもAccessの話が話題に出るので、ここと統合してもいいんじゃね？
VBAメインの話だろ

**デフォルトの名無しさん** · 2019/03/16(土) 10:08:04.54

>>29がダメな理由、データベースがわからない人にどう説明したら良いんだろ。
ウチの会社も、みんなこうやって作りたがるんだよな。

商品　1月売上　2月売上　3月売上　4月売上　・・・

**デフォルトの名無しさん** · 2019/03/16(土) 13:39:03.23

難しいだろうね
リレーショナルデータベースにおける正規化って
コンピューター的な都合でテーブルを分けてる
でも実際には依頼伝票と明細というものは
人間の感覚的には一体として扱う方が感覚的に自然だからそういう風になってしまう
何の為にリレーショナルで正規化をするのか?
というのをデータの不整合が起きないようにを集中化させる為である事を教えるしかないけど
コンピューターがどういう風に処理をすると
効率的だったり安全だったりするか
を理解しておかないと難しい
表計算の延長や通常の感覚のままだと無理だと思う
大げさに言うと
コンピューターサイエンスの知識が必要
って事になる思う
accessはリレーショナルな所を活用して効率化しているから結構難しい面が有る
どうしても無理なら
桐
でも使うという手も有るw

**デフォルトの名無しさん** · 2019/03/16(土) 17:31:16.60

>>54
横槍ど素人でごめん。
連結用テーブルってのは>>50みたいなのでおkってことですか？
最近ACCESS初めて同じようなことしようと思ってます。

**デフォルトの名無しさん** · 2019/03/16(土) 19:49:12.47

>>65
そそ。
あそこに並んでる表を入れておくのが連結テーブル
あれがなぜ必要かはわかると思うので略
商品、材料テーブルの内容から、自ずと連結テーブルも必要になり、そういうテーブル構成になることは別に特殊なことではありません

**デフォルトの名無しさん** · 2019/03/17(日) 08:42:17.71

こんなスレがあるぞ

VBAに関する質問はこちらへどうぞ
Excel、Access、Outlook分ける必要ないだろ

VBAなんでも質問スレ Part2 [転載禁止](c)2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/17(日) 10:57:55.94

>>66
ありがとうございます。
実際は、製品のそれぞれの材料をどれくらい使ったかを管理する必要があるのですが、その場合、
製品テーブル
材料テーブル
製品と材料の連結テーブル
連結テーブルと使用量の入力用テーブルが必要になるイメージですかね？
VBAスレでしたね。テーブルの作り方はここではないのはわかってるのですが、何かこのあたりのテーブルやフォームの作成のヒントになる書籍とかあれば教えていただけませんか？

**デフォルトの名無しさん** · 2019/03/17(日) 13:57:54.89

excelとaccessはアプリケーションとして随分違うから分けた方が良い
excelの方が進みが速いし
access相談系ってここ以外に案外質問スレが見当たらないし(自分が知らないだけで実際には有るかも知れないけど)

分量で分けるなら
excel
access,word,outlook,その他?
みたいに二つに分けた方が良い

excelは利用している人の数が段違いだろうし
上の質問みたいに
材料1,材料2,...
みたいにするのはaccessでは合い難いけど
excelでは割とそういう風に使うから
違いは大きい
それにexcelvbaの方は見てないけど
accessとexcel勢で何か悶着有ったみたいだし

基本は分けた方が良い

**デフォルトの名無しさん** · 2019/03/17(日) 17:33:15.64

>>63
Excelに慣れて表を想像するから。
DBはリレーションを想像すべきで表を想像すべきじゃない。

>>64
リレーションに慣れてれば自然に正規化しようとするようになる。