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/ 175 名前：デフォルトの名無しさん mailto:sage [2020/10/23(金) 17:06:19.46 ID:jTOWYlOX.net] ｃｓｖファイルに名前付けのルールとかがあって、規則性があるなら Left Mid Right 辺りを交えて工夫　　全く一貫性が無いとかなら　. を ppp とかにリネームする工夫 https://soudan1.biglobe.ne.jp/qa2877385.html　　←これってこと？ tsware.seesaa.net/article/214574472.html　←ここにもヒントが 176 名前：デフォルトの名無しさん mailto:sage [2020/10/24(土) 06:13:20.49 ID:3Br09s+m.net] >>174 私はファイル選択、コピー、インポート、コピーしたファイルの削除、と言う手順でデータを取り込んでます。 177 名前：173 mailto:sage [2020/10/24(土) 23:19:53.94 ID:s9oXa8gi.net] >>175 ありがとうございます ファイル名は規則性があるのでLeft Mid Rightを使ってドットをスルーして取り込みをするやり方を探してみます >>176 こちらはファイルコピーをしてドットのない名前に変換してからインポートといった感じでしょうか初心者すぎてまだ色々理解できていないですが道筋がみえましたありがとうございます 178 名前：デフォルトの名無しさん mailto:sage [2020/11/21(土) 02:09:02.77 ID:OkL4O3GG.net] ACCESS365?でadoの話。 昨日、テーブルメンテナンス用にプログラム書いて、テストでupdateメソッド行をコメントアウトして実行したのにレコードが更新されて焦った。幸い意図した通りの更新が出来たので問題は無かったのだが、こんな事有る? 179 名前：デフォルトの名無しさん mailto:sage [2020/11/21(土) 19:58:38.03 ID:4nufVV0K.net] 通常ではあり得ない動作ですから accdbが破損しているか 思い違いしているか じゃないですかねぇ 180 名前：デフォルトの名無しさん mailto:sage [2020/11/22(日) 23:10:13.61 ID:DuDUZZqW.net] だよね、自分の事じゃなければ私もそう思う。明後日に追試してみます。 181 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2020/11/26(木) 22:16:38.24 ID:jD11+CM5.net] >>181 これか、ありがとう。 だとしたらupdateメソッド要らなくね?よく分からんが。 183 名前：デフォルトの名無しさん mailto:sage [2020/11/27(金) 16:20:14.12 ID:j3fR6c+j.net] レコード移動しないけど変更を保存したいときに必要だろう 184 名前：デフォルトの名無しさん mailto:sage [2020/11/29(日) 20:06:15.16 ID:k+jvWZ30.net] >>183 それはそうね 185 名前：デフォルトの名無しさん mailto:sage [2021/01/11(月) 16:27:04.20 ID:HFGgd7VU.net] ACCESSのSQLでビット比較ってどうすればいいですか (value & 0x10) == 0x10 みたいに特定のビットが立ってるか比較したいのですが 186 名前：デフォルトの名無しさん mailto:sage [2021/01/11(月) 17:56:37.60 ID:qzYYjSUA.net] できるかわかりませんが、 (value and &H10) = &H10 だとダメですか？ 187 名前：デフォルトの名無しさん mailto:sage [2021/01/12(火) 19:10:42.78 ID:f1Ulh51r.net] >>186 試してみます、ありがとうございます 188 名前：デフォルトの名無しさん mailto:sage [2021/01/12(火) 19:16:56.91 ID:f1Ulh51r.net] ダメでした andを&に変えてもダメでした 189 名前：185 mailto:sage [2021/01/12(火) 19:30:22.83 ID:sGnBc5NV.net] そっか、SQLのAND演算子になっちゃうのか… &も文字列の結合演算子とみなされちゃうのかな？ &H10のビット限定なら、 (value \ 16) MOD 2 でいけそうですが、他にもパターンがあるでしょうから… 190 名前：185 mailto:sage [2021/01/12(火) 19:34:25.38 ID:sGnBc5NV.net] 何より分かりにくいですねw 整数除算(\)で該当のビット位置を一番右にずらして、MODでそのビットを取り出します 191 名前：185 mailto:sage [2021/01/12(火) 19:49:06.45 ID:sGnBc5NV.net] 16 じゃなくて &H10 と書く方が取り出すビットと一緒で分かりやすいですね(うまくゆくかはわかりませんが) (value \ &H10) MOD 2 192 名前：185 mailto:sage [2021/01/13(水) 02:15:13.93 ID:+GyFVgd4.net] 連投すみません 188案は value が long型だとして、値が負数のとき正しい結果にならないことがあります ごめんなさい 193 名前：デフォルトの名無しさん mailto:sage [2021/01/13(水) 17:32:20.96 ID:Mb95xbD5.net] >>189-192 親切にありがとうございます。 \とか使えるのは知りませんでした。 試してみます 194 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 01:33:57.64 ID:yNTWs1ET.net] 一件一件Updateするんじゃなくて、UpdateBatchでバッチ更新してみるとか 196 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 01:41:15.38 ID:yNTWs1ET.net] >>188 ふつうに>>186でできるはずだけど valueの型が数値じゃないんじゃ? 197 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 05:18:36.84 ID:ecyWCD0F.net] 知恵袋はあてにならんくて 199 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 12:53:46.92 ID:kpvbRWbL.net] >>197 ありがとうございます 試しに1行をInsertしてみたところ、3分程度で処理できました。 ただ、.AddNewの方も、同じデータで3分-7分のくらいで処理できたので、思ったよりも処理速度は改善しませんでした。 あと、Nullだけのレコードが入ってしまうことも難点でした。 取り込みたいデータを取り込めたのと、列が30列くらいあり書き換えに時間がかかるので、一旦は今のままでいこうと思います。 ただ、今後も同じようなデータの取り込みがありそうです。 他に効率的なデータ入れ込み方法がありましたら、お教えいただけると幸いです。 200 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 18:14:16.61 ID:EmIfgllR.net] >200 いえ、INSERT SELECTからの列指定をして一気に入れ込みました。実験的に1列のみを。 インポート機能とSQLでの処理は速度が違う気がするのですが本当でしょうか？ テーブルへの書き込み方が根本的に異なるような気がします。 DoCmd.TransferSpreadsheet はぜひ使えるようになっておきたいですね。 エラーがよくわからないので今まで使っていませんでした。 202 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 21:01:21.37 ID:yNTWs1ET.net] >>201 全体で1トランザクションになるようにトランザクション張るか UpdateBatchで更新するか試してみてくれ 203 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/01/15(金) 12:06:52.83 ID:Z+pTsb/B.net] >>200 もう一度SQLでやってみたところ、インポートと同じ時間で処理できました。 ありがとうございます >>202 UpdateBatchでは処理時間に違いがありませんでした レコードセットへの書き込みに時間がかかっているのかもしれません。 ありがとうございます 205 名前：デフォルトの名無しさん mailto:sage [2021/01/16(土) 21:45:45.19 ID:wM/4uvwh.net] >>162 資格をモチベにしてる 206 名前：デフォルトの名無しさん mailto:sage [2021/01/26(火) 12:20:07.19 ID:pY3ojVqI.net] ウチの社内の情報システムの制限でwindowsカメラアプリが制限されてるんだけど、VBAで無理矢理動かせないだろうか、、、 いろいろ検索してみても古い情報しかなくて、、 64bit版でも出来るようなプログラムの見本とか有れば助かる。 207 名前：デフォルトの名無しさん mailto:sage [2021/01/26(火) 12:31:00.16 ID:bIVSUY/u.net] そんな事してバレたら懲戒処分にならない? 208 名前：デフォルトの名無しさん mailto:sage [2021/01/26(火) 21:32:09.76 ID:0moyOenU.net] >>207 少し言い方が悪かったかな。 端末でWEB会議してるから、カメラを使うのは問題無いんだけど、静止画を撮るソフトが入っていないもんで、静止画を撮ってDBと紐づけたいってなると、できなくて。 小規模グループでAccess使ってるから、システムに相談しても本気でかけあってくれなくて、、 それだったらVBAでどうにかならないかと思って。 209 名前：デフォルトの名無しさん mailto:sage [2021/01/26(火) 22:49:05.99 ID:5iMVHv+0.net] >>208 より悪いんだけど 210 名前：204 mailto:sage [2021/01/27(水) 17:26:57.82 ID:Nmg5vWMl.net] スタンダード受かった（＾ω＾）v 211 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 13:44:54.10 ID:Xkyf+iIu.net] >>210 もめでとう！ 資格は財産！ 凄いなスタンダードは 212 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 16:32:16.97 ID:SG5MocSx.net] >>211 ありがとう。マイナー資格のせいか、 テキストは悪評にも関わらず他に選択肢ないし、 そのテキストもアプリもやたら高いけど、 一発合格のために全部ちゃんと買ったわー。 213 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 20:58:59.00 ID:90ziZ1xl.net] エクセルファイルはAccessには入ってないだろ フォルダから取り出すのか？ 219 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 20:59:30.52 ID:90ziZ1xl.net] 何がしたいのかマジで分からんｗ 220 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 20:59:46.61 ID:1CLvOTQ1.net] Accessのテーブルの添付ファイル型の項目に入っている 221 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:01:37.65 ID:90ziZ1xl.net] そのアドレスをエクセルで開いてリネーム保存すればいいじゃん 222 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:03:39.26 ID:90ziZ1xl.net] Dim MyExcel　As New　Excel.Application とか使って 223 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:12:34.68 ID:1CLvOTQ1.net] >>222 それ使ってるんですけど添付ファイル型ってchar型とかと同じように扱えれるんですかね、 よろしければもう少しヒントを。 224 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:22:03.72 ID:1CLvOTQ1.net] ファイルをディスクのどこかに保存するのは、SaveToFile メソッドですかね？ なんか使えそうに思うけどいかがですか？ 225 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:43:47.01 ID:FgW8bRhe.net] そんな新しいAccessなんて持ってないから知らん 226 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:44:43.65 ID:90ziZ1xl.net] https://oshiete.goo.ne.jp/qa/8167605.html 添付ファイル型はレコードセットになっていて その中のフィールドのひとつ（3つ目。つまりF(2)）がファイルネームになっていて、 それを取得する。らしい。 227 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:45:48.50 ID:90ziZ1xl.net] >>224 普通にSaveAsじゃあかんの？ 228 名前：デフォルトの名無しさん mailto:sage [2021/02/01(月) 21:48:22.88 ID:c76bdQcs.net] ありがとうございます。 少しヒントが得られたかも。 明日試してみます。 229 名前：213 [2021/02/02(火) 11:31:56.15 ID:UTRQGX0/.net] 添付ファイル型データのデータとファイル名取得が出来たので 参考に記載します。ありがとうございました。 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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/02/05(金) 00:26:34.08 ID:OHtcWSU6.net] VBSでmdbに接続してaddnewしてupdateするだけの簡単なスクリプトの挙動がおかしい｡ sub や Functionにして callすると成功するくせに､subじゃなくて素のスクリプトだと何もしない｡ ちなみに読込みはどっちでも成功する｡ なぜ､addnewのときだけ､プロシジャーである必要があるのだろうか? 235 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 04:20:10.68 ID:U5Mc6cIw.net] クライアントPC複数台にコピーしてあるaccdbの更新を自動化したいのですが、上手い方法が有ったらアドバイス下さい。 今は、終了時に更新版があればコピー専用のaccdbを開く、という方法です。 時々コピーに失敗したり、更新後の起動が出来なかったり、なんかスマートに出来ません。 249 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 07:03:59.49 ID:bg4PRHHU.net] それぞれのPCに共有サーバーでクライアント各々に1つのものを使ってもらえば？ 250 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 07:47:36.33 ID:vZYfq0zb.net] え？ 251 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 15:03:23.20 ID:6lWZMdzy.net] >>249　コメントありがとうございます。 共有フォルダに置いたテーブルだけのバックエンドや、データベースサーバーにテーブルがあり、フロントエンドにリンクして使ってます。 各クライアントのフロントエンドを更新したいのです。 フロントエンドを共有フォルダに置いて皆んなで使うと壊れやすい、50台のクライアント全て閉じてもらわないと更新できないなどの問題があり、現在のかたちで運用しています。 252 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 16:26:24.53 ID:ZUwUvURf.net] 基本的には別ブログラム（Accessでなくてもいい）で上書きしてもらうしかないけど タスクに登録して再起動してもらうとか さがせばそれ用のツールとかありそうだけどな 253 名前：デフォルトの名無しさん mailto:sage [2021/03/12(金) 18:43:58.19 ID:6lWZMdzy.net] >>252 WSHで一日一回各クライアントで実行する例があったんですが、やってる事は同じなのです。なんかスマートな方法無いのかなあ。 もう少し探してみます。お騒がせしました。 254 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 08:24:13.18 ID:o9MkZCaQ.net] 他フォームや親フォームのコマンドを実行する時, Call Forms!フォーム名.ボタン_Click だと動かないのに, With Forms!フォーム名 .ボタン_Click End With にすると動くのは私だけ? 255 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 08:27:13.40 ID:o9MkZCaQ.net] まちがった. 256 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 08:27:40.08 ID:o9MkZCaQ.net] With Froms!フォーム名 257 名前：デフォルトの名無しさん mailto:sage [2021/03/17(水) 08:31:05.18 ID:o9MkZCaQ.net] スレ汚しすみません、やり直し。 他フォームや親フォームのコマンドを実行する時, Call Forms!フォーム名.ボタン_Click だと動かないのに, With Forms!フォーム名 Call .ボタン_Click End With にすると動くのは私だけ? 258 名前：デフォルトの名無しさん mailto:sage [2021/03/23(火) 22:25:21.29 ID:OYDSqGqD.net] レポートのテキストボックスが関数を呼び出すことがあるんだけど、それを検索する方法はないですかね？ VBEをいくら検索しても、ある特定のFunctionをCallしているのがなんなのかさっぱりわからなくて途方に暮れた後にレポートのテキストボックスと気づいたときの疲労感は凄かった。 スマートに一発検索する方法ありますか？ 259 名前：256 mailto:sage [2021/03/24(水) 19:23:21.05 ID:Oy88L6kY.net] どうも、ないようなので、for eachループを回して全部テキストにしました。 レポートの全部のコントロールを書き出したら24MBになりました。 コントロールから直接Callするのはお行儀が良くないですね。 260 名前：デフォルトの名無しさん mailto:sage [2021/03/24(水) 19:53:42.42 ID:Oy88L6kY.net] DoCmd.PrintOut 同じコードなのに、一方ではちゃんと複数枚印刷して、もう一方では常に1枚しか印刷できない。 ググると似たトラブルが見つかる。バグなんだろうか？ご存じの方いますか？ 261 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/03/26(金) 12:11:20.45 ID:x01Nq0VC.net] >>261 Accessのテーブルを、Excelからのリンクテーブルにしているものがあるのですが、クエリを開いている状態で、ExcelからDAOでレコードセットを取得すると、テーブルにしているExcelファイルが自動で開かれます。 その状態で取得したレコードセットの内容がおかしいことに気がつきました。 なぜレコードセットの値が異なるのかは、不明なのですが、テーブルにしているブックが開かれているとエラーを出力するようにして、回避しました。 263 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/04(日) 17:38:22.47 ID:26lFIPnO.net] メッセージボックスは自動で閉じないしWSHもmessageboxtimeoutAもうまくできませんでした 通知の代わりに小さいフォームを0.5秒ほど表示させて閉じたいのですが、どのように記述したらいいですか？ 266 名前：デフォルトの名無しさん mailto:sage [2021/04/04(日) 21:11:55.53 ID:3M5QmD23.net] >>264 -6は元ファイル名の".accdb"を取り除いてると予想。 "yy_mmdd_hh""h""nn""m"""で良いかな。 うまく行かない場合はグーグル先生に聞いてみて。 267 名前：デフォルトの名無しさん mailto:sage [2021/04/04(日) 21:24:13.07 ID:3M5QmD23.net] >>265 ちっさいフォームをダイヤログ形式で作成して、タイマーを500m秒に、タイマーイベントで DoCmd.Close acForm, me.Name だとどうかな。 268 名前：デフォルトの名無しさん mailto:sage [2021/04/04(日) 22:50:03.97 ID:gjYxCKFw.net] >>267 開くのはどうするんですか？ 269 名前：デフォルトの名無しさん mailto:sage [2021/04/04(日) 22:50:34.96 ID:gjYxCKFw.net] ああこれで開いて閉じるのか 270 名前：デフォルトの名無しさん mailto:sage [2021/04/04(日) 22:56:05.15 ID:gjYxCKFw.net] >>266 取り除かないと拡張子が2つになってしまうからですね そうしないと拡張子が2つついてしまうんですね 271 名前：デフォルトの名無しさん mailto:sage [2021/04/07(水) 00:28:19.15 ID:rJDYR4sC.net] レポートの詳細の一番下に線引くのってどうやるの？ フィールドや仕切り線だと線の真ん中が指定位置にくるようで、線の太さ分はみ出てしまう 272 名前：デフォルトの名無しさん mailto:sage [2021/04/07(水) 05:48:31.03 ID:Vznju2ao.net] 詳細の最終行終わりにだけ線を引く方法が有るのか、知らんかった。 私はグループフッタの上に線を配置します。 273 名前：デフォルトの名無しさん mailto:sage [2021/04/07(水) 12:38:41.43 ID:RzHskyO4.net] >>271 VBAでEOFでVisible=trueにする 274 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/07(水) 16:12:27.97 ID:bHi8pMA7.net] >>274 それExcelじゃん Accessのレポートの話じゃ無いの? 276 名前：デフォルトの名無しさん mailto:sage [2021/04/07(水) 23:16:36.79 ID:rJDYR4sC.net] >>275 ホントだ ネット検索してコピペしたから間違えた ACCESSでも似たようなので線書いたことあるんだけど マウスで一番下にやってもラインの真ん中が一番下にくるみたいで、下半分がかけてしまう 277 名前：デフォルトの名無しさん mailto:sage [2021/04/08(木) 23:29:31.27 ID:JQVqmXIG.net] >>271 LINEで描けば自由自在 斜め線も描けるから試してみ （あまり出番はないけど） 278 名前：デフォルトの名無しさん [2021/04/09(金) 00:19:55.63 ID:Gteazii/.net] いや韓国製はちょっと…… 279 名前：デフォルトの名無しさん mailto:sage [2021/04/09(金) 04:42:31.41 ID:qNVyDJXN.net] ACCESSに将来はあるんだろうか ライバルになるファイルメーカーもコロコロ社名変わってあやしいしもはや大規模事業者に焦点をあててるっぽい mysqlとWeb系でつくるのがスタンダードになりつつあるの？ 軽く勉強しようとしたけどVBA程度の知識じゃわけわからんかったというか何を勉強すればいいのかもよくわからん sqlにhtml とcssも覚えなきゃならなくて レポートとかどうやってつくるのかわからんし印刷関係はブラウザに依存するらしい 上記でGUIやレポートまでつくれるのかすらわからない 280 名前：デフォルトの名無しさん mailto:sage [2021/04/09(金) 22:02:57.20 ID:p4gVUybA.net] >>279 将来は分かりませんが代わりのツールは少ないですね Officeは最低10年間はサポートされるのでスグには無くならないでしょう たまにweb系の話が出るのはデスクトップアプリかブラウザアプリかの話ですよね 個人的にAccessの代わりにweb系というのは少し飛躍している様にも思えますが どの基盤を使うかは用途や運用保守のし易さによって決めるものですのでその人次第です 281 名前：デフォルトの名無しさん mailto:sage [2021/04/10(土) 12:39:36.27 ID:UMFLPSSB.net] Access全盛期と違って、開発環境やDBが無償で提供されているし ｈｔｍｌをテキスト出力するだけできれいなレポートも作れる UIを自分でいじりながらデータ入力していくような人種にはいいんだが希少種だろう 282 名前：デフォルトの名無しさん mailto:sage [2021/04/10(土) 14:43:14.97 ID:UjDtjnXq.net] >>281 例えばどうするの？ 283 名前：デフォルトの名無しさん mailto:sage [2021/04/11(日) 09:47:57.70 ID:5s7yLoxe.net] >>279 Accessはデータベースと言うより帳票ツールだよ FileMakerはデータベースとしての機能が充実してるがFileMaker使うぐらいならMySQL、PostgreSQLで代替えが効く どっちかと言うとFileMakerがライセンス料金の高さも有って残らないと思う 284 名前：デフォルトの名無しさん mailto:sage [2021/04/11(日) 11:30:54.71 ID:5s7yLoxe.net] FileMakerより(MySQL or PostgreSQL)+Accessで安くデータベース&クライアントシステムを作れると思う 285 名前：デフォルトの名無しさん mailto:sage [2021/04/11(日) 17:50:34.38 ID:X3jcs1bB.net] データベース部分よりもACCESSのフォームやレポートをつくる機能が貧弱なんだよね >>284 MySQL or PostgreSQLに以降するのってどの規模になってから？ エクセルの延長線で使うレベルだとACCESSのままでいいですよね？ 286 名前：デフォルトの名無しさん mailto:sage [2021/04/11(日) 21:28:08.72 ID:Zjk0ZDQj.net] ファイルメーカーはフォームやレポートの機能がリッチなの? ファイルメーカーが良いかもよ。 287 名前：デフォルトの名無しさん mailto:sage [2021/04/11(日) 21:33:55.74 ID:X3jcs1bB.net] >>286 リッチどころじゃないよ ACCESSがwin95 FMは10 288 名前：デフォルトの名無しさん mailto:sage [2021/04/11(日) 22:19:59.40 ID:Zjk0ZDQj.net] そりゃファイルメーカーに決まりだね 289 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 10:48:48.79 ID:rGKItn7h.net] >>285 >>Excelの延長線上 Access mdbはある一定容量で破綻するからね Excelで収まってるレベルでもMySQL Community EditionやPostgreSQLに移行した方が無料で使える訳だし Excel,Access自体ライセンス必要だしライセンスフリーで使えるなら、それに越した事無い 290 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 10:51:16.61 ID:rGKItn7h.net] FileMakerのメリットはWebサービス公開がし易いって所だよな そういう使い方するにしてもLAMPとか使う方が安く簡単にWebサービス開始出来る 291 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 11:40:02.98 ID:Ey8PGUUo.net] >>287 ファイルメーカーの45日無料評価版をインストールして少しいじってみました. いまさら移行を考える程のメリットは感じられませんでしたが,確かにUIはシンプルで使いやすそうでした. 292 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 12:45:07.60 ID:MyLZJXYd.net] >>291 >>いまさら移行を考える程のメリットは感じられませんでしたが,確かにUIはシンプルで使いやすそうでした. それでライセンス料金は高い あまりメリットが無い 293 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 16:33:34.27 ID:Zar6nVa9.net] >>289 PostgreSQL使うとして一度設定してればACCESS使う感覚でレポートやクエリをつくれるんですか？ 294 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 18:18:26.93 ID:NqjzProv.net] >>294 ACCESSをフロントエンドで使う場合、という意味でした 297 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 18:32:01.84 ID:45/NLIkc.net] >>296 PostgreSQLのテーブルにAccessからLinkはるだけ そこでクエリー駆使しながらFormやレポート作れる FileMakerより安く作れる 298 名前：デフォルトの名無しさん mailto:sage [2021/04/12(月) 21:43:20.13 ID:5xDeJx97.net] >>295 桐の価格を調べてきました 40台で使用するために1,115,400でした 機能がどうとか以前のお話しでした 299 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 07:41:55.91 ID:b5G9r+g0.net] >>294 Accessの外部DBなら親和性の高いSQL Serverが多数だとは思います Expressなら無料でライセンスも商用OKです 機能面もAccessで扱うDBサイズならお釣りが来ます あえてPostgreSQLを推す理由を教えて欲しいです 無料以外のメリットはありますか？ 300 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 13:20:04.54 ID:b5G9r+g0.net] >>300 Access案件でLinuxサーバー導入はかなりのレアケースだと思います Linuxに明るい個人ならそれでも良いですが 一般的な企業では運用リスクと保守費用の面から現実的ではないのです Access案件でその様な提案をしたらほぼ蹴られてしまいます 技術蓄積についてもAccess+PostgreSQLよりAccess+SQL Serverの方が遥かに多いです そもそもこのスレに相談に来ている方はLinuxサーバーを前提に話していないと思いますよ 302 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 13:46:56.78 ID:LjzwNZrT.net] Access案件でのサーバーなんて、（是非は別として）テキトーなPCの共有フォルダでのaccdb(mdb)の共有で賄ってるだけなんて珍しくも無かろう 304 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 13:47:53.05 ID:3B0ES/zA.net] 中小企業にWindowsサーバー提案するってコストかかって仕方ない CALの価格を知らないのかな? 中小企業ほどLinux導入し易いのに 305 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 13:48:51.64 ID:3B0ES/zA.net] >>303 適当なサーバーだから無償のLinuxで十分 306 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 14:55:38.30 ID:3B0ES/zA.net] >>306 CAL払える企業なら問題は何も無いよ 現実はCALで苦しんでる中小企業が多い そこを見越して提案出来るかだと思う 308 名前：デフォルトの名無しさん mailto:sage [2021/04/13(火) 20:50:49.88 ID:b7IZM+9u.net] サーバーも含めて無料で構築したいだけなのにな Windowsサーバー使ってCAL払い続けるなんて皆金持ってるんだなw 309 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 06:25:02.05 ID:iZ4KD1hd.net] コピー中のExcelのデータをACCESSにいれるときは、テーブル自体を表示させないとペーストできませんか？ 310 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 08:49:11.55 ID:iZ4KD1hd.net] >>311 初心者なのでイマイチわかりません 313 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 10:15:39.10 ID:G8f2jTvc.net] >>312 AccessからExcelよりのインポートすれば良い https://www.crie.co.jp/chokotech/detail/375/ 314 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 10:16:31.17 ID:G8f2jTvc.net] >>312 ExcelデータのインポートをAccessから実行すれば良い 315 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 10:25:33.61 ID:G8f2jTvc.net] >>312 インポートで出来る 316 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 10:26:17.99 ID:G8f2jTvc.net] >>312 import 317 名前：デフォルトの名無しさん [2021/04/14(水) 13:18:00.15 ID:5eouqB2E.net] お前ら「コピー中」を無視するなよ 318 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 13:26:51.89 ID:g6z8n+hy.net] コピー中、なんてもともと出来ないべ 319 名前：デフォルトの名無しさん mailto:sage [2021/04/14(水) 18:59:43.46 ID:Y6ryzCuB.net] クリップボードのデータを貼り付けるなら手作業をなぞってテーブル開いて新規レコードに位置付けしてペーストすれば良さそう。クリップボード操作するapiサンプルコードが何処かにあったような、すまんまた明日。 320 名前：デフォルトの名無しさん mailto:sage [2021/04/16(金) 09:00:21.71 ID:V1Kjbl/r.net] 試してないよ？ Excelで貼り付けたいテーブルと同じレイアウトのデータをコピーしてある状態で DoCmd.GoToRecord,,acNewRec DoCmd.RunCommand acCmdPaste すると張り付いたりしないかな。 321 名前：デフォルトの名無しさん mailto:sage [2021/04/17(土) 16:25:08.91 ID:beZyyPJh.net] OLEオブジェクトって手動じゃないと挿入できないの? VBAでの挿入を試みているんだけど､似て非なるオブジェクトが作られてしまう｡プロパティの数が少し少ない変なオブジェクトが作られて困ってる｡ とりあえずレポートにオブジェクトをつくるのはCreateReportControl メソッドを使えばできるんだけど､リンク親フィールド､リンク子フィールド､値集合ソース､値集合タイプがないオブジェクトが作られる｡ そのうえ､OLEタイプが読み取り専用だからOLEの設定が出来ない｡ どうしたらいいのかな? 322 名前：デフォルトの名無しさん mailto:sage [2021/04/17(土) 17:21:36.76 ID:rlSH46Cx.net] >>321 VBAプロジェクトでそのOLEオブジェクトを参照追加する必要有る その前提を整えたらVBAで出来るんじゃ無いのかな https://teratail.com/questions/279573 Formに画像追加する例 323 名前：デフォルトの名無しさん mailto:sage [2021/04/17(土) 17:43:49.92 ID:beZyyPJh.net] >>322 手動なら非連結オブジェクトフレームを挿入するとオブジェクトの種類のダイアログが出てくるので､そこで種類を選びますね｡ この作業をVBAでやっておけばいいということですね｡ ちょっと読んでみますね｡ 324 名前：319 mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/05/07(金) 12:12:51.35 ID:nZH7MU+b.net] Windows3.1の頃? 95だったかな。 327 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 05:05:22.97 ID:4K+rsr0c.net] あーそうかい‼💢 330 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 06:42:53.98 ID:l6yrLvBl.net] >>327 リモートデスクトップとかTeamViewerでWindowsにログインかな？ 331 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 07:15:26.91 ID:Ak9zxoyZ.net] >>327 データベース更新後にEXCEL作ってクラウドに保管するのを自動化すれば充分な気がしますね。 332 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 07:26:32.47 ID:NATYYilK.net] そもそも、Windows 用のアプリはパソコン用だから、インターネットで使えない。 それに、文字コードも違うから読めない インターネット用の表計算アプリを使えば？ 333 名前：デフォルトの名無しさん [2021/05/13(木) 08:30:28.57 ID:hOYLqCl+.net] ストアでMDBを検索したら見れそうなやついっぱいあるやん 334 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 11:30:23.03 ID:yB8C7/7J.net] >>327 Webアクセスする目的ならAccessよりFileMakerになるよ そこまでするならデータベースをMySQLかPostgreSQLに移行してVB.NETでアプリ作る方が良いけどね 335 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 11:48:19.49 ID:63TpZ/FZ.net] クエリーが上手く作動して、ニコニコしながら、sqlビューへ切り替えてコピーして、VBEでペースト。 余計なカッコを取り除いてdebug.printに打ち出すと結果が違うことがある。 なにが原因なのかなあ？いまはADOでやってるけど、DAOならうまくいくもんかなあ？ クエリーのSQLとADOのクエリーが仕様が違うのかなあ？ 同じMS謹製だからANSIとかなんとか気にしなくていいのかと思っていたけど、違うのかな？ 336 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 12:20:50.87 ID:igbBK4jX.net] >>334 ファイルメーカーからハードル上がりすぎだろ 337 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 12:36:51.71 ID:yB8C7/7J.net] >>336 FileMakerはライセンス料高いからね Visual Studio習得してアプリ作れるならその方が良い Webサーバーは必要だけどね 338 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 13:09:30.39 ID:yB8C7/7J.net] >>338 高いライセンス払う余裕有ればFileMakerで良いよ 現実は高いライセンス料払いたく無い企業が多いからね FileMakerが普及しないのもこれが原因 341 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 13:31:32.10 ID:DinFNpWn.net] だからって一から自分でつくるってのは飛躍してない？ 家建てるときにどこのメーカーがいいですか？ に対して自分で建てろといってるようなもん 342 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 14:03:30.60 ID:yB8C7/7J.net] >>341 自分で作れ、とは言って無いよ ソフトウェアハウスの手を借りれば良い 343 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 14:07:34.22 ID:fH5L5fl1.net] >>342 ライセンス料より高い気が…… 344 名前：デフォルトの名無しさん [2021/05/13(木) 14:56:12.91 ID:HlQKEMAc.net] >>343 馬鹿には無理なのだから他人に金を出して頼むしかないだろ 馬鹿のくせに金を出さずに人にやってもらおうとか、ゆとりか？ 345 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 15:00:43.59 ID:9/CKV48N.net] >>343 ランニングコストってのが有ってだな、、 FileMakerだとライセンス1回切りじゃ無いから 346 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 16:59:09.51 ID:fH5L5fl1.net] >>345 ソフトウェアハウスでも保守料かかるだろ 基本的には自分で改変できないし 347 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 17:16:07.25 ID:9/CKV48N.net] Web化って時点でファイルメーカー選ぶしか無い様な、、 外部からアクセスするしないが重要 348 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 17:25:00.83 ID:MH+VlhFF.net] 外から見たいだけなら、リモートデスクトップでいいんじゃなかろうか 349 名前：デフォルトの名無しさん [2021/05/13(木) 17:25:32.84 ID:HlQKEMAc.net] >>347 馬鹿 350 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 17:48:02.70 ID:9/CKV48N.net] >>347 それ有るの忘れてた 351 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/05/13(木) 20:11:21.52 ID:R/rAXCYS.net] >>347 ｢Web化って時点でファイルメーカー選ぶしか無い｣ なぜこういう嘘を書くのか。それとも本当にそう思っているならそんな頭の弱い人は書かなきゃいいのに。 354 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 10:03:38.95 ID:wh02PaxN.net] >>352 実際使ってる例って有るのかな? 355 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 10:10:19.21 ID:A+WZ3bIw.net] >>354 とっくの昔にお亡くなりになったような記憶が… 356 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 19:40:24.10 ID:1Qe3fJgv.net] ちょっと前までGoogleでデータベース・サービス持ってたのにいつの間にかなくなっちゃたな。 最近VBAよりGASが面白くなってきたので手を出そうと思ってたのに。 やはり無料じゃGoogleも厳しいか。 358 名前：デフォルトの名無しさん mailto:sage [2021/05/27(木) 01:00:52.60 ID:3lF12N8K.net] レポートやフォーム作るときに、拡大できないの致命的だよね win標準の拡大ではぼやぼやで目がたえりれない エクセルあたりでは普通に拡大できるのになあ これだけでファイルメーカーに乗り換えようと思ったりしてよ 359 名前：デフォルトの名無しさん [2021/05/27(木) 02:13:23.53 ID:J8UpNeL3.net] 馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない 360 名前：デフォルトの名無しさん mailto:sage [2021/05/27(木) 08:19:11.99 ID:qf3Pvmmz.net] と馬鹿が申しております 361 名前：デフォルトの名無しさん mailto:sage [2021/05/27(木) 12:00:09.01 ID:3lF12N8K.net] FM→ACCESSときたけど レイアウトつくるのはびっくするくらい大変 そして頑張っても前時代的なのになってしまう 金額の問題だけで以降したんだけどね ACCESSは365についてるから無料みたいなもの FMは約6万 362 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/05/27(木) 15:51:14.66 ID:ksqD/aLA.net] >>363 フィールドの位置とか外部ソフトでできるの？ 365 名前：デフォルトの名無しさん mailto:sage [2021/05/27(木) 15:53:14.54 ID:UBVWS17P.net] ACCESSでA4に収まるように8ptくらいのフィールド配置してたら目が痛くなって具合が悪くなったな 366 名前：デフォルトの名無しさん mailto:sage [2021/05/29(土) 06:45:06.05 ID:b7REYRZH.net] >>365 ノートだとそうなんかな… 自作のときはずっと9ptがデフォだけど何ともないな… 拡大鏡でも使った方が楽な気がする 367 名前：デフォルトの名無しさん mailto:sage [2021/05/29(土) 12:27:27.87 ID:hFIjeD7o.net] >>366 拡大鏡ってぼやぼやになるからなあ 368 名前：デフォルトの名無しさん mailto:sage [2021/05/29(土) 12:27:43.67 ID:hFIjeD7o.net] ん？ノート？ 369 名前：デフォルトの名無しさん mailto:sage [2021/05/30(日) 02:44:36.28 ID:gYrIGJpw.net] 右側のプロパティって時間小さすぎるよな レイアウト配置よりこっちをでかくできるようにしてほしい 370 名前：デフォルトの名無しさん mailto:sage [2021/05/30(日) 02:46:50.94 ID:gYrIGJpw.net] あれもうちょっとどうかならないんだろうか 一日使うにはストレスがすごすぎる 371 名前：デフォルトの名無しさん [2021/05/30(日) 08:25:31.88 ID:13wLe9nW.net] ユーの眼球レベルにあった でかくて低解像度のモニター使え 372 名前：デフォルトの名無しさん mailto:sage [2021/05/30(日) 11:48:00.52 ID:AsIzYzCY.net] ユー買っちゃいなyo! 373 名前：デフォルトの名無しさん mailto:sage [2021/06/01(火) 06:40:30.63 ID:UJDWMLaS.net] 共有ファイルとして使う場合 処理がバッティングすると、待ち？っぽい動きするんだけど、この待ち時間を短くとか長くとか設定できない？ 374 名前：デフォルトの名無しさん mailto:sage [2021/06/04(金) 04:59:49.95 ID:JYH5jKrW.net] >>367 整数倍にすればボケませんよ 375 名前：デフォルトの名無しさん mailto:sage [2021/06/04(金) 05:01:18.78 ID:4UOZ506g.net] >>374 150でも200でもぼける 376 名前：デフォルトの名無しさん mailto:sage [2021/06/04(金) 06:58:24.85 ID:pJrSJSTA.net] 5年ほど前に作った製品ラベルのレポートを修整しようとしたら、老眼は進んでるわ液晶の解像度は上がってるわ、マウスカーソルの移動量を増やしてるわで大変だった。デザインビューの拡大出来るようになると良いですね。 377 名前：デフォルトの名無しさん mailto:sage [2021/06/05(土) 16:40:26.94 ID:RpMlRy13.net] ファイルメーカーの体験版使ったらACCESSに戻れなくなってしまった ACCESSになんかメリットある？ 378 名前：デフォルトの名無しさん [2021/06/05(土) 18:22:16.60 ID:HEfJq5i5.net] 馬鹿がファイルメーカー、ファイルメーカーとしつこく繰り返しているから絶対に使わない 379 名前：デフォルトの名無しさん mailto:sage [2021/06/05(土) 18:58:27.51 ID:vqCzfq5H.net] と馬鹿が申しております 380 名前：デフォルトの名無しさん mailto:sage [2021/06/05(土) 18:59:13.81 ID:ZYY2LhyT.net] >>377 コストかな。 田舎の工場で低価格な電子部品作ってる。30台くらいのパソコンで使うからファイルメーカーなんてコストは現実的ではないんです。 381 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/06/05(土) 22:47:17.80 ID:RpMlRy13.net] >>382 ACCESSでうまくいかずもやもやするたびに体験版つかってみて ライセンス料なんかが不安でACCESSにもどるってのを繰り返してる ACCESSが現代的なGUIになってくれて ある程度はコード書かなくてもできるよえになればいいんだが 384 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/06/06(日) 11:26:09.24 ID:tDAG+yA0.net] と馬鹿が申しております 389 名前：デフォルトの名無しさん mailto:sage [2021/06/06(日) 14:07:30.75 ID:g1lC8rmM.net] いくらなんでも高すぎる あれって全社員にipadもたせてリアルタイムでデータ共有するような大企業向けだろ とはいえほかにACCESSしか選択肢がなくてACCESSは手間がかかり過ぎるが 390 名前：デフォルトの名無しさん mailto:sage [2021/06/06(日) 16:01:30.88 ID:/p4HIOC8.net] ACCESSは実質開発が停止してるからな Web公開手段を再度実装したらFileMakerなんて駆逐出来るのに 391 名前：デフォルトの名無しさん mailto:sage [2021/06/07(月) 23:05:55.18 ID:7Tyglgss.net] >>375 それ元がボケてるんやな ディスプレイ買い換えるしかないな うちは拡大してもクッキリやで 392 名前：デフォルトの名無しさん mailto:sage [2021/06/08(火) 00:47:30.58 ID:Cnc+U0Kq.net] >>391 んなことないだろEIZOのFLEX Scanだし ぼやけるって言葉の認識だと思うが ベクターとラスターの拡大みたいなこと https://i.imgur.com/oT7FRjb.jpg 拡大鏡だと単純拡大だからガタガタのぼやぼや スマホの拡大縮小だとおかしくならないよね？ ソフトに標準で拡大縮小が実装されているならそれと同じできれいに拡大できる ACCESSはないから拡大鏡つかうことにかるから汚いしつかいにくい 393 名前：デフォルトの名無しさん mailto:sage [2021/06/10(木) 00:40:17.87 ID:BRYBvkaF.net] >>392 〉拡大鏡だと単純拡大だからガタガタのぼやぼや 単純拡大だからガタガタになるので正しい しかしぼやぼやにはならない 頭（目？）悪そうだなこいつ 394 名前：デフォルトの名無しさん mailto:sage [2021/06/10(木) 01:23:12.45 ID:/1oHskcz.net] 文字が https://i.imgur.com/oQ1lyeU.jpg こうなるのをボヤボヤといってるんだと思う MSゴシック使ってるやつはわからないかもしれないが アンチエイリアス入ったフォントで拡大鏡使うとボヤボヤになるよ https://i.imgur.com/B1re0t1.png 395 名前：デフォルトの名無しさん mailto:sage [2021/06/14(月) 20:33:26.59 ID:bsW07B0Y.net] getobjectでVBSからmdbへ接続してACCESSのモジュールを書き換えているんだけど、プロシジャーをチマチマ書き換えるのが面倒になってきたので、 既存モジュールの全行を削除してからModule.AddFromFile メソッドで新モジュールを一括して書き換えた。 mdbを保存する段になって「ファイルの共有ロック数が制限を超えています」と怒られた。 たしか、コミットトランスするんだよなあ、と資料を読んでみたが、それが出来るオブジェクトが存在しない。 一体どうしたらいいのかな？ 396 名前：デフォルトの名無しさん mailto:sage [2021/06/15(火) 10:02:33.87 ID:Bs75sj8Q.net] ACCESSを買えば良いと思います。 397 名前：デフォルトの名無しさん mailto:sage [2021/06/15(火) 11:17:25.55 ID:KpoHzIzW.net] >>396 Microsoft 365 for businessを使用してます。 ACCESSはしょっちゅう壊れるからVBSで出来ることはVBSでやりたいですね。 398 名前：デフォルトの名無しさん mailto:sage [2021/06/15(火) 13:21:19.21 ID:HnTVFPij.net] >>397 そんな面倒なことw 2.0使いはじめた頃は間違った使い方してたのもあって壊しまくったが、ここんとこ壊れたことなどないぞ 399 名前：デフォルトの名無しさん mailto:sage [2021/06/15(火) 15:19:36.70 ID:KpoHzIzW.net] >>398 フォームのコマンドボタンの位置をほんの少しずらしただけで壊れこともあるし、最適化で壊れたこともある。 最近もどっかの記事でそのような記述を見たような気がする。 VBSはコードを見るのも書くのもサクサクだからお気に入りだよ。重たいACCESSを開かなくていいのは気が楽だよ。 でも、関数がVBAと少し仕様が違うとか面倒なことがあるのが玉に瑕だなあ。 400 名前：デフォルトの名無しさん mailto:sage [2021/06/15(火) 20:40:00.08 ID:XJxpvmdE.net] >>395 mdbからaccdbにすると壊れ難くなる気がします。 401 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/06/16(水) 21:11:44.71 ID:ni17rAhE.net] >>402 共有ロックの問題はMaxLocksPerFileを増やしたらあっさり解決しました。 >>403 手作業でプロシジャーを変更していたときより遙かに楽になりましたし。仕事が楽になる過程は面白いです。 なによりもAccessと違ってサクサク動くのがVBSの最大の魅力です。 405 名前：デフォルトの名無しさん mailto:sage [2021/06/16(水) 21:18:57.41 ID:ni17rAhE.net] 一括でモジュールを書き換えるのすら面倒になったのでLoadFromTxtに切り替えた。 これならフォームやレポートも丸ごと移植可能だわ。 406 名前：デフォルトの名無しさん mailto:sage [2021/06/22(火) 11:37:45.99 ID:Ug3/ZHCp.net] オフィス365でデーターを保存したときにウインドウの上のバーの箇所のタイトルに 「ファイル名＋保存しました・・」って表示になるけど、 これ出さないように出来ないのかな？ ウインドウのタイトルが変わるとRPAが誤作動をおこすので いらない機能をつけるなよといつも思います。 407 名前：デフォルトの名無しさん mailto:sage [2021/06/22(火) 11:40:11.76 ID:Ug3/ZHCp.net] >>406 誤爆でした。ここAccessなんですね。。 408 名前：デフォルトの名無しさん mailto:sage [2021/06/22(火) 19:29:04.84 ID:jEG7fGSr.net] なんでVBA使わずRPAなの？ 409 名前：デフォルトの名無しさん mailto:sage [2021/06/22(火) 20:23:21.77 ID:BN5S6vpx.net] そのVBAを操作する人間の操作を代行させるのがRPAなんやで 410 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/07/24(土) 14:08:20.10 ID:Q5wmuS+A.net] おまえごときがVBAやる事そのものが間違い 413 名前：デフォルトの名無しさん mailto:sage [2021/07/24(土) 19:42:05.93 ID:g6yRedEM.net] なな、南斗 414 名前：デフォルトの名無しさん mailto:sage [2021/08/04(水) 20:55:05.72 ID:+oxSmlyp.net] [タイプ]が勝手に[ﾀｲﾌﾟ]になってしまう。 [ ]で囲んでるのに。なんぞこれ。 415 名前：デフォルトの名無しさん mailto:sage [2021/08/05(木) 08:02:56.74 ID:MUFJqoFE.net] あれ、今日は勝手に半角に戻らない。 再起動するだけで良かったのかも。 独り言スマンね。 416 名前：デフォルトの名無しさん mailto:sage [2021/08/05(木) 14:37:35.48 ID:hIo3G+nj.net] 解決済みという事ですが 名称の勝手変換は[名前の自動修正]を有効にしていると起きます 初心者向けの親切機能ですが、オブジェクト名などを細かく定義している場合には逆に足枷になります 名称変更時に自動トレースしきれずバグを生み出したりします ご参考までに 417 名前：デフォルトの名無しさん mailto:sage [2021/08/05(木) 18:07:31.70 ID:Xn5oJsvt.net] いや、再発しました。 名前の自動修正、調べてみます。 418 名前：デフォルトの名無しさん mailto:sage [2021/08/07(土) 07:56:44.50 ID:GRpq7tgL.net] Windows11+ACCESS365の環境で発生してます。 ﾀｲﾌﾟ(半角)と入力しても行を移るとタイプ(全角)になっちゃう。[ ]でくくっても駄目。 Windows10+ACCESS365では[ ]でくくると勝手に全角にはならないので、Win11Betaのせいっぽいです。 アプリの修復試してみて、駄目ならWin11Betaのフィードバックに上げます。 419 名前：デフォルトの名無しさん mailto:sage [2021/08/07(土) 20:17:05.58 ID:51b7egKe.net] どっかに全角のタイプってオブジェクトがある（あった）んだろな そういえばWIN10でNLSのバージョン変わって全角半角の判断がおかしくなる問題があったな ちょっと試したWin10の詳細バージョン書いてくれ Win11のＮＬＳってどうなってるんだろ 420 名前：デフォルトの名無しさん mailto:sage [2021/08/27(金) 14:57:39.16 ID:2jUlNhAQ.net] すみません、見逃してた。 Windows10の21H1ですね。 NSLがなんの事かわかんないですが、確かに前にも経験したトラブルの様な気がします。 421 名前：デフォルトの名無しさん mailto:sage [2021/09/04(土) 15:37:28.00 ID:s2WpiZ/S.net] 明後日スタンダード試験だけどやばい模擬問題正答5割だわ 422 名前：デフォルトの名無しさん mailto:sage [2021/09/04(土) 16:34:10.88 ID:JBLhGxRz.net] ん、まぁ、ガンガレ 423 名前：デフォルトの名無しさん [2021/09/05(日) 03:44:21.58 ID:Ocn+wvkQ.net] 外部からaccessの特定のレポートを開く方法ある？ 424 名前：デフォルトの名無しさん mailto:sage [2021/09/05(日) 14:14:02.27 ID:ICYnYWWd.net] 外部って？ 普通にCOMで操作すれば良いんじゃねえのか 425 名前：デフォルトの名無しさん [2021/09/07(火) 12:53:43.40 ID:3mZ93kfX.net] パススルークエリのパラメータをaccess外から設定する機能教えてください。 426 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/10/09(土) 23:35:10.80 ID:uMcy1fPR.net] VBAエキスパートって取ったほうがいいでしょうか 431 名前：デフォルトの名無しさん mailto:sage [2021/10/10(日) 08:29:41.88 ID:fy4lWk3l.net] 資格マニアを見る世間の目は冷たい 432 名前：デフォルトの名無しさん [2021/11/02(火) 07:37:22.79 ID:0Z1mhYfJ.net] >>430 資格より実践を積むべし 433 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/11/29(月) 15:15:06.43 ID:MiFRCJa7.net] 直接の返答じゃないけど、SQL一発書きじゃなきゃだめなの？ 事前にレコード数チェックして分岐じゃだめなの？ 435 名前：デフォルトの名無しさん mailto:sage [2021/11/29(月) 15:17:50.75 ID:vB15GkdT.net] UPDATE と組み合わせて、SQL一発を考えてます 無理であれば、おっしゃるように分岐かなと 436 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/11/30(火) 10:58:46.58 ID:+NfPg838.net] >>440 単純にinsertするだけならそれでいいんだけど、existsを使って条件付けようとしてるのでvaluesは使えない（エラーになる） 442 名前：デフォルトの名無しさん mailto:sage [2021/11/30(火) 12:38:13.11 ID:nsxxcWz3.net] それ自分でDUALという名称でテーブルを作って1レコード入れておけば出来るよ。 OracleのDUALも実体はそんな感じだったと思う。 443 名前：デフォルトの名無しさん mailto:sage [2021/11/30(火) 16:33:37.59 ID:KirC+CSy.net] >>439 更新はできるけど、存在しない行を更新しようとしたとして その行を新規追加することなんてないだろ．．． と思ったけど、追加されるのか ACCESS無茶苦茶しやがるな リンクテーブルに対してでも追加しやがる SQL ServerだってFromでJoinしてUPDATEできるけど、 さすがに行が追加されることなんてないぞ エラーの原因が分からない？ 444 名前：デフォルトの名無しさん mailto:sage [2021/11/30(火) 16:35:34.50 ID:KirC+CSy.net] あ、最後なんか変な行入った 445 名前：デフォルトの名無しさん mailto:sage [2021/11/30(火) 17:23:09.43 ID:aruulzL7.net] あくせく働くぜ 446 名前：デフォルトの名無しさん [2021/11/30(火) 18:49:33.51 ID:VsTnDahT.net] >>443 Access的には「更新可能クエリ」はテーブルと同等の扱いなのだろう 447 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/11/30(火) 23:40:10.71 ID:KirC+CSy.net] UPDATE文で実テーブルの行数が、な 450 名前：デフォルトの名無しさん mailto:sage [2021/12/01(水) 09:46:36.82 ID:dv4Z+qI2.net] >>433 SQL一発では出来ないよ 残念だが DOループで回す事になる 451 名前：431 mailto:sage [2021/12/02(木) 11:57:32.43 ID:nKskuO+T.net] ありがとうございます 分岐で分けることにしました 452 名前：440 mailto:sage [2021/12/02(木) 22:29:47.92 ID:vu0CN48k.net] もうちょっと俺を信用してもええんやないかと思ったが 出来たんならええか 453 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2021/12/08(水) 14:57:00.86 ID:8eCyKUYS.net] >>454 返信ありがとう やっぱ基本はＤＢごと差し替えになるんですね・・・ 最新を管理しないといけないということですか 456 名前：デフォルトの名無しさん mailto:sage [2021/12/08(水) 16:58:22.13 ID:sRvDCOgH.net] >>452 レコード入れずに試してみてました あとで確認してみます 457 名前：デフォルトの名無しさん mailto:sage [2021/12/08(水) 18:12:44.70 ID:ixTDMdmo.net] >>453 access起動コマンドラインオプションに /x マクロ名 で自動実行可能 向きが逆だけどオブジェクトのコピーでレポートをコピー出来る 458 名前：デフォルトの名無しさん mailto:sage [2021/12/08(水) 20:30:00.04 ID:FsTgnRus.net] >>453 DoCmd.TransferDatabase acImport 459 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 07:46:29.84 ID:8MS0rOI1.net] サポート気にするような部署でvbaを採用するだろうか？ 462 名前：デフォルトの名無しさん mailto:sage [2022/01/17(月) 00:16:00.31 ID:oS3b1eNW.net] VBAって単独の製品じゃないんだが そもそもVBAがサポート切れってどこの情報だ？ 463 名前：デフォルトの名無しさん mailto:sage [2022/01/17(月) 12:28:46.14 ID:t8m0YBBL.net] OneDriveにコードをバックアップして直接開いたところ imgur.com/qO7I0AB.jpg こういった線が付きました Office2016 Proなのですが設定等でVBエディターでも表示できますでしょうか またお恥ずかしながらこの線の一般的な名称も教えて頂けませんでしょうか 464 名前：デフォルトの名無しさん mailto:sage [2022/01/17(月) 17:44:28.15 ID:hBkYcVxQ.net] >>463 何で開いたのかは知らんけど、AccessとかのVBAエディタには、そういった今どきの便利な機能は無いかと 一般名称かどうかはしらんけど、VSCodeとかの設定では Indent Guide でひっかかるんじゃないかな 465 名前：デフォルトの名無しさん mailto:sage [2022/01/17(月) 20:02:01.14 ID:r2vXEkpI.net] >>464 ありがとうございます 名称のほうぐぐってみまして、確かにVS関連の情報が多く出てきました 大変便利ゆえに残念です！ 466 名前：デフォルトの名無しさん mailto:sage [2022/01/31(月) 11:21:11.42 ID:ZCY1so+a.net] Microsoft 365 Access Runtime ダウンロードリンクが動作してないのですが ダウンロードできた方おられます?? 467 名前：デフォルトの名無しさん mailto:sage [2022/01/31(月) 11:29:43.23 ID:Di33df7w.net] >>466 見てみたけど、ダメだねぇ 468 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/02/22(火) 22:38:16.30 ID:h8gQU92u.net] 間違えました。 GetOpenFilenameが開くフォルダーをGetOpenFilenameに→ GetOpenFilenameが開くフォルダーをc:\x\yに 470 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/02/23(水) 10:16:59.77 ID:/GeE/zJY.net] >>470 GetOpenFilenameでダイアログが立ち上がったときのフォルダーをc:\x\yにしたいという意味です。 472 名前：デフォルトの名無しさん mailto:sage [2022/02/23(水) 14:00:43.13 ID:3ksW4w1X.net] FileDialogを使う 473 名前：デフォルトの名無しさん mailto:sage [2022/02/23(水) 15:58:28.79 ID:noR6ud0U.net] https://officevba.info/filedialog/ こっちスかね メリットもデメリットも書いてあって親切 474 名前：デフォルトの名無しさん mailto:sage [2022/02/23(水) 16:48:55.01 ID:/GeE/zJY.net] >>472 ありがとうございました． FileDialogだとカレントフォルダーで開いてくれました． 475 名前：デフォルトの名無しさん mailto:sage [2022/02/23(水) 16:53:30.10 ID:/GeE/zJY.net] >>474 ありがとうございます。この説明はとても親切ですね。よくわかりました 476 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/02/28(月) 11:49:10.60 ID:JmI4xSUc.net] すみません、試してわかりました。 後者は一回で済みました。 質問することでその後すぐ簡単な確認方法を思いつくことがよくあります お恥ずかしい。スレ汚し失礼しました； 479 名前：デフォルトの名無しさん mailto:sage [2022/02/28(月) 12:38:27.12 ID:jOzz1fM6.net] どんまい　気付きや学びに成りゃ無駄じゃ無い 480 名前：デフォルトの名無しさん mailto:sage [2022/02/28(月) 12:41:50.52 ID:frLBMESq.net] ちょっと違う話だけど、VBAにもOrElseやAndAlsoが欲しいなと思うときはある 481 名前：デフォルトの名無しさん mailto:sage [2022/03/06(日) 15:10:37.27 ID:R+n9Kzax.net] SQLの勉強をさいきんはじめました 動的SQLによる数独の超高速解法 というのを読みました 動的にSQLを生成するため ・一つはJDBCを使う方法 ・もう一つはストアド・プロシージャを用いた方法 云々って書いてあります これらって、アクセスのSQLでもできそうなものでしょうか？ （過去に話題として出てたらごめんなさい） できそうならやってみようかと 茨の道ならあきらめます 482 名前：デフォルトの名無しさん mailto:sage [2022/03/06(日) 16:34:17.90 ID:TgGQVPNx.net] 2つとも分からんけど、VBAが使える環境なら動的SQLは可能なはず 483 名前：479 mailto:sage [2022/03/06(日) 17:10:27.06 ID:R+n9Kzax.net] SQLとは、使用人から経営者になることだ 今まで自分で作業してたのをしなくてよくなる 使用人に、「こういうのを出してくれ」と 言うだけでよい 数独についてであれば、今まで 総当りするプログラムとか 条件判定とかを自分で考えていたが SQLならそうしたものは自分で考えなくてよい 勝手に総当りして勝手に判定してくれる ・・・ということが書いてありました これって、既存のプログラムの要件を SQLで表現できれば中身は考えなくてよい ってことですよね　けっこうおもしろいかも 484 名前：デフォルトの名無しさん mailto:sage [2022/03/07(月) 07:14:29.39 ID:xVPINsIe.net] 経営しなくてもお金が稼げるSQLがどこかに書いてあると良いのに。 485 名前：デフォルトの名無しさん mailto:sage [2022/03/07(月) 12:53:13.63 ID:+OeG3Wfd.net] >>481 JDBC Driver で Access MDB に接続できる つまりワカラン 486 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/03/07(月) 14:07:14.74 ID:tjPYNfUL.net] 各DBで使えるSQL構文一覧表 (ROLLUPは jet使えない oracleはokとか) のページが昔あったのに 今見たら見あたらなかったわ 488 名前：デフォルトの名無しさん mailto:sage [2022/03/08(火) 06:28:34.40 ID:fGzXxwFZ.net] 総あたりする場合、SQLはどうやって 候補を管理してるんだろ？ ふつうにメモリ上に持ってたら メモリが足りないような 489 名前：デフォルトの名無しさん mailto:sage [2022/03/08(火) 20:13:50.94 ID:fGzXxwFZ.net] 数字の書かれたパネルがあります このパネルのマスをいくつか ぬりつぶし、残った数字の積が、 たて・横のどの列も12になるように してください 2523 6257 5262 2334 これぐらいの規模の問題で 練習したほうがいいかも ぬりつぶしは1に置き換える 490 名前：デフォルトの名無しさん mailto:sage [2022/03/09(水) 11:17:27.88 ID:wDARNtYc.net] 動的SQLっていうから DBエンジンにSQL投げる ↓ その結果を受けて自分を書き換えて 再度新しいSQL投げる ↓ 望む結果になるまで繰り返す みたいな話を期待したら 拍子抜けだった 491 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/03/11(金) 12:30:05.01 ID:+z9vFN5I.net] >>491 >>486の記事を１から読んでこい 493 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/05/01(日) 16:14:10 ID:4P2yloMu.net] ACCESSにもApplication.VBEがあるっぽいから、エクセルとかと同じようにできるんじゃね そもそもコード内をそうそう置換するって状況がよくわからんがな 497 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/05/01(日) 22:36:20.05 ID:uZ+uV6s8.net] >>500 正しい方法言ってみな。 言えなきゃ超バカ決定。 502 名前：デフォルトの名無しさん [2022/05/01(日) 23:10:31.48 ID:q0kLnjNb.net] やっぱり馬鹿だったか 馬鹿に馬鹿と指摘すると怒りだす 503 名前：デフォルトの名無しさん mailto:sage [2022/05/03(火) 18:13:45.75 ID:hABwtxOZ.net] >>496，>>498 497ですが、 Application.VBE.ActiveVBProject.VBComponents(i).codemodule.ReplaceLine(j,"修正後コード文字列") を使ってできました。 504 名前：デフォルトの名無しさん mailto:sage [2022/05/03(火) 21:57:49.43 ID:uVFGqhpy.net] >>503 ありがとう。勉強になります。 505 名前：デフォルトの名無しさん mailto:sage [2022/05/03(火) 23:56:04.39 ID:9Zz7qGMa.net] コードとデータは分離しなさーい！ 506 名前：デフォルトの名無しさん mailto:sage [2022/05/04(水) 01:12:27 ID:L2QcoKdh.net] >>505 オブジェクト名はデータにできない 507 名前：デフォルトの名無しさん mailto:sage [2022/05/04(水) 01:29:47 ID:T57Ht3+D.net] 名前は文字列だろ！ VBAの提供するオブジェクトは大抵コレクションで管理されているだろ！ お前の作ったオブジェクトも管理できるようにしろ！ 初歩だぞ初歩！ 508 名前：デフォルトの名無しさん mailto:sage [2022/05/04(水) 01:39:45.29 ID:L2QcoKdh.net] つまらん もういいよ 509 名前：デフォルトの名無しさん [2022/05/04(水) 03:22:14 ID:bSJdUNny.net] やっぱり馬鹿だった 510 名前：デフォルトの名無しさん mailto:sage [2022/05/04(水) 08:25:20.61 ID:L2QcoKdh.net] >>509 人のこと馬鹿、馬鹿ってほんとにうるさい奴だな 今回のアプリは俺しか使わずオブジェクト名変更も今回限りが確定しているんで、 オブジェクト名をデータ化できるCreateQueryDefなどを使う手間を省いてクエリデザイナーを使っているだけ。 そういう事情も含めて「もういいよ」と書いたんだけど、読み取れんわな。 お前は実生活で他人の事情を汲み取る力が弱くて他人から避けられてるだろう。 実生活では流石に馬鹿と面罵しないとは思うが態度にはでてると思うよ。 エクセルVBAのようにワッチョイ付きならNG登録するんだが。 511 名前：デフォルトの名無しさん mailto:sage [2022/05/04(水) 12:11:33.62 ID:T57Ht3+D.net] 何人登録するつもり？ 512 名前：デフォルトの名無しさん mailto:sage [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 mailto:sage [2022/06/18(土) 22:47:23 ID:yLkug1TW.net] 味噌も糞もいるのがこういう掲示板の特徴 それが面白ければ来るし退屈なら来ない 文句言うのはカッコ悪い 515 名前：デフォルトの名無しさん [2022/06/19(日) 06:53:58.66 ID:R9q2ZnJn.net] >>514 こういうのかっこ悪い 516 名前：44 mailto:sage [2022/06/19(日) 07:49:57.69 ID:ZfwUc+SV.net] >>515 いやいや本当のイケメンだろうな 517 名前：デフォルトの名無しさん mailto:sage [2022/06/21(火) 16:34:11.41 ID:q4pJaYn5.net] test 518 名前：デフォルトの名無しさん mailto:sage [2022/06/21(火) 16:34:30.21 ID:q4pJaYn5.net] アプリケーションタイトルについて質問です。 今使ってるmdbのタイトルが2種類あって、「Access」のものと「ファイル名:データベース-フルパス-Access」のものがあります。 全部後者のタイトルにしたいのですが、設定の仕方がわかりません。 ヤフー知恵袋の「Accessのタイトルバーにファイル名を表示させることはできますか。 Excelでは表示されるのですがAccessでは”Access”としか表示されず少し不便なので、、」 を読むと何の設定もしなくても後者のようになると書いている人がいます。 どうしたらそうなるのでしょうか？ 後者のやつは別にAppTitleとかで設定していませんので不思議です。 519 名前：516 mailto:sage [2022/06/21(火) 17:34:19.49 ID:q4pJaYn5.net] 解決しました。 520 名前：デフォルトの名無しさん [2022/06/21(火) 19:20:51.51 ID:EkCiEQiW.net] >>519 どうやって？ 知りたい 521 名前：516 mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/06/21(火) 20:46:00.64 ID:kU7/2TZz.net] 何がしたいかと、どこまで出来て何がわからないのか詳しくかけ 524 名前：デフォルトの名無しさん mailto:sage [2022/06/22(水) 10:12:43 ID:N/5JiATv.net] >>522 Excelシート全てインポートすればクエリー加工出来ると思うが、、 525 名前：デフォルトの名無しさん mailto:sage [2022/06/22(水) 10:16:19 ID:N/5JiATv.net] >>522 Excelシートリンクでも良いぞ 526 名前：デフォルトの名無しさん mailto:sage [2022/06/22(水) 10:27:56.84 ID:lUHG2pSs.net] ネ申エクセルからデータを拾いたいとかそんな話じゃね？ CreateObject("Excel.Application") 使って対象ファイル開いて、そっからさきはExcel VBAの範疇やろ 527 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/06/23(木) 06:46:56.49 ID:nErcbU9U.net] >>529 スレに来ないと良いよ 531 名前：デフォルトの名無しさん mailto:sage [2022/06/23(木) 07:36:49.86 ID:xe+L83Np.net] >>523-525 なにをやりないか再度確認してコード見直していたら不具合点見つかって前進しました… >>527 やりたいのはこれで30個程度のエクセルがあって全てフォームは統一されています a3とb4とw30の値をテーブルにズドンと引っ張りたいのです もうちょっと頑張ってみます 遅くなってごめんなさい 532 名前：デフォルトの名無しさん mailto:sage [2022/06/23(木) 12:13:27.06 ID:jwJvRDT9.net] ACCESS VBA EXCEL CELLでクグルと沢山出て来ますね。 ACCESSからEXCEL開いて操作できると便利です、頑張ってください。 533 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 00:21:56.25 ID:LR8Jvthl.net] >>536 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 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 01:45:22.88 ID:Yed1CrTu.net] すみませんＣＴＲＬ＋エンターで送信になってしまいました ・フォルダを指定してファイル名を取得 ・指定したシートから変数XYZに特定のセルの値を取得 ・XYZの値をテーブルに追加 超進みました 後は指定したシート名を持たないファイルに遭遇した時にどんなエラーになるのかが気になりますので 近々時間みつけて頑張ろうと思います ありがとうございました！超ハッピー！ 540 名前：デフォルトの名無しさん [2022/06/27(月) 01:59:55.53 ID:YAQt7RYR.net] 馬鹿は二度と来るなよ 541 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 08:41:44.29 ID:yeeW9wqV.net] VBAでやらなくてもテーブルimportで出来るやろ 無駄な努力だな 542 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 11:56:31.55 ID:LR8Jvthl.net] >>541 ブック数が多いから VBA でやりたいんじゃないの？ インポートでできる量だったら手でコピペの方が早いだろ 543 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/06/27(月) 20:42:56.65 ID:NFVjaUBh.net] なんでAccessVBAスレにまで書いてるんだよ 546 名前：デフォルトの名無しさん [2022/06/28(火) 12:01:23.56 ID:W8L8uteA.net] こんな奴が作るプログラムで金勘定とか笑えるわ 己を知らないって馬鹿の特徴なんだよな 547 名前：デフォルトの名無しさん mailto:sage [2022/06/28(火) 12:08:16.40 ID:S7aFTH1N.net] >>544 Access VBAスレでExcelの質問するなよ 548 名前：デフォルトの名無しさん mailto:sage [2022/06/28(火) 12:53:23.92 ID:illrnTHm.net] EXCELで記録したVBAをACCESSで実行するとEXCELはXlmxにしなくても良いからじゃないの? ソルバーは使い方わからんのでなんにも言えなくてスマン。 549 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/06/29(水) 12:18:55.14 ID:C7zOwXa/.net] 狭量にすぎる 553 名前：デフォルトの名無しさん mailto:sage [2022/06/29(水) 12:31:17.45 ID:WL8L6KaP.net] スレを間違ったことではなくマルチが問題なのだがな 554 名前：デフォルトの名無しさん mailto:sage [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 mailto:sage [2022/06/30(木) 01:00:46.93 ID:1OP/W/CA.net] DoCmd.OpenReport "レポート名", acViewPreview DoCmd.PrintOut acPrintAll, , , acHigh, 枚数 新規レポートにラベルを貼っただけものだと希望どおりの枚数が印刷される. しかし,別のレポートだと常に1枚しか印刷されない. ネットでも同じ報告を確認した.バグ説もある. 皆さんはどうですか？やっぱりバグですかね？ 557 名前：516 mailto:sage [2022/06/30(木) 16:01:17.27 ID:1OP/W/CA.net] 解決した. デコンパイルとコンパクトしたらいつの間にか設定した枚数が印刷されるようになった. accessはマジで面倒くさいなあ. デコンパイルとコンパクトの待ち時間をを返して欲しいよ 558 名前：デフォルトの名無しさん mailto:sage [2022/06/30(木) 19:00:33.50 ID:PX9/MxY9.net] デコンパイル、知りませんでした。 559 名前：デフォルトの名無しさん mailto:sage [2022/06/30(木) 20:22:38.17 ID:1+oYjPxt.net] デコンパイル、昔は割と鉄板の解決方法だったんだけどね それでだめなら新規作成して全モジュールインポートとかもあったな 最近は必要性が減ったけど、まだたまにはあるんだな 560 名前：516 mailto:sage [2022/06/30(木) 22:53:16.59 ID:1OP/W/CA.net] コンパクトだけでも良かったのかも知れないが,習慣で両方やることにしている ついいましがたも.Docmd.OpenReportのOpenArgsがレポートに渡らなくて困っていたが,コンパクトをしたら作動した. 終了時にコンパクトするオプションがあるくらいだから頻繁にやるべきなんだろうね. コード書いているときは非常に頻繁に破損するからね. 561 名前：デフォルトの名無しさん mailto:sage [2022/06/30(木) 23:46:30.14 ID:1+oYjPxt.net] あれはデータ領域を圧縮するのが主で、コード部分にはあまり影響しなかった気がするが 最近のアクセスでコードが破損するのはだいぶ減ったと思うが VBEからコンパイルするだけで解決してたんじゃないか？ 562 名前：516 mailto:sage [2022/07/01(金) 00:40:02.55 ID:SILFs/Ha.net] くわしいことはわからないが,挙動不審が治ることがあるんだよねえ とにかく,試行錯誤していると必ずと言っていいほど,壊れるよねえ. メモリーが不足していますとか出始めると,その日のうちに全フォーム消失とか起こるからなあ. 563 名前：デフォルトの名無しさん mailto:sage [2022/07/01(金) 10:45:11.72 ID:x9gnk4T5.net] 試行錯誤の過程のほとんどを貯め込むからな　設定で「終了時に最適化」で、都度終了を心掛けるか 大幅な改修の度にコンパイルのクセを付けるか　ファイルサイズに気を付けて、「こんなサイズのはずは無い」ってな時は要注意 　で、それは、お道具の使い方が雑、間違ってるってだけで、すぐAccessのせいにする連中はお里が知れる　ってこと 564 名前：516 mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/07/07(木) 16:12:50.20 ID:N4ENiOaQ.net] >>564 mdb/accdbファイルの場所が欲しいのなら CurrentProject.Path を使おう CurDir$や>>564の例なんかで返されるカレントディレクトリはファイルダイアログとかで開いたフォルダになるっぽい その辺の仕様に関する資料は知らんけど 566 名前：デフォルトの名無しさん mailto:sage [2022/07/07(木) 19:57:05.70 ID:V/fQnZ1U.net] そもそも、 >vbsならscriptの存在するディレクトリ が間違ってる気がするが カレントディレクトリの概念って最近は説明されてるの見ないなぁ GetFolder(".")が返してるのはカレントディレクトリ（からの相対パスで自分自身） カレントディレクトリはACCESS.EXEの場所や.MDBファイルの場所とは別に存在する まあMDB開くときはそこをカレントにする場合が多いけどな つねに一致してるとは限らん 567 名前：516 mailto:sage [2022/07/07(木) 20:26:42.06 ID:9tJXVGoG.net] >>566 > そもそも、 > >vbsならscriptの存在するディレクトリ > が間違ってる気がするが VBSで稼働していたスクリプトをVBAに移植している際に気づいたので、正しいと思います。 スクリプトを任意のフォルダにコピーしてそのフォルダ内のファイルを一括処理するのに使っていましたので。 568 名前：デフォルトの名無しさん mailto:sage [2022/07/07(木) 20:31:06.22 ID:ty1oWU7C.net] chdirで変えられちゃうけど 569 名前：516 mailto:sage [2022/07/07(木) 20:55:49.31 ID:9tJXVGoG.net] ユーザはおいら1人だからいいのです。 570 名前：デフォルトの名無しさん mailto:sage [2022/07/07(木) 21:30:15.27 ID:V/fQnZ1U.net] いやだから、scriptの存在するディレクトリじゃなくて、 カレントディレクトリが表示されてるって話なんだがな たまたまそれが同じだっただけだ ここ理解しないと思ったディレクトリが表示されない理由が理解できないぞ 571 名前：デフォルトの名無しさん [2022/07/07(木) 22:24:24.15 ID:rKn8i4wF.net] 馬鹿に何を言っても無駄な例だぞ 572 名前：デフォルトの名無しさん mailto:sage [2022/07/08(金) 10:33:00.73 ID:aHYxM19P.net] >>567 そのスクリプトをショートカットにして、 作業フォルダを変えて動かしてみたい 573 名前：デフォルトの名無しさん mailto:sage [2022/07/08(金) 12:10:02.96 ID:/znuHP85.net] カレントディレクトリみたいな、あやふやなものを使ってはいけない。 これが使えるのは、絶対に変化しない場合だけ 起動時に、特定のフォルダを指定するとか、 あらかじめ定数などに保存しておく 574 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 mailto:sage [2022/07/14(木) 12:52:21.90 ID:Fq9OF9ol.net] 迷惑な話ですねえ。 MSのプログラマーがアホなのは今に始まったことじゃないけど 583 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2022/12/10(土) 17:10:55.98 ID:HwePKFIg.net] 何がどううまくいかないんだ？ On Error Resume Next外して、エラー内容かけ 598 名前：デフォルトの名無しさん mailto:sage [2022/12/11(日) 02:53:35.00 ID:08xatqWx.net] 知らんけど、コマンドプロンプトで取得した方が速いと思うぞ。 599 名前：デフォルトの名無しさん mailto:sage [2022/12/11(日) 14:47:06.06 ID:BK2dpDEr.net] ネットワークだとビックリするほど遅いよね 600 名前：デフォルトの名無しさん mailto:sage [2022/12/21(水) 12:29:44.27 ID:29nQbkr4.net] 表形式にしたフォーム上の一行一行に対して、そのレコードのID.pdfが指定のフォルダにあれば○、無ければ空白って文字を連結したテキストボックスに入れたいんだけど。 Dir使って判定させるところまでは出来たけど、vbaを実行させるタイミングの問題なのかな？ 詳細セクションの描画時選んだら代入出来ませんって出た。 試しに詳細セクションダブルクリックだと該当レコードだけは入ったけど。。 一括で全レコード対象にする方法あるんでしょうか。。？ 601 名前：デフォルトの名無しさん mailto:sage [2022/12/21(水) 13:19:20.60 ID:oTvIdtcL.net] データシートビューのソースの段階でクエリ使ってる？ 〇や(空白)を入力するフィールドは確保されてる？ 元のソースにpdfファイルがあるか無いかを画面上で比較しながらひとつずつ入力するつもり？ 仮のテーブル作ってフォルダ内のpdfのファイル名をDir使ってそのテーブルに代入すれば 簡単に元のソースにも反映出来ると思うけど　どうしてもデータシートビューで比較しながら入れたい？ pdfが入ってるフォルダ内がしょっちゅう追加・変更・削除がある場合だとしても、仮のテーブル使っとけば 都度最新の状況での比較が可能だと思えるし、不足してるからpdf作らなきゃ、の指針にも成るような気がする でも、元のソースに〇のフィールド作っちゃうと、pdf削除されても〇のまま消えない可能性もあるから対策必要か つまり、一括で全レコード対象にするなら、Dir結果をcsvなりtxtなりに落とし込んで、それと元ソースで更新クエリがいちばん早い 602 名前：デフォルトの名無しさん mailto:sage [2022/12/21(水) 14:08:13.72 ID:29nQbkr4.net] >>601 ありがとうございます 一旦別のテーブルなりCSVなりにファイル一覧作ってみる事にします！ 思い付きもしませんでした 603 名前：デフォルトの名無しさん mailto:sage [2023/03/02(木) 17:30:45.61 ID:oTm0acsN.net] 値にtrueやfalseが含まれるexcelファイルをDocmd.TransferSpreadsheetを使ってテーブルに取り込むと、 数値として反映されてしまうんですが、理論値のまま取り込む方法はありますか？ 変換かけるしかないのかな 604 名前：デフォルトの名無しさん mailto:sage [2023/03/05(日) 12:31:16.13 ID:Yb2sf8rL.net] >>603 取り込んだ後でクエリーで値変えれば良かろうに 605 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 00:30:10.12 ID:higFVnZ+.net] recordset.Fields.Append "フィールド名", adChar, 200 とかでフィールドを新規設定するといろいろと挙動不審になって､エラーが頻発した｡ 俺が気がついたのはLen関数がおかしな数字を返すこと｡スペースの数を返す｡ これのおかげなのか､DictionaryのKeyが変なことになり､ただしいItemが取得出来なくて2日潰したわ｡ Trim関数に入れたらまともに動き出した｡よけいなスペースが付加されていたため､本来の値と異なっていた｡ このあたりの事情を書いたものあるのかなあ？ 606 名前：デフォルトの名無しさん mailto:sage [2023/03/24(金) 10:46:32.87 ID:pyQciQm5.net] Recordsetの作成（DAO編） www7b.biglobe.ne.jp/~cbcnet/DAO/database.html レコードセットの作成（ADO編） www7b.biglobe.ne.jp/~cbcnet/ADO/append.html 第4話 DAOとADOの違い https://www.r-staffing.co.jp/engineer/entry/20210806_1 同一システム内でDAOとADOを併用しないよう留意　とか？ 607 名前：デフォルトの名無しさん mailto:sage [2023/03/25(土) 11:49:45.50 ID:zs10i3Ml.net] エラーが出るもんだから､VarType関数使って疑わしい変数を調べたら､18が返ってきた｡ しかし､そんな定数ないんだよなあ｡これはどういうことだ？ 608 名前：デフォルトの名無しさん mailto:sage [2023/03/25(土) 11:59:33.48 ID:nHkGBQf7.net] 値の合計なので、10と8とか　5と6と7とか　思い当たるのをひとつずつ潰してく 609 名前：デフォルトの名無しさん mailto:sage [2023/03/25(土) 13:37:32.34 ID:zs10i3Ml.net] >>608 ありがとう｡ Msgboxでそような定数の合計をしますね｡ ところで､そのような知識は私の持っているVBA､VBS､Accessの本には記載されていない様な気がします｡ もしかしたら､Visual Basicでは常識なのでしょうか？それとも一般的なプログラミングの世界での常識ですか？ 私は仕事でVBAをいじるだけで､一般的なプログラミングはほとんど知らないのでお尋ね致します｡ 610 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/03/27(月) 19:43:31.02 ID:zT0GYsm+.net] >>609 ビットマスクって考え方があって、別にＶＢＡに限った話じゃない が、VarTypeで18ってリファレンス見る限りないな。 どんな変数がその値だったんだ？ 613 名前：デフォルトの名無しさん mailto:sage [2023/03/29(水) 07:20:36.71 ID:P3Zmpymz.net] AIに書いてほしいコードを聞くと正しく動くコードが返ってくる bingとchatGPTは頼れる、かも 614 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 10:14:28.50 ID:Az13f9J9.net] 最近の VisualStudio に搭載されたコード補完は おせっかいなくらいにコードの続き出てくるな 615 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 16:33:58.07 ID:vSpSLcg3.net] >>613 俺はChat GPTに嘘ばかり教えられている｡ 用語の定義から間違えている｡ Chat GPTの吐いた嘘を貼り付けるページがあったら参加したいわ｡ 616 名前：デフォルトの名無しさん mailto:sage [2023/04/04(火) 17:16:46.37 ID:SG+vqM06.net] >>615 確かに鵜呑みには出来ないね、よく嘘を言ってくる。ある程度自力で捌けないとヤバいね 617 名前：デフォルトの名無しさん mailto:sage [2023/04/05(水) 00:48:28.57 ID:wtS5Em1S.net] 嘘を嘘と見抜けない人の利用はお勧めできない、か どっかで聞いた話だな 618 名前：デフォルトの名無しさん mailto:sage [2023/04/05(水) 19:08:02.04 ID:iYloijFa.net] GPTのウソ、具体例有ったら教えて 619 名前：デフォルトの名無しさん mailto:sage [2023/04/08(土) 23:18:08.84 ID:m5gy6cDu.net] Excelスレに貼られていたWebview2のコードはﾜﾛﾀ 620 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/04/12(水) 18:35:03.42 ID:b8lcjBjc.net] 未宣言の変数が300種類くらいあるポンコツ業務用mdbがある。Option Explicit化して手作業で未宣言変数を探すとものすごく時間がかかる。ローカル変数だけならテキストに対しての構文解析だけで出来そうだけど、誰かやり方知ってますか？ Access用の解析ツールは時間がかかりすぎるので諦めました 622 名前：デフォルトの名無しさん mailto:sage [2023/04/14(金) 12:20:23.58 ID:ooEkRg5K.net] 全角数字を含むフォームは普通VBEのプロジェクトエクスプローラでも全角数字で表示される｡ しかし､俺の持っているmdbはなぜかフォームによってはVBEで半角の場合がある｡ つまりForm１番→Form1番 というように半角になっている｡ フォームのもっている名前とモジュールの名前が異なるので検索漏れが発生して何かと不便｡ 解決策ありますかね？ 623 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 15:36:15.06 ID:hTeej4zs.net] >>622 Accessのバージョンによって全半角を同一視されるのとされないのがあったよーな 半角に統一して、置換するしかないんじゃね 624 名前：デフォルトの名無しさん mailto:sage [2023/04/19(水) 21:07:01.70 ID:UiOYL9zn.net] >>623 VBEはクラスオブジェクトのリネームはできないんですよねえ Text化してファイル名を統一してから読み込みますかねえ？それでなおるか未確認ですが。 今は検索文字列のパターンを増やして対応してますが、邪道だなあと思いながらやってます。 625 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 00:39:31.09 ID:Ck2wYtqO.net] ACCESS側で名前変更しても、VBE側が変わらないことがあるっぽいな フォームの コード保持 を いいえ にして保存してから はい にしたら同じになったぞ まあ、コード全部いったん消えるがな 626 名前：デフォルトの名無しさん mailto:sage [2023/04/20(木) 10:07:33.88 ID:b7y+tf5m.net] >>625 テキスト化してフォームと同じ全角のファイル名にしてからLoadしたらVBEのクラスオブジェクトの名前と一致させることが出来ました｡ 思うに､このプログラムを書いた人はテキスト化して､お好みのエディタで書いていたんでしょうね｡ だからOption Explicitなんてしてなくて､問題なく書けるので､変数のスペルミスがあります｡ 今回はファイル名の全角半角を間違えてままLoadしてフォーム名とクラスオブジェクト名が一致しないということになったと思います｡ よほどVBEを使いたくなかったんでしょうね｡ 627 名前：デフォルトの名無しさん mailto:sage [2023/04/28(金) 05:20:11.81 ID:d0ZMhP2N.net] やけにエラーが出るので調べたら、クラスオブジェクトの名前のカッコが前側が半角、後側が全角のものを発見。しかも複数。 俺はプロじゃないけど、このデータベースに毎月金を払っている。金取るならちゃんとしたものを作って欲しいわ。 宣言だけして読み書きしない変数が約2000個、呼び出されないプロシジャーと空のプロシジャーが100個以上がもあるし、どうなっているんだ？ 戻り値のないプロシジャーをFunctionにして，呼び出すだけのために変数を使ったりしてアホかと思うことばかり 628 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 21:33:01.68 ID:u6AyBhT9.net] クエリがいくつかあってそのなかであるテーブルを使ってるかどうか検索する方法ないですか 629 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 21:34:54.38 ID:u6AyBhT9.net] これVBA関係ないな 630 名前：デフォルトの名無しさん mailto:sage [2023/05/04(木) 13:12:55.46 ID:xnh5NJU8.net] 関係無いけど、ヒマだから https://www.feedsoft.net/access/tips/tips211.html この手順でコツコツ「リレーションシップ」を出力してけば把握できる 631 名前：デフォルトの名無しさん mailto:sage [2023/05/04(木) 20:33:29.74 ID:i/jCXYvG.net] QueryDefsのSQLプロパティをinstringで調べる それをループ　かな 632 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 00:24:35.45 ID:qaMHPguU.net] >>631 これがベストだね 633 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 20:45:34.35 ID:nGf/Bj/G.net] 流行りのChatGPTをACCESSで使えるようにしてみた BingやBardもレスポンス良く使えるようになったのであまり意味はなかったが面白かった VBAコードはChatGPTに書かせたのをほぼコピペで動くようにできた 634 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 09:19:13.17 ID:uR6hVfud.net] スレの意図を無視するがAccessは出来るだけVBA使わず作成する方がバージョンアップにも対応し易い 635 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 13:15:28.85 ID:JkElVRfp.net] お客様に納品するならそういう気遣いも要りますね 自家用なので気の済むまで作り込みます 自社の50人くらいが快適なように 636 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 16:13:18.44 ID:74jfRr8+.net] どうした？　総合で同意が得られなかったから改めてコッチに書いたのか？ Accessをインストールだけして使わないでいればバージョンアップもへったくれも無いから、そうした方がいいぞ？ 637 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 08:52:04.69 ID:UU9sI9hc.net] Rubberduckは大きいデータベースだとパース中にエラーが出て使い物にならないねえ 数年前よりはるかにマシになったけど。 638 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 21:12:36.24 ID:dmITDlP3.net] msgboxの戻り値を格納する変数の型をvbMsgboxResultにするかLongにするか悩んだので､ 時間を計ろうと思って､古い本を引っ張り出して､二つを比較するプロシジャーを書いた｡ ふと､全く同じテストをしたらどうなるのか気になったので､やってみたら､全く同じプロシジャー同士の比較なのに30%位スピードに差が出る｡さっきやったら最大で37%速度差があった｡ 一方が速いこともあれば､もう一方が速いときもある｡こんなのでスピード比較する意味あるのかなあ？ 時間測定はGetTickCountを使って､変数宣言のみ100万回のループをするプロシジャーを100回呼び出すという感じ｡ なんかいい測定方法ありますかね？ 639 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 21:52:45.08 ID:Mqz2m8JL.net] timer使っても同じかな 640 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 06:33:48.44 ID:AOXlzNDq.net] timerが秒単位でGetTickCountはミリ秒単位と古い本に書いてあったなあ あと､timerはそれ自体の動作が遅いって書いてあった 641 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 18:57:23.27 ID:8+QzSev9.net] ユーザーフォームが大きいんで下半分を隠す、上半分を隠す、という2つのコードを書きたいんです。下半分を隠す、はハイト プロパティを小さくすれば可能なんだけど、上半分を隠す、は不可能なんですかね。 642 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 20:29:25.05 ID:FTp82+/Y.net] >>641 何をやりたいのかイマイチ分からんけど、タブコントロールじゃだめなん？ 643 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 21:32:12.21 ID:UaeB70YO.net] 上半分を隠したら×ボタン無くなってにっちもさっちも行かなくなるぞ 644 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 21:36:12.00 ID:/q1eE0wB.net] >>641 2つのフォームに分けたら良いと思うの 645 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:09:14.22 ID:j+pEmA6B.net] >>642 >>644 ありがとう。皆さんのアイデアをためします 646 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 14:00:02.22 ID:MnQDcyxi.net] 質問です。 Excelファイルを読み込んで、加工してからテーブルとして保持したいんですが、 Excelファイルのまま編集してinsertするのと、 一度テーブルとして読み込んでから編集してinsertするのはどちらが高速でしょうか？ 647 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 15:03:14.67 ID:MnQDcyxi.net] いろいろありがとございます、しかしimportではなくinsertです 内容を見て既存のテーブルに1行ずつinsert（もしくはupdate）していく形になります。 649 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 15:26:17.99 ID:3uLTyIP1.net] んーと、Access側のテーブルはあくまでもデータストック用な立ち位置？ 事前にExcelでの編集が伴うなら、Accessのテーブルとしてから編集するのはムダなような https://tonari-it.com/excel-vba-access-add-records/　コッチのが参考に成るかも　実行速度の検証もしてる様子 650 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:47:55.53 ID:MnQDcyxi.net] ありがとうございます！ いまさらっとですが見てみたところ、速度比較などもしていて参考になりそうです。 見てみます！ 中間テーブルを作成してから編集した方がいいよ、という声を聞いたんですが いちいち使わないテーブルに投入する必要はないのでは？と思い質問いたしました。 事前編集方式でやってみます！ 651 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 18:12:18.40 ID:3uLTyIP1.net] Excelの元データと、何をどう編集したいかも判らないから、中間テーブルの必要性は当人しか判断不能 上でも書いたけど、編集内容がExcelの方が楽で早いのかAccessの方なのかでも手順は変わるような 速さを第一に求めているように読めるけど、「一行ずつ」って書かれた部分で「おや？」と スムースにデータを移行させるには、最初のリンク先の「データクレンジング」も読んでおいてもムダには成らない アチコチに目を配らなければならない様子でお疲れ　でもそれがじぶんの糧に成る 652 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 08:46:04.47 ID:AU7HKxhu.net] >>646 ExcelインポートしてAccessで加工する方が速いよ ExcelでVBAでデータ加工するなんて愚の骨頂 653 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 10:26:10.15 ID:eouMPy16.net] みなさまいろいろありがとうございます 自分の説明不足＆理解不足ですみません。 ACCESSに入っている一覧情報を定期的に更新しなければならず、 その更新情報がExcelで来るのでそれを読み込んで…とやる感じです。 ACCESS側で固有に更新している情報もあるのでまるっと上書きではなく、 一行ずつ確認して該当の列のみ追加や上書きをしなくてはいけません。 それを、いまはAccessVBA内でExcelファイルを開いて 一行ずつ読み込んで内容確認して内容によってSQL流して…とやっているのですが、 もしかしてExcelファイルを中間テーブルにimportしてから 操作した方が早いのかな？？と悩んで書き込んだ次第です。 「ExcelインポートしてACCESSで加工」と言ってくださってるのは 後者の場合を指しているのですかね？ 今はとりあえずサンプルを作って動かして比較しようかと思っています。 654 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 10:50:21.63 ID:l+gVJ33A.net] そういうことなら中間テーブルに取り込んで、テーブル同士の差分をチェックかな https://tasukete-access.com/2022/11/28/accessintro_table_comparison/ [フィールド単位での差分をチェックする]　この方法のが近いのか 655 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 23:16:20.24 ID:CzWxWRtY.net] 返信遅れてすみません！ありがとうございます！ こんなやり方ができるんですね！ 全部SQL書こうと想ってましたがクエリで楽に作れるかもしれず嬉しいです。 参考に書いてみます、本当にありがとうございます！ 656 名前：デフォルトの名無しさん mailto:sage [2023/05/26(金) 17:24:59.84 ID:sT8UcBqC.net] 500以上のモジュールにOption Explicitが書いてない。 当然、宣言されていない変数が何百もある。 ここにOption Explicitを書くと、宣言されていない変数を見つけるたびにコンパイルが止まるので面倒。 一括して発見する方法を知ってる人いますか？ VBEが発見できるので、その方法が分かればユーザにも分かるはずだと思うが、検索しても見つからない。 Cのコンパイラを自作する技術があれば、文法解析の手法が使えると思って調べたけど、全余暇時間をコンパイラ自作に割り当てても6ヶ月かかったと言ってる人がいて、踏み出せない。 657 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 16:07:15.09 ID:AvjLnKXj.net] >>657 ありがとう｡ 少しずつ試してみます｡ いろいろ調べて､いまはFlexとbisonという奴でもやってみたくなっています｡ 659 名前：デフォルトの名無しさん mailto:sage [2023/06/08(木) 22:05:58.45 ID:tPqYzYSn.net] 配布したaccdbを365runtimeで動かしてて、今朝突然レポートが開かなくなった ほぼ午前中すったもんだして2013runtimeならレポートの印刷やプレビューが問題無い事がわかってruntime差し替えた こんな目にあったひと他にいない? 660 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 04:50:51.47 ID:uT9lsXlY.net] ロールバック、覚えときます ありがとう 662 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 12:36:00.93 ID:G8Vh+N8B.net] それって、MSからバグフィックスや修正が為されたのを察知するにはどうしたらいい？ ロールバックしっ放し？　勝手にアプデされてまだ直らなかったら二つ前にロールバック？ ずっと修正されなかったらロールバックバックバックとかに成らん？ 663 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 16:09:51.45 ID:XhtkwaOO.net] >>662 察知は毎月リリースページを確認していました バグが修正されるまでは Office の自動更新を止めます なのでロールバックは最初の1回だけです バグが修正されたら自動更新を有効に戻して最新版にする感じでした 更新は重大バグ修正の時のみ、原則自動更新は使わないという運用もあります これに関してはお客さん次第ですかね 664 名前：デフォルトの名無しさん mailto:sage [2023/06/09(金) 16:20:24.73 ID:G8Vh+N8B.net] そうだよね　委託を請けてる業者さん目線だよね エンドのユーザーはそんなのに目を通さないしね　見てもどれが自分の不具合に当て嵌まるか解かり辛いしね じゃあ内製のユーザーはロールバックバックバックし続けるしか無いよね アプデを停め続けるひとも居るかも知らんけど、そうすると1年分とか溜まってそれはそれで地獄を見るしね やっぱこういう場所で症状とかを意見交換するのは貴重なんだ、と再認識 665 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/06/10(土) 18:20:00.00 ID:u0MJNtiG.net] あと、マクロだと screen.active.control とか出来ないよね 667 名前：664 mailto:sage [2023/06/10(土) 18:20:16.44 ID:u0MJNtiG.net] 誤爆 668 名前：デフォルトの名無しさん mailto:sage [2023/06/11(日) 17:21:05.93 ID:/gnEKRu3.net] sleep をどんだけにするかどうやって決めるの？ 669 名前：デフォルトの名無しさん mailto:sage [2023/06/13(火) 15:38:15.16 ID:bu7CkXDV.net] VBAで自作のクラスモジュール作成したんですが、 それを引数で渡す関数の書き方がわかりません Sub test(ByVal hoge As Hoge） みたいな感じで書いたのですがうまくいきません。 （As Hogeが自動でAs hogeと変換されるし、エラーになります） どなたか教えていただけませんでしょうか？ 670 名前：デフォルトの名無しさん mailto:sage [2023/06/13(火) 19:34:42.68 ID:d6Pomi9y.net] >>669 引数hogeに引っ張られるVBAの仕様です VBAでは変数にクラス名を使うのは避けた方が良いですよ プロジェクト内に変数hogeが存在している時も同様です 671 名前：デフォルトの名無しさん mailto:sage [2023/06/14(水) 11:24:04.63 ID:3Eu4F25u.net] >>669 VBAでクラスモジュールなんて不要 672 名前：デフォルトの名無しさん mailto:sage [2023/06/15(木) 16:26:17.40 ID:VlP0x+zk.net] >>671 流石にそれはない。クラスモジュールがある方が便利だよ。 673 名前：デフォルトの名無しさん mailto:sage [2023/06/15(木) 19:09:52.15 ID:y9q9PTdn.net] bindってのでクラスモジュールの有り難みを知りました 674 名前：デフォルトの名無しさん mailto:sage [2023/06/15(木) 20:42:35.42 ID:RAXKxz4R.net] 俺もクラス使いたい派 保守性が全然違う 675 名前：デフォルトの名無しさん mailto:sage [2023/06/15(木) 22:46:38.48 ID:VlP0x+zk.net] クラス使わないと同じようなコードが量産されて面倒くさすぎる 676 名前：デフォルトの名無しさん mailto:sage [2023/06/15(木) 22:47:32.53 ID:VlP0x+zk.net] ただでさえポンコツな言語なんだから、クラスぐらい使おうよ。 677 名前：デフォルトの名無しさん mailto:sage [2023/06/16(金) 20:25:21.43 ID:cjNqE8A3.net] >>675 そのせいだったのか、クラス使えば良かった 678 名前：デフォルトの名無しさん mailto:sage [2023/06/21(水) 20:54:02.92 ID:b8UND1s3.net] ADOでCSVからテーブルを作ろうとしたらレコードが大きすぎますって怒られるんですよ! 1レコード2000バイトも無いのにですよ! 400列くらいあるのがダメなんですか? 2013なんですが。 679 名前：デフォルトの名無しさん mailto:sage [2023/06/21(水) 21:15:42.66 ID:gk5UG/Z5.net] フィールド数の上限は255だからかな 680 名前：デフォルトの名無しさん mailto:sage [2023/06/23(金) 13:04:47.47 ID:pHYUvccd.net] フィールド数上限は実は罠 681 名前：デフォルトの名無しさん mailto:sage [2023/06/23(金) 15:26:54.30 ID:X84KLwiQ.net] 過去最大のフィールド数は500 テーブル分割して収納した 682 名前：デフォルトの名無しさん mailto:sage [2023/06/23(金) 15:42:34.83 ID:jhieer6M.net] 分割したらフィールド数じゃないな 683 名前：デフォルトの名無しさん mailto:sage [2023/06/23(金) 16:07:44.83 ID:/GlO4XTI.net] メモ型にコンマ付で格納 684 名前：デフォルトの名無しさん mailto:sage [2023/06/24(土) 09:17:24.69 ID:5hQB8dV1.net] >>683 それに意味有るの? 685 名前：デフォルトの名無しさん mailto:sage [2023/06/26(月) 19:43:31.70 ID:nvUGoLmX.net] Access2019でリボン非表示にするのは、どうするの？ 686 名前：デフォルトの名無しさん mailto:sage [2023/06/26(月) 20:17:04.89 ID:nvUGoLmX.net] >>685 細工されないようにXMLで記述したい 687 名前：デフォルトの名無しさん mailto:sage [2023/06/26(月) 21:25:45.94 ID:Ezf4n+79.net] XML??? VBAでなら DoCmd.ShowToolbar "Ribbon", acToolbarNo ってのがあるが 688 名前：デフォルトの名無しさん mailto:sage [2023/06/27(火) 08:56:44.60 ID:5UYjwK7S.net] それだと使用者に解除されちゃうので、XMLで空のカスタムリボン作って、オプション→現在のデータベース→リボンとツールバーのオプションに設定したいんよ Access2019だとスクラッチからリボン作ってもファイルボタンが残っちゃうのが解ったので、それで我慢する 689 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 09:18:05.95 ID:t/htNvkA.net] サブフォームをもつフォームにおいて、 親フォーム側から Me.サブフォーム.Requery を実行すると、サブフォームのCurrentイベントが2回発生するんだけど、なんでなんだろ？ 690 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 10:41:11.21 ID:UPFEbPP4.net] 大抵はそう組まれているからそう動作する 親フォームからひとつずつチェックしてみれば「あぁ、ここか」が出てきたりする 691 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 10:50:23.10 ID:t/htNvkA.net] >>690 検証のために、メインフォーム上ににサブフォームとサブフォームをRequeryさせるだけのボタンの最小限の構成にしても 687で書いた現象が発生している（サブフォーム側はCurrentイベントにdebug.printを書いただけ） 私は何か根本的な勘違いをしているのだろうか？それともAccessの仕様なのだろうか？ 692 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 12:58:11.51 ID:UPFEbPP4.net] フォームをデザインビューにした時に出て来るプロパティシート おおむかし、あの枠が狭くて知らぬ間に二行に記載していたことは稀によくあった Excelで言う、セル内改行をやってしまっていた　見た目はいっこなので気付きにくい 或いは、サブフォームをよりシンプルなものでテストするとか 仕様なら同様の質問疑問がてんこ盛りに投稿されるはず 　と思って探ってみたら、こんなのが・・ yamav102.cocolog-nifty.com/blog/2015/05/from_current-96.html　　これ系？ 693 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 13:41:20.11 ID:t/htNvkA.net] んで、実行結果（イミディエイトウィンドウ）が clicked ------ frmSub Form_Current frmSub Form_Current -------------- 695 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 15:04:03.08 ID:t/htNvkA.net] >>695 loadやactivateではrequery時にイベントが発生しないので、本来の目的を達成できません また、最初にフォームが開かれたときにはcurrentは一度しか発生していません 697 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 21:20:00.47 ID:dY8DD9uu.net] AccessにGROUP_CONCATみたいなのなかった? 700 名前：デフォルトの名無しさん mailto:sage [2023/09/14(木) 23:10:56.65 ID:kQn+Df7T.net] サブフォームのレコードソースにテーブル指定して　>>693　やってもカレントは一回しか表示されんけどな レコードソース無ければ2回カレントは表示される サブフォームにレコードソース指定してる？ 701 名前：デフォルトの名無しさん mailto:sage [2023/09/15(金) 08:38:48.79 ID:cxAk3WqI.net] >>700 たしかにレコードソースはしていしていません なるほど理由はよく分からないけれど、原因は分りました ありがとうございます 702 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [2023/10/04(水) 15:22:35.37 ID:95ZKO4kH.net] 更なる解説ありがとうございます ? TypeName(10^2) Double 正直これは盲点でした 原因がはっきりわかりすっきりしました ありがとうございます 708 名前：デフォルトの名無しさん mailto:sage [2023/10/04(水) 21:35:38.35 ID:GiHPLbjK.net] VBAの内部計算につかう型は結構複雑な変換をする 33.6@ * 整数変数の結果は、Currency型だぜ 多くの関数や演算子で、より精度の高い型を使おうとするんだが、べき乗はDoubleしか返さん仕様っぽいな 自分でCurrencyかDecimalでべき乗する関数作れば解決 709 名前：デフォルトの名無しさん mailto:sage [2023/10/04(水) 23:36:55.88 ID:hn2MViTp.net] OpenArgsってなんて読んでますか？ 何の単語の略なんでしょうか ご存じのかた教えてください 710 名前：デフォルトの名無しさん mailto:sage [2023/10/05(木) 01:14:56.61 ID:6f6nA7M7.net] >>708 CurrencyかDecimalでべき乗する関数ってどのような？ 711 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 ┐⁠(⁠´⁠ー⁠｀⁠)⁠┌ 728 名前：デフォルトの名無しさん [2024/05/07(火) 09:19:02.24 ID:dcFbjZui.net] MT4かよ 729 名前：デフォルトの名無しさん mailto:sage [2024/05/26(日) 18:34:28.21 ID:TVlTpabA.net] FileSystemObjectのDeleteFolderかFolder.Delete使うと 対象フォルダーにシンボリックリンクやジャンクションあると リンクじゃなく参照先が削除されるから気を付けた方が良いよ 定期的に掃除するログやバックアップフォルダーに 大事なフォルダーへのリンクなんか悪戯で作成されると消えちゃう 仕込まれた日と削除される日に時間差があるので追跡難しい Defenderも気付いてくれない フォルダーの削除はRmDirにしとき 730 名前：デフォルトの名無しさん [2024/06/19(水) 13:39:07.69 ID:Z4GWURaA.net] 恐ろしい そんな罠が 最近fsoの方使ってるから気をつけなければ 情報thx 731 名前：デフォルトの名無しさん mailto:sage [2024/06/21(金) 17:49:43.88 ID:97rAWOJS.net] kill のが一般的だと思ってたが、そんなことは無かったのか シンボリックリンクやジャンクション(つまりショートカット？)とかがある場合の挙動は知らないけど 比べた人が居て、ほぼおなじ動作なら kill のが楽だと tps://www.limecode.jp/entry/difference/kill-deletefile 732 名前：デフォルトの名無しさん [2024/06/21(金) 18:18:10.26 ID:JmSRYM7J.net] 削除の差異は意識してなかったからよくわからんけど、ファイルやフォルダの扱いがfsoの方が書きやすい、わかりやすいでこっち使い始めたかな… 再帰とかfsoの方が書きやすい（ソースがシンプル）はず… 733 名前：デフォルトの名無しさん mailto:sage [2024/06/21(金) 21:19:36.24 ID:jAZYV/Wx.net] BASICはOSだからな 734 名前：デフォルトの名無しさん mailto:sage [2024/06/22(土) 08:54:35.35 ID:wHSF3406.net] 違うか　フォルダの中に拡張子.lnk があるかどうか事前にチェックするべきか(他の対象外のファイルとかも DeleteFolder や RmDir だと無条件で削除してしまうからキケンがあぶないってことか キャベツを包丁で切ったら青虫まで一緒に切り刻んでしまいました あらかじめ葉をむしって洗ってから切りましょう　みたいなことだろうな 735 名前：デフォルトの名無しさん [2024/06/22(土) 11:29:50.78 ID:n6A/NZx5.net] チェックするの面倒だから豆腐切れない斬鉄剣で切るんじゃないの？ 736 名前：デフォルトの名無しさん mailto:sage [2024/06/22(土) 11:47:45.85 ID:R3uDiOs/.net] rm -rf / 737 名前：デフォルトの名無しさん [2024/06/22(土) 13:28:14.09 ID:AjNB02TK.net] NG🚮 738 名前：デフォルトの名無しさん [2024/06/22(土) 13:38:00.95 ID:o/eWDsQ7.net] どっちかというとやばいのは rm -rf * の方だったかな 739 名前：デフォルトの名無しさん [2024/06/24(月) 00:37:34.39 ID:sso3G8sO.net] >>733 それはBASICインタプリタが起動しているだけ 740 名前：デフォルトの名無しさん mailto:sage [2024/06/24(月) 15:47:37.22 ID:W/0xkGee.net] Accessに限らんじゃん　Word でも Excel でもてことだよな Excel連中に知られたら、阿鼻叫喚の世界だな　あいつら節操無いし 741 名前：デフォルトの名無しさん [2024/06/24(月) 16:26:48.42 ID:F40a+XEU.net] 知らなくても知ってたといいはるからなw 逆に知らなかったことにすることあるわ 森は大切に育てないとな 742 名前：デフォルトの名無しさん mailto:sage [2024/10/01(火) 09:21:59.28 ID:TDdMwhQJ.net] Conpact & Repairを内部からVBAで命令しようと思ってAIに訊きながら何時間も格闘したあとにググったらできないことが判明した。 Claude3.5とGemini Proがここまで馬鹿とは。 何度も提案してくるけどシンタックスエラー出しまくるし。基本構文すら間違えるようでは人間プログラマーはまだまだ安泰だね。 743 名前：デフォルトの名無しさん mailto:sage [2024/12/03(火) 11:46:34.24 ID:dxkeCahd.net] ファイルメニューのオプションで、閉じるときに最適化する　を選んでおくだけでいいような これをチェックしないまま使い続けて「壊れた」とか「容量が」とか大騒ぎする方々が多い気がする 気がするだけだけど　×Conpact　○Compact 744 名前：デフォルトの名無しさん mailto:sage [2024/12/03(火) 14:00:15.98 ID:En2cnAMO.net] 毎回圧縮してたらすぐ壊れるよ 745 名前：デフォルトの名無しさん mailto:sage [2024/12/03(火) 16:54:24.51 ID:dxkeCahd.net] 数十社(延べ数百台)の業務アプリこなして来たけど、そんな事例は一件たりとも経験していない じぶんが開発用とか運用テスト用とかで仕立てて来たマシンでも、そんな事態に陥った経験は無い 圧縮と書いているけど、最適化を指定しておけば修復もするはず　修復できたものは壊れたとは呼ばない それでも尚壊れたというなら、お作法に則って無い制作物だったとかなのかも知れない 少なくとも「すぐ壊れる」事態には陥らない 開発途中で、試行錯誤を重ねてあれこれ試してしまった　←ようなケースでも、その作業の途中で 手動で最適化する、或いは一旦閉じて最適化をさせるだけで悲劇からは回避できる 746 名前：デフォルトの名無しさん mailto:sage [2024/12/03(火) 21:02:10.99 ID:BzSKhMhy.net] 中身全部別ファイルにコピーしないと、なんて事も珍しくはないけどね 747 名前：デフォルトの名無しさん [2024/12/04(水) 00:01:04.29 ID:hze6J6h6.net] 運用中に壊れたことないけど、昔は開発中に度々壊れてた（壊してた）な… 昼と夜にバックアップしてた懐かしい思い出w 748 名前：デフォルトの名無しさん [2024/12/04(水) 11:09:06.60 ID:oDv/ROvl.net] Accessが安定したのは2000くらいからだよ 749 名前：デフォルトの名無しさん mailto:sage [2024/12/04(水) 11:12:46.01 ID:HphOCGl2.net] >>746 最適化は全部別ファイルにコピーしているよ 750 名前：デフォルトの名無しさん mailto:sage [2024/12/04(水) 17:06:47.73 ID:ZnmFvaLG.net] ニホンゴムツカシイネ 最適化の最中は隠しファイル作ってソッチにコピーした後圧縮して、完了したら元ファイルに上書きしてる 　てことを言いたいのだろうが (おれは)最適化(したファイル)は全部別ファイルに・・とも読めて、一瞬「無駄だろ？」とか思った 751 名前：デフォルトの名無しさん [2024/12/04(水) 20:59:10.46 ID:hze6J6h6.net] 日本語プロパティになった時は、なんて事しやがるねんて思った 特定文字列がうまく認識されなかったり(T_T) 初心者にはわかりやすかったけれども 752 名前：デフォルトの名無しさん mailto:sage [2025/03/28(金) 20:56:49.89 ID:DlL+MxYf.net] ACCESSには散々、世話になったがもう要らないんでvisual studioにレポートとサブフォームの機能だけ移行して亡くなっていいよ 753 名前：デフォルトの名無しさん [2025/03/29(土) 13:14:03.44 ID:vo1WPeF9.net] ACCESSの便利さが全くわかってない素人w あれをvsでやろうなんて全く思わない vsでの書き方を覚えるのは不要な労力でしかない vsでやれと言われたら従ってね。できなくはないからw 754 名前：デフォルトの名無しさん [2025/03/29(土) 13:17:20.16 ID:vo1WPeF9.net] >>753 ちなみに試しかけてはみたよ ACCESS消滅するまでムダだとわかった その頃の書き方も変わる可能性もあるし 755 名前：デフォルトの名無しさん mailto:sage [2025/03/29(土) 16:02:13.66 ID:M3jsTRd4.net] ADODBですねわかります 756 名前：デフォルトの名無しさん mailto:sage [2025/03/30(日) 08:20:15.93 ID:F3fFdGm1.net] >>753 >>754 何を一人でゴチャゴチャ言ってんだ？ 757 名前：デフォルトの名無しさん mailto:sage [2025/03/30(日) 09:20:48.46 ID:bJrIExL2.net] 草 758 名前：デフォルトの名無しさん [2025/03/30(日) 22:12:48.36 ID:GlW9emcv.net] 何も言い返せない素人の捨て台詞 759 名前：デフォルトの名無しさん mailto:sage [2025/04/01(火) 08:24:46.89 ID:4aIYCmIe.net] Visual Studio って、開発環境では？ C＃ + Visual Studio とか .Net + Visual Studio とかのように、言語+IDEと捉えるもののような そこへAccessのレポート組み込め、サブフォーム(←なぜサブ？)の機能加えろとか、思い違いも甚だしい 760 名前：デフォルトの名無しさん mailto:sage [2025/04/01(火) 10:39:47.09 ID:KG0zKw3F.net] 昔はVSにクリスタルレポートのサブセットとかバンドルされていたからレポートほしいという要望は普通では？ 自作ではページングとか面倒だし WinFormならあるからサブなんでしょ 見せるだけならデータバインドでいいけど編集するには標準コントロールでは物足りない Access相当の連結コントロールがタダであれば捗るとは思う Access廃止するならコントロールライブラリを提供するぐらいやって欲しい 761 名前：デフォルトの名無しさん [2025/04/02(水) 01:27:05.55 ID:JuxZeGhm.net] クリスタルレポートはACCESSのに似てて期待したが、全然ACCESS相当まで機能追加されなかったので結局使われなかったな （顧客へのシステムとして） DB使わない部分では使ってたチームあったかもしれん 762 名前：デフォルトの名無しさん mailto:sage [2025/04/02(水) 12:09:23.32 ID:k9Y5euIy.net] >>761 ほんそれ 763 名前：デフォルトの名無しさん mailto:sage [2025/04/02(水) 12:27:12.37 ID:5a/oTSSC.net] クリレポ、一応はDB使った納品書かなんかで使ったわ 情報が全然なくて自分で弄りながら作ったからエラい苦労した記憶しかない 764 名前：デフォルトの名無しさん mailto:sage [2025/04/02(水) 14:23:11.10 ID:DR9S3YFG.net] Visual Studio の WinForms から Reportコンポーネント じゃあダメなんか？ https://www.agtech.co.jp/products/fastreport.net/online/ProgrammerManual/ja-JP/UsingReportInVS/TypicalScenario.html True WinReports for .NET　なんてのもあるけど、使えないのか？ https://www.componentsource.co.jp/product/true-winreports-net-j/about Accessのレポートのように、微に入り細を穿つ作りはヨソのコンポーネントぢゃあ面倒　だとしても 用意されたものを使うっきゃ無いだろうに ハナシが逸れついでにググって見ただけだから君らの一件との整合性は知らん レポートコントロールってのも追加できるようだが、それもすでに使い物に成らんのか？ https://qiita.com/vicugna-pacos/items/80e76059af2a29d5835f　サイトの情報が古いてか 765 名前：デフォルトの名無しさん mailto:sage [2025/04/02(水) 16:22:13.97 ID:kFN7dZ5N.net] クリレポを買収して中身一緒なの 766 名前：デフォルトの名無しさん mailto:sage [2025/04/02(水) 17:44:39.81 ID:DR9S3YFG.net] じゃあ、それで解決じゃん？困らないじゃん？ なんでわざわざAccessスレでVisual Studioのクリスタルレポートのボヤキしてるん？ 767 名前：デフォルトの名無しさん [2025/04/02(水) 18:38:29.39 ID:kFN7dZ5N.net] そもそもAccessスレはム板には相応しくないのかもしれん 引用 未だにCrystalReportの呪いがある人でそんなたいした帳票を出してない人には選択肢の一つとなると思います。 ネットで結構有名なC#等の質問サイト等に行くとすぐに「ActiveReportを導入しなさい」的な書き込みが多く見られます。 私が昔から尊敬するネットで良く質問に答えて下さる様な人たちも同じ返答をします。 ActiveReportって結構良い値段します。 なぜMicrosoftReportなのか？ 無料だという事とコンポーネントの互換を気にしなくて良い事です。 768 名前：デフォルトの名無しさん mailto:sage [2025/04/02(水) 18:43:56.93 ID:kFN7dZ5N.net] 軒並み古いな https://www.youtube.com/watch?v=70uUsC5GFgk https://www.youtube.com/watch?v=079OLMGqZwg 769 名前：デフォルトの名無しさん [2025/04/02(水) 23:12:24.47 ID:1Uz6aYIb.net] >>767 マクロしか使ってないやつはそう考えるだろなw 770 名前：デフォルトの名無しさん mailto:sage [2025/04/03(木) 07:43:51.31 ID:LP+5khva.net] 結構いい値段しようが、デベロッパーなら価格転嫁できるだろうに　プライベートユースで開発してンのか？ 小規模向けでぜんぶ込みで安価になんでも開発できるAccess、しかももう改良の余地も無いほどに洗練されてる(w) こんなレガシーな開発環境他に類を見ないだろ　AccessのAccessたる所以ってことで、独自の地位を確立してるでいいじゃん 771 名前：デフォルトの名無しさん mailto:sage [2025/04/04(金) 10:57:00.22 ID:22bgX6/4.net] AccessでマクロとかVBA使うより MDEだけ使ってあとはVS(VC/VC#)だろこの板なら常考 772 名前：デフォルトの名無しさん mailto:sage [2025/04/04(金) 13:05:53.92 ID:BXxq7UNx.net] か、かんちがいしないでよね！ サーバーなんかじゃないんだから！ って言い張るためだけに存在を許されている 773 名前：デフォルトの名無しさん [2025/04/04(金) 13:27:46.05 ID:EKlY2S8w.net] 素人が必死 774 名前：デフォルトの名無しさん mailto:sage [2025/04/04(金) 17:00:30.03 ID:W5FNOvW3.net] python良いよ https://www.microsoft.com/ja-jp/download/details.aspx?id=54920 https://github.com/gordthompson/msaccessdb https://qiita.com/taro373/items/619e3385087279f72279 775 名前：デフォルトの名無しさん mailto:sage [2025/04/04(金) 17:43:27.50 ID:xkW8ZkKi.net] vbaでないならsqliteでよくない 776 名前：デフォルトの名無しさん mailto:sage [2025/04/04(金) 18:11:15.64 ID:VvPqqnTF.net] なら、ソッチで話題にしてりゃいいだけじゃんか 「DBなんか都合のいいのない？」「mdb･accdbでいいよ もしくはmde･accdeで」 っつーひと言で済む話 誰かがこの板にAccessスレ建てて、いくばくかの人達が参考にしてることの何がいけないんだか Access単体で開発環境整ってるんだし、なぜことさら別のIDEの話題してんだか意味わからん そのくせレポートがいいもの無いとか愚痴ボヤキはじめるし　Accessだけなら一向に困らんのだが 777 名前：デフォルトの名無しさん mailto:sage [2025/04/04(金) 20:00:14.25 ID:uy+C0MOy.net] >>776 勝手に一人でキレてるバカ発見(笑) 778 名前：デフォルトの名無しさん [2025/04/04(金) 22:44:01.18 ID:GYnqFS+F.net] >>776 ほんそれ 明確にわかりやすいバカがいついてるなぁw 779 名前：デフォルトの名無しさん mailto:sage [2025/04/05(土) 08:22:18.61 ID:o7jWaKkN.net] >>776 お前756と同じやつ？ 780 名前：デフォルトの名無しさん mailto:sage [2025/04/05(土) 09:07:26.55 ID:9ACWZmiM.net] そうです　私が756 761 763 767 773ですが、何か？ 781 名前：デフォルトの名無しさん [2025/04/05(土) 13:04:26.36 ID:Ur9Vw4Z1.net] >>776 マクロしか使ってないやつはそう考えるだろなω 782 名前：デフォルトの名無しさん mailto:sage [2025/04/05(土) 13:33:58.77 ID:o7jWaKkN.net] >>780 「開発環境」の定義を自分の中で整理してから発言しろ 783 名前：デフォルトの名無しさん [2025/04/05(土) 17:37:20.26 ID:9ACWZmiM.net] そのぐらいエディタ(VBE)の事だとアタマの中で読み替えろ コンパイラは不要だしデバッグもできるし　重箱の隅突っ突く事しか出来んのか いちいち呼び止めといて用事はそれだけなのか？　鬱陶しいにも程がある　巣に帰れ 784 名前：デフォルトの名無しさん [2025/04/05(土) 19:57:29.73 ID:TpoqeJku.net] 「DBなんか都合のいいのない？」「sqliteでいいよ もしくはsqliteで」 785 名前：デフォルトの名無しさん mailto:sage [2025/04/05(土) 21:16:47.43 ID:o7jWaKkN.net] >>783 おい、バカ おーい、バーカ ベーシックの勉強よりも日本語の勉強からしましょうね 定義って日本語覚えてきてね アクセスかじったじむやさんかなんかのあいてしてるひまはえすいーのひとにはないんですよーwww 786 名前：デフォルトの名無しさん mailto:sage [2025/04/05(土) 21:23:56.99 ID:yx70iKi8.net] スレタイすら読めない馬鹿が居着いてしまったか 787 名前：デフォルトの名無しさん [2025/04/05(土) 23:24:10.62 ID:d+s1BeKK.net] >>785 無様なバカ 788 名前：デフォルトの名無しさん [2025/04/11(金) 19:36:35.53 ID:i2PY9ZNn.net] WIX 789 名前：デフォルトの名無しさん [2025/04/21(月) 23:53:02.62 ID:CmWZglYO.net] 私はプログラマ歴20年ですが、お客様からUTF-8形式のデータを出力してほしいと言われました。 UTF-8って何ですか？ 790 名前：デフォルトの名無しさん mailto:sage [2025/04/22(火) 08:27:56.01 ID:41LYkh+W.net] こないだビジネスsoft板のExcel総合相談所で話題に成った奴だな 寄せ集めの、ほぼ野良に近いデータ掻き集められたものは、文字コードがめちゃくちゃなのもあるという TableからExcel出力とかじゃ無くて、一旦csvでUTF-8に限定して出力してみる それを元データと比較して文字化けとかしてないことを念入りにチェックしなさいと Excel上では見た目は見分け付かないけど、実は文字コードが全然違うものだった　とかはよくあるらしい データ入力時メイリオ使っててそれをPDF変換したものは勝手に中国語の同じ字に変換されてしまう、とか Macで入力された文字が、Unix系で(ry　とか、文字コードが勝手に変わる要因は様々らしい https://mevius.5ch.net/test/read.cgi/bsoft/1728342726/600-　一応この辺から辿ってくと変遷が分かるかも 791 名前：デフォルトの名無しさん [2025/04/23(水) 09:20:24.52 ID:yoO2Q6CW.net] 〜と〜

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef