Access VBA 質問スレ Part2

1 ：デフォルトの名無しさん：2018/12/12(水) 22:14:39.18 ID:GF6Qf3Td.net

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

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


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

2 ：デフォルトの名無しさん：2018/12/13(木) 00:13:52.55 ID:6Z+s7/ms.net

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

3 ：デフォルトの名無しさん：2018/12/13(木) 18:14:38.10 ID:OtD2AZ3g.net

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

4 ：デフォルトの名無しさん：2018/12/13(木) 18:44:40.99 ID:OtD2AZ3g.net

自己解決しました。

5 ：デフォルトの名無しさん：2019/01/13(日) 23:33:33.86 ID:c2khr5fz.net

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

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

6 ：デフォルトの名無しさん：2019/01/20(日) 08:19:09.61 ID:cWi8furK.net

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

7 ：デフォルトの名無しさん：2019/01/20(日) 19:20:31.32 ID:gJkAP+bh.net

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

8 ：デフォルトの名無しさん：2019/01/30(水) 21:17:34.34 ID:L0BPGpLZ.net

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

9 ：デフォルトの名無しさん：2019/01/31(木) 19:42:49.72 ID:fGTESevq.net

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

10 ：デフォルトの名無しさん：2019/02/01(金) 21:39:02.72 ID:IN4mmcqP.net

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

11 ：デフォルトの名無しさん：2019/02/02(土) 15:17:40.44 ID:wM22Ef9l.net

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

12 ：デフォルトの名無しさん：2019/02/20(水) 18:39:48.45 ID:tMuImGOR.net

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

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

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

13 ：デフォルトの名無しさん：2019/02/20(水) 21:54:34.71 ID:oRzq8AWm.net

もうAccessを卒業するんだ

14 ：デフォルトの名無しさん：2019/02/21(木) 13:02:36.57 ID:L3EKz/Re.net

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

15 ：デフォルトの名無しさん：2019/02/21(木) 19:38:17.35 ID:MzKG4O6f.net

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

(;_;)

16 ：デフォルトの名無しさん：2019/02/21(木) 19:55:52.51 ID:mRRRBv2X.net

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

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

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

17 ：デフォルトの名無しさん：2019/02/21(木) 20:11:01.25 ID:3prgeWcz.net

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

18 ：デフォルトの名無しさん：2019/02/23(土) 08:51:07.40 ID:ILyuCfk+.net

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

19 ：デフォルトの名無しさん：2019/03/02(土) 05:49:40.18 ID:6x5b9DFI.net

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

20 ：デフォルトの名無しさん：2019/03/02(土) 18:30:04.00 ID:AjPA8Eq0.net

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

21 ：デフォルトの名無しさん：2019/03/04(月) 09:50:39.88 ID:TvaJY4yu.net

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

22 ：デフォルトの名無しさん：2019/03/04(月) 19:28:23.37 ID:6LdJdRvZ.net

そうなの？

23 ：デフォルトの名無しさん：2019/03/05(火) 17:59:42.40 ID:sbeNr1jL.net

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

24 ：デフォルトの名無しさん：2019/03/05(火) 22:29:47.29 ID:x8iA6KfG.net

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

25 ：デフォルトの名無しさん：2019/03/06(水) 07:31:01.14 ID:5/Lsh2ff.net

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

26 ：936：2019/03/06(水) 11:17:38.29 ID:OF16p3z1.net

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

27 ：デフォルトの名無しさん：2019/03/09(土) 21:57:04.20 ID:QAZD12fZ.net

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

28 ：デフォルトの名無しさん：2019/03/09(土) 23:04:33.82 ID:M4mulWlp.net

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

29 ：デフォルトの名無しさん：2019/03/10(日) 00:06:55.04 ID:PvuKZe7P.net

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

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

30 ：デフォルトの名無しさん：2019/03/10(日) 01:11:27.75 ID:W5FlChvZ.net

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

31 ：デフォルトの名無しさん：2019/03/10(日) 01:18:29.26 ID:W5FlChvZ.net

>>30
間違ってます。zzz

32 ：デフォルトの名無しさん：2019/03/10(日) 13:11:16.19 ID:FsgNmDsH.net

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

33 ：デフォルトの名無しさん：2019/03/10(日) 15:10:38.80 ID:z6hGNEnV.net

馬鹿の次の質問

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

34 ：デフォルトの名無しさん：2019/03/10(日) 17:44:21.19 ID:f/eJ/LOS.net

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

35 ：デフォルトの名無しさん：2019/03/10(日) 17:46:58.02 ID:f/eJ/LOS.net

>>15
Visual Studio ExpressでDLL作れ

36 ：デフォルトの名無しさん：2019/03/10(日) 17:55:45.50 ID:hFpGjFbx.net

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

37 ：デフォルトの名無しさん：2019/03/10(日) 18:51:26.88 ID:hpBR8lHx.net

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

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

38 ：デフォルトの名無しさん：2019/03/10(日) 18:58:03.76 ID:9Z3HOdWo.net

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

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

39 ：デフォルトの名無しさん：2019/03/10(日) 22:38:23.14 ID:mPydjeZt.net

いやぁぁぁぁぁぁぁ

40 ：デフォルトの名無しさん：2019/03/10(日) 23:14:01.04 ID:hFpGjFbx.net

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

41 ：デフォルトの名無しさん：2019/03/10(日) 23:50:20.06 ID:CvNRnyCH.net

unionで繋げばいいんじゃね

42 ：デフォルトの名無しさん：2019/03/11(月) 00:08:26.31 ID:B6nWiYCU.net

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

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

43 ：デフォルトの名無しさん：2019/03/11(月) 08:04:29.38 ID:fslMg+hg.net

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

44 ：デフォルトの名無しさん：2019/03/11(月) 13:56:54.71 ID:IRjWKGwj.net

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

45 ：デフォルトの名無しさん：2019/03/12(火) 00:15:11.07 ID:S+rkIDbC.net

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

46 ：デフォルトの名無しさん：2019/03/12(火) 12:34:12.09 ID:xgWEcpqA.net

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

47 ：デフォルトの名無しさん：2019/03/12(火) 14:56:37.82 ID:4U4zzI9j.net

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

48 ：デフォルトの名無しさん：2019/03/12(火) 21:15:05.16 ID:0vZ7cwHu.net

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

49 ：デフォルトの名無しさん：2019/03/12(火) 22:39:48.12 ID:o5cGPdg/.net

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

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

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

50 ：デフォルトの名無しさん：2019/03/13(水) 08:11:10.52 ID:mGUeq4U2.net

>>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テーブルにした場合だ。

51 ：デフォルトの名無しさん：2019/03/13(水) 11:51:37.19 ID:SZfR/Pu+.net

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

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

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

52 ：デフォルトの名無しさん：2019/03/13(水) 19:07:03.88 ID:0FHnOJ4A.net

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

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

53 ：デフォルトの名無しさん：2019/03/13(水) 21:35:24.37 ID:uWZ9EglX.net

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

54 ：デフォルトの名無しさん：2019/03/15(金) 17:36:53.07 ID:FQsGmuzT.net

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

55 ：デフォルトの名無しさん：2019/03/15(金) 18:33:31.75 ID:sIXN3DPH.net

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

56 ：デフォルトの名無しさん：2019/03/15(金) 18:46:17.04 ID:sIXN3DPH.net

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

57 ：デフォルトの名無しさん：2019/03/15(金) 18:47:49.00 ID:sIXN3DPH.net

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

58 ：デフォルトの名無しさん：2019/03/15(金) 19:00:16.39 ID:Yw8dh4/K.net

>>55
性別はboolでいい

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

59 ：デフォルトの名無しさん：2019/03/15(金) 20:17:51.87 ID:GDnHo62/.net

SLC、MLC、TLC、QLCだな

60 ：デフォルトの名無しさん：2019/03/15(金) 21:26:19.10 ID:dImV5MMR.net

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

61 ：デフォルトの名無しさん：2019/03/16(土) 08:42:08.72 ID:sYsfNqTH.net

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

62 ：デフォルトの名無しさん：2019/03/16(土) 08:43:02.89 ID:sYsfNqTH.net

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

63 ：デフォルトの名無しさん：2019/03/16(土) 10:08:04.54 ID:DkwCTpbs.net

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

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

64 ：デフォルトの名無しさん：2019/03/16(土) 13:39:03.23 ID:zPyGim4X.net

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

65 ：デフォルトの名無しさん：2019/03/16(土) 17:31:16.60 ID:3KVWdS7r.net

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

66 ：デフォルトの名無しさん：2019/03/16(土) 19:49:12.47 ID:3keflQuI.net

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

67 ：デフォルトの名無しさん：2019/03/17(日) 08:42:17.71 ID:n1sOdbaQ.net

こんなスレがあるぞ

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

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

68 ：デフォルトの名無しさん：2019/03/17(日) 10:57:55.94 ID:j70B1v+S.net

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

69 ：デフォルトの名無しさん：2019/03/17(日) 13:57:54.89 ID:2pkDyHvs.net

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

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

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

基本は分けた方が良い

70 ：デフォルトの名無しさん：2019/03/17(日) 17:33:15.64 ID:5mJrF7aW.net

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

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

71 ：デフォルトの名無しさん：2019/03/17(日) 23:33:28.89 ID:L17xYYyd.net

>>68
まず、製品、材料、連結テーブルの中で使用量を格納できる（格納するのがふさわしいか）のはどのテーブルかを考える。
ふさわしいテーブルがなければ新テーブルを追加するが、使用量は連結テーブルに格納すればいいのではと理論建てて考えられるようになりましょう。

書籍は近所に大きめの書店があれば、自分の好みで選びましょう。図が多いとかカラフルなのが見やすいとか。
初級本は2、3回見ればあまり出番なくなると思いますが、どんなことができるのかとか効率よく知るのに有効です。
他は、逆引きとか、テクニック本とかがいろいろな処理を書く上で有効で、長く役立ってくれるでしょう。

72 ：デフォルトの名無しさん：2019/03/17(日) 23:53:15.91 ID:L17xYYyd.net

>>63
データベースに限ったことではないが、最小限の入力（手間）で最大限の結果（伝票だけでなく売上集計や分析など）を得ることが目標。
平たく言えば、楽（効率アップ）しようと思わない人、そのために努力しようと思わない人には伝わらない。

オレは説得するのは諦めた。残業代増やしたい奴ばっかりだから

73 ：デフォルトの名無しさん：2019/03/18(月) 00:03:45.33 ID:01/djhoo.net

馬鹿には無理

これが真実

74 ：デフォルトの名無しさん：2019/03/18(月) 19:45:55.30 ID:WjETnlu5.net

構造ならSQLとかDBのアンチパターン解説本
>>65
他にも連結用テーブルはプライマリをフィールド二つの複合にして
それぞれに元テーブルとの外部キーつくること

75 ：デフォルトの名無しさん：2019/03/19(火) 06:30:11.40 ID:4N2t7FIS.net

みんなこっちにいるよ
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

76 ：デフォルトの名無しさん：2019/03/19(火) 23:41:14.03 ID:PLWGdEFL.net

馬鹿でも仕事をしなきゃならない
そういう人は材料1,材料2,...でやれるなら
それでやってもらうしかない
頭いい奴だけで後は生活保護で構わない
とかで良いなら話は別だけど?
その辺を理解出来ないアホが多くて困る
正規化を理解しないでaccess使っている人間と種類的には同じ
自分がやれる事が一番と思って他を考えていない

77 ：デフォルトの名無しさん：2019/04/25(木) 10:33:32.47 ID:I6sE8Jku.net

32bitのAccess2016を使っています。
いままではinteger型で済むものはlong型にしてはいけない。メモリーの無駄遣いと思ってきました。
しかし､ベンチマークをとるとlong型の方が速いという主張を頻繁に見るようになりました。
数字は全部long型にした方がいいのでしょうかね？

78 ：デフォルトの名無しさん：2019/04/25(木) 11:52:04.10 ID:vKKospK1.net

>>77
昔々はそうだった
しかし、今はあり余るメモリをたらふく使って、高速にとか、プログラム書きやすくとかになってる。
（もちろん限度ってものはある）

昔は8bitや 16bit CPUだから、長い桁は時間かかった。今は 64bitなので、それ以下に収まれば充分高速。
（数億回ループするのは稀なので、あるなら都度ベンチ取ってロジックなど決めるといい）
SIMDにより多く詰め込めるとかもあるけど、VBAでは多分使われてないから気にしなくていい

わざわざ longに直す必要はない。これからは気にせず long使っていい

79 ：デフォルトの名無しさん：2019/04/25(木) 15:22:48.68 ID:I6sE8Jku.net

>>78
でも､longに直したくなりますよねw
標準モジュールは一括置換→保存で問題ありませんでしたが､
フォームでやってみたら､すぐにメモリー不足やら､フォーム破損が生じてしまいましたw

80 ：デフォルトの名無しさん：2019/04/25(木) 17:43:41.51 ID:ImBWEqP9.net

馬鹿に教えるとロクなことをしない例

81 ：デフォルトの名無しさん：2019/04/25(木) 18:18:18.21 ID:I6sE8Jku.net

実験用のコピーだよ。
楽しく実験するのがプログラミング上達の近道だと思うんだよね。

82 ：デフォルトの名無しさん：2019/04/25(木) 20:40:48.35 ID:JpEf0ZAX.net

>>81
実験は大切。失敗もベンチ取るのも身になる。
実験ソースや結果も Accessのテーブルに分類して残しとくんだぞ
（オレは、ソースはモジュールに置いて、コメントに結果を書いてたりもする。もちろん他言語などはテーブルやプロジェクトにしてなど）
カンペ作ったときみたいに忘れないもんだが、将来の追試や数値が役に立つ（まれに）

83 ：デフォルトの名無しさん：2019/04/25(木) 22:25:13.99 ID:CJM7ooRn.net

>>81
後付けの言い訳乙
実験するよう連中はこんなところで質問なんかせんわ

84 ：デフォルトの名無しさん：2019/04/26(金) 05:09:51.54 ID:ebeJOjHo.net

>>83
Access界隈っこういう人が多い気がするなあ。
実験用コピーじゃなかったら真っ青になってるだろうなw

85 ：デフォルトの名無しさん：2019/04/26(金) 13:04:47.02 ID:azgsbPV3.net

新人の頃は良く失敗した
数値フィールドをテキスト型で定義したり
データ、システム分離しなくてmdb破損させたり
手元の最新版壊して顧客PCまで最新版取りに戻ったり
：

86 ：デフォルトの名無しさん：2019/04/26(金) 14:38:58.61 ID:xEyS3kHo.net

>>85
オレも最初の頃壊れ（し）まくって、Accessなんて使いもんにならんやんと思った
dbだから、排他とかできるんだし、別々のフォーム触るなら、皆で開発できるやろと 1つの共有mdbで開発やってたw

規模によるけどシステム分離はわざわざしないな
分離するのは、sqlserverとかにするときだけだ

87 ：デフォルトの名無しさん：2019/04/28(日) 22:30:01.14 ID:h9q8OTE0.net

システム分離ってなんですか？
私もファイルが壊れてばかりで困ってます。

88 ：デフォルトの名無しさん：2019/04/29(月) 11:11:13.24 ID:3KqibFAl.net

>>87
データベースでデ−タをどうこうする部分と、デ−タそのものを分離するということでしょ。

テーブルとクエリやフォーム、レポートを別ファイルにするという意味だと思う。

89 ：デフォルトの名無しさん：2019/04/29(月) 11:33:05.46 ID:lr8PSWgy.net

>>87
>>88
テーブルとそれ以外に分けることです。
それ以外の方にはリンクテーブルを置いておけば、同じように処理できます。
複数人で同時にテーブル読み書きするときは定番のやり方です。
（一人でしか使わないなら、わざわざ分ける必要はありません）
テーブルの方はファイルサーバに、その他は各ローカルに置いて使います。

もう少し細かく言うと、ワークテーブルはそれ以外の方に含みます。

90 ：デフォルトの名無しさん：2019/04/29(月) 11:38:37.49 ID:d82tlvl6.net

>>89
横からすんみません｡
一人でしか使わない場合もフォームのコントロールを弄くるのが好きな人は分離した方が良いと思います｡
コマンドボタンの位置を変更しただけでフォームが消えてしまったことが何度もありますから､
一人で使用する場合もカスタマイズ好きならデーターは分離した方がいいと思います｡

91 ：89：2019/04/29(月) 11:43:25.91 ID:lr8PSWgy.net

>>89
ネットワークが遅い場合は、定数テーブルもローカルにとか、その辺は臨機応変に。

92 ：89：2019/04/29(月) 12:16:08.84 ID:lr8PSWgy.net

>>90
最近は個人的な作成しかしなくなったので教えて下さい。
そのファイルはmdb、accdbどちらですか？
（拡張子が変わって壊れにくくなったかとか、何が変わってどう影響するか細かくは調べてないです）
そのdbファイルはローカル/ファイルサーバどちらに置いてましたか？

ここ数年はツール的な小さなものを、accdbをローカルで作成してますが、壊れた経験はないです。
1つのフォーム内で、各処理をフレームで分けてあり、フレーム内にはテキストボックスやボタンなどがあります。
フレーム単位で、あっちやこっちに頻繁に移動はしてます。
（それでも、過去の壊れてた経験から、数日に一回最適化とバックアップはとってます）

93 ：デフォルトの名無しさん：2019/04/29(月) 12:36:13.73 ID:d82tlvl6.net

>>92
mdbです｡dbファイルもmdbでローカルです｡
フロントエンド？(と言っていいのかしら？)が巨大で､100MBくらいあります｡
業務用ソフトで中身は使用されていないゴミ変数やゴミプロシジャーが大量にあります｡空のプロシジャーもある上に､それをcallしている謎のプロシジャーもあります｡
str型の変数なのに､タイプするのが面倒くさかったのか､var型で宣言されている変数がこれまた大量にあります｡

94 ：89：2019/04/29(月) 13:14:19.98 ID:lr8PSWgy.net

>>93
ありがとうございます。
今でもmdbで作り込みが大きいのは壊れやすいんですね。
以前は、新mdbに全部インポートして、リフレッシュ（ゴミ除去）とかやってました。
（最適化より小さくなるから、何か効果はあるんじゃないかと思って。）

accdbに全部インポートして、参照設定修正という方法もあるけど、業務用だと完全に同じ動きするかと問われると保証できないので、難しいだろうし。
時間やお金出るなら（これからも使い続けるなら）、機能（部署）ごとに分割とか、accdbに徐々に移行（プロシージャ修正整理）とかやっていきたいところですね。

95 ：デフォルトの名無しさん：2019/04/29(月) 13:47:50.96 ID:QxflDRVF.net

SQLserver使おうぜ

96 ：デフォルトの名無しさん：2019/05/04(土) 18:38:16.45 ID:ZGbBU4Ge.net

Accessはフロントエンドに使う
DBはMySQLでも良い

97 ：デフォルトの名無しさん：2019/05/05(日) 01:45:20.23 ID:PgstIp0W.net

一度に大量で複雑な更新をすると落ちやすかった印象は有るかなぁ

98 ：デフォルトの名無しさん：2019/05/07(火) 11:01:49.04 ID:S4maxKz5.net

>>96
帳票とかからむと、手軽だもんな

99 ：デフォルトの名無しさん：2019/05/08(水) 19:00:39.16 ID:PD4Nn61H.net

Accessは何たって帳票の作成が超簡単！
これがあるから離れなれない。
LibreOfficeやOpenOfficeにも帳票作成ツールはあるけど、
Accessほど使い易くはないのが、移行できずにいる大きな要因の一つなのは間違いない。

100 ：デフォルトの名無しさん：2019/05/11(土) 13:23:24.99 ID:J8lUk67b.net

Office365でアプリアイコンが刷新されたがAccessは変わらない悲しみ

101 ：デフォルトの名無しさん：2019/06/03(月) 01:57:41.37 ID:vn/O8vit.net

access2016使ってて2013のランタイム入れたらaccessが使えなくなってびびったわ
あわててシステムの復元して直ったけど

102 ：デフォルトの名無しさん：2019/07/17(水) 21:40:08.49 ID:/Hg4fKFx.net

サブフォームのソースオブジェクトに、SQLを直接記入することはできないのでしょうか？
SQL文というものがそもそもオブジェクトでないから記入できないのでしょうか？

103 ：デフォルトの名無しさん：2019/07/17(水) 22:16:32.17 ID:5Qt+TnNF.net

Formのオープン時にそのサブフォームのおソースを放り込めばできる
あとはメインフォーム上でサブフォームをいぢるイベント時に書くとか　例えばボタン押した時など
サブフォームはソース無し　にしてるけど、自分は　　そこへ放り込むやり方だと出来てる

104 ：デフォルトの名無しさん：2019/07/17(水) 22:25:51.54 ID:eXUk1Aqq.net

>>102
ビュー定義してソースに設定したら？

105 ：デフォルトの名無しさん：2019/09/28(土) 01:30:49.78 ID:XSiAgIby.net

id 　部門　販売品目
1　　A　　りんご
2　　A　　バナナ
3　　A　　りんご
4　　B　　バナナ
5　　B　　ぶどう
6　　B　　ぶどう
というテーブルから、
部署と販売品目が同じレコード数
（Aかつりんご、Aかつバナナ、Bかつバナナ、Bかつぶどう　の数）をカウントしたいのですがうまくいきません。

販売品目単独では
SELECT 販売品目,Count(id)
FROM テーブル名
GROUP BY 販売品目
のようにすれば思うようにいくのですが、複数条件になると思うようにいきません。
お知恵を貸していただけないでしょうか。

106 ：デフォルトの名無しさん：2019/09/28(土) 02:03:10.80 ID:hdiBTyMe.net

SELECT 部門, 販売品目, Count(ID) AS IDカウント
FROM テーブル1
GROUP BY 部門, 販売品目
HAVING (((部門)="A") AND ((販売品目)="りんご")
OR ((部門)="A") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="ぶどう")) ;

107 ：デフォルトの名無しさん：2019/09/28(土) 02:08:15.90 ID:hdiBTyMe.net

もしくは
SELECT 部門, 販売品目, Count(ID) AS IDのカウント
FROM (
SELECT * FROM テーブル1 WHERE (((部門)="A") AND ((販売品目)="りんご")
OR ((部門)="A") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="ぶどう"))
) GROUP BY 部門, 販売品目

108 ：デフォルトの名無しさん：2019/09/28(土) 02:22:14.79 ID:hdiBTyMe.net

//シンプルにこれでもできたけどwhereの位置とか括弧とか間違えてない？
select 部門, 販売品目, count(ID) as カウント
from テーブル1
where (((部門)="A") AND ((販売品目)="りんご")
OR ((部門)="A") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="ぶどう"))
group by 部門, 販売品目

109 ：デフォルトの名無しさん：2019/09/28(土) 06:33:14.21 ID:XSiAgIby.net

>>106
ありごとうごぞいます。
説明が不十分でした。
たしかにそのとうり記述すればできるのですが、部門や販売品目が増えていった場合に、全組合せを書き出さないでやる方法はないものかと考えております。

110 ：デフォルトの名無しさん：2019/09/28(土) 09:36:23.69 ID:hdiBTyMe.net

まだ説明不足かと
組み合わせを指定しないと絞り込みはできないし
クエリビルダーでちゃちゃっと作った最小形が>>106
絞り込み条件のテーブルを他に作ってリレーションとる方法もあるけど

111 ：デフォルトの名無しさん：2019/09/28(土) 21:47:53.70 ID:w31BDneZ.net

>>105
要件定義すらまともに書けない馬鹿だからSQLの基本もわかっていないのかね？
どこにも部署なんてないのだが

112 ：デフォルトの名無しさん：2019/09/28(土) 23:50:31.47 ID:Bvcc+55+.net

Ruby なら、

require 'csv'

str = <<"EOT"
id 部門 販売品目
1 A りんご
2 A バナナ
3 A りんご
4 B バナナ
5 B ぶどう
6 B ぶどう
EOT

# 空白区切りで、ヘッダー有り
options = { :headers => true, :col_sep => " " }

# Hash.new で、初期値は、{ }
hash = CSV.parse( str, options ).each_with_object( Hash.new { |h,k| h[ k ] = { } } ) do | row, hash |
dep = row[ '部門' ] # department
item = row[ '販売品目' ]

if hash.dig( dep, item ) # Ruby 2.3 から
hash[ dep ][ item ] += 1
else
hash[ dep ][ item ] = 1
end
end

p hash
#=> {"A"=>{"りんご"=>2, "バナナ"=>1}, "B"=>{"バナナ"=>1, "ぶどう"=>2}}

113 ：デフォルトの名無しさん：2019/09/29(日) 07:32:11.18 ID:V4rAOO4u.net

>>111
いきってないで答えてやれよヴァカw

114 ：デフォルトの名無しさん：2019/09/29(日) 09:35:48.11 ID:l54OkWQk.net

AccessならGurupByしたクエリを名前を付けて保存しておくのが正解
サブクエ遅いから

115 ：デフォルトの名無しさん：2019/09/29(日) 19:47:04.97 ID:mdCYdpYZ.net

普通に部門販売品目でソートしてから
dynasetからvbaでカウントしたら駄目なの?
sql文を捏ね繰り回すよりその方が簡単な気がするけど?

116 ：デフォルトの名無しさん：2019/09/30(月) 00:02:54.58 ID:ELYMfL9+.net

質問者が一番馬鹿だが答える方も馬鹿ばっか

117 ：デフォルトの名無しさん：2019/09/30(月) 00:24:58.55 ID:K8zar7Eh.net

なのでこのカウントの質問、ここで終了！

118 ：デフォルトの名無しさん：2019/09/30(月) 10:47:04.29 ID:6yDcPDBq.net

どうしてもsql文でやりたいなら
他のsql系統のスレで聞いたほうが良いと思う
accessはsqlとvbaを組み合わせて使えるので
込み入り難いからやり易い面が有る
自分は割りとそういうやり方をしてしまう
けど他のリレーショナルデータベースはsqlを駆使しないといけない場面が多いだろうから
その手の方面の人の方がsql文に詳しい人が多いと思う
sql文の質問をしても構わないと自分は思うけど一応vbaスレなんで

119 ：デフォルトの名無しさん：2019/09/30(月) 17:44:54.65 ID:3iMPvt2Ii

難しく考え杉

選択クエリで
[部門]&[販売品目]のフィールド追加して
これをグループ化して集計すれば済むだろ？

120 ：デフォルトの名無しさん：2019/09/30(月) 23:29:21.37 ID:GbU6Rrgw.net

他のリレーショナルデータベースはもっとましな言語で使うんだよ

121 ：デフォルトの名無しさん：2019/10/05(土) 14:25:32.14 ID:pEFp3YWl.net

""とclearcontentsの違いが明らかになったな

122 ：デフォルトの名無しさん：2019/10/05(土) 14:25:47.70 ID:pEFp3YWl.net

誤爆です

123 ：デフォルトの名無しさん：2019/10/22(火) 14:54:31.07 ID:Si05vw2X.net

俺なら
SELECT [部門] & [果実] AS 式1, Count("HOGE") AS DUMMY
FROM テーブル１
GROUP BY [部門] & [果実];

124 ：デフォルトの名無しさん：2019/10/30(水) 06:50:33 ID:q0119UkA.net

普通の関数を使ったSQLがコンパイルエラーで通らなくなるのは、ずっとあるバグなの？
文字列中に含まれるスペースをなくした列同士を比較したいだけなのに

125 ：デフォルトの名無しさん：2019/10/30(水) 08:05:14.44 ID:QrHO4Al6.net

DBに上げる前のデータ加工はExcelとPowerBIについてくるPowerQueryで完結させる
DB自体は何でも良い
Accessはフロントエンド

こういう感じの運用が一番融通が利いて楽

126 ：デフォルトの名無しさん：2019/10/31(木) 14:53:16.10 ID:3aW6/Vt0.net

>>124
通ってたのが通らなくなったなら参照設定確認が最初の一歩

127 ：デフォルトの名無しさん：2019/10/31(木) 16:05:52.19 ID:IlVblaPX.net

optionala argumentについて教えてください｡
https://tsware.jp/tips/tips_119.htm では 引数を Optional かつ バリアント型で宣言する と書いてありますが､
総本山の https://docs.microsoft.com/ja-jp/office/vba/language/concepts/getting-started/understanding-named-arguments-and-optional-arguments では
あっさりと string型 で宣言しています｡どっちが正しいのでしょうか？

それと､プロパティーシートから 関数を呼び出すときに引数を省略できますか？エラーばっかり出てしまうので,不可能という気がしてきますが､実際はどうでしょうか？

128 ：デフォルトの名無しさん：2019/10/31(木) 16:14:24.18 ID:IlVblaPX.net

ひとつ解決しました｡
ここ https://bettersolutions.com/vba/macros/optional-arguments.htm に Remember that IsMissing will only work with the Variant datatype. と書いてあるので､
IsMissingを使いたい場合にvariant型である必要があるだと思います｡

プロパティーシートからcallするときに省略可能かどうかはまだわかりませんね｡

129 ：デフォルトの名無しさん：2019/10/31(木) 23:30:26.82 ID:IK0T1jez.net

>>128
プロパティシートからでも省略できると思うよ
標準で使える関数でも省略できるから

130 ：デフォルトの名無しさん：2019/11/06(水) 06:37:50 ID:jiZZUv+M.net

IsNumeric 関数 VBA　http://vba-auto.com/isnumeric_function_vba/

9CF

131 ：デフォルトの名無しさん：2019/11/06(水) 06:37:51 ID:jiZZUv+M.net

IsNumeric 関数 VBA　http://vba-auto.com/isnumeric_function_vba/

9CF

132 ：デフォルトの名無しさん：2019/11/12(火) 08:08:27.20 ID:n8VUgOjj.net

スレチですまん。
俺はVBAをやってるが上司から言われました。（うちの部署、10名のうち、VBAを作れる人は二人だけ、、、）

AIが集計をしてくれるからEXCELは必要ない時代が来るねと言ってた。

反論出来る？

133 ：デフォルトの名無しさん：2019/11/12(火) 09:07:34.81 ID:umlGYBnb.net

高度なAIにVBAとか集計なんかやらせちゃ駄目だ。他に何もできない俺たちがやらなきゃな

134 ：デフォルトの名無しさん：2019/11/12(火) 10:13:03.38 ID:n8VUgOjj.net

>>132の者です。
EXCELとACCESSを間違えた、、、。
すみません。

135 ：デフォルトの名無しさん：2019/11/12(火) 18:47:25.82 ID:ZiPBwNA/.net

ここって禿げのおっさん来てるの？

136 ：デフォルトの名無しさん：2019/11/12(火) 21:13:04.29 ID:hnHZ9bm+.net

>>132
〉AIが集計をしてくれるからACCESSは必要ない時代が来るねと言ってた。

来ませんけど、未来のことなので証明はできません
なので、その理由を何かをしないことに最大限反論に活用するのが最も有効です

私がプログラムを始めた数十年前から、「コンピュータが発達したらプログラマーはいらなくなる」と言われていましたが、今でも慢性的に不足してますし、更には小学校（？）からプログラムを教えると

ちなみに自社でai使うことになっても、おそらく数百万円かかって、大して使い物にならないでしょう
ITに詳しくない人は、知識もないのに夢見過ぎです

複数データを組み合わせてサクッと結果求めたり、そこそこのアプリ（特にレポート活用）作るなら、今でもACCESSは最良の選択の一つだと思ってます。2.0くらいから今までそこかしこで使いまくってます

137 ：デフォルトの名無しさん：2019/11/17(日) 21:57:31.66 ID:qBLyum9y.net

エクセルに比べて、アクセスは過疎ってるなあ

138 ：デフォルトの名無しさん：2019/11/18(月) 09:09:41.09 ID:8BxAA3e8.net

あなたの禿にacc(ry

139 ：デフォルトの名無しさん：2019/12/19(木) 22:11:03.53 ID:lRu+t2VS.net

Access2010
印刷プレビューのリボンで「PDFまたはXPS」を押した際に出てくる
「PDFまたはXPS形式で発行」のダイアログを出すVBAコード教えてください。

140 ：デフォルトの名無しさん：2019/12/20(金) 21:12:19.28 ID:NX/gzbot.net

とりあえず自分でマクロの記録でそれらの操作をなぞって
それでできたブツを思う存分手直しして
そこで発生した問題を質問した方がいいかもな

Access遣いはおばーちゃんやおじーちゃん多いから
「イチからかよ」って思われると、誰も面倒がって答えたがらない

141 ：デフォルトの名無しさん：2020/01/25(土) 09:08:10 ID:Ib3xGLkp.net

Windows10､Office365のAccess16なんだけど､レポートプレビュー画面にボタンでもおいて､そこにイベントプロシジャーを設定したいんだけど､どうするのかな？
Access2003では簡単にできたんだけど､リボンがでてきたAccess2007以降出来なくなった気がするんだけど､どうなんだろう？

142 ：デフォルトの名無しさん：2020/01/25(土) 10:20:39 ID:lx4KYteI.net

あなたのハゲにサクセスしたい

143 ：デフォルトの名無しさん：2020/01/25(土) 23:41:49 ID:Tl89GTzc.net

>>141
ちょっと2003でそれをやるコード上げてみ

144 ：デフォルトの名無しさん：2020/01/26(日) 13:49:02 ID:63OckB6o.net

>>143
確か､カスタムメニューだったか､カスタムボタンを設定して､それにイベントプロシジャーを設定していた気がする｡
アクセスキーを設定してプレビューを印刷して､プレビュー画面を閉じて､特定のフォームを起動して､特定のボタンやらテキストボックスにフォーカスを与えるとかやっていた気がする｡
あれは実に便利だった｡
Windows7が動いているPCが物置にあった気がするから確かめてみる｡

145 ：デフォルトの名無しさん：2020/02/06(木) 19:57:45 ID:djhx8w46.net

会社で役割柄ツールを作ることになりまして、アクセスに入門しました
xlsxをインポート、それと同時にテーブルを作成するVBAは組めたのですが、同時にレコードが勝手にソートされてしまい、元データとレコードの順番が異なってしまうという問題に直面しています。
この場合、テーブル作成と同時にオートナンバーを設定するようにしたいのですが、docmd〜acimportdelimでは定義付けができません。
何か方法はありますでしょうか

インポートするxlsxは毎回ファイル名が異なる想定なので、保存したインポートを使うのは極力避けたいです

146 ：デフォルトの名無しさん：2020/02/06(木) 22:52:24.69 ID:BV2yIT+0.net

>>145
元データに順序列付けとき

147 ：144：2020/02/07(金) 06:55:52 ID:uUICGF6D.net

>>146
そうですよね…
最終手段としてはそれを考えています

148 ：144：2020/02/07(金) 06:56:12 ID:uUICGF6D.net

ありがとうございます！

149 ：デフォルトの名無しさん：2020/02/07(金) 12:31:07 ID:etaMDs5Y.net

>>147
最終手段というか、ＲＤＢの行の順序に意味を持たしちゃ行けないと言う基本理念

150 ：デフォルトの名無しさん：2020/02/09(日) 18:52:02 ID:ISiAk6Az.net

あなたのハゲにサクセスしたい

151 ：デフォルトの名無しさん：2020/05/03(日) 05:34:51 ID:oxUHZhz1.net

おはようございました
新型コロナでACCESSどころでは無いですね

152 ：デフォルトの名無しさん：2020/05/23(土) 05:21:27.38 ID:GBVQ4WJe.net

jetbeensのDataGripってアクセスでも使えるの？

153 ：デフォルトの名無しさん：2020/05/24(日) 14:56:41.74 ID:nvA4FLS/.net

>>152
jetbrainsでしょ

154 ：デフォルトの名無しさん：2020/05/24(日) 14:58:32.86 ID:nvA4FLS/.net

>>152
https://stackoverflow.com/questions/36820072/how-do-i-connect-a-ms-access-database-to-jetbrains-datagrip

155 ：デフォルトの名無しさん：2020/06/12(金) 10:16:26.06 ID:wVr6YfiN.net

全然ネットにもあがっていないけれど、Access2019の最新版で、DAOでレコードセットを作成して操作しようとすると
Accesが落ちるっていう現象を経験している人っていませんか？
32ビット版も64ビット版も同じ。

156 ：デフォルトの名無しさん：2020/06/13(土) 00:26:56.61 ID:0QXppYe5.net

Excelが2013というオチではなくて?

157 ：デフォルトの名無しさん：2020/06/13(土) 23:26:59.26 ID:qOp00dJL.net

そうでなくて、今まで動いていたのに最新のビルドになったら突然落ちるようになった。
前のビルと番号に戻したら動くのよ。
ADOでレコードセットを作成したときはどのビルド番号でも問題なし。

158 ：デフォルトの名無しさん：2020/06/19(金) 09:37:07.67 ID:N2hJl/gn.net

Application.SetOptionの引数一覧が知りたいのですが、誰か知りませんか

159 ：デフォルトの名無しさん：2020/07/31(金) 18:27:45 ID:2hxJK6g2.net

ヘルプデスクがスキルアップするため、プログラミング経験積むのにAccessVBAって合ってますか？

160 ：デフォルトの名無しさん：2020/07/31(金) 18:46:19.97 ID:z2KmuaKZ.net

まずヘルプデスクという職場でプログラミング経験積めるの？

161 ：デフォルトの名無しさん：2020/08/01(土) 22:26:21.99 ID:kuObS2ra.net

合ってるかどうかはわからんけど、それはありだな。
DBとPG、両方の知識が増える。

162 ：デフォルトの名無しさん：2020/08/02(日) 01:27:11.88 ID:S6RTQlHT.net

お前らどうやって勉強したの？
おいらADO勉強したいけどどの本読んでいいかわからないから勉強できてない。

163 ：デフォルトの名無しさん：2020/08/02(日) 04:08:31 ID:dor5CoCv.net

覚えるなら実務が一番早いと思いますが
独学なら簡単なものを作ってみると良いですよ
持ち物リストとか

164 ：デフォルトの名無しさん：2020/08/04(火) 22:22:12.96 ID:j2qbL1qD.net

持ち物リストですか、わかりました

165 ：デフォルトの名無しさん：2020/08/07(金) 09:09:10.88 ID:QUQQ3BC/.net

>>162
Google。
本で勉強したのは20年前かな。

166 ：デフォルトの名無しさん：2020/10/10(土) 13:55:25.74 ID:aicjgH/E.net

最近のAccessは条件付き書式の条件数が3つまでという制限がなくなったと聞いて､vbaで4つ条件を書いたら､怒られた｡
条件数の上限の件はどうなっているの？

167 ：デフォルトの名無しさん：2020/10/12(月) 19:42:49.57 ID:SLKy4GhN.net

https://hamachan.info/win8/access/and.html#st-toc-h-3
なんだろ？もっかい見直してみ

168 ：デフォルトの名無しさん：2020/10/12(月) 20:44:51.07 ID:XW9upEZ9.net

>>167
こんなことがかいてありましたね｡
>>参考Access2010以降は、条件付き書式を3つ以上追加することができます。Access2007では、3つまでです。

もしかしたら､メニューからなら可能でVBAでは不可能なのかもしれませんね｡そうだとしたら変な仕様ですね｡

169 ：デフォルトの名無しさん：2020/10/12(月) 22:03:49.00 ID:SLKy4GhN.net

不可能とみるか、未対応と思うか　人それぞれ
クレバーなら文句を付けてるヒマ有ったら今できるベストな対応をして次に進んでる

170 ：デフォルトの名無しさん：2020/10/12(月) 22:18:07.44 ID:XW9upEZ9.net

おお､AccessとかVBAを勉強し始めた頃を思い出しますね｡
ネットで誰かが質問すると必ず上から目線で罵詈雑言だったなあ｡
知恵袋とかも酷かったなあ｡

171 ：デフォルトの名無しさん：2020/10/13(火) 20:22:52.03 ID:Jo0My/9g.net

>そうだとしたら変な仕様ですね｡
これが無かったら小言書かなかったけどな　MS相手にどっちが上から目線なんだか
かてて加えて減らず口叩かれるとは　いやはや

チラとWeb巡ったら難問袋小路問題で以前からあった疑問なのは判った
条件付き書式をVBAで制御するときに注意すること　でググれば一番上に出てくるであろうサイトでは
2013をベースに「・・・すること」とか断言してるが、どうなんだ？
hatena さんのサイトでは別問題として画面がチラつくと仰ってる
そのサイトの途中にあるリンク先　↓　（アドレス貼ると書き込みできないから省略
YU-TANG さんは既にアーカイブでしか見られないしVerも古いが
3つしかできないのを工夫で５つまで可能にしてる（らしい　詳細は未チェック）
そのサイトの最下段にあるリンク先 ↓　（ｒｙ
で、そこから誘導されたこちらもアーカイブなLebans 氏のサンプル（らしい　詳細は未チェック）
帳票フォームをサブクラス化して　云々　悪魔の技とYU-TANGさんは大絶賛してる
驚くことにアーカイブだがファイル落とせる

自分では必要に迫られたこと無かったから無頓着だったが、なるほどね　みなさん悪戦苦闘してるんですね

172 ：デフォルトの名無しさん：2020/10/14(水) 02:48:02.48 ID:zZVeC8zp.net

accessは質問者に小言を言う人が多い印象。
いわゆるIT土方が多いからかねえ。
余談だけど世間に流通している商品のVBAを覗くとひどいコードの多さに驚く。そういうコードを書く人が質問者相手にがストレス発散してる気がするなあ。

173 ：デフォルトの名無しさん：2020/10/20(火) 06:46:57.60 ID:RpHsdUuc.net

ACCESSは後継者が少ないから先輩面したくても出来ないって人が多いのでは。
私も後輩が欲しい。育成では無く先輩面目的で(だからダメなんだろうね)。

174 ：デフォルトの名無しさん：2020/10/23(金) 06:48:31.50 ID:LIFEWQB+.net

Access2016を使っています
VBAを使いcsvファイルを取り込もうとしているのですが取り込み先のファイルの名前全てにピリオドが入っており、例1333.T.csv ピリオドが邪魔でファイル名を指定してもうまく取り込めません
何か良いアイデアはないでしょうか？

175 ：デフォルトの名無しさん：2020/10/23(金) 17:06:19.46 ID:jTOWYlOX.net

ｃｓｖファイルに名前付けのルールとかがあって、規則性があるなら Left Mid Right
辺りを交えて工夫　　全く一貫性が無いとかなら　. を ppp とかにリネームする工夫
https://soudan1.biglobe.ne.jp/qa2877385.html　　←これってこと？
http://tsware.seesaa.net/article/214574472.html　←ここにもヒントが

176 ：デフォルトの名無しさん：2020/10/24(土) 06:13:20.49 ID:3Br09s+m.net

>>174
私はファイル選択、コピー、インポート、コピーしたファイルの削除、と言う手順でデータを取り込んでます。

177 ：173：2020/10/24(土) 23:19:53.94 ID:s9oXa8gi.net

>>175
ありがとうございます
ファイル名は規則性があるのでLeft Mid Rightを使ってドットをスルーして取り込みをするやり方を探してみます
>>176
こちらはファイルコピーをしてドットのない名前に変換してからインポートといった感じでしょうか初心者すぎてまだ色々理解できていないですが道筋がみえましたありがとうございます

178 ：デフォルトの名無しさん：2020/11/21(土) 02:09:02.77 ID:OkL4O3GG.net

ACCESS365?でadoの話。
昨日、テーブルメンテナンス用にプログラム書いて、テストでupdateメソッド行をコメントアウトして実行したのにレコードが更新されて焦った。幸い意図した通りの更新が出来たので問題は無かったのだが、こんな事有る?

179 ：デフォルトの名無しさん：2020/11/21(土) 19:58:38.03 ID:4nufVV0K.net

通常ではあり得ない動作ですから
accdbが破損しているか
思い違いしているか
じゃないですかねぇ

180 ：デフォルトの名無しさん：2020/11/22(日) 23:10:13.61 ID:DuDUZZqW.net

だよね、自分の事じゃなければ私もそう思う。明後日に追試してみます。

181 ：デフォルトの名無しさん：2020/11/25(水) 18:43:23.08 ID:q3XRT9ff.net

>178
ADOだと、Updateメソッド実行しなくてもレコードが保存される条件があったはず

https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/update-method-ado
>Update メソッドを呼び出すより前に追加中または編集中のレコードから移動すると、ADO によって自動的に Update が呼び出されて変更内容が保存されます。

182 ：デフォルトの名無しさん：2020/11/26(木) 22:16:38.24 ID:jD11+CM5.net

>>181
これか、ありがとう。
だとしたらupdateメソッド要らなくね?よく分からんが。

183 ：デフォルトの名無しさん：2020/11/27(金) 16:20:14.12 ID:j3fR6c+j.net

レコード移動しないけど変更を保存したいときに必要だろう

184 ：デフォルトの名無しさん：2020/11/29(日) 20:06:15.16 ID:k+jvWZ30.net

>>183
それはそうね

185 ：デフォルトの名無しさん：2021/01/11(月) 16:27:04.20 ID:HFGgd7VU.net

ACCESSのSQLでビット比較ってどうすればいいですか
(value & 0x10) == 0x10 みたいに特定のビットが立ってるか比較したいのですが

186 ：デフォルトの名無しさん：2021/01/11(月) 17:56:37.60 ID:qzYYjSUA.net

できるかわかりませんが、
(value and &H10) = &H10
だとダメですか？

187 ：デフォルトの名無しさん：2021/01/12(火) 19:10:42.78 ID:f1Ulh51r.net

>>186
試してみます、ありがとうございます

188 ：デフォルトの名無しさん：2021/01/12(火) 19:16:56.91 ID:f1Ulh51r.net

ダメでした
andを&に変えてもダメでした

189 ：185：2021/01/12(火) 19:30:22.83 ID:sGnBc5NV.net

そっか、SQLのAND演算子になっちゃうのか… &も文字列の結合演算子とみなされちゃうのかな？

&H10のビット限定なら、
(value \ 16) MOD 2
でいけそうですが、他にもパターンがあるでしょうから…

190 ：185：2021/01/12(火) 19:34:25.38 ID:sGnBc5NV.net

何より分かりにくいですねw
整数除算(\)で該当のビット位置を一番右にずらして、MODでそのビットを取り出します

191 ：185：2021/01/12(火) 19:49:06.45 ID:sGnBc5NV.net

16 じゃなくて &H10 と書く方が取り出すビットと一緒で分かりやすいですね(うまくゆくかはわかりませんが)

(value \ &H10) MOD 2

192 ：185：2021/01/13(水) 02:15:13.93 ID:+GyFVgd4.net

連投すみません
188案は value が long型だとして、値が負数のとき正しい結果にならないことがあります
ごめんなさい

193 ：デフォルトの名無しさん：2021/01/13(水) 17:32:20.96 ID:Mb95xbD5.net

>>189-192
親切にありがとうございます。
\とか使えるのは知りませんでした。
試してみます

194 ：デフォルトの名無しさん：2021/01/13(水) 17:50:48.61 ID:+yZZ5ziS.net

Windows10、Access365です。

Excelファイル上のデータに対して、ADOでアクセスして、データを取り込んでいるのですが、時間がかかります。
時間を短縮する方法はないでしょうか。

データは1ヶ月分9万件程度ですが、Accessのテーブルに取り込むのに、7分程度かかります。

テーブルのレコードの追加は、データ1件1件に対して、ADOのAddNewメソッド、Updateメソッドで追加しています。

試しに手動でAccessのインポート機能を使用して1ヶ月分のデータを取り込んでみたのですが、時間はかからなかったのですが、F20、F21など、空白の列まで要求されました。
そのためこの手段はあまり良くないと思っています。

レコードセットを一気にInsertする方法とかないでしょうか。
よろしくお願いします。

195 ：デフォルトの名無しさん：2021/01/14(木) 01:33:57.64 ID:yNTWs1ET.net

一件一件Updateするんじゃなくて、UpdateBatchでバッチ更新してみるとか

196 ：デフォルトの名無しさん：2021/01/14(木) 01:41:15.38 ID:yNTWs1ET.net

>>188
ふつうに>>186でできるはずだけど

valueの型が数値じゃないんじゃ?

197 ：デフォルトの名無しさん：2021/01/14(木) 03:34:32.57 ID:eeXKDacn.net

>>194
レコードセットで要求の動作はできないと思われます
以下はレコードセットを使わない方法になります
前提として
・現在取込時にレコードセットを編集していない
・SQL が書ける

INSERT 文で
・「IN 句」に Excel ファイルを指定
・追加先テーブルに Access テーブルを指定
これでインポートと同等のパフォーマンスになると思います

詳細は MS のリファレンスを参照
https://docs.microsoft.com/ja-jp/office/vba/access/concepts/miscellaneous/in-clause-microsoft-access-sql
今(.xlsx)だと EXCEL 12.0 になります

198 ：デフォルトの名無しさん：2021/01/14(木) 05:18:36.84 ID:ecyWCD0F.net

知恵袋はあてにならんくて

199 ：デフォルトの名無しさん：2021/01/14(木) 12:53:46.92 ID:kpvbRWbL.net

>>197
ありがとうございます
試しに1行をInsertしてみたところ、3分程度で処理できました。
ただ、.AddNewの方も、同じデータで3分-7分のくらいで処理できたので、思ったよりも処理速度は改善しませんでした。
あと、Nullだけのレコードが入ってしまうことも難点でした。

取り込みたいデータを取り込めたのと、列が30列くらいあり書き換えに時間がかかるので、一旦は今のままでいこうと思います。

ただ、今後も同じようなデータの取り込みがありそうです。
他に効率的なデータ入れ込み方法がありましたら、お教えいただけると幸いです。

200 ：デフォルトの名無しさん：2021/01/14(木) 16:43:18.02 ID:eeXKDacn.net

>>199
ループ中の AddNew を SQL の INSERT に置き換えたのでしょうか？
インポート対象(9万件程度)を1度の INSERT で行います
Null レコードは Where で除外可能かと思います

現実的なのは SQL 直発行かインポート機能の2択かと思います
インポート機能も定義を固めれば使い物になります

効率というのは人によって変わります
普段からコードに触れている人なら VBA からの SQL 発行が効率的
コードは書かないが Access を使い慣れている人ならインポート機能やクエリ定義が効率的
両者の方法とも取り込み実行時間はほぼ同じです

201 ：デフォルトの名無しさん：2021/01/14(木) 18:14:16.61 ID:EmIfgllR.net

>200
いえ、INSERT SELECTからの列指定をして一気に入れ込みました。実験的に1列のみを。

インポート機能とSQLでの処理は速度が違う気がするのですが本当でしょうか？
テーブルへの書き込み方が根本的に異なるような気がします。

DoCmd.TransferSpreadsheet はぜひ使えるようになっておきたいですね。
エラーがよくわからないので今まで使っていませんでした。

202 ：デフォルトの名無しさん：2021/01/14(木) 21:01:21.37 ID:yNTWs1ET.net

>>201
全体で1トランザクションになるようにトランザクション張るか
UpdateBatchで更新するか試してみてくれ

203 ：デフォルトの名無しさん：2021/01/14(木) 23:19:32.20 ID:KOTB1sbE.net

>>202
ありがとうございます
参考にしながらやってみます。
https://www.google.co.jp/amp/s/foolexp.wordpress.com/2011/11/07/%25E5%2588%2587%25E6%2596%25AD%25E3%2581%2597%25E3%2581%259F%25E3%2583%25AC%25E3%2582%25B3%25E3%2583%25BC%25E3%2583%2589%25E3%2582%25BB%25E3%2583%2583%25E3%2583%2588%25E3%2581%25A8%25E3%2583%2590%25E3%2583%2583%25E3%2583%2581%25E6%259B%25B4%25E6%2596%25B0%25E3%2583%25A2%25E3%2583%25BC%25E3%2583%2589/amp/

https://docs.microsoft.com/ja-jp/sql/ado/guide/data/sending-the-updates-updatebatch-method?view=sql-server-ver15

あと、トランザクションの以下のコードですが、参考にしようと思うのですがこれは全体で1トランザクションになっていますか？
https://excel-excel.com/tips/vba_299.html

204 ：デフォルトの名無しさん：2021/01/15(金) 12:06:52.83 ID:Z+pTsb/B.net

>>200
もう一度SQLでやってみたところ、インポートと同じ時間で処理できました。
ありがとうございます

>>202
UpdateBatchでは処理時間に違いがありませんでした
レコードセットへの書き込みに時間がかかっているのかもしれません。
ありがとうございます

205 ：デフォルトの名無しさん：2021/01/16(土) 21:45:45.19 ID:wM/4uvwh.net

>>162
資格をモチベにしてる

206 ：デフォルトの名無しさん：2021/01/26(火) 12:20:07.19 ID:pY3ojVqI.net

ウチの社内の情報システムの制限でwindowsカメラアプリが制限されてるんだけど、VBAで無理矢理動かせないだろうか、、、
いろいろ検索してみても古い情報しかなくて、、
64bit版でも出来るようなプログラムの見本とか有れば助かる。

207 ：デフォルトの名無しさん：2021/01/26(火) 12:31:00.16 ID:bIVSUY/u.net

そんな事してバレたら懲戒処分にならない?

208 ：デフォルトの名無しさん：2021/01/26(火) 21:32:09.76 ID:0moyOenU.net

>>207
少し言い方が悪かったかな。

端末でWEB会議してるから、カメラを使うのは問題無いんだけど、静止画を撮るソフトが入っていないもんで、静止画を撮ってDBと紐づけたいってなると、できなくて。
小規模グループでAccess使ってるから、システムに相談しても本気でかけあってくれなくて、、
それだったらVBAでどうにかならないかと思って。

209 ：デフォルトの名無しさん：2021/01/26(火) 22:49:05.99 ID:5iMVHv+0.net

>>208
より悪いんだけど

210 ：204：2021/01/27(水) 17:26:57.82 ID:Nmg5vWMl.net

スタンダード受かった（＾ω＾）v

211 ：デフォルトの名無しさん：2021/01/29(金) 13:44:54.10 ID:Xkyf+iIu.net

>>210
もめでとう！
資格は財産！
凄いなスタンダードは

212 ：デフォルトの名無しさん：2021/01/29(金) 16:32:16.97 ID:SG5MocSx.net

>>211
ありがとう。マイナー資格のせいか、
テキストは悪評にも関わらず他に選択肢ないし、
そのテキストもアプリもやたら高いけど、
一発合格のために全部ちゃんと買ったわー。

213 ：デフォルトの名無しさん：2021/01/31(日) 10:42:42.16 ID:/4jghnKY.net

VB自体マイナーよりなのがね。。。
参考書の著者は名のある人(武藤玄さん？)だから安心でしょ

214 ：デフォルトの名無しさん：2021/02/01(月) 19:30:44.14 ID:JChayj2G.net

「課題テーブル」 の項目「ファイル：添付ファイル型（拡張子は.xlsx）」をSQLで取得して(1)、
そのファイル名を変更して保存(2)しようと思っています。
(2)の処理は問題ないのですが、肝心な（1）の処理が分かりません
SQLだと以下のような感じかと思うですが、これだと、「ファイル」の名称も取得すらできないようです。
なにかしらヒントをいただけないでしょうか。
検索にヒットするようなキーワードでもかまいません。
よろしくお願いいたします。
"SELECT ファイル　 FROM 課題テーブル where ID = 1"　（件数は1件）

215 ：デフォルトの名無しさん：2021/02/01(月) 20:47:30.12 ID:g0s2XOHS.net

ファイルを取り出したいのか、ファイル名を変えたいだけなのか、何がしたいのかがわからない。

216 ：デフォルトの名無しさん：2021/02/01(月) 20:48:57.97 ID:g0s2XOHS.net

ファイルをSELECTするとファイルが出てくるというのは奇妙な発想だな

217 ：デフォルトの名無しさん：2021/02/01(月) 20:52:05.66 ID:1CLvOTQ1.net

>>215
ファイルを取り出したいんだけど、
SQLでなくクエリーでやるべきなの？
先日Access始めたから見様見真似。

添付ファイルを取得すれば、renameして保存するところはわかるんだけど。

218 ：デフォルトの名無しさん：2021/02/01(月) 20:58:59.00 ID:90ziZ1xl.net

エクセルファイルはAccessには入ってないだろ
フォルダから取り出すのか？

219 ：デフォルトの名無しさん：2021/02/01(月) 20:59:30.52 ID:90ziZ1xl.net

何がしたいのかマジで分からんｗ

220 ：デフォルトの名無しさん：2021/02/01(月) 20:59:46.61 ID:1CLvOTQ1.net

Accessのテーブルの添付ファイル型の項目に入っている

221 ：デフォルトの名無しさん：2021/02/01(月) 21:01:37.65 ID:90ziZ1xl.net

そのアドレスをエクセルで開いてリネーム保存すればいいじゃん

222 ：デフォルトの名無しさん：2021/02/01(月) 21:03:39.26 ID:90ziZ1xl.net

Dim MyExcel　As New　Excel.Application

とか使って

223 ：デフォルトの名無しさん：2021/02/01(月) 21:12:34.68 ID:1CLvOTQ1.net

>>222
それ使ってるんですけど添付ファイル型ってchar型とかと同じように扱えれるんですかね、
よろしければもう少しヒントを。

224 ：デフォルトの名無しさん：2021/02/01(月) 21:22:03.72 ID:1CLvOTQ1.net

ファイルをディスクのどこかに保存するのは、SaveToFile メソッドですかね？
なんか使えそうに思うけどいかがですか？

225 ：デフォルトの名無しさん：2021/02/01(月) 21:43:47.01 ID:FgW8bRhe.net

そんな新しいAccessなんて持ってないから知らん

226 ：デフォルトの名無しさん：2021/02/01(月) 21:44:43.65 ID:90ziZ1xl.net

https://oshiete.goo.ne.jp/qa/8167605.html

添付ファイル型はレコードセットになっていて
その中のフィールドのひとつ（3つ目。つまりF(2)）がファイルネームになっていて、
それを取得する。らしい。

227 ：デフォルトの名無しさん：2021/02/01(月) 21:45:48.50 ID:90ziZ1xl.net

>>224
普通にSaveAsじゃあかんの？

228 ：デフォルトの名無しさん：2021/02/01(月) 21:48:22.88 ID:c76bdQcs.net

ありがとうございます。
少しヒントが得られたかも。
明日試してみます。

229 ：213：2021/02/02(火) 11:31:56.15 ID:UTRQGX0/.net

添付ファイル型データのデータとファイル名取得が出来たので
参考に記載します。ありがとうございました。

http://www.proton.jp/main/windows/access-vba.html
（参考URL）添付ファイル型フィールドのファイルを開くには

コーディング抜粋
----------------------------------------------------------------
Dim　SQL, fileName As String
Dim DB As DAO.Database
Dim RS,RS2 As DAO.Recordset

Set DB = CurrentDb
'なお、下記「フアイル」は「.xlsx」形式のデータ
SQL = "SELECT ファイル FROM テストテーブル where ID = 1 ; "
Set RS = DB.OpenRecordset(SQL)

'「ファイル」データ取得
Set RS2 = RS.Fields(0).Value

'「ファイル」データファイル名称取得
fileName = RS2.Fields("FileName").Value

------------------------------------------------------------------------------------

230 ：デフォルトの名無しさん：2021/02/02(火) 14:27:49.60 ID:CQc47MX2.net

それ、SQLとRSは無駄にVariantになってないか？

231 ：デフォルトの名無しさん：2021/02/04(木) 15:46:42.10 ID:QbGo6q9b.net

OLEオブジェクト型はどうやってSQL（select 文）で抽出するの？

232 ：デフォルトの名無しさん：2021/02/04(木) 20:11:15.64 ID:XRB3PpKu.net

select文は普通に列名とテーブル指定するだけじゃないのか？
そっからどうやってデータ取得するかはどうやってDBアクセスしてるかによるんじゃね
とりあえずDAOかADOかとバージョンぐらい書け

233 ：デフォルトの名無しさん：2021/02/04(木) 20:23:44.53 ID:w6PAg1HV.net

>>229
ファイルを取得したいと言っていたのに、ファイル内のデータでよかったのか？

234 ：デフォルトの名無しさん：2021/02/05(金) 00:26:34.08 ID:OHtcWSU6.net

VBSでmdbに接続してaddnewしてupdateするだけの簡単なスクリプトの挙動がおかしい｡

sub や Functionにして callすると成功するくせに､subじゃなくて素のスクリプトだと何もしない｡
ちなみに読込みはどっちでも成功する｡
なぜ､addnewのときだけ､プロシジャーである必要があるのだろうか?

235 ：デフォルトの名無しさん：2021/02/05(金) 00:34:27.19 ID:OHtcWSU6.net

vbseditがおかしいらしい｡
適当なディレクトリに保存して実行したら素のスクリプトでも成功した｡
わけわらん｡

236 ：230：2021/02/05(金) 10:13:06.16 ID:s99X7duh.net

SELECT文でOLE型のファイル（拡張子.docx）を読み込んで保存しようとしています。
処理を行ったところ、「ファイル『temp.xls』は内容に問題があるため、開けませんでした。」という
メッセージが出ますが、「開いて修復」すれば元のファイルと同じに見えるので
SELECT文で項目だして、書き出すまである程度できているようなんですが、
どこがおかしいのでしょうか、ご意見をいただけたら幸いです。

参考サイト
https://www.moug.net/tech/acvba/0080032.html
画像を読み込む（GetChunkメソッド）

ソース一部抜粋

'OLE型用変数
Dim bytFile() As Byte
Dim nFileNo As Integer
Dim nSize As Long
Dim olename As String

Set DB = CurrentDb
　　　　'項目「OLE型データテスト」抽出のSELECT文の実行
Set rs = DB.OpenRecordset(sqlText)

nSize = rs.Fields("OLE型データテスト").FieldSize
bytFile() = rs.Fields("OLE型データテスト").GetChunk(0, nSize)

nFileNo = FreeFile
Open "C:\Users\testuser\Documents\test.docx" For Binary As #nFileNo
Put #nFileNo, , bytImage()
Close #nFileNo

237 ：デフォルトの名無しさん：2021/02/05(金) 13:09:23.30 ID:7kBPI4G7.net

VBS って、まだシステムで使えるのか？

保守されてる？

238 ：デフォルトの名無しさん：2021/02/06(土) 11:30:21.47 ID:PohEB++t.net

bytImage() の中身は docx に直接上書き保存できるものなのか？

239 ：デフォルトの名無しさん：2021/02/07(日) 12:21:08.72 ID:EDRo6Y49.net

>>237
Windows 10そのものがまだ使っています。

240 ：デフォルトの名無しさん：2021/02/26(金) 16:49:44.25 ID:v+ay/MML3

70億円調達のネットショップ作成サービスhey、｢我の弱い人同士の組織力｣武器にEC市場シェア拡大目指す
https://www.businessinsider.jp/post-219205
【劇団ノーミーツ1】役者も客も会わないオンライン演劇で7000人動員。制作チームは全員20代、半分は会社員
https://www.businessinsider.jp/post-219184
利用、無料。日本版衛星データプラットフォーム｢Tellus｣がすごい理由…“宇宙の視点”でビジネスはこう変わる
https://www.businessinsider.jp/post-219279
「起業ブーム」が新たなフェーズに　大学発ベンチャーへの想い
https://forbesjapan.com/articles/detail/35527
かつて学者がやっていたことを、今は起業家がやっている
https://diamond.jp/articles/-/232874
番号やアドレス不要の無料通話アプリRe-mo登場　ドワンゴが配信開始
https://japanese.engadget.com/ios-dwango-re-mo-072853620.html
10年間使い続けた WordPress を辞めた理由  a-blog cms を選んだユーザーのお話
https://webtan.impress.co.jp/u/2020/09/14/37485
ノロケツイートがバズって起業！　カップル・夫婦向けサービス「ふたり会議」が反響を呼ぶワケ
https://www.itmedia.co.jp/business/articles/2008/23/news012.html
コロナで細る“起業”を手助け。クラウド会計freee、スマホアプリで設立書類を作成できるサービス
https://www.businessinsider.jp/post-219220

241 ：デフォルトの名無しさん：2021/02/26(金) 20:55:30.10 ID:BHdQltm/.net

AccessからOracleに接続して、テーブル定義を取得しようとした場合、Currentdbにリンクテーブル作成してtabledefで取得するしかないですかね？

242 ：デフォルトの名無しさん：2021/02/26(金) 23:30:20.77 ID:aSS4VuLP.net

>>241
そんな訳ないだろ
お前の頭には無理ってだけだ

243 ：デフォルトの名無しさん：2021/02/26(金) 23:38:57.64 ID:JyNwBwDQ.net

>>242
どうやってやっているんですか？
そんなに人に偉そうにいうくらいならお詳しいんですよね？

244 ：デフォルトの名無しさん：2021/02/27(土) 00:39:35.09 ID:lzDnqtNz.net

一応言っとくが、あわしろ氏は権威だぞ。

245 ：デフォルトの名無しさん：2021/02/27(土) 03:37:26.48 ID:oWYDZ6ol.net

>>243
だからお前みたいな馬鹿には無理ってだけだ

246 ：デフォルトの名無しさん：2021/02/27(土) 09:00:35.16 ID:kkUl7IkZ.net

わからないんだろ？
教えられないのに質問スレでマウント取って
かっこいいね！

247 ：デフォルトの名無しさん：2021/02/27(土) 13:52:55.39 ID:oWYDZ6ol.net

馬鹿が聞き出そうとして必死だな
元の質問が、
「しかないですかね？」
だから、
「他にある。馬鹿にはわからないだけ」
これで完結

248 ：デフォルトの名無しさん：2021/03/12(金) 04:20:10.68 ID:U5Mc6cIw.net

クライアントPC複数台にコピーしてあるaccdbの更新を自動化したいのですが、上手い方法が有ったらアドバイス下さい。
今は、終了時に更新版があればコピー専用のaccdbを開く、という方法です。
時々コピーに失敗したり、更新後の起動が出来なかったり、なんかスマートに出来ません。

249 ：デフォルトの名無しさん：2021/03/12(金) 07:03:59.49 ID:bg4PRHHU.net

それぞれのPCに共有サーバーでクライアント各々に1つのものを使ってもらえば？

250 ：デフォルトの名無しさん：2021/03/12(金) 07:47:36.33 ID:vZYfq0zb.net

え？

251 ：デフォルトの名無しさん：2021/03/12(金) 15:03:23.20 ID:6lWZMdzy.net

>>249　コメントありがとうございます。

共有フォルダに置いたテーブルだけのバックエンドや、データベースサーバーにテーブルがあり、フロントエンドにリンクして使ってます。
各クライアントのフロントエンドを更新したいのです。
フロントエンドを共有フォルダに置いて皆んなで使うと壊れやすい、50台のクライアント全て閉じてもらわないと更新できないなどの問題があり、現在のかたちで運用しています。

252 ：デフォルトの名無しさん：2021/03/12(金) 16:26:24.53 ID:ZUwUvURf.net

基本的には別ブログラム（Accessでなくてもいい）で上書きしてもらうしかないけど
タスクに登録して再起動してもらうとか

さがせばそれ用のツールとかありそうだけどな

253 ：デフォルトの名無しさん：2021/03/12(金) 18:43:58.19 ID:6lWZMdzy.net

>>252
WSHで一日一回各クライアントで実行する例があったんですが、やってる事は同じなのです。なんかスマートな方法無いのかなあ。
もう少し探してみます。お騒がせしました。

254 ：デフォルトの名無しさん：2021/03/17(水) 08:24:13.18 ID:o9MkZCaQ.net

他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
.ボタン_Click
End With
にすると動くのは私だけ?

255 ：デフォルトの名無しさん：2021/03/17(水) 08:27:13.40 ID:o9MkZCaQ.net

まちがった.

256 ：デフォルトの名無しさん：2021/03/17(水) 08:27:40.08 ID:o9MkZCaQ.net

With Froms!フォーム名

257 ：デフォルトの名無しさん：2021/03/17(水) 08:31:05.18 ID:o9MkZCaQ.net

スレ汚しすみません、やり直し。

他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
Call .ボタン_Click
End With
にすると動くのは私だけ?

258 ：デフォルトの名無しさん：2021/03/23(火) 22:25:21.29 ID:OYDSqGqD.net

レポートのテキストボックスが関数を呼び出すことがあるんだけど、それを検索する方法はないですかね？
VBEをいくら検索しても、ある特定のFunctionをCallしているのがなんなのかさっぱりわからなくて途方に暮れた後にレポートのテキストボックスと気づいたときの疲労感は凄かった。
スマートに一発検索する方法ありますか？

259 ：256：2021/03/24(水) 19:23:21.05 ID:Oy88L6kY.net

どうも、ないようなので、for eachループを回して全部テキストにしました。
レポートの全部のコントロールを書き出したら24MBになりました。
コントロールから直接Callするのはお行儀が良くないですね。

260 ：デフォルトの名無しさん：2021/03/24(水) 19:53:42.42 ID:Oy88L6kY.net

DoCmd.PrintOut
同じコードなのに、一方ではちゃんと複数枚印刷して、もう一方では常に1枚しか印刷できない。
ググると似たトラブルが見つかる。バグなんだろうか？ご存じの方いますか？

261 ：デフォルトの名無しさん：2021/03/25(木) 18:29:57.87 ID:25o3kYjY.net

Access365 Windows10です。

Excel上からVBAでDAOにてAccessのクエリのレコードセットを取得しています。
Access上のクエリで表示されるレコード数と、Excel VBA DAOから取得したクエリのレコードセットのレコードの数が異なり、原因がわかりません。

それぞれのレコード一覧を出力してみると、あるフィールド(IIf(・・・,”対象外”, “督促対象”)としている部分) の値が、Access上のクエリでは「対象外」、Excelから取得したレコードセットでは「督促対象」となっているため、抽出条件が誤認識されてレコード数が異なることに気がつきました。

クエリの他の抽出条件にワイルドカード等を使っていないと思います。

クエリをDAOで取得した場合に、違いが生まれる原因を推測できる方はいらっしゃいませんでしょうか？ 回避策があればお教えいただけると助かります。

262 ：デフォルトの名無しさん：2021/03/26(金) 12:11:20.45 ID:x01Nq0VC.net

>>261
Accessのテーブルを、Excelからのリンクテーブルにしているものがあるのですが、クエリを開いている状態で、ExcelからDAOでレコードセットを取得すると、テーブルにしているExcelファイルが自動で開かれます。
その状態で取得したレコードセットの内容がおかしいことに気がつきました。

なぜレコードセットの値が異なるのかは、不明なのですが、テーブルにしているブックが開かれているとエラーを出力するようにして、回避しました。

263 ：デフォルトの名無しさん：2021/03/26(金) 12:30:39.51 ID:9TlDuTMy.net

わからん　すまん

264 ：デフォルトの名無しさん：2021/04/04(日) 17:14:14.07 ID:gjYxCKFw.net

基本的なことで申し訳ないんだけど
https://www.helpforest.com/access/amv_vba/ac080004.htm
に書いてある開いてるファイルのバックアップとるコードで

strNameCopy = Left(strNameMoto, Len(strNameMoto) - 6) & "_" & Format(Now, "yymmdd") & ".accdb"

ってのがあるんですが Left(strNameMoto, Len(strNameMoto) - 6) の意味がわかりません。なぜ -6 なんでしょうか？
それと、
Format(Now, "yymmdd") だと 210404 になりますが”yy_mmdd_hhmm” としました
ここを 21_0404_17h15m とするにはどうしたらいいですか？
hやmの入れ方がわかりません

265 ：デフォルトの名無しさん：2021/04/04(日) 17:38:22.47 ID:26lFIPnO.net

メッセージボックスは自動で閉じないしWSHもmessageboxtimeoutAもうまくできませんでした
通知の代わりに小さいフォームを0.5秒ほど表示させて閉じたいのですが、どのように記述したらいいですか？

266 ：デフォルトの名無しさん：2021/04/04(日) 21:11:55.53 ID:3M5QmD23.net

>>264
-6は元ファイル名の".accdb"を取り除いてると予想。
"yy_mmdd_hh""h""nn""m"""で良いかな。
うまく行かない場合はグーグル先生に聞いてみて。

267 ：デフォルトの名無しさん：2021/04/04(日) 21:24:13.07 ID:3M5QmD23.net

>>265
ちっさいフォームをダイヤログ形式で作成して、タイマーを500m秒に、タイマーイベントで
DoCmd.Close acForm, me.Name
だとどうかな。

268 ：デフォルトの名無しさん：2021/04/04(日) 22:50:03.97 ID:gjYxCKFw.net

>>267
開くのはどうするんですか？

269 ：デフォルトの名無しさん：2021/04/04(日) 22:50:34.96 ID:gjYxCKFw.net

ああこれで開いて閉じるのか

270 ：デフォルトの名無しさん：2021/04/04(日) 22:56:05.15 ID:gjYxCKFw.net

>>266
取り除かないと拡張子が2つになってしまうからですね
そうしないと拡張子が2つついてしまうんですね

271 ：デフォルトの名無しさん：2021/04/07(水) 00:28:19.15 ID:rJDYR4sC.net

レポートの詳細の一番下に線引くのってどうやるの？
フィールドや仕切り線だと線の真ん中が指定位置にくるようで、線の太さ分はみ出てしまう

272 ：デフォルトの名無しさん：2021/04/07(水) 05:48:31.03 ID:Vznju2ao.net

詳細の最終行終わりにだけ線を引く方法が有るのか、知らんかった。
私はグループフッタの上に線を配置します。

273 ：デフォルトの名無しさん：2021/04/07(水) 12:38:41.43 ID:RzHskyO4.net

>>271
VBAでEOFでVisible=trueにする

274 ：デフォルトの名無しさん：2021/04/07(水) 15:58:13.17 ID:rJDYR4sC.net

>>273
図形の移動ってこう書くらしいんだけど

Sub TopAndLeftSamp1()
　 Dim Sh As Shape
　 For Each Sh In ActiveSheet.Shapes
　 Sh.Top = Range("B2").Top
　 Sh.Left = Range("B2").Left
　Next Sh
　End Sub

それはどう書くんですか？
太い線でもはみ出ないように一番下にくるんですか？

>>272
終わりにだけ、じゃなくて仕切り線を詳細の高さの最後に、はみ出ないようにおきたいということです

275 ：デフォルトの名無しさん：2021/04/07(水) 16:12:27.97 ID:bHi8pMA7.net

>>274
それExcelじゃん
Accessのレポートの話じゃ無いの?

276 ：デフォルトの名無しさん：2021/04/07(水) 23:16:36.79 ID:rJDYR4sC.net

>>275
ホントだ
ネット検索してコピペしたから間違えた
ACCESSでも似たようなので線書いたことあるんだけど

マウスで一番下にやってもラインの真ん中が一番下にくるみたいで、下半分がかけてしまう

277 ：デフォルトの名無しさん：2021/04/08(木) 23:29:31.27 ID:JQVqmXIG.net

>>271
LINEで描けば自由自在
斜め線も描けるから試してみ
（あまり出番はないけど）

278 ：デフォルトの名無しさん：2021/04/09(金) 00:19:55.63 ID:Gteazii/.net

いや韓国製はちょっと……

279 ：デフォルトの名無しさん：2021/04/09(金) 04:42:31.41 ID:qNVyDJXN.net

ACCESSに将来はあるんだろうか
ライバルになるファイルメーカーもコロコロ社名変わってあやしいしもはや大規模事業者に焦点をあててるっぽい

mysqlとWeb系でつくるのがスタンダードになりつつあるの？
軽く勉強しようとしたけどVBA程度の知識じゃわけわからんかったというか何を勉強すればいいのかもよくわからん
sqlにhtml とcssも覚えなきゃならなくて
レポートとかどうやってつくるのかわからんし印刷関係はブラウザに依存するらしい
上記でGUIやレポートまでつくれるのかすらわからない

280 ：デフォルトの名無しさん：2021/04/09(金) 22:02:57.20 ID:p4gVUybA.net

>>279
将来は分かりませんが代わりのツールは少ないですね
Officeは最低10年間はサポートされるのでスグには無くならないでしょう

たまにweb系の話が出るのはデスクトップアプリかブラウザアプリかの話ですよね
個人的にAccessの代わりにweb系というのは少し飛躍している様にも思えますが
どの基盤を使うかは用途や運用保守のし易さによって決めるものですのでその人次第です

281 ：デフォルトの名無しさん：2021/04/10(土) 12:39:36.27 ID:UMFLPSSB.net

Access全盛期と違って、開発環境やDBが無償で提供されているし
ｈｔｍｌをテキスト出力するだけできれいなレポートも作れる
UIを自分でいじりながらデータ入力していくような人種にはいいんだが希少種だろう

282 ：デフォルトの名無しさん：2021/04/10(土) 14:43:14.97 ID:UjDtjnXq.net

>>281
例えばどうするの？

283 ：デフォルトの名無しさん：2021/04/11(日) 09:47:57.70 ID:5s7yLoxe.net

>>279
Accessはデータベースと言うより帳票ツールだよ
FileMakerはデータベースとしての機能が充実してるがFileMaker使うぐらいならMySQL、PostgreSQLで代替えが効く
どっちかと言うとFileMakerがライセンス料金の高さも有って残らないと思う

284 ：デフォルトの名無しさん：2021/04/11(日) 11:30:54.71 ID:5s7yLoxe.net

FileMakerより(MySQL or PostgreSQL)+Accessで安くデータベース&クライアントシステムを作れると思う

285 ：デフォルトの名無しさん：2021/04/11(日) 17:50:34.38 ID:X3jcs1bB.net

データベース部分よりもACCESSのフォームやレポートをつくる機能が貧弱なんだよね

>>284
MySQL or PostgreSQLに以降するのってどの規模になってから？
エクセルの延長線で使うレベルだとACCESSのままでいいですよね？

286 ：デフォルトの名無しさん：2021/04/11(日) 21:28:08.72 ID:Zjk0ZDQj.net

ファイルメーカーはフォームやレポートの機能がリッチなの?
ファイルメーカーが良いかもよ。

287 ：デフォルトの名無しさん：2021/04/11(日) 21:33:55.74 ID:X3jcs1bB.net

>>286
リッチどころじゃないよ
ACCESSがwin95
FMは10

288 ：デフォルトの名無しさん：2021/04/11(日) 22:19:59.40 ID:Zjk0ZDQj.net

そりゃファイルメーカーに決まりだね

289 ：デフォルトの名無しさん：2021/04/12(月) 10:48:48.79 ID:rGKItn7h.net

>>285
>>Excelの延長線上
Access mdbはある一定容量で破綻するからね
Excelで収まってるレベルでもMySQL Community EditionやPostgreSQLに移行した方が無料で使える訳だし
Excel,Access自体ライセンス必要だしライセンスフリーで使えるなら、それに越した事無い

290 ：デフォルトの名無しさん：2021/04/12(月) 10:51:16.61 ID:rGKItn7h.net

FileMakerのメリットはWebサービス公開がし易いって所だよな
そういう使い方するにしてもLAMPとか使う方が安く簡単にWebサービス開始出来る

291 ：デフォルトの名無しさん：2021/04/12(月) 11:40:02.98 ID:Ey8PGUUo.net

>>287
ファイルメーカーの45日無料評価版をインストールして少しいじってみました.
いまさら移行を考える程のメリットは感じられませんでしたが,確かにUIはシンプルで使いやすそうでした.

292 ：デフォルトの名無しさん：2021/04/12(月) 12:45:07.60 ID:MyLZJXYd.net

>>291
>>いまさら移行を考える程のメリットは感じられませんでしたが,確かにUIはシンプルで使いやすそうでした.

それでライセンス料金は高い
あまりメリットが無い

293 ：デフォルトの名無しさん：2021/04/12(月) 16:33:34.27 ID:Zar6nVa9.net

>>289
PostgreSQL使うとして一度設定してればACCESS使う感覚でレポートやクエリをつくれるんですか？

294 ：デフォルトの名無しさん：2021/04/12(月) 17:49:57.50 ID:45/NLIkc.net

>>293
フロントエンドはAccess利用する
PostgreSQL固有のUIツールは無い

295 ：デフォルトの名無しさん：2021/04/12(月) 17:51:00.80 ID:iBadv1fh.net

桐にしとけ

296 ：デフォルトの名無しさん：2021/04/12(月) 18:18:26.93 ID:NqjzProv.net

>>294
ACCESSをフロントエンドで使う場合、という意味でした

297 ：デフォルトの名無しさん：2021/04/12(月) 18:32:01.84 ID:45/NLIkc.net

>>296
PostgreSQLのテーブルにAccessからLinkはるだけ
そこでクエリー駆使しながらFormやレポート作れる
FileMakerより安く作れる

298 ：デフォルトの名無しさん：2021/04/12(月) 21:43:20.13 ID:5xDeJx97.net

>>295
桐の価格を調べてきました
40台で使用するために1,115,400でした
機能がどうとか以前のお話しでした

299 ：デフォルトの名無しさん：2021/04/13(火) 07:41:55.91 ID:b5G9r+g0.net

>>294
Accessの外部DBなら親和性の高いSQL Serverが多数だとは思います
Expressなら無料でライセンスも商用OKです
機能面もAccessで扱うDBサイズならお釣りが来ます

あえてPostgreSQLを推す理由を教えて欲しいです
無料以外のメリットはありますか？

300 ：デフォルトの名無しさん：2021/04/13(火) 11:23:44.71 ID:3B0ES/zA.net

>>299
https://rainbow-engine.com/sqlserver-express-limitation/
ケースバイケースだがSQL Server Expressでも良いかも知れませんが
Linuxサーバーとかで稼働させる技術蓄積が少ない
PostgreSQL、MySQLはLinuxサーバーでの技術蓄積が多い
まさかWindowsサーバーでSQL Server Express動かすと思って無いか?
無償で構築したいからね

301 ：デフォルトの名無しさん：2021/04/13(火) 13:20:04.54 ID:b5G9r+g0.net

>>300
Access案件でLinuxサーバー導入はかなりのレアケースだと思います
Linuxに明るい個人ならそれでも良いですが
一般的な企業では運用リスクと保守費用の面から現実的ではないのです
Access案件でその様な提案をしたらほぼ蹴られてしまいます

技術蓄積についてもAccess+PostgreSQLよりAccess+SQL Serverの方が遥かに多いです
そもそもこのスレに相談に来ている方はLinuxサーバーを前提に話していないと思いますよ

302 ：デフォルトの名無しさん：2021/04/13(火) 13:32:35.21 ID:3B0ES/zA.net

>>Access案件でLinuxサーバー導入はかなりのレアケースだと思います
Linuxに明るい個人ならそれでも良いですが
>>一般的な企業では運用リスクと保守費用の面から現実的ではないのです
Access案件でその様な提案をしたらほぼ蹴られてしまいます

.NET COREとか提案したら蹴られるのか?
.NET CORE案件も相当数出てるよ
LinuxサーバーでDB,APサーバー運用するのは今や常套手段でしょ

>>技術蓄積についてもAccess+PostgreSQLよりAccess+SQL Serverの方が遥かに多いです

Windows製品ゆえ多いってだけだと思うよ

>>そもそもこのスレに相談に来ている方はLinuxサーバーを前提に話していないと思いますよ

Accessフロントエンドにした場合、サーバー側がWindowsサーバーしか前提としか無い、てのは狭量以外の何物でも無いと思うよ

303 ：デフォルトの名無しさん：2021/04/13(火) 13:46:56.78 ID:LjzwNZrT.net

Access案件でのサーバーなんて、（是非は別として）テキトーなPCの共有フォルダでのaccdb(mdb)の共有で賄ってるだけなんて珍しくも無かろう

304 ：デフォルトの名無しさん：2021/04/13(火) 13:47:53.05 ID:3B0ES/zA.net

中小企業にWindowsサーバー提案するってコストかかって仕方ない
CALの価格を知らないのかな?
中小企業ほどLinux導入し易いのに

305 ：デフォルトの名無しさん：2021/04/13(火) 13:48:51.64 ID:3B0ES/zA.net

>>303
適当なサーバーだから無償のLinuxで十分

306 ：デフォルトの名無しさん：2021/04/13(火) 14:52:00.66 ID:b5G9r+g0.net

>>302
.NET COREを挙げられてますが、Access案件での話です

Linuxサーバー自体は否定しません
実際Access外案件では昔より増えました

単純にAccessの外部DBにPostgreSQLを推す無料以外のメリットが知りたかっただけです
Linuxサーバーという予想外でしたが

長い間Access開発にも携わっており現実はほぼWindowsなんです
確かにAccessの機能自体は様々なデータソースが扱えますから
その意味では狭量と言われてしまっても仕方ありませんね

307 ：デフォルトの名無しさん：2021/04/13(火) 14:55:38.30 ID:3B0ES/zA.net

>>306
CAL払える企業なら問題は何も無いよ
現実はCALで苦しんでる中小企業が多い
そこを見越して提案出来るかだと思う

308 ：デフォルトの名無しさん：2021/04/13(火) 20:50:49.88 ID:b7IZM+9u.net

サーバーも含めて無料で構築したいだけなのにな
Windowsサーバー使ってCAL払い続けるなんて皆金持ってるんだなw

309 ：デフォルトの名無しさん：2021/04/14(水) 06:25:02.05 ID:iZ4KD1hd.net

コピー中のExcelのデータをACCESSにいれるときは、テーブル自体を表示させないとペーストできませんか？

310 ：デフォルトの名無しさん：2021/04/14(水) 06:49:23.30 ID:Y6ryzCuB.net

>>309
インポートが簡単です。
コピペは知らん、すまん。

311 ：デフォルトの名無しさん：2021/04/14(水) 07:42:09.50 ID:DQnn+aVQ.net

excel vbaでsql叩くのが確実

312 ：デフォルトの名無しさん：2021/04/14(水) 08:49:11.55 ID:iZ4KD1hd.net

>>311
初心者なのでイマイチわかりません

313 ：デフォルトの名無しさん：2021/04/14(水) 10:15:39.10 ID:G8f2jTvc.net

>>312
AccessからExcelよりのインポートすれば良い
https://www.crie.co.jp/chokotech/detail/375/

314 ：デフォルトの名無しさん：2021/04/14(水) 10:16:31.17 ID:G8f2jTvc.net

>>312
ExcelデータのインポートをAccessから実行すれば良い

315 ：デフォルトの名無しさん：2021/04/14(水) 10:25:33.61 ID:G8f2jTvc.net

>>312
インポートで出来る

316 ：デフォルトの名無しさん：2021/04/14(水) 10:26:17.99 ID:G8f2jTvc.net

>>312
import

317 ：デフォルトの名無しさん：2021/04/14(水) 13:18:00.15 ID:5eouqB2E.net

お前ら「コピー中」を無視するなよ

318 ：デフォルトの名無しさん：2021/04/14(水) 13:26:51.89 ID:g6z8n+hy.net

コピー中、なんてもともと出来ないべ

319 ：デフォルトの名無しさん：2021/04/14(水) 18:59:43.46 ID:Y6ryzCuB.net

クリップボードのデータを貼り付けるなら手作業をなぞってテーブル開いて新規レコードに位置付けしてペーストすれば良さそう。クリップボード操作するapiサンプルコードが何処かにあったような、すまんまた明日。

320 ：デフォルトの名無しさん：2021/04/16(金) 09:00:21.71 ID:V1Kjbl/r.net

試してないよ？
Excelで貼り付けたいテーブルと同じレイアウトのデータをコピーしてある状態で
DoCmd.GoToRecord,,acNewRec
DoCmd.RunCommand acCmdPaste
すると張り付いたりしないかな。

321 ：デフォルトの名無しさん：2021/04/17(土) 16:25:08.91 ID:beZyyPJh.net

OLEオブジェクトって手動じゃないと挿入できないの?
VBAでの挿入を試みているんだけど､似て非なるオブジェクトが作られてしまう｡プロパティの数が少し少ない変なオブジェクトが作られて困ってる｡
とりあえずレポートにオブジェクトをつくるのはCreateReportControl メソッドを使えばできるんだけど､リンク親フィールド､リンク子フィールド､値集合ソース､値集合タイプがないオブジェクトが作られる｡
そのうえ､OLEタイプが読み取り専用だからOLEの設定が出来ない｡
どうしたらいいのかな?

322 ：デフォルトの名無しさん：2021/04/17(土) 17:21:36.76 ID:rlSH46Cx.net

>>321
VBAプロジェクトでそのOLEオブジェクトを参照追加する必要有る
その前提を整えたらVBAで出来るんじゃ無いのかな
https://teratail.com/questions/279573
Formに画像追加する例

323 ：デフォルトの名無しさん：2021/04/17(土) 17:43:49.92 ID:beZyyPJh.net

>>322
手動なら非連結オブジェクトフレームを挿入するとオブジェクトの種類のダイアログが出てくるので､そこで種類を選びますね｡
この作業をVBAでやっておけばいいということですね｡
ちょっと読んでみますね｡

324 ：319：2021/04/17(土) 21:01:55.24 ID:GNfw/saY.net

だめだああ
なにをやってもうまくいかない

325 ：デフォルトの名無しさん：2021/05/07(金) 07:32:03.14 ID:DloXWpsH.net

いまだにAccess 2.0を所有中

326 ：デフォルトの名無しさん：2021/05/07(金) 12:12:51.35 ID:nZH7MU+b.net

Windows3.1の頃? 95だったかな。

327 ：デフォルトの名無しさん：2021/05/13(木) 02:39:37.83 ID:fH5L5fl1.net

ACCESSで在庫管理や備品管理作っても出先でみることができません（Androidスマホなので）
みなさんどうしていますか？
Webシステムを組むほど大きいわけでもないので予算もありません

適宜レポートを作っておきExcelやPDFにしてクラウドにいれとくとかですか？

328 ：デフォルトの名無しさん：2021/05/13(木) 04:25:52.50 ID:HlQKEMAc.net

>>327
お前みたいな馬鹿には無理なだけ

329 ：デフォルトの名無しさん：2021/05/13(木) 05:05:22.97 ID:4K+rsr0c.net

あーそうかい‼💢

330 ：デフォルトの名無しさん：2021/05/13(木) 06:42:53.98 ID:l6yrLvBl.net

>>327
リモートデスクトップとかTeamViewerでWindowsにログインかな？

331 ：デフォルトの名無しさん：2021/05/13(木) 07:15:26.91 ID:Ak9zxoyZ.net

>>327
データベース更新後にEXCEL作ってクラウドに保管するのを自動化すれば充分な気がしますね。

332 ：デフォルトの名無しさん：2021/05/13(木) 07:26:32.47 ID:NATYYilK.net

そもそも、Windows 用のアプリはパソコン用だから、インターネットで使えない。
それに、文字コードも違うから読めない

インターネット用の表計算アプリを使えば？

333 ：デフォルトの名無しさん：2021/05/13(木) 08:30:28.57 ID:hOYLqCl+.net

ストアでMDBを検索したら見れそうなやついっぱいあるやん

334 ：デフォルトの名無しさん：2021/05/13(木) 11:30:23.03 ID:yB8C7/7J.net

>>327
Webアクセスする目的ならAccessよりFileMakerになるよ
そこまでするならデータベースをMySQLかPostgreSQLに移行してVB.NETでアプリ作る方が良いけどね

335 ：デフォルトの名無しさん：2021/05/13(木) 11:48:19.49 ID:63TpZ/FZ.net

クエリーが上手く作動して、ニコニコしながら、sqlビューへ切り替えてコピーして、VBEでペースト。
余計なカッコを取り除いてdebug.printに打ち出すと結果が違うことがある。
なにが原因なのかなあ？いまはADOでやってるけど、DAOならうまくいくもんかなあ？
クエリーのSQLとADOのクエリーが仕様が違うのかなあ？
同じMS謹製だからANSIとかなんとか気にしなくていいのかと思っていたけど、違うのかな？

336 ：デフォルトの名無しさん：2021/05/13(木) 12:20:50.87 ID:igbBK4jX.net

>>334
ファイルメーカーからハードル上がりすぎだろ

337 ：デフォルトの名無しさん：2021/05/13(木) 12:36:51.71 ID:yB8C7/7J.net

>>336
FileMakerはライセンス料高いからね
Visual Studio習得してアプリ作れるならその方が良い
Webサーバーは必要だけどね

338 ：デフォルトの名無しさん：2021/05/13(木) 12:42:45.76 ID:aIL5A3Qh.net

>>337
VB.netでwebサーバとか完全にもう別物ですやん

339 ：デフォルトの名無しさん：2021/05/13(木) 12:55:37.00 ID:GXeEY8R8.net

>>335
カナ？はカタカナにしろ

340 ：デフォルトの名無しさん：2021/05/13(木) 13:09:30.39 ID:yB8C7/7J.net

>>338
高いライセンス払う余裕有ればFileMakerで良いよ
現実は高いライセンス料払いたく無い企業が多いからね
FileMakerが普及しないのもこれが原因

341 ：デフォルトの名無しさん：2021/05/13(木) 13:31:32.10 ID:DinFNpWn.net

だからって一から自分でつくるってのは飛躍してない？
家建てるときにどこのメーカーがいいですか？
に対して自分で建てろといってるようなもん

342 ：デフォルトの名無しさん：2021/05/13(木) 14:03:30.60 ID:yB8C7/7J.net

>>341
自分で作れ、とは言って無いよ
ソフトウェアハウスの手を借りれば良い

343 ：デフォルトの名無しさん：2021/05/13(木) 14:07:34.22 ID:fH5L5fl1.net

>>342
ライセンス料より高い気が……

344 ：デフォルトの名無しさん：2021/05/13(木) 14:56:12.91 ID:HlQKEMAc.net

>>343
馬鹿には無理なのだから他人に金を出して頼むしかないだろ
馬鹿のくせに金を出さずに人にやってもらおうとか、ゆとりか？

345 ：デフォルトの名無しさん：2021/05/13(木) 15:00:43.59 ID:9/CKV48N.net

>>343
ランニングコストってのが有ってだな、、
FileMakerだとライセンス1回切りじゃ無いから

346 ：デフォルトの名無しさん：2021/05/13(木) 16:59:09.51 ID:fH5L5fl1.net

>>345
ソフトウェアハウスでも保守料かかるだろ
基本的には自分で改変できないし

347 ：デフォルトの名無しさん：2021/05/13(木) 17:16:07.25 ID:9/CKV48N.net

Web化って時点でファイルメーカー選ぶしか無い様な、、
外部からアクセスするしないが重要

348 ：デフォルトの名無しさん：2021/05/13(木) 17:25:00.83 ID:MH+VlhFF.net

外から見たいだけなら、リモートデスクトップでいいんじゃなかろうか

349 ：デフォルトの名無しさん：2021/05/13(木) 17:25:32.84 ID:HlQKEMAc.net

>>347
馬鹿

350 ：デフォルトの名無しさん：2021/05/13(木) 17:48:02.70 ID:9/CKV48N.net

>>347
それ有るの忘れてた

351 ：デフォルトの名無しさん：2021/05/13(木) 18:13:16.22 ID:6ddXJmx+.net

ACCESSで在庫更新したあとOneDriveフォルダにEXCELエクスポートします。
あとはスマホでもタブレットでも参照可能です。

352 ：デフォルトの名無しさん：2021/05/13(木) 18:26:55.54 ID:hOrZuwcL.net

デ、データアクセスページ……

353 ：デフォルトの名無しさん：2021/05/13(木) 20:11:21.52 ID:R/rAXCYS.net

>>347
｢Web化って時点でファイルメーカー選ぶしか無い｣
なぜこういう嘘を書くのか。それとも本当にそう思っているならそんな頭の弱い人は書かなきゃいいのに。

354 ：デフォルトの名無しさん：2021/05/14(金) 10:03:38.95 ID:wh02PaxN.net

>>352
実際使ってる例って有るのかな?

355 ：デフォルトの名無しさん：2021/05/14(金) 10:10:19.21 ID:A+WZ3bIw.net

>>354
とっくの昔にお亡くなりになったような記憶が…

356 ：デフォルトの名無しさん：2021/05/14(金) 10:18:39.71 ID:wh02PaxN.net

>>355
実例がほとんど無いね
https://support.microsoft.com/ja-jp/office/sharepoint-ロードマップの-access-services-497fd86b-e982-43c4-8318-81e6d3e711e8?ui=ja-jp&rs=ja-jp&ad=jp
Access Webアプリも無くなってる
ファイルメーカーの有利な点だな

357 ：デフォルトの名無しさん：2021/05/22(土) 19:40:24.10 ID:1Qe3fJgv.net

ちょっと前までGoogleでデータベース・サービス持ってたのにいつの間にかなくなっちゃたな。
最近VBAよりGASが面白くなってきたので手を出そうと思ってたのに。
やはり無料じゃGoogleも厳しいか。

358 ：デフォルトの名無しさん：2021/05/27(木) 01:00:52.60 ID:3lF12N8K.net

レポートやフォーム作るときに、拡大できないの致命的だよね
win標準の拡大ではぼやぼやで目がたえりれない
エクセルあたりでは普通に拡大できるのになあ
これだけでファイルメーカーに乗り換えようと思ったりしてよ

359 ：デフォルトの名無しさん：2021/05/27(木) 02:13:23.53 ID:J8UpNeL3.net

馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない

360 ：デフォルトの名無しさん：2021/05/27(木) 08:19:11.99 ID:qf3Pvmmz.net

と馬鹿が申しております

361 ：デフォルトの名無しさん：2021/05/27(木) 12:00:09.01 ID:3lF12N8K.net

FM→ACCESSときたけど
レイアウトつくるのはびっくするくらい大変
そして頑張っても前時代的なのになってしまう
金額の問題だけで以降したんだけどね
ACCESSは365についてるから無料みたいなもの
FMは約6万

362 ：デフォルトの名無しさん：2021/05/27(木) 12:05:37.62 ID:3lF12N8K.net

サブスクは5ユーザ からのみで年¥96,000
というびっくりプライス

363 ：デフォルトの名無しさん：2021/05/27(木) 14:45:17.54 ID:U0nLnJgd.net

Report は pdf 出力やろ常考

364 ：デフォルトの名無しさん：2021/05/27(木) 15:51:14.66 ID:ksqD/aLA.net

>>363
フィールドの位置とか外部ソフトでできるの？

365 ：デフォルトの名無しさん：2021/05/27(木) 15:53:14.54 ID:UBVWS17P.net

ACCESSでA4に収まるように8ptくらいのフィールド配置してたら目が痛くなって具合が悪くなったな

366 ：デフォルトの名無しさん：2021/05/29(土) 06:45:06.05 ID:b7REYRZH.net

>>365
ノートだとそうなんかな…
自作のときはずっと9ptがデフォだけど何ともないな…
拡大鏡でも使った方が楽な気がする

367 ：デフォルトの名無しさん：2021/05/29(土) 12:27:27.87 ID:hFIjeD7o.net

>>366
拡大鏡ってぼやぼやになるからなあ

368 ：デフォルトの名無しさん：2021/05/29(土) 12:27:43.67 ID:hFIjeD7o.net

ん？ノート？

369 ：デフォルトの名無しさん：2021/05/30(日) 02:44:36.28 ID:gYrIGJpw.net

右側のプロパティって時間小さすぎるよな
レイアウト配置よりこっちをでかくできるようにしてほしい

370 ：デフォルトの名無しさん：2021/05/30(日) 02:46:50.94 ID:gYrIGJpw.net

あれもうちょっとどうかならないんだろうか
一日使うにはストレスがすごすぎる

371 ：デフォルトの名無しさん：2021/05/30(日) 08:25:31.88 ID:13wLe9nW.net

ユーの眼球レベルにあった
でかくて低解像度のモニター使え

372 ：デフォルトの名無しさん：2021/05/30(日) 11:48:00.52 ID:AsIzYzCY.net

ユー買っちゃいなyo!

373 ：デフォルトの名無しさん：2021/06/01(火) 06:40:30.63 ID:UJDWMLaS.net

共有ファイルとして使う場合
処理がバッティングすると、待ち？っぽい動きするんだけど、この待ち時間を短くとか長くとか設定できない？

374 ：デフォルトの名無しさん：2021/06/04(金) 04:59:49.95 ID:JYH5jKrW.net

>>367
整数倍にすればボケませんよ

375 ：デフォルトの名無しさん：2021/06/04(金) 05:01:18.78 ID:4UOZ506g.net

>>374
150でも200でもぼける

376 ：デフォルトの名無しさん：2021/06/04(金) 06:58:24.85 ID:pJrSJSTA.net

5年ほど前に作った製品ラベルのレポートを修整しようとしたら、老眼は進んでるわ液晶の解像度は上がってるわ、マウスカーソルの移動量を増やしてるわで大変だった。デザインビューの拡大出来るようになると良いですね。

377 ：デフォルトの名無しさん：2021/06/05(土) 16:40:26.94 ID:RpMlRy13.net

ファイルメーカーの体験版使ったらACCESSに戻れなくなってしまった
ACCESSになんかメリットある？

378 ：デフォルトの名無しさん：2021/06/05(土) 18:22:16.60 ID:HEfJq5i5.net

馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない

379 ：デフォルトの名無しさん：2021/06/05(土) 18:58:27.51 ID:vqCzfq5H.net

と馬鹿が申しております

380 ：デフォルトの名無しさん：2021/06/05(土) 18:59:13.81 ID:ZYY2LhyT.net

>>377
コストかな。
田舎の工場で低価格な電子部品作ってる。30台くらいのパソコンで使うからファイルメーカーなんてコストは現実的ではないんです。

381 ：デフォルトの名無しさん：2021/06/05(土) 21:31:57.93 ID:3DV79FRa.net

ファイルメーカーとAccessは得意分野が全然違うのでは？

382 ：デフォルトの名無しさん：2021/06/05(土) 21:53:37.74 ID:mImo/W/A.net

ファイルメーカーの宣伝でしょ

383 ：デフォルトの名無しさん：2021/06/05(土) 22:47:17.80 ID:RpMlRy13.net

>>382
ACCESSでうまくいかずもやもやするたびに体験版つかってみて
ライセンス料なんかが不安でACCESSにもどるってのを繰り返してる
ACCESSが現代的なGUIになってくれて
ある程度はコード書かなくてもできるよえになればいいんだが

384 ：デフォルトの名無しさん：2021/06/06(日) 02:59:11.72 ID:g1lC8rmM.net

え！？ひとりでも最低
じゅじゅじゅじゅじゅうまんえーん！？
https://i.imgur.com/OGGBfwi.png
ちなみにキントーンもこの商法みたいだな

ACCESSはUIがクソなのと共有がほぼできない、ちょっとしたことでもコード書かなきゃならない、その代わりに激安ってことなんだろうな
逆にそこらを改善するのはこんくらい金とらなきゃできないことなのかもしれん

385 ：デフォルトの名無しさん：2021/06/06(日) 04:17:17.40 ID:I3Drh9AD.net

馬鹿
↓
ACCESSは共有がほぼできない

386 ：デフォルトの名無しさん：2021/06/06(日) 10:18:31.22 ID:9mmqAG88.net

FileMake使いのやつって
Access使いを見付けると必ず攻撃してくるよね
なんで不況に熱心なのかな

387 ：デフォルトの名無しさん：2021/06/06(日) 10:21:05.17 ID:9mmqAG88.net

馬鹿
↓
FileMakerはコード書かなくていい(キリっ)

388 ：デフォルトの名無しさん：2021/06/06(日) 11:26:09.24 ID:tDAG+yA0.net

と馬鹿が申しております

389 ：デフォルトの名無しさん：2021/06/06(日) 14:07:30.75 ID:g1lC8rmM.net

いくらなんでも高すぎる
あれって全社員にipadもたせてリアルタイムでデータ共有するような大企業向けだろ
とはいえほかにACCESSしか選択肢がなくてACCESSは手間がかかり過ぎるが

390 ：デフォルトの名無しさん：2021/06/06(日) 16:01:30.88 ID:/p4HIOC8.net

ACCESSは実質開発が停止してるからな
Web公開手段を再度実装したらFileMakerなんて駆逐出来るのに

391 ：デフォルトの名無しさん：2021/06/07(月) 23:05:55.18 ID:7Tyglgss.net

>>375
それ元がボケてるんやな
ディスプレイ買い換えるしかないな
うちは拡大してもクッキリやで

392 ：デフォルトの名無しさん：2021/06/08(火) 00:47:30.58 ID:Cnc+U0Kq.net

>>391
んなことないだろEIZOのFLEX Scanだし
ぼやけるって言葉の認識だと思うが
ベクターとラスターの拡大みたいなこと
https://i.imgur.com/oT7FRjb.jpg

拡大鏡だと単純拡大だからガタガタのぼやぼや
スマホの拡大縮小だとおかしくならないよね？
ソフトに標準で拡大縮小が実装されているならそれと同じできれいに拡大できる
ACCESSはないから拡大鏡つかうことにかるから汚いしつかいにくい

393 ：デフォルトの名無しさん：2021/06/10(木) 00:40:17.87 ID:BRYBvkaF.net

>>392
〉拡大鏡だと単純拡大だからガタガタのぼやぼや

単純拡大だからガタガタになるので正しい
しかしぼやぼやにはならない

頭（目？）悪そうだなこいつ

394 ：デフォルトの名無しさん：2021/06/10(木) 01:23:12.45 ID:/1oHskcz.net

文字が
https://i.imgur.com/oQ1lyeU.jpg
こうなるのをボヤボヤといってるんだと思う

MSゴシック使ってるやつはわからないかもしれないが
アンチエイリアス入ったフォントで拡大鏡使うとボヤボヤになるよ
https://i.imgur.com/B1re0t1.png

395 ：デフォルトの名無しさん：2021/06/14(月) 20:33:26.59 ID:bsW07B0Y.net

getobjectでVBSからmdbへ接続してACCESSのモジュールを書き換えているんだけど、プロシジャーをチマチマ書き換えるのが面倒になってきたので、
既存モジュールの全行を削除してからModule.AddFromFile メソッドで新モジュールを一括して書き換えた。
mdbを保存する段になって「ファイルの共有ロック数が制限を超えています」と怒られた。

たしか、コミットトランスするんだよなあ、と資料を読んでみたが、それが出来るオブジェクトが存在しない。
一体どうしたらいいのかな？

396 ：デフォルトの名無しさん：2021/06/15(火) 10:02:33.87 ID:Bs75sj8Q.net

ACCESSを買えば良いと思います。

397 ：デフォルトの名無しさん：2021/06/15(火) 11:17:25.55 ID:KpoHzIzW.net

>>396
Microsoft 365 for businessを使用してます。
ACCESSはしょっちゅう壊れるからVBSで出来ることはVBSでやりたいですね。

398 ：デフォルトの名無しさん：2021/06/15(火) 13:21:19.21 ID:HnTVFPij.net

>>397
そんな面倒なことw
2.0使いはじめた頃は間違った使い方してたのもあって壊しまくったが、ここんとこ壊れたことなどないぞ

399 ：デフォルトの名無しさん：2021/06/15(火) 15:19:36.70 ID:KpoHzIzW.net

>>398
フォームのコマンドボタンの位置をほんの少しずらしただけで壊れこともあるし、最適化で壊れたこともある。
最近もどっかの記事でそのような記述を見たような気がする。

VBSはコードを見るのも書くのもサクサクだからお気に入りだよ。重たいACCESSを開かなくていいのは気が楽だよ。
でも、関数がVBAと少し仕様が違うとか面倒なことがあるのが玉に瑕だなあ。

400 ：デフォルトの名無しさん：2021/06/15(火) 20:40:00.08 ID:XJxpvmdE.net

>>395
mdbからaccdbにすると壊れ難くなる気がします。

401 ：デフォルトの名無しさん：2021/06/16(水) 09:49:56.68 ID:ni17rAhE.net

>>400
面白そうですね。参照設定を変更するくらいで出来そうですね。だめなら宣言文にDAO.を加えれば出来そうな気がします。
今はほぼ全ての改造をVBS経由で行えそうだから、それで行き詰まったらやってみます。

402 ：デフォルトの名無しさん：2021/06/16(水) 16:39:10.95 ID:uJQ6HHCX.net

>>395
共有ロック数って言ってるんだから
VBSからmdbへ接続が何度も繰り返してるか間違ってるんじゃね

403 ：デフォルトの名無しさん：2021/06/16(水) 18:15:04.80 ID:5mM/xZpb.net

プロシージャーを書き換えるプロシージャーを書くのって面白い？

404 ：デフォルトの名無しさん：2021/06/16(水) 21:11:44.71 ID:ni17rAhE.net

>>402
共有ロックの問題はMaxLocksPerFileを増やしたらあっさり解決しました。
>>403
手作業でプロシジャーを変更していたときより遙かに楽になりましたし。仕事が楽になる過程は面白いです。
なによりもAccessと違ってサクサク動くのがVBSの最大の魅力です。

405 ：デフォルトの名無しさん：2021/06/16(水) 21:18:57.41 ID:ni17rAhE.net

一括でモジュールを書き換えるのすら面倒になったのでLoadFromTxtに切り替えた。
これならフォームやレポートも丸ごと移植可能だわ。

406 ：デフォルトの名無しさん：2021/06/22(火) 11:37:45.99 ID:Ug3/ZHCp.net

オフィス365でデーターを保存したときにウインドウの上のバーの箇所のタイトルに
「ファイル名＋保存しました・・」って表示になるけど、
これ出さないように出来ないのかな？

ウインドウのタイトルが変わるとRPAが誤作動をおこすので
いらない機能をつけるなよといつも思います。

407 ：デフォルトの名無しさん：2021/06/22(火) 11:40:11.76 ID:Ug3/ZHCp.net

>>406
誤爆でした。ここAccessなんですね。。

408 ：デフォルトの名無しさん：2021/06/22(火) 19:29:04.84 ID:jEG7fGSr.net

なんでVBA使わずRPAなの？

409 ：デフォルトの名無しさん：2021/06/22(火) 20:23:21.77 ID:BN5S6vpx.net

そのVBAを操作する人間の操作を代行させるのがRPAなんやで

410 ：デフォルトの名無しさん：2021/06/23(水) 19:45:53.16 ID:G1+Cnxf/.net

なんで公共の場で地元言葉なの？

411 ：デフォルトの名無しさん：2021/07/24(土) 13:25:46.25 ID:1ILHRw72.net

レポートを変数「i」回だけ複数印刷しようとして、
PrintCountやFormatCountを使ったのですが、
「i」とPrintCount・FormatCountが一致しません。

PrintCountやFormatCountって、
ページ変更・ヘッダー・フッターなどでも、カウントが増えますか？

アルゴリズムそのものが間違いでしょうか？

412 ：デフォルトの名無しさん：2021/07/24(土) 14:08:20.10 ID:Q5wmuS+A.net

おまえごときがVBAやる事そのものが間違い

413 ：デフォルトの名無しさん：2021/07/24(土) 19:42:05.93 ID:g6yRedEM.net

なな、南斗

414 ：デフォルトの名無しさん：2021/08/04(水) 20:55:05.72 ID:+oxSmlyp.net

[タイプ]が勝手に[ﾀｲﾌﾟ]になってしまう。
[ ]で囲んでるのに。なんぞこれ。

415 ：デフォルトの名無しさん：2021/08/05(木) 08:02:56.74 ID:MUFJqoFE.net

あれ、今日は勝手に半角に戻らない。
再起動するだけで良かったのかも。
独り言スマンね。

416 ：デフォルトの名無しさん：2021/08/05(木) 14:37:35.48 ID:hIo3G+nj.net

解決済みという事ですが
名称の勝手変換は[名前の自動修正]を有効にしていると起きます
初心者向けの親切機能ですが、オブジェクト名などを細かく定義している場合には逆に足枷になります
名称変更時に自動トレースしきれずバグを生み出したりします
ご参考までに

417 ：デフォルトの名無しさん：2021/08/05(木) 18:07:31.70 ID:Xn5oJsvt.net

いや、再発しました。
名前の自動修正、調べてみます。

418 ：デフォルトの名無しさん：2021/08/07(土) 07:56:44.50 ID:GRpq7tgL.net

Windows11+ACCESS365の環境で発生してます。
ﾀｲﾌﾟ(半角)と入力しても行を移るとタイプ(全角)になっちゃう。[ ]でくくっても駄目。
Windows10+ACCESS365では[ ]でくくると勝手に全角にはならないので、Win11Betaのせいっぽいです。
アプリの修復試してみて、駄目ならWin11Betaのフィードバックに上げます。

419 ：デフォルトの名無しさん：2021/08/07(土) 20:17:05.58 ID:51b7egKe.net

どっかに全角のタイプってオブジェクトがある（あった）んだろな

そういえばWIN10でNLSのバージョン変わって全角半角の判断がおかしくなる問題があったな
ちょっと試したWin10の詳細バージョン書いてくれ

Win11のＮＬＳってどうなってるんだろ

420 ：デフォルトの名無しさん：2021/08/27(金) 14:57:39.16 ID:2jUlNhAQ.net

すみません、見逃してた。
Windows10の21H1ですね。
NSLがなんの事かわかんないですが、確かに前にも経験したトラブルの様な気がします。

421 ：デフォルトの名無しさん：2021/09/04(土) 15:37:28.00 ID:s2WpiZ/S.net

明後日スタンダード試験だけどやばい模擬問題正答5割だわ

422 ：デフォルトの名無しさん：2021/09/04(土) 16:34:10.88 ID:JBLhGxRz.net

ん、まぁ、ガンガレ

423 ：デフォルトの名無しさん：2021/09/05(日) 03:44:21.58 ID:Ocn+wvkQ.net

外部からaccessの特定のレポートを開く方法ある？

424 ：デフォルトの名無しさん：2021/09/05(日) 14:14:02.27 ID:ICYnYWWd.net

外部って？
普通にCOMで操作すれば良いんじゃねえのか

425 ：デフォルトの名無しさん：2021/09/07(火) 12:53:43.40 ID:3mZ93kfX.net

パススルークエリのパラメータをaccess外から設定する機能教えてください。

426 ：デフォルトの名無しさん：2021/09/07(火) 13:13:29.25 ID:7P2mUzTw.net

access外って？
何がやりたいかわからん

427 ：デフォルトの名無しさん：2021/09/07(火) 14:16:04.54 ID:QthkAqNV.net

ADO
ADODB
DAO

428 ：デフォルトの名無しさん：2021/09/08(水) 22:14:40.15 ID:jpM3jR9r.net

>>427
データベースに
ドライバなしでvbaで接続する方法ってないの？

429 ：デフォルトの名無しさん：2021/09/09(木) 01:34:00.79 ID:4EZcQadY.net

>>428
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/open-statement

430 ：デフォルトの名無しさん：2021/10/09(土) 23:35:10.80 ID:uMcy1fPR.net

VBAエキスパートって取ったほうがいいでしょうか

431 ：デフォルトの名無しさん：2021/10/10(日) 08:29:41.88 ID:fy4lWk3l.net

資格マニアを見る世間の目は冷たい

432 ：デフォルトの名無しさん：2021/11/02(火) 07:37:22.79 ID:0Z1mhYfJ.net

>>430
資格より実践を積むべし

433 ：デフォルトの名無しさん：2021/11/29(月) 15:04:38.27 ID:vB15GkdT.net

レコードが存在しない場合に INSERTを動作させようとしてます

FROMが無いと、演算子がありません、となるため
ダミーの FROM を入れましたが(Oracle でいうところの dual)
レコードが追加されません

INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);

Access の INSERT での FROM や WHEREに、何か制限などありますでしょうか?

434 ：デフォルトの名無しさん：2021/11/29(月) 15:15:06.43 ID:MiFRCJa7.net

直接の返答じゃないけど、SQL一発書きじゃなきゃだめなの？
事前にレコード数チェックして分岐じゃだめなの？

435 ：デフォルトの名無しさん：2021/11/29(月) 15:17:50.75 ID:vB15GkdT.net

UPDATE と組み合わせて、SQL一発を考えてます
無理であれば、おっしゃるように分岐かなと

436 ：デフォルトの名無しさん：2021/11/29(月) 16:01:33.58 ID:MiFRCJa7.net

ちょっと気になったので手元で実験してみたけど、dummyテーブルが存在して空ではないときには
（多分）431の想定どおりの挙動をしていると思う
バッドノウハウ臭いので、おとなしく事前チェックして分岐かなぁ
まぁAccessのSQLって変だよね

437 ：デフォルトの名無しさん：2021/11/29(月) 17:41:32.65 ID:XYio4/pG.net

access はupdateいっぱつで初挿入もできたはず
しゅきーのヌルを上書きする感じで

438 ：デフォルトの名無しさん：2021/11/30(火) 05:36:52.18 ID:KirC+CSy.net

>>437
さすがにそんなことはないと思うが、ちょっとサンプルコード書いてみてくれ

439 ：デフォルトの名無しさん：2021/11/30(火) 09:01:45.87 ID:qEKwfbTR.net

>>438
選択クエリは更新できる
UPDATE TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID
SET TableA.ID = [TableB]![ID], TableA.Data1 = [TableB]![Data1], TableA.Data2 = [TableB]![Data2];

440 ：デフォルトの名無しさん：2021/11/30(火) 10:50:50.28 ID:d0QAjKSx.net

>>433
values (1, "name")
じゃ駄目なの

441 ：デフォルトの名無しさん：2021/11/30(火) 10:58:46.58 ID:+NfPg838.net

>>440
単純にinsertするだけならそれでいいんだけど、existsを使って条件付けようとしてるのでvaluesは使えない（エラーになる）

442 ：デフォルトの名無しさん：2021/11/30(火) 12:38:13.11 ID:nsxxcWz3.net

それ自分でDUALという名称でテーブルを作って1レコード入れておけば出来るよ。
OracleのDUALも実体はそんな感じだったと思う。

443 ：デフォルトの名無しさん：2021/11/30(火) 16:33:37.59 ID:KirC+CSy.net

>>439
更新はできるけど、存在しない行を更新しようとしたとして
その行を新規追加することなんてないだろ．．．
と思ったけど、追加されるのか

ACCESS無茶苦茶しやがるな
リンクテーブルに対してでも追加しやがる

SQL ServerだってFromでJoinしてUPDATEできるけど、
さすがに行が追加されることなんてないぞ
エラーの原因が分からない？

444 ：デフォルトの名無しさん：2021/11/30(火) 16:35:34.50 ID:KirC+CSy.net

あ、最後なんか変な行入った

445 ：デフォルトの名無しさん：2021/11/30(火) 17:23:09.43 ID:aruulzL7.net

あくせく働くぜ

446 ：デフォルトの名無しさん：2021/11/30(火) 18:49:33.51 ID:VsTnDahT.net

>>443
Access的には「更新可能クエリ」はテーブルと同等の扱いなのだろう

447 ：デフォルトの名無しさん：2021/11/30(火) 22:05:19.66 ID:KirC+CSy.net

>>446
Viewが実テーブルとほぼ同じ扱いってのは別に問題じゃない
UPDATE文でテーブルの行数が変わるのが無茶苦茶なんだよ

448 ：デフォルトの名無しさん：2021/11/30(火) 22:10:51.28 ID:VsTnDahT.net

SELECT * FROM TableA RIGHT JOIN TableB ON TableA.ID = TableB.ID

これの更新だから行数は変わっていない

449 ：デフォルトの名無しさん：2021/11/30(火) 23:40:10.71 ID:KirC+CSy.net

UPDATE文で実テーブルの行数が、な

450 ：デフォルトの名無しさん：2021/12/01(水) 09:46:36.82 ID:dv4Z+qI2.net

>>433
SQL一発では出来ないよ
残念だが
DOループで回す事になる

451 ：431：2021/12/02(木) 11:57:32.43 ID:nKskuO+T.net

ありがとうございます
分岐で分けることにしました

452 ：440：2021/12/02(木) 22:29:47.92 ID:vu0CN48k.net

もうちょっと俺を信用してもええんやないかと思ったが
出来たんならええか

453 ：デフォルトの名無しさん：2021/12/08(水) 11:00:44.75 ID:8eCyKUYS.net

データベースに対し、レポートを外部データの取込で追加するのですが、
この操作をGUIでなくコマンドで行う事は出来ますでしょうか。

454 ：デフォルトの名無しさん：2021/12/08(水) 11:36:19.36 ID:XFpeOKs/.net

mdbファイルまるごと差し替えでok

455 ：デフォルトの名無しさん：2021/12/08(水) 14:57:00.86 ID:8eCyKUYS.net

>>454
返信ありがとう
やっぱ基本はＤＢごと差し替えになるんですね・・・
最新を管理しないといけないということですか

456 ：デフォルトの名無しさん：2021/12/08(水) 16:58:22.13 ID:sRvDCOgH.net

>>452
レコード入れずに試してみてました
あとで確認してみます

457 ：デフォルトの名無しさん：2021/12/08(水) 18:12:44.70 ID:ixTDMdmo.net

>>453
access起動コマンドラインオプションに
/x マクロ名
で自動実行可能

向きが逆だけどオブジェクトのコピーでレポートをコピー出来る

458 ：デフォルトの名無しさん：2021/12/08(水) 20:30:00.04 ID:FsTgnRus.net

>>453
DoCmd.TransferDatabase acImport

459 ：デフォルトの名無しさん：2021/12/13(月) 11:19:46.91 ID:HhLRYuYl.net

>>442,452
ありがとうございます、確認しました
dummy テーブルにレコードを入れて動作しました

INSERT INTO t_table(id, name)
SELECT 1, "name"
FROM dummy
WHERE NOT EXISTS(
SELECT * FROM t_table WHERE(id = 1)
);

460 ：デフォルトの名無しさん：2022/01/15(土) 00:52:56.35 ID:ALzAiADU.net

VBAって、サポート切れてんの？

企業とかこれから、多数のツールどうすんだろうね。

461 ：デフォルトの名無しさん：2022/01/15(土) 07:46:29.84 ID:8MS0rOI1.net

サポート気にするような部署でvbaを採用するだろうか？

462 ：デフォルトの名無しさん：2022/01/17(月) 00:16:00.31 ID:oS3b1eNW.net

VBAって単独の製品じゃないんだが
そもそもVBAがサポート切れってどこの情報だ？

463 ：デフォルトの名無しさん：2022/01/17(月) 12:28:46.14 ID:t8m0YBBL.net

OneDriveにコードをバックアップして直接開いたところ

http://imgur.com/qO7I0AB.jpg

こういった線が付きました
Office2016 Proなのですが設定等でVBエディターでも表示できますでしょうか
またお恥ずかしながらこの線の一般的な名称も教えて頂けませんでしょうか

464 ：デフォルトの名無しさん：2022/01/17(月) 17:44:28.15 ID:hBkYcVxQ.net

>>463
何で開いたのかは知らんけど、AccessとかのVBAエディタには、そういった今どきの便利な機能は無いかと
一般名称かどうかはしらんけど、VSCodeとかの設定では Indent Guide でひっかかるんじゃないかな

465 ：デフォルトの名無しさん：2022/01/17(月) 20:02:01.14 ID:r2vXEkpI.net

>>464
ありがとうございます
名称のほうぐぐってみまして、確かにVS関連の情報が多く出てきました
大変便利ゆえに残念です！

466 ：デフォルトの名無しさん：2022/01/31(月) 11:21:11.42 ID:ZCY1so+a.net

Microsoft 365 Access Runtime ダウンロードリンクが動作してないのですが
ダウンロードできた方おられます??

467 ：デフォルトの名無しさん：2022/01/31(月) 11:29:43.23 ID:Di33df7w.net

>>466
見てみたけど、ダメだねぇ

468 ：デフォルトの名無しさん：2022/02/22(火) 22:36:04.61 ID:h8gQU92u.net

アクセス2010でVBA内でエクセルのブックを操作するためにブック選択ダイアログを開こうとしています．ブックが存在するフォルダーはc:\x\y内にあります．
それでChDirでGetOpenFilename実行時に開くフォルダーをc:\x\yにしたいのですが，規定のドキュメントフォルダーが開きます．
Debug.Print CurDirは"C:\x\y"を返しますので，システムが認識するカレントフォルダーが"C:\x\y"に変わっているのは確認済みです．GetOpenFilenameが開くフォルダーをGetOpenFilenameに変更できないことが問題です．

sub test

ChDir "C:\x\y"
Debug.Print CurDir
Set exApp = CreateObject("Excel.Application")
ChDir "C:\x\y"
Debug.Print CurDir
res = exApp.GetOpenFilename("Csv Files (*.csv), *.csv")

end sub

ところがエクセルのVBA内でtest2を実行するとフォルダーc:\x\yが開きます．

sub test2

ChDir "C:\x\y"
res=aplication.GetOpenFilename("Csv Files (*.csv), *.csv")

end sub

アクセスのVBAのから操作するとうまくいきません．解決策はないでしょうか？

469 ：デフォルトの名無しさん：2022/02/22(火) 22:38:16.30 ID:h8gQU92u.net

間違えました。
GetOpenFilenameが開くフォルダーをGetOpenFilenameに→
GetOpenFilenameが開くフォルダーをc:\x\yに

470 ：デフォルトの名無しさん：2022/02/23(水) 09:19:56.78 ID:yBLUqW/Q.net

https://hironimo.com/prog/excel/vba-excel-open/#:~:text=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E9%96%8B%E3%81%8F%E3%81%AB%E3%81%AF,%E3%83%A1%E3%82%BD%E3%83%83%E3%83%89%E3%81%A7%E9%96%8B%E3%81%8D%E3%81%BE%E3%81%97%E3%82%87%E3%81%86%E3%80%82

WorkBooks.Open

471 ：デフォルトの名無しさん：2022/02/23(水) 10:16:59.77 ID:/GeE/zJY.net

>>470
GetOpenFilenameでダイアログが立ち上がったときのフォルダーをc:\x\yにしたいという意味です。

472 ：デフォルトの名無しさん：2022/02/23(水) 14:00:43.13 ID:3ksW4w1X.net

FileDialogを使う

473 ：デフォルトの名無しさん：2022/02/23(水) 15:58:28.79 ID:noR6ud0U.net

https://officevba.info/filedialog/ こっちスかね
メリットもデメリットも書いてあって親切

474 ：デフォルトの名無しさん：2022/02/23(水) 16:48:55.01 ID:/GeE/zJY.net

>>472
ありがとうございました．
FileDialogだとカレントフォルダーで開いてくれました．

475 ：デフォルトの名無しさん：2022/02/23(水) 16:53:30.10 ID:/GeE/zJY.net

>>474
ありがとうございます。この説明はとても親切ですね。よくわかりました

476 ：デフォルトの名無しさん：2022/02/24(木) 15:49:02.02 ID:G5PhgONP.net

>>468
Excel.ApplicationのDefaultFilePathを設定していったん終了したら、
次からそこで開くっぽいぞ

Set exApp = CreateObject("Excel.Application")
exApp.DefaultFilePath = "C:\x\y"
exApp.Quit
Set exApp = CreateObject("Excel.Application")
res = exApp.GetOpenFilename("Csv Files (*.csv), *.csv")

こんな感じか
実行したらエクセルのオプション変わっちまったｗｗ
デフォルト何だっけな

477 ：デフォルトの名無しさん：2022/02/28(月) 11:00:59.24 ID:JmI4xSUc.net

初歩的な質問でお恥ずかしいのですが教えて下さい
面倒な計算や処理をして値を返す関数Aがあった場合

その戻り値を判定したい場合

If A = 1 or A = 2 then

と記述するとaccessは 2回処理することになるのでしょうか

それでしたら仮に変数(V)を用意して、一旦
V = A

のように格納してから
If V = 1 or V = 2 then

と記述したほうが処理的には一回で済むという解釈になりますでしょうか
すみませんがご教示頂けたらと思います

478 ：デフォルトの名無しさん：2022/02/28(月) 11:49:10.60 ID:JmI4xSUc.net

すみません、試してわかりました。
後者は一回で済みました。

質問することでその後すぐ簡単な確認方法を思いつくことがよくあります
お恥ずかしい。スレ汚し失礼しました；

479 ：デフォルトの名無しさん：2022/02/28(月) 12:38:27.12 ID:jOzz1fM6.net

どんまい　気付きや学びに成りゃ無駄じゃ無い

480 ：デフォルトの名無しさん：2022/02/28(月) 12:41:50.52 ID:frLBMESq.net

ちょっと違う話だけど、VBAにもOrElseやAndAlsoが欲しいなと思うときはある

481 ：デフォルトの名無しさん：2022/03/06(日) 15:10:37.27 ID:R+n9Kzax.net

SQLの勉強をさいきんはじめました

動的SQLによる数独の超高速解法
というのを読みました

動的にSQLを生成するため
・一つはJDBCを使う方法
・もう一つはストアド・プロシージャを用いた方法
云々って書いてあります

これらって、アクセスのSQLでもできそうなものでしょうか？
（過去に話題として出てたらごめんなさい）
できそうならやってみようかと
茨の道ならあきらめます

482 ：デフォルトの名無しさん：2022/03/06(日) 16:34:17.90 ID:TgGQVPNx.net

2つとも分からんけど、VBAが使える環境なら動的SQLは可能なはず

483 ：479：2022/03/06(日) 17:10:27.06 ID:R+n9Kzax.net

SQLとは、使用人から経営者になることだ
今まで自分で作業してたのをしなくてよくなる
使用人に、「こういうのを出してくれ」と
言うだけでよい

数独についてであれば、今まで
総当りするプログラムとか
条件判定とかを自分で考えていたが
SQLならそうしたものは自分で考えなくてよい
勝手に総当りして勝手に判定してくれる

・・・ということが書いてありました
これって、既存のプログラムの要件を
SQLで表現できれば中身は考えなくてよい
ってことですよね　けっこうおもしろいかも

484 ：デフォルトの名無しさん：2022/03/07(月) 07:14:29.39 ID:xVPINsIe.net

経営しなくてもお金が稼げるSQLがどこかに書いてあると良いのに。

485 ：デフォルトの名無しさん：2022/03/07(月) 12:53:13.63 ID:+OeG3Wfd.net

>>481
JDBC Driver で Access MDB に接続できる

つまりワカラン

486 ：デフォルトの名無しさん：2022/03/07(月) 13:11:37.42 ID:3lxJ/2QX.net

これかな？
https://codezine.jp/article/detail/1627
https://codezine.jp/article/detail/1628
https://codezine.jp/article/detail/1629
記事中においてJavaでSQLを生成している部分はVBAで書けるだろうけれど、
他のRDBMSで使えるSQLの全てがAccessでも使えるわけじゃないから
その辺をうまく置き換えたりVBAで補ったりする必要はあると思う

487 ：デフォルトの名無しさん：2022/03/07(月) 14:07:14.74 ID:tjPYNfUL.net

各DBで使えるSQL構文一覧表
(ROLLUPは jet使えない oracleはokとか)
のページが昔あったのに
今見たら見あたらなかったわ

488 ：デフォルトの名無しさん：2022/03/08(火) 06:28:34.40 ID:fGzXxwFZ.net

総あたりする場合、SQLはどうやって
候補を管理してるんだろ？
ふつうにメモリ上に持ってたら
メモリが足りないような

489 ：デフォルトの名無しさん：2022/03/08(火) 20:13:50.94 ID:fGzXxwFZ.net

数字の書かれたパネルがあります
このパネルのマスをいくつか
ぬりつぶし、残った数字の積が、
たて・横のどの列も12になるように
してください

2523
6257
5262
2334

これぐらいの規模の問題で
練習したほうがいいかも
ぬりつぶしは1に置き換える

490 ：デフォルトの名無しさん：2022/03/09(水) 11:17:27.88 ID:wDARNtYc.net

動的SQLっていうから

DBエンジンにSQL投げる
↓
その結果を受けて自分を書き換えて
再度新しいSQL投げる
↓
望む結果になるまで繰り返す

みたいな話を期待したら
拍子抜けだった

491 ：デフォルトの名無しさん：2022/03/10(木) 18:36:45.22 ID:y/Xk/sN2.net

>>489
SELECT 解答
FROM すべてのあり得る盤面
WHERE 今回の条件
だから
まず盤面を1行にして
2523625752622334
と表す

すべてのあり得る盤面は
2523625752622334
2523625752622331
2523625752622314
2523625752622311
　〜
1111111111111111
だけどこれをどうSQL文の中で
表現すればいいのかわからん

492 ：デフォルトの名無しさん：2022/03/11(金) 12:30:05.01 ID:+z9vFN5I.net

>>491
>>486の記事を１から読んでこい

493 ：デフォルトの名無しさん：2022/05/01(日) 00:28:53.70 ID:uZ+uV6s8.net

VBAのコード内の文字を置換するプログラムをVBAで行うことはできるでしょうか？
置換の組合せが複数あるので一つずつCtrl+Hで操作すると間違いそうなので，
置換前文字列と置換後文字列の配列を書いて，それを順に実行するようにしたいのです．

自分のコード内に当該置換文字列をがでてくるので，その回避も考えないといけないですが

よろしくお願いします

494 ：デフォルトの名無しさん：2022/05/01(日) 07:29:11 ID:1HGTgNe1.net

>>493
できるよ

495 ：デフォルトの名無しさん：2022/05/01(日) 07:36:23 ID:1HGTgNe1.net

ごめん、AccessVBAスレだった
知らん

496 ：デフォルトの名無しさん：2022/05/01(日) 16:14:10 ID:4P2yloMu.net

ACCESSにもApplication.VBEがあるっぽいから、エクセルとかと同じようにできるんじゃね
そもそもコード内をそうそう置換するって状況がよくわからんがな

497 ：デフォルトの名無しさん：2022/05/01(日) 20:13:11.92 ID:uZ+uV6s8.net

>>496
オブジェクト名を修正すると，名前の自動修正機能で，オブジェクト間の整合性は保たれます．
例えば，Aクエリー内でBテーブルを使用していて，Bの名前をCに変更するとA内のBテーブル名もCに自動的に修正されます．
ところが，コード内でオブジェクト名を引数に使用している場合（DoCmd.OpenQuery()やQeryDef()など）は，自動的に修正されないので
コード内の文字置換で修正するしかありません．
オブジェクト名をより統一的にしたいとか，あるルールで短くしたいなどの事情です．

でも本当にコードを使ってコード内の文字置換できますか？
「エクセルとかと同じようにできる」とのことですが，エクセルのVBAでできる方法を知りません．

498 ：デフォルトの名無しさん：2022/05/01(日) 20:33:27.28 ID:XyObubkl.net

>>496がApplication.VBEってヒント出してくれてるのに自分で調べる気は無いの？

499 ：デフォルトの名無しさん：2022/05/01(日) 20:51:07.35 ID:uZ+uV6s8.net

>>498
いままでApplication.VBEとVBAの違いをしりませんでした．
Application.VBEで検索して，オブジェクトであることをしりました．
できそうな気がしてきました．
調べます

500 ：デフォルトの名無しさん：2022/05/01(日) 21:27:48.04 ID:q0kLnjNb.net

>>499
お前みたいな馬鹿は、方法自体間違えていると思うよ

501 ：デフォルトの名無しさん：2022/05/01(日) 22:36:20.05 ID:uZ+uV6s8.net

>>500
正しい方法言ってみな。
言えなきゃ超バカ決定。

502 ：デフォルトの名無しさん：2022/05/01(日) 23:10:31.48 ID:q0kLnjNb.net

やっぱり馬鹿だったか
馬鹿に馬鹿と指摘すると怒りだす

503 ：デフォルトの名無しさん：2022/05/03(火) 18:13:45.75 ID:hABwtxOZ.net

>>496，>>498
497ですが、
Application.VBE.ActiveVBProject.VBComponents(i).codemodule.ReplaceLine(j,"修正後コード文字列")
を使ってできました。

504 ：デフォルトの名無しさん：2022/05/03(火) 21:57:49.43 ID:uVFGqhpy.net

>>503
ありがとう。勉強になります。

505 ：デフォルトの名無しさん：2022/05/03(火) 23:56:04.39 ID:9Zz7qGMa.net

コードとデータは分離しなさーい！

506 ：デフォルトの名無しさん：2022/05/04(水) 01:12:27 ID:L2QcoKdh.net

>>505
オブジェクト名はデータにできない

507 ：デフォルトの名無しさん：2022/05/04(水) 01:29:47 ID:T57Ht3+D.net

名前は文字列だろ！
VBAの提供するオブジェクトは大抵コレクションで管理されているだろ！
お前の作ったオブジェクトも管理できるようにしろ！
初歩だぞ初歩！

508 ：デフォルトの名無しさん：2022/05/04(水) 01:39:45.29 ID:L2QcoKdh.net

つまらん
もういいよ

509 ：デフォルトの名無しさん：2022/05/04(水) 03:22:14 ID:bSJdUNny.net

やっぱり馬鹿だった

510 ：デフォルトの名無しさん：2022/05/04(水) 08:25:20.61 ID:L2QcoKdh.net

>>509
人のこと馬鹿、馬鹿ってほんとにうるさい奴だな

今回のアプリは俺しか使わずオブジェクト名変更も今回限りが確定しているんで、
オブジェクト名をデータ化できるCreateQueryDefなどを使う手間を省いてクエリデザイナーを使っているだけ。

そういう事情も含めて「もういいよ」と書いたんだけど、読み取れんわな。

お前は実生活で他人の事情を汲み取る力が弱くて他人から避けられてるだろう。
実生活では流石に馬鹿と面罵しないとは思うが態度にはでてると思うよ。

エクセルVBAのようにワッチョイ付きならNG登録するんだが。

511 ：デフォルトの名無しさん：2022/05/04(水) 12:11:33.62 ID:T57Ht3+D.net

何人登録するつもり？

512 ：デフォルトの名無しさん：2022/05/06(金) 14:43:39.68 ID:HOAU3QSN.net

>>510
もういいから馬鹿は黙ってろ

513 ：デフォルトの名無しさん：2022/05/11(水) 09:14:31.47 ID:+mNN1hZ/.net

ここはBKのあつまりでつか？

514 ：44：2022/06/18(土) 22:47:23 ID:yLkug1TW.net

味噌も糞もいるのがこういう掲示板の特徴
それが面白ければ来るし退屈なら来ない
文句言うのはカッコ悪い

515 ：デフォルトの名無しさん：2022/06/19(日) 06:53:58.66 ID:R9q2ZnJn.net

>>514
こういうのかっこ悪い

516 ：44：2022/06/19(日) 07:49:57.69 ID:ZfwUc+SV.net

>>515
いやいや本当のイケメンだろうな

517 ：デフォルトの名無しさん：2022/06/21(火) 16:34:11.41 ID:q4pJaYn5.net

test

518 ：デフォルトの名無しさん：2022/06/21(火) 16:34:30.21 ID:q4pJaYn5.net

アプリケーションタイトルについて質問です。
今使ってるmdbのタイトルが2種類あって、「Access」のものと「ファイル名:データベース-フルパス-Access」のものがあります。

全部後者のタイトルにしたいのですが、設定の仕方がわかりません。
ヤフー知恵袋の「Accessのタイトルバーにファイル名を表示させることはできますか。
Excelでは表示されるのですがAccessでは”Access”としか表示されず少し不便なので、、」
を読むと何の設定もしなくても後者のようになると書いている人がいます。
どうしたらそうなるのでしょうか？

後者のやつは別にAppTitleとかで設定していませんので不思議です。

519 ：516：2022/06/21(火) 17:34:19.49 ID:q4pJaYn5.net

解決しました。

520 ：デフォルトの名無しさん：2022/06/21(火) 19:20:51.51 ID:EkCiEQiW.net

>>519
どうやって？
知りたい

521 ：516：2022/06/21(火) 19:44:50.71 ID:q4pJaYn5.net

>>520
いろいろ試したけど、結論は超簡単。
ファイル→オプション→現在のデータバース→アプリケーションオプション→ドキュメントウィンドオプション→タブ付ドキュメントをon

これでファイル名とパス名が表示されて複数のmdbを起動しても混乱しなくなりました。

522 ：デフォルトの名無しさん：2022/06/21(火) 20:23:15.71 ID:QtwFSmmg.net

OS:win10
Ver:365 16.0

フォルダの中に複数のExcelファイルがあります
accessで全てのエクセルの同一セルの文字をテーブルにまとめたいのです
Accecc vba エクセルの特定のセル
などで検索してみましたが解決に至っていません
どうかお力添えお願いします

523 ：デフォルトの名無しさん：2022/06/21(火) 20:46:00.64 ID:kU7/2TZz.net

何がしたいかと、どこまで出来て何がわからないのか詳しくかけ

524 ：デフォルトの名無しさん：2022/06/22(水) 10:12:43 ID:N/5JiATv.net

>>522
Excelシート全てインポートすればクエリー加工出来ると思うが、、

525 ：デフォルトの名無しさん：2022/06/22(水) 10:16:19 ID:N/5JiATv.net

>>522
Excelシートリンクでも良いぞ

526 ：デフォルトの名無しさん：2022/06/22(水) 10:27:56.84 ID:lUHG2pSs.net

ネ申エクセルからデータを拾いたいとかそんな話じゃね？
CreateObject("Excel.Application")
使って対象ファイル開いて、そっからさきはExcel VBAの範疇やろ

527 ：デフォルトの名無しさん：2022/06/22(水) 12:36:20.21 ID:N/5JiATv.net

なんだ
Accessでテーブル化したい、のでは無いのか?
何やりたいのか分からんな

528 ：デフォルトの名無しさん：2022/06/22(水) 15:16:59.53 ID:Z6mZqai9.net

「AccessVBAからexcelファイルのセル参照ってどうやるの？」ていう質問でしょ

529 ：デフォルトの名無しさん：2022/06/22(水) 20:19:24.91 ID:rLKMJdnt.net

質問には答えられるけど
答えるとまた次の質問が来るのが予測出来るからまんどくせ

530 ：デフォルトの名無しさん：2022/06/23(木) 06:46:56.49 ID:nErcbU9U.net

>>529
スレに来ないと良いよ

531 ：デフォルトの名無しさん：2022/06/23(木) 07:36:49.86 ID:xe+L83Np.net

>>523-525
なにをやりないか再度確認してコード見直していたら不具合点見つかって前進しました…
>>527
やりたいのはこれで30個程度のエクセルがあって全てフォームは統一されています
a3とb4とw30の値をテーブルにズドンと引っ張りたいのです

もうちょっと頑張ってみます
遅くなってごめんなさい

532 ：デフォルトの名無しさん：2022/06/23(木) 12:13:27.06 ID:jwJvRDT9.net

ACCESS VBA EXCEL CELLでクグルと沢山出て来ますね。
ACCESSからEXCEL開いて操作できると便利です、頑張ってください。

533 ：デフォルトの名無しさん：2022/06/23(木) 12:56:15.59 ID:uoofWh9e.net

>>531
CreateObject("Excel.Application")でエクセルを操作できるようにする

対象とするシートからa3とb4とw30の値を取得して変数 X Y Z に格納する
変数 X Y Z の値をAccess のテーブルに追加する
この二つの処理を全てのシートにループで行う

釣りが終わったExcel オブジェクトを閉じる
Access のオブジェクトの閉じる

これでいけるんじゃね？

534 ：デフォルトの名無しさん：2022/06/24(金) 06:07:38.19 ID:X+tgL9yK.net

>>533-534
ありがとうございます
こう書くとすごくわかりやすいですね

テーブル追加やLOOPは調べて書き方を学べそうなのでやってみます！

535 ：デフォルトの名無しさん：2022/06/26(日) 13:37:45.11 ID:DTfGvOZF.net

https://www.youtube.com/watch?v=jppnWu6am3Q

536 ：デフォルトの名無しさん：2022/06/26(日) 22:59:47.94 ID:Ter0iV/V.net

たびたびすみません
ばしっとフォルダ内のファイル名を取得することはできました
＞CreateObject("Excel.Application")でエクセルを操作できるようにする
これの意味がようやくわかりました　ありがとうございます

C:\Users\sanae\Desktop\vba\Book1.xlsx　というExcelファイルのa3を変数に入れようとしているのですが
ぐぐったところファイルパスをつける書きかたが参考にできるページがみあたらず詰まっています
(このあたりにファイルパスとかシートとかを指定して)range(3.1)　みたいなやり方かなあなんて思っているのですがどれもエラーになっちゃいました
参考になるページでもご教示いただければ幸いでございます

537 ：デフォルトの名無しさん：2022/06/27(月) 00:21:56.25 ID:LR8Jvthl.net

>>536
http://officetanaka.net/excel/vba/file/file01.htm

を参考にしてください。

Sub Sample1

set mybook=myexel.Workbooks.Open "C:\Users\sanae\Desktop\vba\Book1.xlsx"
x=mybook.worksheets(1).range("A 3")

X の値をテーブルに書き込む

End Sub

myexelはクリエイトオブジェクトで作ったエクセルオブジェクトね
あと変数は適当に定義しておいてね。

538 ：デフォルトの名無しさん：2022/06/27(月) 01:42:38.20 ID:Yed1CrTu.net

>>537
おおお
できてきました　とても進みました
・フォルダを指定してファイル名を取得
・変数XYZに特定のセルの値を取得
・

539 ：デフォルトの名無しさん：2022/06/27(月) 01:45:22.88 ID:Yed1CrTu.net

すみませんＣＴＲＬ＋エンターで送信になってしまいました
・フォルダを指定してファイル名を取得
・指定したシートから変数XYZに特定のセルの値を取得
・XYZの値をテーブルに追加
超進みました

後は指定したシート名を持たないファイルに遭遇した時にどんなエラーになるのかが気になりますので
近々時間みつけて頑張ろうと思います

ありがとうございました！超ハッピー！

540 ：デフォルトの名無しさん：2022/06/27(月) 01:59:55.53 ID:YAQt7RYR.net

馬鹿は二度と来るなよ

541 ：デフォルトの名無しさん：2022/06/27(月) 08:41:44.29 ID:yeeW9wqV.net

VBAでやらなくてもテーブルimportで出来るやろ
無駄な努力だな

542 ：デフォルトの名無しさん：2022/06/27(月) 11:56:31.55 ID:LR8Jvthl.net

>>541
ブック数が多いから VBA でやりたいんじゃないの？
インポートでできる量だったら手でコピペの方が早いだろ

543 ：デフォルトの名無しさん：2022/06/27(月) 15:59:24.18 ID:jKYPD+Yx.net

対象のExcelファイルが固定なのか、頻繁に入れ替わるかどうかにもよるわな

544 ：デフォルトの名無しさん：2022/06/27(月) 20:22:09.19 ID:UdQiWAN3.net

どなたか教えてください。

売掛金消し込みのマクロを作成しています。VBAでソルバーを自動化したいと思っています。

目的セル、制約条件の参照セルの開始行が40行ごとに下がっていき、指定値は数値ではなく、セルを指定したいです。

とりあえず、全部の変数をvariant型にしてますが、なかなか上手くいきません。

545 ：デフォルトの名無しさん：2022/06/27(月) 20:42:56.65 ID:NFVjaUBh.net

なんでAccessVBAスレにまで書いてるんだよ

546 ：デフォルトの名無しさん：2022/06/28(火) 12:01:23.56 ID:W8L8uteA.net

こんな奴が作るプログラムで金勘定とか笑えるわ
己を知らないって馬鹿の特徴なんだよな

547 ：デフォルトの名無しさん：2022/06/28(火) 12:08:16.40 ID:S7aFTH1N.net

>>544
Access VBAスレでExcelの質問するなよ

548 ：デフォルトの名無しさん：2022/06/28(火) 12:53:23.92 ID:illrnTHm.net

EXCELで記録したVBAをACCESSで実行するとEXCELはXlmxにしなくても良いからじゃないの?
ソルバーは使い方わからんのでなんにも言えなくてスマン。

549 ：デフォルトの名無しさん：2022/06/28(火) 13:14:48.17 ID:v0i+TmEN.net

>>548
Excel VBAスレみればなにがあったのか分かるよ

550 ：デフォルトの名無しさん：2022/06/28(火) 21:08:59 ID:i28fB/zi.net

昨日アホな質問した541です。

accessスレにexcel VBAについて投稿してしまい、すみませんでした。

VBA初心者なので、よくわからずに投稿してしまいました。

551 ：デフォルトの名無しさん：2022/06/29(水) 10:01:41.27 ID:Es0nfTu8.net

初心者を言い訳にする香具師は同じ失敗を繰り返す

552 ：デフォルトの名無しさん：2022/06/29(水) 12:18:55.14 ID:C7zOwXa/.net

狭量にすぎる

553 ：デフォルトの名無しさん：2022/06/29(水) 12:31:17.45 ID:WL8L6KaP.net

スレを間違ったことではなくマルチが問題なのだがな

554 ：デフォルトの名無しさん：2022/06/29(水) 13:27:42.53 ID:tPok425v.net

>>553
それだけ焦ってたんでしょ。Excel VBA で反応がなければ藁をもすがる気持ちで アクセス VBA で聞いたんじゃない。
広い気持ちで

555 ：デフォルトの名無しさん：2022/06/29(水) 13:50:40.09 ID:Es0nfTu8.net

x VBA初心者
o 5ch初心者
o パソコン初心者
o コミュ障入門者(上級)

556 ：516：2022/06/30(木) 01:00:46.93 ID:1OP/W/CA.net

DoCmd.OpenReport "レポート名", acViewPreview
DoCmd.PrintOut acPrintAll, , , acHigh, 枚数

新規レポートにラベルを貼っただけものだと希望どおりの枚数が印刷される.
しかし,別のレポートだと常に1枚しか印刷されない.
ネットでも同じ報告を確認した.バグ説もある.

皆さんはどうですか？やっぱりバグですかね？

557 ：516：2022/06/30(木) 16:01:17.27 ID:1OP/W/CA.net

解決した.
デコンパイルとコンパクトしたらいつの間にか設定した枚数が印刷されるようになった.
accessはマジで面倒くさいなあ.
デコンパイルとコンパクトの待ち時間をを返して欲しいよ

558 ：デフォルトの名無しさん：2022/06/30(木) 19:00:33.50 ID:PX9/MxY9.net

デコンパイル、知りませんでした。

559 ：デフォルトの名無しさん：2022/06/30(木) 20:22:38.17 ID:1+oYjPxt.net

デコンパイル、昔は割と鉄板の解決方法だったんだけどね
それでだめなら新規作成して全モジュールインポートとかもあったな

最近は必要性が減ったけど、まだたまにはあるんだな

560 ：516：2022/06/30(木) 22:53:16.59 ID:1OP/W/CA.net

コンパクトだけでも良かったのかも知れないが,習慣で両方やることにしている
ついいましがたも.Docmd.OpenReportのOpenArgsがレポートに渡らなくて困っていたが,コンパクトをしたら作動した.
終了時にコンパクトするオプションがあるくらいだから頻繁にやるべきなんだろうね.
コード書いているときは非常に頻繁に破損するからね.

561 ：デフォルトの名無しさん：2022/06/30(木) 23:46:30.14 ID:1+oYjPxt.net

あれはデータ領域を圧縮するのが主で、コード部分にはあまり影響しなかった気がするが
最近のアクセスでコードが破損するのはだいぶ減ったと思うが
VBEからコンパイルするだけで解決してたんじゃないか？

562 ：516：2022/07/01(金) 00:40:02.55 ID:SILFs/Ha.net

くわしいことはわからないが,挙動不審が治ることがあるんだよねえ
とにかく,試行錯誤していると必ずと言っていいほど,壊れるよねえ.
メモリーが不足していますとか出始めると,その日のうちに全フォーム消失とか起こるからなあ.

563 ：デフォルトの名無しさん：2022/07/01(金) 10:45:11.72 ID:x9gnk4T5.net

試行錯誤の過程のほとんどを貯め込むからな　設定で「終了時に最適化」で、都度終了を心掛けるか
大幅な改修の度にコンパイルのクセを付けるか　ファイルサイズに気を付けて、「こんなサイズのはずは無い」ってな時は要注意
　で、それは、お道具の使い方が雑、間違ってるってだけで、すぐAccessのせいにする連中はお里が知れる　ってこと

564 ：516：2022/07/07(木) 15:33:38.95 ID:9tJXVGoG.net

下のコードでmdbのディレクトリが表示されると思いきや、
ディレクトリ Documents
フルパス C:\Users\MyName\Documents

が表示された。vbsならscriptの存在するディレクトリだからmdbの存在するディレクトリが表示されると思ったのに、違う。
このことを説明してある資料ありますかね？


Sub test()
Dim fso
Dim objfolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set objfolder = fso.GetFolder(".")
Debug.Print "ディレクトリ", objfolder.Name
Debug.Print "フルパス", objfolder.Path
End Sub

565 ：デフォルトの名無しさん：2022/07/07(木) 16:12:50.20 ID:N4ENiOaQ.net

>>564
mdb/accdbファイルの場所が欲しいのなら
CurrentProject.Path
を使おう
CurDir$や>>564の例なんかで返されるカレントディレクトリはファイルダイアログとかで開いたフォルダになるっぽい
その辺の仕様に関する資料は知らんけど

566 ：デフォルトの名無しさん：2022/07/07(木) 19:57:05.70 ID:V/fQnZ1U.net

そもそも、
>vbsならscriptの存在するディレクトリ
が間違ってる気がするが

カレントディレクトリの概念って最近は説明されてるの見ないなぁ
GetFolder(".")が返してるのはカレントディレクトリ（からの相対パスで自分自身）
カレントディレクトリはACCESS.EXEの場所や.MDBファイルの場所とは別に存在する

まあMDB開くときはそこをカレントにする場合が多いけどな
つねに一致してるとは限らん

567 ：516：2022/07/07(木) 20:26:42.06 ID:9tJXVGoG.net

>>566
> そもそも、
> >vbsならscriptの存在するディレクトリ
> が間違ってる気がするが

VBSで稼働していたスクリプトをVBAに移植している際に気づいたので、正しいと思います。
スクリプトを任意のフォルダにコピーしてそのフォルダ内のファイルを一括処理するのに使っていましたので。

568 ：デフォルトの名無しさん：2022/07/07(木) 20:31:06.22 ID:ty1oWU7C.net

chdirで変えられちゃうけど

569 ：516：2022/07/07(木) 20:55:49.31 ID:9tJXVGoG.net

ユーザはおいら1人だからいいのです。

570 ：デフォルトの名無しさん：2022/07/07(木) 21:30:15.27 ID:V/fQnZ1U.net

いやだから、scriptの存在するディレクトリじゃなくて、
カレントディレクトリが表示されてるって話なんだがな
たまたまそれが同じだっただけだ

ここ理解しないと思ったディレクトリが表示されない理由が理解できないぞ

571 ：デフォルトの名無しさん：2022/07/07(木) 22:24:24.15 ID:rKn8i4wF.net

馬鹿に何を言っても無駄な例だぞ

572 ：デフォルトの名無しさん：2022/07/08(金) 10:33:00.73 ID:aHYxM19P.net

>>567
そのスクリプトをショートカットにして、
作業フォルダを変えて動かしてみたい

573 ：デフォルトの名無しさん：2022/07/08(金) 12:10:02.96 ID:/znuHP85.net

カレントディレクトリみたいな、あやふやなものを使ってはいけない。
これが使えるのは、絶対に変化しない場合だけ

起動時に、特定のフォルダを指定するとか、
あらかじめ定数などに保存しておく

574 ：デフォルトの名無しさん：2022/07/08(金) 12:16:33.93 ID:/znuHP85.net

例えばデスクトップに、以下のショートカットを作ると、

WSL2 で、Ubuntu 18.04 を起動して、
その /home/ユーザー名/test ディレクトリを、VSCode で開く

リンク先
C:\Windows\System32\wsl.exe code .

作業フォルダ
\\wsl$\Ubuntu-18.04\home\ユーザー名\test

575 ：デフォルトの名無しさん：2022/07/08(金) 12:30:53 ID:PreZKXp3.net

もはやAccess VBAとは関係ない話になってるし、元質問者は聞く耳持たないみたいだから
これ以上続ける意味無いよ

576 ：デフォルトの名無しさん：2022/07/11(月) 11:04:56.16 ID:1W23UOpt.net

>>564
fso使ってるんだから当たり前

577 ：デフォルトの名無しさん：2022/07/12(火) 17:20:09.84 ID:xDQ7ywi9.net

>>576
なぜ「fsoを使うと」なにが、「当たり前」なんだい？

578 ：デフォルトの名無しさん：2022/07/13(水) 18:08:17.37 ID:sooqvjiy.net

7月12日のWindows Updateを実施した端末で軒並み「要求されたタイプ ライブラリまたはウィザードは VBA プロジェクトではありません。」
というエラーが出てAccessで作ったものが起動できない症状が出てるんだけど、何か知ってる？
ちなみにAccess Runtimeを再インストールすると直る。修復ではダメ。

579 ：デフォルトの名無しさん：2022/07/13(水) 18:15:29.57 ID:sooqvjiy.net

>>578 書き忘れたけど手元で問題が発生しているのはAccess Runtime 2013 32bitの端末。
OSはWin8.1とWin10の両方で発生してる。

580 ：デフォルトの名無しさん：2022/07/13(水) 19:12:40.99 ID:PtV2v+lq.net

うちの環境とほぼ同じですね、まだ発生してないけど明日あたり起きるのかな。
runtimeの入れ直しですね、了解っす。

581 ：デフォルトの名無しさん：2022/07/14(木) 09:57:45.69 ID:gGJjrJSy.net

>>578
特定した。
KB5002121を入れると症状が発生する。
Access Runtimeを再インストールしても再度Windows Updateを実施すると元に戻るから
KB5002121をブロックしないとダメだ。

582 ：44：2022/07/14(木) 12:52:21.90 ID:Fq9OF9ol.net

迷惑な話ですねえ。
MSのプログラマーがアホなのは今に始まったことじゃないけど

583 ：デフォルトの名無しさん：2022/07/14(木) 18:41:39.80 ID:Zi9qyvS+.net

昔ＥＸＣＥＬのＶＢＡで似たような話が合った気がするな
その時はテンポラリディレクトリの掃除したら起動するようになったはずだから
いちど試してみては

584 ：デフォルトの名無しさん：2022/07/18(月) 12:31:42.55 ID:1omE+gQa.net

MSは自社製品のテスト駆動開発すらしてない
テストが面倒になるとサポート打ち切り

585 ：デフォルトの名無しさん：2022/07/18(月) 13:02:03.33 ID:dNd6yRIh.net

>>584
それソースあるの？

586 ：デフォルトの名無しさん：2022/07/19(火) 13:18:07.18 ID:4mWHj4S5.net

2022年7月パッチで「Microsoft Access」に問題、バージョンが異なるとファイルが開けない
https://forest.watch.impress.co.jp/docs/news/1425748.html
＞異なるバージョンの「Microsoft Access」で作成されたデータベースファイル（ACCDE/MDE）を開こうとすると、「要求されたタイプ ライブラリまたはウィザードは VBA プロジェクトではありません」というエラーが発生する場合がある

587 ：デフォルトの名無しさん：2022/07/20(水) 10:36:39.60 ID:Rwr2SDqT.net

Formを変数にSetするとき下の二つのやり方のどちらが速いか試したら、結構まちまちなんですよね。
後者はEarly Bindingだと思うんだけど、ループさせると前者が速いことも結構あって不思議だ。
だれかこのあたりの事情をご存じの方いますか？

Dim F As Form
Set F = Forms!FormName

Dim F As Form_FormName
Set F = Forms!FormName

588 ：デフォルトの名無しさん：2022/07/20(水) 11:16:41.39 ID:2HHkZJi9.net

>>586
runtime版でそれ出たな、試行錯誤でruntime2016からruntime365に変えたら動いたｗ事がある。

589 ：デフォルトの名無しさん：2022/07/20(水) 15:41:40 ID:qJwz0nM8.net

runtimeは糞

590 ：デフォルトの名無しさん：2022/07/20(水) 18:29:58.22 ID:BaO5YoZA.net

>>587
あってるかどうかは知らんが

!は実行時に列挙する気がするんだが
後者は型チェックと変換が入るから後者のほうが遅いと思う
前者も入るかもしれんが、そうなるとForm型とForm_FormName型でどっちのキャストが早いかで
結局やっぱり後者が遅い気がする

どっちにしたってFは型指定されているので事前バインドだが、
それが差に出るのはFのメンバーを使うときだぜ

まあ、なんにしても誤差レベルだと思うが

591 ：デフォルトの名無しさん：2022/10/28(金) 11:06:17.52 ID:L4jXkRvB.net

PC画面のスクショを撮って、印刷させたいのですが
とっかかりすら分からない初心者です
検索しても該当サイトはなかったので
よろしければご教授願いたいです

592 ：デフォルトの名無しさん：2022/10/28(金) 12:19:16.61 ID:QXDDHW1b.net

>>591
Windows標準の切り取り＆スケッチを使えばできます
ACCESSからコントロールしたいのですか?

593 ：デフォルトの名無しさん：2022/10/28(金) 12:33:34.88 ID:L4jXkRvB.net

>>592
はい、ExcelかAccessでとのことで、
今後の勉強含めAccessに挑んでいます。

不特定多数が使用する環境で
（リテラシーが低い人も混在）
ボタン一つで全画面スクショ印刷と
アクティブウィンドウのみスクショ印刷
の2通りできるようにしたいです
（スクショしたデータは印刷後削除される仕様にしたい）

今のところ全画面スクショはできたのですが
アクティブウィンドウと
その後の印刷と削除で、つまづいてます。

ド初心者なので、見当違いな質問をしていたら
申し訳ありません

594 ：デフォルトの名無しさん：2022/10/28(金) 12:48:59.54 ID:14o/00kf.net

API経由で[PrtSc]（全画面）、[Alt]+[PrtSc]（アクティブウィンドウのみ）を押せばクリップボードに画面キャプチャができるだろうから
それをレポート上のImageに突っ込んで印刷すればいいんじゃないのかな？
試してないから実際にできるかは知らんけど

595 ：デフォルトの名無しさん：2022/10/28(金) 18:23:03.59 ID:ivdM6iIS.net

>>594
ありがとうございます
土日に試してみます！

596 ：デフォルトの名無しさん：2022/12/09(金) 21:17:19.25 ID:XI7rGRQs.net

サーバーから検索したいのに上手くいかない
どこか修正するとこありますか？

Private Sub CommandButton1_Click()
Const BASE_PATH = "\\L\設計\図面"Dim myPath As String, myName As String
Dim FSO As Object, oFolder As Object, oSubFolder As Object, oFile As Object
On Error Resume Next
If TextBox1.Value = ""Then Exit Sub
ListBox1.Clear
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(BASE_PATH)
For Each oSubFolder In oFolder.SubFolders
For Each oFile In oSubFolder.Files
If LCase(oFile.Name) Like LCase(TextBox1.Value) &"*.pdf"Then
Debug.Print oFile.Path
myPath = oFile.ParentFolder &"\"myName = oFile.Name
ListBox1.AddItem myName
ListBox1.List(ListBox1.ListCount - 1, 1) = myPath
End If
Next
Next
Set FSO = Nothing
End Sub

597 ：デフォルトの名無しさん：2022/12/10(土) 17:10:55.98 ID:HwePKFIg.net

何がどううまくいかないんだ？
On Error Resume Next外して、エラー内容かけ

598 ：デフォルトの名無しさん：2022/12/11(日) 02:53:35.00 ID:08xatqWx.net

知らんけど、コマンドプロンプトで取得した方が速いと思うぞ。

599 ：デフォルトの名無しさん：2022/12/11(日) 14:47:06.06 ID:BK2dpDEr.net

ネットワークだとビックリするほど遅いよね

600 ：デフォルトの名無しさん：2022/12/21(水) 12:29:44.27 ID:29nQbkr4.net

表形式にしたフォーム上の一行一行に対して、そのレコードのID.pdfが指定のフォルダにあれば○、無ければ空白って文字を連結したテキストボックスに入れたいんだけど。
Dir使って判定させるところまでは出来たけど、vbaを実行させるタイミングの問題なのかな？
詳細セクションの描画時選んだら代入出来ませんって出た。
試しに詳細セクションダブルクリックだと該当レコードだけは入ったけど。。

一括で全レコード対象にする方法あるんでしょうか。。？

601 ：デフォルトの名無しさん：2022/12/21(水) 13:19:20.60 ID:oTvIdtcL.net

データシートビューのソースの段階でクエリ使ってる？
〇や(空白)を入力するフィールドは確保されてる？
元のソースにpdfファイルがあるか無いかを画面上で比較しながらひとつずつ入力するつもり？
仮のテーブル作ってフォルダ内のpdfのファイル名をDir使ってそのテーブルに代入すれば
簡単に元のソースにも反映出来ると思うけど　どうしてもデータシートビューで比較しながら入れたい？

pdfが入ってるフォルダ内がしょっちゅう追加・変更・削除がある場合だとしても、仮のテーブル使っとけば
都度最新の状況での比較が可能だと思えるし、不足してるからpdf作らなきゃ、の指針にも成るような気がする
でも、元のソースに〇のフィールド作っちゃうと、pdf削除されても〇のまま消えない可能性もあるから対策必要か

つまり、一括で全レコード対象にするなら、Dir結果をcsvなりtxtなりに落とし込んで、それと元ソースで更新クエリがいちばん早い

602 ：デフォルトの名無しさん：2022/12/21(水) 14:08:13.72 ID:29nQbkr4.net

>>601
ありがとうございます
一旦別のテーブルなりCSVなりにファイル一覧作ってみる事にします！
思い付きもしませんでした

603 ：デフォルトの名無しさん：2023/03/02(木) 17:30:45.61 ID:oTm0acsN.net

値にtrueやfalseが含まれるexcelファイルをDocmd.TransferSpreadsheetを使ってテーブルに取り込むと、
数値として反映されてしまうんですが、理論値のまま取り込む方法はありますか？
変換かけるしかないのかな

604 ：デフォルトの名無しさん：2023/03/05(日) 12:31:16.13 ID:Yb2sf8rL.net

>>603
取り込んだ後でクエリーで値変えれば良かろうに

605 ：デフォルトの名無しさん：2023/03/24(金) 00:30:10.12 ID:higFVnZ+.net

recordset.Fields.Append "フィールド名", adChar, 200
とかでフィールドを新規設定するといろいろと挙動不審になって､エラーが頻発した｡
俺が気がついたのはLen関数がおかしな数字を返すこと｡スペースの数を返す｡
これのおかげなのか､DictionaryのKeyが変なことになり､ただしいItemが取得出来なくて2日潰したわ｡
Trim関数に入れたらまともに動き出した｡よけいなスペースが付加されていたため､本来の値と異なっていた｡
このあたりの事情を書いたものあるのかなあ？

606 ：デフォルトの名無しさん：2023/03/24(金) 10:46:32.87 ID:pyQciQm5.net

Recordsetの作成（DAO編）
http://www7b.biglobe.ne.jp/~cbcnet/DAO/database.html
レコードセットの作成（ADO編）
http://www7b.biglobe.ne.jp/~cbcnet/ADO/append.html
第4話 DAOとADOの違い
https://www.r-staffing.co.jp/engineer/entry/20210806_1
同一システム内でDAOとADOを併用しないよう留意　とか？

607 ：デフォルトの名無しさん：2023/03/25(土) 11:49:45.50 ID:zs10i3Ml.net

エラーが出るもんだから､VarType関数使って疑わしい変数を調べたら､18が返ってきた｡
しかし､そんな定数ないんだよなあ｡これはどういうことだ？

608 ：デフォルトの名無しさん：2023/03/25(土) 11:59:33.48 ID:nHkGBQf7.net

値の合計なので、10と8とか　5と6と7とか　思い当たるのをひとつずつ潰してく

609 ：デフォルトの名無しさん：2023/03/25(土) 13:37:32.34 ID:zs10i3Ml.net

>>608
ありがとう｡
Msgboxでそような定数の合計をしますね｡
ところで､そのような知識は私の持っているVBA､VBS､Accessの本には記載されていない様な気がします｡
もしかしたら､Visual Basicでは常識なのでしょうか？それとも一般的なプログラミングの世界での常識ですか？
私は仕事でVBAをいじるだけで､一般的なプログラミングはほとんど知らないのでお尋ね致します｡

610 ：デフォルトの名無しさん：2023/03/25(土) 14:20:16.26 ID:nHkGBQf7.net

本はあくまでも全体のほんの一部を抽出して購買欲そそるタイトル付けて売ってるだけ
MSのリファレンスに頼るのが本筋　
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/vartype-function
https://learn.microsoft.com/ja-jp/office/vba/api/overview/access

ネットの情報でも、ご丁寧にスクショ混ぜて説明してるのに、すでにUI変わってて役に立たないとかも多い
紛らわしい情報が氾濫する中で、どれがじぶんの求めるお宝なのかを見極める目を養うのもだいじ

611 ：デフォルトの名無しさん：2023/03/27(月) 19:32:00.21 ID:zT0GYsm+.net

>>605
CHARとVARCHARの違い
まあ、SQLの型の基本なんだが、ACCESS関連であまりちゃんと解説してるのみたことないな
https://learn.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/datatypeenum
OLE DB プログラマリファレンスの第 13 章および付録 A を参照してください、らしい

612 ：デフォルトの名無しさん：2023/03/27(月) 19:43:31.02 ID:zT0GYsm+.net

>>609
ビットマスクって考え方があって、別にＶＢＡに限った話じゃない
が、VarTypeで18ってリファレンス見る限りないな。
どんな変数がその値だったんだ？

613 ：デフォルトの名無しさん：2023/03/29(水) 07:20:36.71 ID:P3Zmpymz.net

AIに書いてほしいコードを聞くと正しく動くコードが返ってくる
bingとchatGPTは頼れる、かも

614 ：デフォルトの名無しさん：2023/04/04(火) 10:14:28.50 ID:Az13f9J9.net

最近の VisualStudio に搭載されたコード補完は
おせっかいなくらいにコードの続き出てくるな

615 ：デフォルトの名無しさん：2023/04/04(火) 16:33:58.07 ID:vSpSLcg3.net

>>613
俺はChat GPTに嘘ばかり教えられている｡
用語の定義から間違えている｡
Chat GPTの吐いた嘘を貼り付けるページがあったら参加したいわ｡

616 ：デフォルトの名無しさん：2023/04/04(火) 17:16:46.37 ID:SG+vqM06.net

>>615
確かに鵜呑みには出来ないね、よく嘘を言ってくる。ある程度自力で捌けないとヤバいね

617 ：デフォルトの名無しさん：2023/04/05(水) 00:48:28.57 ID:wtS5Em1S.net

嘘を嘘と見抜けない人の利用はお勧めできない、か

どっかで聞いた話だな

618 ：デフォルトの名無しさん：2023/04/05(水) 19:08:02.04 ID:iYloijFa.net

GPTのウソ、具体例有ったら教えて

619 ：デフォルトの名無しさん：2023/04/08(土) 23:18:08.84 ID:m5gy6cDu.net

Excelスレに貼られていたWebview2のコードはﾜﾛﾀ

620 ：デフォルトの名無しさん：2023/04/10(月) 19:36:08.19 ID:YifXJ3Ct.net

今日も大嘘をつかれました｡

質問
MS Accessのvbaで既に存在するプログラム中に宣言されていない変数があります｡これを探して,宣言するvba プロシジャーを教えて｡

回答
MS AccessのVBAで、プログラム中で宣言されていない変数を検出して、宣言するための手順を説明します。

MS Accessを開き、VBAエディターを起動します。
検索機能を使用して、すべてのモジュール内の未宣言の変数を検索します。
未宣言の変数を検索するには、VBAエディターで「Ctrl + F」を押して、「検索」ダイアログボックスを開きます。ダイアログボックスで「未定義の」または「未宣言の」を検索キーワードとして入力し、「検索」または「次へ」ボタンをクリックします。これにより、未宣言の変数が使用されている場所がすべて検索されます。

未宣言の変数を見つけたら、変数の宣言を追加します。
例えば、未宣言の変数「myVariable」が使用されている場合、以下のように宣言を追加できます。


Dim myVariable As DataType ' 変数の宣言

DataTypeは変数のデータ型を指定するために使用されます。例えば、myVariableが数値である場合、データ型はLong、Integer、Doubleなどになります。文字列である場合は、データ型はStringになります。

全ての未宣言の変数を宣言したら、プログラムを保存して実行してください。
これにより、未宣言の変数エラーが回避され、プログラムが正常に実行されるようになります。

621 ：デフォルトの名無しさん：2023/04/12(水) 18:35:03.42 ID:b8lcjBjc.net

未宣言の変数が300種類くらいあるポンコツ業務用mdbがある。Option Explicit化して手作業で未宣言変数を探すとものすごく時間がかかる。ローカル変数だけならテキストに対しての構文解析だけで出来そうだけど、誰かやり方知ってますか？

Access用の解析ツールは時間がかかりすぎるので諦めました

622 ：デフォルトの名無しさん：2023/04/14(金) 12:20:23.58 ID:ooEkRg5K.net

全角数字を含むフォームは普通VBEのプロジェクトエクスプローラでも全角数字で表示される｡
しかし､俺の持っているmdbはなぜかフォームによってはVBEで半角の場合がある｡
つまりForm１番→Form1番
というように半角になっている｡
フォームのもっている名前とモジュールの名前が異なるので検索漏れが発生して何かと不便｡
解決策ありますかね？

623 ：デフォルトの名無しさん：2023/04/19(水) 15:36:15.06 ID:hTeej4zs.net

>>622
Accessのバージョンによって全半角を同一視されるのとされないのがあったよーな
半角に統一して、置換するしかないんじゃね

624 ：デフォルトの名無しさん：2023/04/19(水) 21:07:01.70 ID:UiOYL9zn.net

>>623
VBEはクラスオブジェクトのリネームはできないんですよねえ

Text化してファイル名を統一してから読み込みますかねえ？それでなおるか未確認ですが。

今は検索文字列のパターンを増やして対応してますが、邪道だなあと思いながらやってます。

625 ：デフォルトの名無しさん：2023/04/20(木) 00:39:31.09 ID:Ck2wYtqO.net

ACCESS側で名前変更しても、VBE側が変わらないことがあるっぽいな

フォームの コード保持 を いいえ にして保存してから はい にしたら同じになったぞ
まあ、コード全部いったん消えるがな

626 ：デフォルトの名無しさん：2023/04/20(木) 10:07:33.88 ID:b7y+tf5m.net

>>625
テキスト化してフォームと同じ全角のファイル名にしてからLoadしたらVBEのクラスオブジェクトの名前と一致させることが出来ました｡
思うに､このプログラムを書いた人はテキスト化して､お好みのエディタで書いていたんでしょうね｡
だからOption Explicitなんてしてなくて､問題なく書けるので､変数のスペルミスがあります｡
今回はファイル名の全角半角を間違えてままLoadしてフォーム名とクラスオブジェクト名が一致しないということになったと思います｡
よほどVBEを使いたくなかったんでしょうね｡

627 ：デフォルトの名無しさん：2023/04/28(金) 05:20:11.81 ID:d0ZMhP2N.net

やけにエラーが出るので調べたら、クラスオブジェクトの名前のカッコが前側が半角、後側が全角のものを発見。しかも複数。
俺はプロじゃないけど、このデータベースに毎月金を払っている。金取るならちゃんとしたものを作って欲しいわ。
宣言だけして読み書きしない変数が約2000個、呼び出されないプロシジャーと空のプロシジャーが100個以上がもあるし、どうなっているんだ？
戻り値のないプロシジャーをFunctionにして，呼び出すだけのために変数を使ったりしてアホかと思うことばかり

628 ：デフォルトの名無しさん：2023/05/03(水) 21:33:01.68 ID:u6AyBhT9.net

クエリがいくつかあってそのなかであるテーブルを使ってるかどうか検索する方法ないですか

629 ：デフォルトの名無しさん：2023/05/03(水) 21:34:54.38 ID:u6AyBhT9.net

これVBA関係ないな

630 ：デフォルトの名無しさん：2023/05/04(木) 13:12:55.46 ID:xnh5NJU8.net

関係無いけど、ヒマだから
https://www.feedsoft.net/access/tips/tips211.html
この手順でコツコツ「リレーションシップ」を出力してけば把握できる

631 ：デフォルトの名無しさん：2023/05/04(木) 20:33:29.74 ID:i/jCXYvG.net

QueryDefsのSQLプロパティをinstringで調べる
それをループ　かな

632 ：デフォルトの名無しさん：2023/05/10(水) 00:24:35.45 ID:qaMHPguU.net

>>631
これがベストだね

633 ：デフォルトの名無しさん：2023/05/12(金) 20:45:34.35 ID:nGf/Bj/G.net

流行りのChatGPTをACCESSで使えるようにしてみた
BingやBardもレスポンス良く使えるようになったのであまり意味はなかったが面白かった
VBAコードはChatGPTに書かせたのをほぼコピペで動くようにできた

634 ：デフォルトの名無しさん：2023/05/13(土) 09:19:13.17 ID:uR6hVfud.net

スレの意図を無視するがAccessは出来るだけVBA使わず作成する方がバージョンアップにも対応し易い

635 ：デフォルトの名無しさん：2023/05/13(土) 13:15:28.85 ID:JkElVRfp.net

お客様に納品するならそういう気遣いも要りますね
自家用なので気の済むまで作り込みます
自社の50人くらいが快適なように

636 ：デフォルトの名無しさん：2023/05/13(土) 16:13:18.44 ID:74jfRr8+.net

どうした？　総合で同意が得られなかったから改めてコッチに書いたのか？
Accessをインストールだけして使わないでいればバージョンアップもへったくれも無いから、そうした方がいいぞ？

637 ：デフォルトの名無しさん：2023/05/14(日) 08:52:04.69 ID:UU9sI9hc.net

Rubberduckは大きいデータベースだとパース中にエラーが出て使い物にならないねえ

数年前よりはるかにマシになったけど。

638 ：デフォルトの名無しさん：2023/05/16(火) 21:12:36.24 ID:dmITDlP3.net

msgboxの戻り値を格納する変数の型をvbMsgboxResultにするかLongにするか悩んだので､
時間を計ろうと思って､古い本を引っ張り出して､二つを比較するプロシジャーを書いた｡
ふと､全く同じテストをしたらどうなるのか気になったので､やってみたら､全く同じプロシジャー同士の比較なのに30%位スピードに差が出る｡さっきやったら最大で37%速度差があった｡
一方が速いこともあれば､もう一方が速いときもある｡こんなのでスピード比較する意味あるのかなあ？

時間測定はGetTickCountを使って､変数宣言のみ100万回のループをするプロシジャーを100回呼び出すという感じ｡
なんかいい測定方法ありますかね？

639 ：デフォルトの名無しさん：2023/05/16(火) 21:52:45.08 ID:Mqz2m8JL.net

timer使っても同じかな

640 ：デフォルトの名無しさん：2023/05/17(水) 06:33:48.44 ID:AOXlzNDq.net

timerが秒単位でGetTickCountはミリ秒単位と古い本に書いてあったなあ
あと､timerはそれ自体の動作が遅いって書いてあった

641 ：デフォルトの名無しさん：2023/05/18(木) 18:57:23.27 ID:8+QzSev9.net

ユーザーフォームが大きいんで下半分を隠す、上半分を隠す、という2つのコードを書きたいんです。下半分を隠す、はハイト プロパティを小さくすれば可能なんだけど、上半分を隠す、は不可能なんですかね。

642 ：デフォルトの名無しさん：2023/05/18(木) 20:29:25.05 ID:FTp82+/Y.net

>>641
何をやりたいのかイマイチ分からんけど、タブコントロールじゃだめなん？

643 ：デフォルトの名無しさん：2023/05/18(木) 21:32:12.21 ID:UaeB70YO.net

上半分を隠したら×ボタン無くなってにっちもさっちも行かなくなるぞ

644 ：デフォルトの名無しさん：2023/05/18(木) 21:36:12.00 ID:/q1eE0wB.net

>>641
2つのフォームに分けたら良いと思うの

645 ：デフォルトの名無しさん：2023/05/19(金) 21:09:14.22 ID:j+pEmA6B.net

>>642
>>644
ありがとう。皆さんのアイデアをためします

646 ：デフォルトの名無しさん：2023/05/23(火) 14:00:02.22 ID:MnQDcyxi.net

質問です。
Excelファイルを読み込んで、加工してからテーブルとして保持したいんですが、
Excelファイルのまま編集してinsertするのと、
一度テーブルとして読み込んでから編集してinsertするのはどちらが高速でしょうか？

647 ：デフォルトの名無しさん：2023/05/23(火) 14:42:54.35 ID:3uLTyIP1.net

insert ? inport の手順なら下記リンク先を参考に
https://hamachan.info/win8/access/import.html　
Excelファイルをリンクでもいけるし　同作業を何度も繰り返すとかでも、操作を保存しとけば楽だし
データのボリューム次第とかマシンスペックとかも兼ね合いがあるから、どちらとも
ウィザードの途中画面をよく見て、事前にExcel側を整えて置けば inport も楽だし
編集内容がより細かく設定できるのはExcelなのかAccessなのかを知る事でも、どちらの方法を採るかの判断になる

648 ：デフォルトの名無しさん：2023/05/23(火) 15:03:14.67 ID:MnQDcyxi.net

いろいろありがとございます、しかしimportではなくinsertです
内容を見て既存のテーブルに1行ずつinsert（もしくはupdate）していく形になります。

649 ：デフォルトの名無しさん：2023/05/23(火) 15:26:17.99 ID:3uLTyIP1.net

んーと、Access側のテーブルはあくまでもデータストック用な立ち位置？
事前にExcelでの編集が伴うなら、Accessのテーブルとしてから編集するのはムダなような
https://tonari-it.com/excel-vba-access-add-records/　コッチのが参考に成るかも　実行速度の検証もしてる様子

650 ：デフォルトの名無しさん：2023/05/23(火) 16:47:55.53 ID:MnQDcyxi.net

ありがとうございます！
いまさらっとですが見てみたところ、速度比較などもしていて参考になりそうです。
見てみます！

中間テーブルを作成してから編集した方がいいよ、という声を聞いたんですが
いちいち使わないテーブルに投入する必要はないのでは？と思い質問いたしました。
事前編集方式でやってみます！

651 ：デフォルトの名無しさん：2023/05/23(火) 18:12:18.40 ID:3uLTyIP1.net

Excelの元データと、何をどう編集したいかも判らないから、中間テーブルの必要性は当人しか判断不能
上でも書いたけど、編集内容がExcelの方が楽で早いのかAccessの方なのかでも手順は変わるような
速さを第一に求めているように読めるけど、「一行ずつ」って書かれた部分で「おや？」と
スムースにデータを移行させるには、最初のリンク先の「データクレンジング」も読んでおいてもムダには成らない
アチコチに目を配らなければならない様子でお疲れ　でもそれがじぶんの糧に成る

652 ：デフォルトの名無しさん：2023/05/24(水) 08:46:04.47 ID:AU7HKxhu.net

>>646
ExcelインポートしてAccessで加工する方が速いよ
ExcelでVBAでデータ加工するなんて愚の骨頂

653 ：デフォルトの名無しさん：2023/05/24(水) 10:26:10.15 ID:eouMPy16.net

みなさまいろいろありがとうございます
自分の説明不足＆理解不足ですみません。

ACCESSに入っている一覧情報を定期的に更新しなければならず、
その更新情報がExcelで来るのでそれを読み込んで…とやる感じです。
ACCESS側で固有に更新している情報もあるのでまるっと上書きではなく、
一行ずつ確認して該当の列のみ追加や上書きをしなくてはいけません。

それを、いまはAccessVBA内でExcelファイルを開いて
一行ずつ読み込んで内容確認して内容によってSQL流して…とやっているのですが、
もしかしてExcelファイルを中間テーブルにimportしてから
操作した方が早いのかな？？と悩んで書き込んだ次第です。

「ExcelインポートしてACCESSで加工」と言ってくださってるのは
後者の場合を指しているのですかね？
今はとりあえずサンプルを作って動かして比較しようかと思っています。

654 ：デフォルトの名無しさん：2023/05/24(水) 10:50:21.63 ID:l+gVJ33A.net

そういうことなら中間テーブルに取り込んで、テーブル同士の差分をチェックかな
https://tasukete-access.com/2022/11/28/accessintro_table_comparison/
[フィールド単位での差分をチェックする]　この方法のが近いのか

655 ：デフォルトの名無しさん：2023/05/24(水) 23:16:20.24 ID:CzWxWRtY.net

返信遅れてすみません！ありがとうございます！
こんなやり方ができるんですね！
全部SQL書こうと想ってましたがクエリで楽に作れるかもしれず嬉しいです。
参考に書いてみます、本当にありがとうございます！

656 ：デフォルトの名無しさん：2023/05/26(金) 17:24:59.84 ID:sT8UcBqC.net

500以上のモジュールにOption Explicitが書いてない。
当然、宣言されていない変数が何百もある。
ここにOption Explicitを書くと、宣言されていない変数を見つけるたびにコンパイルが止まるので面倒。
一括して発見する方法を知ってる人いますか？
VBEが発見できるので、その方法が分かればユーザにも分かるはずだと思うが、検索しても見つからない。

Cのコンパイラを自作する技術があれば、文法解析の手法が使えると思って調べたけど、全余暇時間をコンパイラ自作に割り当てても6ヶ月かかったと言ってる人がいて、踏み出せない。

657 ：デフォルトの名無しさん：2023/05/26(金) 19:16:13.82 ID:+AT6wCCw.net

こんなん見付からはりました
https://stabucky.com/wp/archives/6297　　実際に検証はしてないんで、自己責任 ←重要！！
現物mdb(そんなのはAccdbでは無くmdbだと勝手に決め付けてる)では無く、コピーしたファイルで
尚且つネットから切り離しスタンドアロンで、更に30秒後に発火するかも知れないので消火器用意してから
試してみてください　結果報告が期待されます

VBE上でCtrl + Spaceで入力支援機能(サジェストっつーの？)を出して、いっこずつTABで拾いだす案を
提案しようと思いつつぐぐってたら出てきた代物　宣言してなかったら自動メンバー表示(どの名称が正式か知らん)
にも出てこないのか！？と、ようやく気付いたレベルの人間のレスなので、眉唾しながら(若しくはスルー推奨)

VBAでJavaScriptを使うには？という場合は　：　https://extan.jp/?p=10611　とか
あと、『なお「unique」という自作の関数を使っています』とあるので、それも併せておかないと動作しないかも(きっと)

658 ：デフォルトの名無しさん：2023/05/29(月) 16:07:15.09 ID:AvjLnKXj.net

>>657
ありがとう｡
少しずつ試してみます｡

いろいろ調べて､いまはFlexとbisonという奴でもやってみたくなっています｡

659 ：デフォルトの名無しさん：2023/06/08(木) 22:05:58.45 ID:tPqYzYSn.net

配布したaccdbを365runtimeで動かしてて、今朝突然レポートが開かなくなった
ほぼ午前中すったもんだして2013runtimeならレポートの印刷やプレビューが問題無い事がわかってruntime差し替えた
こんな目にあったひと他にいない?

660 ：デフォルトの名無しさん：2023/06/09(金) 03:25:01.10 ID:i6Y59lYy.net

>>659
はい、います
365で突然、帳票の罫線が消えた事があります
その時はAccessのバージョンを1つ前にロールバックして解決しました

方法は以下のURL参照
■Office - Microsoft コミュニティ
https://answers.microsoft.com/ja-jp/msoffice/forum/all/office/67665e18-c4c7-4c1c-b5d1-3ff6e6cd8334

今だと一つ前はバージョン 2304 (ビルド 16327.20248)ですかね
それでダメならもう一つ前へ

661 ：デフォルトの名無しさん：2023/06/09(金) 04:50:51.47 ID:uT9lsXlY.net

ロールバック、覚えときます
ありがとう

662 ：デフォルトの名無しさん：2023/06/09(金) 12:36:00.93 ID:G8Vh+N8B.net

それって、MSからバグフィックスや修正が為されたのを察知するにはどうしたらいい？
ロールバックしっ放し？　勝手にアプデされてまだ直らなかったら二つ前にロールバック？
ずっと修正されなかったらロールバックバックバックとかに成らん？

663 ：デフォルトの名無しさん：2023/06/09(金) 16:09:51.45 ID:XhtkwaOO.net

>>662
察知は毎月リリースページを確認していました
バグが修正されるまでは Office の自動更新を止めます
なのでロールバックは最初の1回だけです
バグが修正されたら自動更新を有効に戻して最新版にする感じでした

更新は重大バグ修正の時のみ、原則自動更新は使わないという運用もあります
これに関してはお客さん次第ですかね

664 ：デフォルトの名無しさん：2023/06/09(金) 16:20:24.73 ID:G8Vh+N8B.net

そうだよね　委託を請けてる業者さん目線だよね
エンドのユーザーはそんなのに目を通さないしね　見てもどれが自分の不具合に当て嵌まるか解かり辛いしね
じゃあ内製のユーザーはロールバックバックバックし続けるしか無いよね
アプデを停め続けるひとも居るかも知らんけど、そうすると1年分とか溜まってそれはそれで地獄を見るしね

やっぱこういう場所で症状とかを意見交換するのは貴重なんだ、と再認識

665 ：デフォルトの名無しさん：2023/06/09(金) 17:23:51.20 ID:XhtkwaOO.net

>>664
はい、開発委託業者です
確かにエンドユーザーさんにリリースページは無縁ですよね
一応システム担当者さんにはお知らせしましたけど、こちらで随時チェックという感じでした
また修正されてもリリースページに載らない細かい不具合修正も多いです
レポートの罫線不具合はまさにそれでした

■最新チャネル リリースのリリース ノート - Office release notes | Microsoft Learn
https://learn.microsoft.com/ja-jp/officeupdates/current-channel

666 ：デフォルトの名無しさん：2023/06/10(土) 18:20:00.00 ID:u0MJNtiG.net

あと、マクロだと screen.active.control とか出来ないよね

667 ：664：2023/06/10(土) 18:20:16.44 ID:u0MJNtiG.net

誤爆

668 ：デフォルトの名無しさん：2023/06/11(日) 17:21:05.93 ID:/gnEKRu3.net

sleep をどんだけにするかどうやって決めるの？

669 ：デフォルトの名無しさん：2023/06/13(火) 15:38:15.16 ID:bu7CkXDV.net

VBAで自作のクラスモジュール作成したんですが、
それを引数で渡す関数の書き方がわかりません

Sub test(ByVal hoge As Hoge）

みたいな感じで書いたのですがうまくいきません。
（As Hogeが自動でAs hogeと変換されるし、エラーになります）
どなたか教えていただけませんでしょうか？

670 ：デフォルトの名無しさん：2023/06/13(火) 19:34:42.68 ID:d6Pomi9y.net

>>669
引数hogeに引っ張られるVBAの仕様です
VBAでは変数にクラス名を使うのは避けた方が良いですよ
プロジェクト内に変数hogeが存在している時も同様です

671 ：デフォルトの名無しさん：2023/06/14(水) 11:24:04.63 ID:3Eu4F25u.net

>>669
VBAでクラスモジュールなんて不要

672 ：デフォルトの名無しさん：2023/06/15(木) 16:26:17.40 ID:VlP0x+zk.net

>>671
流石にそれはない。クラスモジュールがある方が便利だよ。

673 ：デフォルトの名無しさん：2023/06/15(木) 19:09:52.15 ID:y9q9PTdn.net

bindってのでクラスモジュールの有り難みを知りました

674 ：デフォルトの名無しさん：2023/06/15(木) 20:42:35.42 ID:RAXKxz4R.net

俺もクラス使いたい派
保守性が全然違う

675 ：デフォルトの名無しさん：2023/06/15(木) 22:46:38.48 ID:VlP0x+zk.net

クラス使わないと同じようなコードが量産されて面倒くさすぎる

676 ：デフォルトの名無しさん：2023/06/15(木) 22:47:32.53 ID:VlP0x+zk.net

ただでさえポンコツな言語なんだから、クラスぐらい使おうよ。

677 ：デフォルトの名無しさん：2023/06/16(金) 20:25:21.43 ID:cjNqE8A3.net

>>675
そのせいだったのか、クラス使えば良かった

678 ：デフォルトの名無しさん：2023/06/21(水) 20:54:02.92 ID:b8UND1s3.net

ADOでCSVからテーブルを作ろうとしたらレコードが大きすぎますって怒られるんですよ!
1レコード2000バイトも無いのにですよ!
400列くらいあるのがダメなんですか?
2013なんですが。

679 ：デフォルトの名無しさん：2023/06/21(水) 21:15:42.66 ID:gk5UG/Z5.net

フィールド数の上限は255だからかな

680 ：デフォルトの名無しさん：2023/06/23(金) 13:04:47.47 ID:pHYUvccd.net

フィールド数上限は実は罠

681 ：デフォルトの名無しさん：2023/06/23(金) 15:26:54.30 ID:X84KLwiQ.net

過去最大のフィールド数は500
テーブル分割して収納した

682 ：デフォルトの名無しさん：2023/06/23(金) 15:42:34.83 ID:jhieer6M.net

分割したらフィールド数じゃないな

683 ：デフォルトの名無しさん：2023/06/23(金) 16:07:44.83 ID:/GlO4XTI.net

メモ型にコンマ付で格納

684 ：デフォルトの名無しさん：2023/06/24(土) 09:17:24.69 ID:5hQB8dV1.net

>>683
それに意味有るの?

685 ：デフォルトの名無しさん：2023/06/26(月) 19:43:31.70 ID:nvUGoLmX.net

Access2019でリボン非表示にするのは、どうするの？

686 ：デフォルトの名無しさん：2023/06/26(月) 20:17:04.89 ID:nvUGoLmX.net

>>685
細工されないようにXMLで記述したい

687 ：デフォルトの名無しさん：2023/06/26(月) 21:25:45.94 ID:Ezf4n+79.net

XML???
VBAでなら
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ってのがあるが

688 ：デフォルトの名無しさん：2023/06/27(火) 08:56:44.60 ID:5UYjwK7S.net

それだと使用者に解除されちゃうので、XMLで空のカスタムリボン作って、オプション→現在のデータベース→リボンとツールバーのオプションに設定したいんよ
Access2019だとスクラッチからリボン作ってもファイルボタンが残っちゃうのが解ったので、それで我慢する

689 ：デフォルトの名無しさん：2023/09/14(木) 09:18:05.95 ID:t/htNvkA.net

サブフォームをもつフォームにおいて、
親フォーム側から
Me.サブフォーム.Requery
を実行すると、サブフォームのCurrentイベントが2回発生するんだけど、なんでなんだろ？

690 ：デフォルトの名無しさん：2023/09/14(木) 10:41:11.21 ID:UPFEbPP4.net

大抵はそう組まれているからそう動作する
親フォームからひとつずつチェックしてみれば「あぁ、ここか」が出てきたりする

691 ：デフォルトの名無しさん：2023/09/14(木) 10:50:23.10 ID:t/htNvkA.net

>>690
検証のために、メインフォーム上ににサブフォームとサブフォームをRequeryさせるだけのボタンの最小限の構成にしても
687で書いた現象が発生している（サブフォーム側はCurrentイベントにdebug.printを書いただけ）

私は何か根本的な勘違いをしているのだろうか？それともAccessの仕様なのだろうか？

692 ：デフォルトの名無しさん：2023/09/14(木) 12:58:11.51 ID:UPFEbPP4.net

フォームをデザインビューにした時に出て来るプロパティシート
おおむかし、あの枠が狭くて知らぬ間に二行に記載していたことは稀によくあった
Excelで言う、セル内改行をやってしまっていた　見た目はいっこなので気付きにくい
或いは、サブフォームをよりシンプルなものでテストするとか
仕様なら同様の質問疑問がてんこ盛りに投稿されるはず
　と思って探ってみたら、こんなのが・・
http://yamav102.cocolog-nifty.com/blog/2015/05/from_current-96.html　　これ系？

693 ：デフォルトの名無しさん：2023/09/14(木) 13:40:41.27 ID:t/htNvkA.net

>>692
サブフォームは新規作成した状態のものにCurrentイベントにdebug.print書いただけのものでも2回発生してるのよ

提示していただいたページはこちらで調べたときに見ていますが、そのページで書かれてるのは自分自身に対するRequeryのようなのでちょっと事情が違うようです

frmMain
------------------
Option Compare Database
Option Explicit

Private Sub btnRequery_Click()
Debug.Print "clicked ------"
Me.frmSub.Requery
Debug.Print "--------------"
End Sub
--------------------

frmSub
--------------------
Option Compare Database
Option Explicit

Private Sub Form_Current()
Debug.Print "frmSub Form_Current"
End Sub
---------------------
こんなかんじの検証用のを用意

694 ：デフォルトの名無しさん：2023/09/14(木) 13:41:20.11 ID:t/htNvkA.net

んで、実行結果（イミディエイトウィンドウ）が

clicked ------
frmSub Form_Current
frmSub Form_Current
--------------

695 ：デフォルトの名無しさん：2023/09/14(木) 14:52:05.24 ID:UPFEbPP4.net

イメージだけで応答してたから、どうにもとっ散らかってた　現物当たって真似してみた
https://learn.microsoft.com/ja-jp/office/vba/api/access.form.current
　　このイベントは、フォームが開いたときと、フォーカスがレコード間を移動したときの
　　いずれの場合にも発生します。
複数回発生して当たり前だった　
Form_Load (読み込み時)　或いは Form_Abtivate (アクティブ時)　に変えればおｋ
どうしてもForm_Current (レコード移動時)に設定したい場合は見て見ぬ振りをするしか

696 ：デフォルトの名無しさん：2023/09/14(木) 15:04:03.08 ID:t/htNvkA.net

>>695
loadやactivateではrequery時にイベントが発生しないので、本来の目的を達成できません
また、最初にフォームが開かれたときにはcurrentは一度しか発生していません

697 ：デフォルトの名無しさん：2023/09/14(木) 16:54:04.40 ID:UPFEbPP4.net

btnRequery をクリックしても Requery できない？という意味？
Me.frmSub.Requery を Me!frmSub.Form.Requery にしてみては？
Me. か Me! かでも変わって来るし、.Form を付ける付けないでも挙動が変わったような

あと、frmMain を開いただけでも frmSub Form_Current が発生するのも違う気がするし
frmMain でパラメータ変えて frmSub を Requery させたいとかなら
https://teratail.com/questions/123328　このhatenaさんの回答を参考にしてみたり
Docmd.Requery でやっつけてみたり　Requeryの使い方もクセがあるので切磋琢磨が
必要だったり

698 ：デフォルトの名無しさん：2023/09/14(木) 17:08:38.96 ID:t/htNvkA.net

>>697
frmSubはfrmMainに貼り付けられているのでfrmMainを開くと当然frmSubも開かれるので、
Open, Load, Current等のイベントはひととおり発生します（仕様通り）
これについては特に問題ではありません

問題にしているのはbtnRequeryをクリックしたときに、Me.frmSub.Requeryを一度しか呼んでいないのに
frmSubのCurrentイベントが二度発生していることです

紹介いただいたteratailのページを参考にあれこれ試してみたいと思います

699 ：デフォルトの名無しさん：2023/09/14(木) 21:20:00.47 ID:dY8DD9uu.net

AccessにGROUP_CONCATみたいなのなかった?

700 ：デフォルトの名無しさん：2023/09/14(木) 23:10:56.65 ID:kQn+Df7T.net

サブフォームのレコードソースにテーブル指定して　>>693　やってもカレントは一回しか表示されんけどな
レコードソース無ければ2回カレントは表示される

サブフォームにレコードソース指定してる？

701 ：デフォルトの名無しさん：2023/09/15(金) 08:38:48.79 ID:cxAk3WqI.net

>>700
たしかにレコードソースはしていしていません
なるほど理由はよく分からないけれど、原因は分りました
ありがとうございます

702 ：デフォルトの名無しさん：2023/10/03(火) 11:54:07.91 ID:BE4+HOMv.net

ちょっと不思議な話
よくある数値の切捨て処理のfunctionとして
Function RoundDownDec(decNum as Currency, intPlace as Integer) as Currency
　RoundDownDec = Fix(decNum * 10 ^ intPlace) / 10 ^ intPlace
End Function
処理したいデータの都合で与える数値も戻り値も十進型としています
（正負の処理などは今回の本題から外れるので例からは省いています）
RoundDownDec(33.6, 2) としたときに、33.6が返ってくるのを期待しますが33.59が返ってきます
不思議！
functionの中身を
Dim tmp As Currency
tmp = Fix(decNum * 10 ^ intPlace)
Debug.Print tmp
RoundDownDec = tmp / 10 ^ intPlace
と段階を踏ませるとイミディエイトウィンドウに3359が出るので更に
tmp = decNum * 10 ^ intPlace
tmp = Fix(tmp)
と分解すると、期待通りの結果（33.6）が得られます
Fix()の引数はdoubleなんで、暗黙的な型変換が行われているせいなんだろうけれど、微妙に納得がいかない不思議な話でした

703 ：デフォルトの名無しさん：2023/10/03(火) 11:59:45.89 ID:BE4+HOMv.net

ちなみに蛇足ですが、普通に
Function RoundDown(dblNum As Double, intPlace As Integer) As Double
とdoubleを引数にした場合は、特別なことをしなくても RoundDown(33.6, 2) の結果は33.6となります

704 ：デフォルトの名無しさん：2023/10/04(水) 10:07:17.16 ID:e9fui2Qq.net

浮動小数点を経由するので誤差から免れることはできません（以下はイミディエイト ウィンドウでの実行と結果）
? Fix(33.6 * 10 ^ 2), Fix(33.6@ * 10 ^ 2), Fix(33.6! * 10 ^ 2)
3360 3359 3359
単精度でも同様

? Fix(33.6@ * 10 ^ 2) / 100, Fix(CCur(33.6@ * 10 ^ 2)) / 100, Fix(33.6@ * 100) / 100
33.59 33.6 33.6
べき乗を使うことが誤差を生む原因の一部でもあったりするので、CCur()で一度補正？したりで影響を減らすとかも考えられます。

705 ：デフォルトの名無しさん：2023/10/04(水) 10:57:33.10 ID:95ZKO4kH.net

検証ありがとうございます

浮動小数点を経由するので誤差がでるのは理屈としては理解できるのですが、
わざわざ十進型を使ってるのに…というのや、Fix()に渡される式の結果ではなく、
渡された段階で暗黙的な型変換が行われているっぽいのが腑に落ちなさの一因なのでしょう

706 ：デフォルトの名無しさん：2023/10/04(水) 14:52:16.68 ID:e9fui2Qq.net

? Fix(33.6@ * 10 ^ 2) , Fix(33.6@ * 100)
3359 3360
の結果からもわかるように、今回の場合は 10 ^ 2 の値が浮動小数点であり ≠100 である
ということです
なので「33.6@ * 浮動小数点」は33.6@を浮動小数点として計算する（はず）ので、その結果が
許容できない値になってしまったと
対策として CCur(33.6@ * 10 ^ 2)で本来の値に近くなるように書きましたが、
べき乗の部分を一度整数変数に代入してから「33.6@ * 整数変数」の形にしてもいいと思います（未検証）
この場合、通貨型は内部整数 * 整数なのでここまでの計算結果に誤差はでません。（乗数マイナスは別）

RoundDownDec()を大量に使用する場合はパフォーマンスも考慮しないといけませんが、乗数を整数変数経由に
する方が CCur()関数使うより早いのではと思います（昔、関数使うと遅いなと思った経験）。
100万回くらい（適当）ループして検証してみてください。

707 ：デフォルトの名無しさん：2023/10/04(水) 15:22:35.37 ID:95ZKO4kH.net

更なる解説ありがとうございます

? TypeName(10^2)
Double
正直これは盲点でした
原因がはっきりわかりすっきりしました
ありがとうございます

708 ：デフォルトの名無しさん：2023/10/04(水) 21:35:38.35 ID:GiHPLbjK.net

VBAの内部計算につかう型は結構複雑な変換をする
33.6@ * 整数変数の結果は、Currency型だぜ
多くの関数や演算子で、より精度の高い型を使おうとするんだが、べき乗はDoubleしか返さん仕様っぽいな
自分でCurrencyかDecimalでべき乗する関数作れば解決

709 ：デフォルトの名無しさん：2023/10/04(水) 23:36:55.88 ID:hn2MViTp.net

OpenArgsってなんて読んでますか？
何の単語の略なんでしょうか
ご存じのかた教えてください

710 ：デフォルトの名無しさん：2023/10/05(木) 01:14:56.61 ID:6f6nA7M7.net

>>708
CurrencyかDecimalでべき乗する関数ってどのような？

711 ：デフォルトの名無しさん：2023/10/05(木) 04:00:15.23 ID:xIPl72Do.net

>>710
こまかい条件省くとこんな感じじゃね
Function pow(x As Currency, y As Integer) As Variant
Dim i As Integer
Dim ret As Variant
ret = CDec(x)
For i = 1 To y - 1
ret = ret * CDec(x)
Next
pow = ret
End Function

Decimalは直接定義できないからVariantで宣言してる

712 ：デフォルトの名無しさん：2023/10/05(木) 04:05:04.32 ID:xIPl72Do.net

>>709
おーぷんあーぎゅめんつ
argsはargumentsの略　引数

713 ：デフォルトの名無しさん：2023/10/05(木) 18:08:52.91 ID:dRlX4TIE.net

>>711
そんな低レベルな関数書いて「解決っ」とか言っちゃって時点でバカにも程がある

714 ：デフォルトの名無しさん：2024/02/19(月) 13:32:04.50 ID:2EJLRmB3B

岸田異次元増税憲法カ゛ン無視地球破壞軍國主義売國奴文雄か゛崇拝する世界最惡のならす゛者國家か゛落とした広島原爆て゛14万人殺されたそうだか゛
WMOによると1970年以降確認されているだけで気侯変動による災害で殺された人数は200万人以上經済損失は600兆円以上な
カによるー方的な現状変更で都心まて゛数珠つなき゛でクソ航空機に私有地侵略させて住民ヰライラ犯罪惹起してる税金泥棒クソポリ公騒音ヘリ
だの住民の権利を強奪して私腹を肥やす強盗殺人テロ国家日本．広島の公園では肉を焼くでもなく無意味に火を燃やし続けて温室効果カ゛スまき
散らし続けてこんなハ゛カ丸出し自己滿足で盛大に人殺しに加担しなか゛ら何が平和た゛か笑わせんなって話だろ、挙句の果てにサミッ├だの
爺7テ口リス├と゛もが国民から強奪した莫大な金て゛住民の生命と財産を破壞しながらハ゛カ丸出しオナニ━集會，氣候変動させて日本どころか
世界中で土砂崩れに洪水，暴風，熱中症、森林火災にと災害連發させて，核なんかおもちゃに思えるほどの地球破壊による大量殺戮しなか゛ら
他国非難とか，クソシナ顔負けのプ囗パカ゛ンダ放送繰り返したところて゛騙されるのは知障だけだそ゛クソテ口政府
(ref.) ttps://www.call4.jp/info.php?type=items&id=I0000062
ttps://haneda-project.jimdofree.com/ , ttps://flight-route.com/
ttps://n-souonhigaisosyoudan.amebaownd.com/

715 ：デフォルトの名無しさん：2024/03/24(日) 13:50:16.81 ID:6zfiQZRE.net

業務用のmdbがポンコツコードだらけなので書き換えてるんだけど、IIFが最大4個ネストしてあった。
4個ネストしてあるのは変数の値の判定が条件になっているけど、3個以下のは関数を呼び出している。
皆さんだったらどうします?

716 ：デフォルトの名無しさん：2024/03/24(日) 19:36:20.19 ID:S7ogYjm0.net

将来も含めてどのレベルの人がメンテしていくかだろうな
ソースの書き方も人それぞれ
例えばコメントの書き方でも、巷では行間に書くのが多いが、私は画面内に一度に表示できるロジックの行数減って見通し悪くなるから、行末側に書きたい
画面も横長だし
とか厳密に書き方決めないと人それぞれになってしまうのよね
ネストの段数にしても固定してしまうと、ムダに外出ししてしまうとかもあったり
ソースを見やすくするか、コメントで逃げるとかはもうコーティング規則にするか、それしないなら担当者判断でしかない
iifもネストなんて場合によりどちらでもいい

717 ：デフォルトの名無しさん：2024/03/24(日) 22:33:27.39 ID:6zfiQZRE.net

とりあえず、測定用の簡単なVBAを作って、IIFのネストがどのくらい遅いのか確かめてみます。
変数の値の判定くらいなら差はほとんどないという記事を読んだことがあります。しかし、関数呼び出しをするとかなり違うという記事も読んだことがあります。
なので、呼び出された関数が10個、さらにそれぞれの関数が10個の関数を呼び出すようなコードでも書いて調べてみます。
昔Ken Getzの本を何冊か読んだ記憶ではOptimizationの章では揃ってIIfを避けるように書いてありましたね。

718 ：デフォルトの名無しさん：2024/03/25(月) 10:06:54.06 ID:wTe6l7XU.net

>>717
あぁ、それなら全ての条件を評価する（初期の判定で達しないとこも）から、遅くはなる
そういう弊害があるから一律使わなくするなんてことは、あったりするだろうね
そういうの見ると「はぁ⤵」って思うけど

719 ：デフォルトの名無しさん：2024/03/25(月) 15:11:37.51 ID:wTe6l7XU.net

>>718
ちなみにif～thenも全判定なので、iif禁止で問題解決になるわけでもない

720 ：デフォルトの名無しさん：2024/03/26(火) 00:35:40.91 ID:YALkMi+F.net

>>717
Access のIIFの問題は判定結果に関わらず
TrueパートとFalseパートの両方が評価(関数なら実行)されてしまう仕様

a = IIF(True, funcA, funcB)
funcAだけでなくfuncBもコールされる
aにはfuncAの戻り値が入る

関数の実装内容によってはパフォーマンスに影響が出るでしょうね
IFではどちらか一方のみ結果パートが評価されます

721 ：デフォルトの名無しさん：2024/03/26(火) 12:43:56.27 ID:H7z+7I0f.net

>>719
if thenが全判定てなにを言っているんだ
andとorがショートサーキット演算しないだけだぞ
基本vbaはショートサーキットしない
例外はif関数ぐらいか

722 ：デフォルトの名無しさん：2024/03/26(火) 13:57:38.44 ID:kj3sgFU0.net

>>721
日本語理解できない、省略を補完する知識もないシナのアホが飛来したな

723 ：デフォルトの名無しさん：2024/03/27(水) 13:19:17.09 ID:BmA2tbQj.net

Select CaseはTrueが出たところで打ち切るからTrueになりそうな条件を上の方に書くべきて読んだことがあるなあ

724 ：デフォルトの名無しさん：2024/04/19(金) 10:08:55.39 ID:uD5nyH4z.net

>>723
普通の人間ならそうなるだろ？
レアパターンを先に評価するやつなんて変わり者

725 ：デフォルトの名無しさん：2024/04/19(金) 11:20:47.33 ID:TeTgAng2.net

>>724
1、2、3……順とかにするのは普通
頻度順にまではしないことも多々ある

726 ：デフォルトの名無しさん：2024/04/25(木) 00:00:11.21 ID:SJJcBnEk.net

>>725
マジックナンバーかよw

727 ：デフォルトの名無しさん：2024/04/25(木) 00:18:38.90 ID:9pftPPPG.net

>>726
┐⁠(⁠´⁠ー⁠｀⁠)⁠┌