[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
222: 2014/07/22(火)00:54 ID:aPcZAjL/(1/2) AAS
フォルダのアクセス権限の確認→念のため、everyoneに変更
ディスク負荷による動作停止の可能性→-1から0に変更したが変化なし
そもそも、動作環境は古いマシンで行われていたので
マシンスペックのリソース不足は考え難いと考えました。
もう少し、調べてみます。winsock.dllあたりが怪しいです。
ﾊﾟｹｯﾄｷｬｯﾌﾟとる以前に、ハードディスクの動作に変化が見られない。
223: 2014/07/22(火)02:35 ID:aPcZAjL/(2/2) AAS
お騒がせしました。
原因は、accessの使い方がわからないまま
クエリが非表示であることに気付かず、試そうとしたためです。
同じ環境をVM作成し、対象のクエリのSQLクエリが見えたのでそれをぱくりました。
以上
224(1): 2014/07/27(日)15:01 ID:1777RigF(1) AAS
基本的なことと思いますが、教えてください。
Public Function FuncSyohizei(ByVal kingaku As Double) As Double
FuncSyohizei = kingaku * 1.05
End Function
これを、イミディエイトウインドウから実行する場合
?FuncSyohizei(100.0)
・・・型が一致しません。ちなみに、?FuncSyohizei(100)でも、同じ。
省4
225: 2014/07/27(日)16:34 ID:fFsyojt4(1) AAS
? ＠FuncSyohizei(100.0)
226: 224 2014/07/27(日)18:14 ID:02SmaVb3(1) AAS
いろいろやってみて、解決しました。
フォームモジュールに、これを作ったのがいけなかったようです。
標準モジュールにコピペして、?FuncSyohizei(100)したら
105が出ました。
227(1): 2014/07/28(月)00:30 ID:ZjuZ26GB(1/2) AAS
Date, Now って
Functionじゃなく
Propertyなのな
228(1): 2014/07/28(月)02:29 ID:4Zda3n2L(1) AAS
>>227
そんな事ないと思うが
もしかしたらそう言う名前のプロパティを持つものもあるのかもしれんが
ちなみに、何のプロパティだ？
229: 2014/07/28(月)03:01 ID:ZjuZ26GB(2/2) AAS
>>228
オブジェクトブラウザ見てごらん
230: 2014/07/28(月)13:08 ID:hu7LkKIJ(1) AAS
VBAの標準関数って、VBA組み込みオブジェクトのメンバして実装されてるのか
しかし、メソッドとプロパティの使い分けの基準は謎だな
231(2): 2014/08/20(水)13:35 ID:qA3YOzZv(1) AAS
Access2003でwebスクレイピングしてます。
Dim objHTML As MSHTML.HTMLDocument
Dim objDoc As MSHTML.HTMLDocument
If (objHTML Is Nothing) Then Set objHTML = New MSHTML.HTMLDocument
Set objDoc = objHTML.createDocumentFromUrl(strURL, vbNullString)
ってな感じでタグでデータを拾いたいのと、速度を重視してMSHTMLを使ってやってます。
が、createDocumentFromUrlのところでクッキーのセキュリティ警告が出てしまいます。
省4
232(1): 2014/08/20(水)18:22 ID:aSpRdTpy(1) AAS
>>231
Windows再インストール後初めてプログラム実行したとき表示されたけど
許可して以降は出てないな。
233(2): 2014/08/21(木)00:46 ID:Ue/CPgyd(1/4) AAS
>>232
本当ですか…
とりあえずプライバシーの設定を最低にして全てのクッキーを受け入れるにしたら、でなくなりました。
が、少し怖い…
234(1): 2014/08/21(木)02:13 ID:nSwAzUL+(1) AAS
>>233
IEの設定を全リセットしても出ない。
Win7x64+IE10
235: 2014/08/21(木)02:28 ID:Ue/CPgyd(2/4) AAS
>>233
win7(32bit),ie11です。
今度クッキーとか履歴とか全部クリアして試します。
メッセージでくぐってもie5がってMSのサイトしかでないんですよね。
ちなみにat Homeの不動産情報サイトです。
236: 2014/08/21(木)02:29 ID:Ue/CPgyd(3/4) AAS
>>234
でした。
すんません。
237(1): 2014/08/21(木)02:32 ID:SlcBJ8S5(1) AAS
>>231
ちょっと状況違うみたいだけど
外部ﾘﾝｸ[html]:www.f3.dion.ne.jp
にある
objHTML.DesignMode = "on"
試してみた？
238: 2014/08/21(木)16:24 ID:Ue/CPgyd(4/4) AAS
>>237
231です。
これも見ていたのですが、オンにするとスクリプトが実行されないとあるように、
ほしい情報がとれなくなってしまいました。
コメントありがとうございました。
239: 2014/10/23(木)15:05 ID:RjBQcz8M(1) AAS
OLEオブジェクトにゼロデイ脆弱性、Microsoftが暫定対策プログラムを公開
外部ﾘﾝｸ[html]:www.forest.impress.co.jp
240(3): 2014/12/23(火)20:32 ID:n+XpzPMA(1/2) AAS
質問です。WIN7、ACCESS2010
初歩的な質問なのですが、
文字列を扱う変数では何文字の格納が可能でしょうか？
241(1): 2014/12/23(火)21:36 ID:M59ZuSy9(1) AAS
ｖｂａでgoogle driveにレポートをアップするやり方どこかに良いサンプルないかな。。。google driveのクライアントソフト入ってない場合でも使いたいんで。。。。
242(2): 2014/12/23(火)21:50 ID:W51mY81m(1) AAS
>>240
2Gまでだったと思うけどヘルプ確認してくれ
243(1): 2014/12/23(火)22:33 ID:n+XpzPMA(2/2) AAS
>>242
ありがとうございます。
では、500文字くらいはしょぼいレベルと捉えて良さそうですね。
244(1): 2014/12/24(水)03:21 ID:Yxp0O6RL(1) AAS
>>240,242-243
2010や64ビットバージョンで変わってなければ
固定長なら約 63KB だけどな
まあ、固定長文字列なんてめったに使う事ないけど
>>241
レポートのアップってのが具体的に何を指してるのかしらんが
そもそもVBAではHTTP通信とか直接サポートされてないから
245(1): 2014/12/24(水)22:57 ID:vBpiiQ3c(1) AAS
>>240で質問した者です。
変数に格納した、ただの文字列をテキストファイルに出力することは
可能でしょうか？
246(1): 2014/12/25(木)03:42 ID:c/bUBZQc(1/2) AAS
>>245
可能か不可能かっていうならもちろん可能だけど
やり方は色々あるぞ
純粋にVBAだけならPrint#だけど、あんまりこれ使ってるの見た事ないなｗ
ACCES的に考えると、１回テーブルに格納してテキスト書き出しじゃないかな
247(1): 2014/12/25(木)19:12 ID:wTh15/U7(1) AAS
大量のAccessファイル含め移動するのですが、リンクテーブルのリンク先の一括張り替え機能を実装したいのですが、ご教示いただけないでしょうか？
248: 2014/12/25(木)19:40 ID:/AazF+Ck(1) AAS
ADOXDB
249: 2014/12/25(木)20:14 ID:GnPnKi4m(1) AAS
>>246
ありがとうございます。
最終的に長めの一文をテキストファイルに出力するためだけに
ACCESSでテーブル作成したりクエリ組んだりしてるのです。
通常の使い方だとテーブルやクエリをエクスポートでいいんでしょうが
なんせ一文のみなので、printというのを試してみます。
250: 2014/12/25(木)22:18 ID:c/bUBZQc(2/2) AAS
>>247
DAOで
CurrentDb().TableDefs("テーブル名").Connect 書き換えてから
CurrentDb().TableDefs("テーブル名").RefreshLink
251: 2014/12/26(金)09:32 ID:4ShwS6Rf(1) AAS
マルチだよ
252(2): 2014/12/27(土)17:01 ID:Mse9t11G(1) AAS
>>244
レポートというかAccessから出力された成果物をGoogleDriveのクライアントソフトが
入っていない場合でもGoogleDriveにアップロードしたいということだったのでした。
そんなことをやる人もあまりいないみたいですね。
Pythonあたりでフィルをアップするプログラムを作ってアクセスから
ファイルパスを引数に持たせて実行させるようなイメージで考えてみようかとお思います。
もっとかんたんにできるぉ。。っていう神がいれば教えてたも。。。
253(1): 2014/12/27(土)18:42 ID:xcx8bYiC(1) AAS
>>252
VBAはHTTP通信サポートしてないから、どっちにしろVBAだけではできんが
俺ならC#（かVB.NET）でDLL作ってCOM公開だな
C#のライブラリあるっぽいから、ほぼそれそのままCOM公開する形で行ける気がする
探せば誰かすでに作ってるかもしれんが
254(1): 2014/12/27(土)18:46 ID:MwQYLNUR(1) AAS
>>252
pypiで検索してみ
255: 2014/12/27(土)21:43 ID:N3QWsaPU(1) AAS
情報ありがとうございました。
>>253
VisualStudioもPro同等品がフリーの時代ですからね。
勉強してみたいのですが、時間（＆気力）が乏しく、、、まずは探してみます。
>>254
Python自体ほぼほぼ初心者なんで、、、、
探してみます。お勧めとかありませんか？
256(1): 2014/12/28(日)01:48 ID:hWEKpKUx(1) AAS
馬鹿には無理
257: 2014/12/29(月)18:29 ID:EuG97dxJ(1) AAS
>>256
馬鹿なりにいろいろ考えますた。
GoogleCLで何とかできそうです。
258: 2015/01/06(火)15:02 ID:L0NjGint(1) AAS
AC2000くらいぶりに2013で作るんだが、変わりすぎてて困るなこれ
259: 2015/01/07(水)12:14 ID:HwRBQ0K9(1) AAS
お前の頭が老化してるんだよ
260: 2015/01/08(木)11:57 ID:3EyWpOD1(1/2) AAS
１）のデータの県名を元に、２）のように並べたいのですが、アクセスでやる方法はありますか？
１）
千葉 成田 空港
埼玉 秩父 蕎麦
埼玉 川越 イモ
栃木 日光 華厳
千葉 浦安 ネズミ
省9
261: 2015/01/08(木)12:16 ID:qIfkunGX(1/3) AAS
浦安とネズミーランドはどこに入れば良い？
262(1): 2015/01/08(木)13:16 ID:3EyWpOD1(2/2) AAS
すいません。書き直します。
１）のデータの県名を元に、２）のように並べたいのですが、アクセスでやる方法はありますか？
１）
千葉 成田 空港
埼玉 秩父 蕎麦
埼玉 川越 イモ
栃木 日光 華厳
省10
263: 2015/01/08(木)13:22 ID:qIfkunGX(2/3) AAS
浦安とネズミーランドだけ順番入れ替える基準は？
264(1): 2015/01/08(木)16:12 ID:qIfkunGX(3/3) AAS
出来たからおしまい
外部ﾘﾝｸ:paiza.io
265: 2015/01/09(金)08:12 ID:rJhs2R4+(1) AAS
>>264
Runtime Errorがでました
266: 2015/01/09(金)12:46 ID:Azg0g72t(1) AAS
>>262
横展開の数が固定なら
外部ﾘﾝｸ:social.msdn.microsoft.com
増減するならVBAでワークテーブルに入れていくしかないと思う
267(1): 2015/02/19(木)08:17 ID:CSqQB465(1) AAS
質問です。
数万レコード程度のログファイルの集計（抽出）をしたいです。
抽出条件は、レコードに担当者と時刻が入っていて、
その時刻の＋１分以上かつ＋５分以下で、同じ担当者の物です。
最終的には、条件にあてはまるレコードの１つ目と２つ目以降という感じで並べたいです。
今はEXCELのCOUNTIFS関数で半分手作業でやってますが、
かなり手間なのでできればAccessVBAでやりたいです。
省1
268: 2015/02/19(木)10:34 ID:IO29hpKb(1) AAS
したいことは判りました。
次のかたどうぞ。
269: 2015/02/19(木)16:00 ID:1peKWp+p(1) AAS
わからないなら黙ってろよアホか
で、vbaからcountifを呼び出せばいいんじゃねえの？
思いついただけで試してないが
270: 2015/02/19(木)16:34 ID:4dFHTBvU(1) AAS
>>267
VBAは必要ないでしょ。なにかその後バッチ処理をしてるっていう
なら別だが。
普通に該当のテーブルを元にクエリつくって、パラメータクエリを
作る。フォームを用意して、入力させてその値をパラメータとして
クエリの条件式に入れる。
１分以上５分以下という条件をbetween andで書いて２つパラメータ
省2
271(1): 2015/02/25(水)19:46 ID:u8BX93H2(1) AAS
定時で帰ってるのがばれるじゃないか
272: 2015/02/27(金)10:17 ID:ILfHzu6L(1) AAS
>>271
密度が違いますと言い張れば大丈夫。
273(1): 2015/04/11(土)08:59 ID:5EmI+Hzg(1/2) AAS
Excelファイルで(表現上CSVで表現してますが、XLSXファイルの１つのシート上のデータだと思ってください。)
999,999,AAA,999・・・・・・
999,999,BBB,999・・・・・・
999,C ,999,999・・・・・・
999,999,DDD,999・・・・・・
という４件のデータがあるとします。
これを、SELECT * FROM のクエリをDao.Recordsetで読み込みたいのですが、
省3
274: 2015/04/11(土)09:00 ID:5EmI+Hzg(2/2) AAS
RS.Fields(2).Value
を
RS.Fields(1).Value
に訂正。m(_ _)m
275: 2015/04/11(土)18:29 ID:hFjl3X66(1) AAS
>>273
落ちる所のコードが無いから分からないけど
dim aaa as long
aaa=RS.Fields(1).Value
みたいな使い方しているなら
dim aaa as long
dim bbb as string
省3
276(1): 2015/04/13(月)17:40 ID:gbfuHaFd(1/2) AAS
Access2013です。
いろいろと作っているうちに突然コントロールソースに持っているユーザー定義関数が働かなくなり、#NAMEのエラーが出る様になりました。
ファイルが壊れたのでしょうか？
277(1): 2015/04/13(月)18:03 ID:gbfuHaFd(2/2) AAS
>>276
自己解決しました。
関数名を英数字のみにしたら動きました。
ただ、動かなくなったきっかけがわからない。
278: 2015/04/14(火)07:53 ID:0HPBZIqn(1) AAS
>>277
そもそも関数名に日本語使うそのセンスを疑う
279: 2015/04/14(火)15:41 ID:b8Z+Xie9(1) AAS
だってイベントプロシージャは日本語名で動くじゃん
280: 2015/04/14(火)19:08 ID:hqkBvwrA(1) AAS
漢字カタカナを関数名にグイグイ使ってました。まあ今日も明日も使っちゃうんですが。
281(1): 2015/04/15(水)22:25 ID:15xIuB57(1) AAS
IF文についてなのですが、
IIf(A = 0 Or B = 0 Or C = 0 And D = 0 ...
という書き方の場合、「Aが0」もしくは「Bが0」もしくは「Cが0、かつDも0」のいずれかの場合、
という条件判定になるという考え方で良いでしょうか？
282(1): 2015/04/16(木)08:12 ID:gzgbYtwZ(1) AAS
>>281
一緒といえば一緒ですがIF？IIF？どちらでしょう？
> という書き方の場合、「Aが0」もしくは「Bが0」もしくは「Cが0、かつDも0」のいずれかの場合、
> という条件判定になるという考え方で良いでしょうか？
そうですね
ハッキリさせたい時には()でくくると分かり易くなりますよ
こんな風に
省4
283: 2015/04/16(木)13:45 ID:OCYKBdEo(1) AAS
>>282
ありがとうございます、安心しました
284(1): 2015/04/18(土)01:50 ID:pucpWveX(1) AAS
ExcelVBAをほんの少しいじった程度ですが、同じことがAccessVBAでもできますか？
たぶんできたとして、データアクセスが目的ならExcelよりAccessのほうが早いのかな。
285: 2015/04/18(土)03:55 ID:j/wjXDDU(1) AAS
WSH(VBScript, JScript), PowerShell からでも、
呼び出せるよ
Accessはデータベースだから、
Excelよりもデータの整合性は、より安全で、
何々明細とかを扱う、本格的な業務に適している
286: 2015/04/18(土)07:06 ID:elh8iJrV(1) AAS
>>284
Excel にデータエクスポートして開いてピボット集計して保管してzipにしてメール添付して送信、とかExcelの外から出来る。
287(1): 2015/04/18(土)09:55 ID:QuJhi9bL(1) AAS
エクセルの65535行制限って解けたんだっけ？
288: 2015/04/18(土)18:09 ID:05gN+8sT(1/2) AAS
xlsxファイルからDAO.RecordSetでデータを取り込んでいます
dim A
Do Until Rs.EOF=True
For i=1 to 10
A=Rs.Fields(i).Value
InsertRS.Addnew
InsertRS.Fields(i).Value=Rs.Filds(i).Value
省10
289: 2015/04/18(土)19:59 ID:C1NhVGiv(1) AAS
それ以前にAddnewしてる位置がおかしい気がするんだが
290: 2015/04/18(土)21:20 ID:05gN+8sT(2/2) AAS
書き間違えました。
実際は、Forのまえにaddnewしてnextのあとにupdateしてます。
291: 2015/04/19(日)02:01 ID:WMQbPkw9(1) AAS
書き間違いとか実際のコードじゃないもの出されてもなぁ
お前の勘違いの可能性が圧倒的に高いと思うぞ
292: 2015/04/19(日)07:19 ID:8d6tresr(1) AAS
事実、
ワンクッションのある無しで発生するんです。
293: 2015/04/19(日)09:54 ID:S72BOy6b(1) AAS
フィールドが100個くらいあるエクセルデータを同じように取り込んだときに経験したことある
ケド、、、、原因調べないでおわっちゃたなｗそーいえばｗｗ
原因を探るためにDebug.Print入れたら登録がされるようになって、原因解明より先に仕事・・・・となって、そーいえばそのままｗｗ
294: 2015/04/20(月)08:09 ID:ZV6mzr+5(1) AAS
>>287
ここ、Accessスレですよ。
それとGoogleで調べれば分かるような内容の質問はどこのスレでも
禁止です。頭に叩き込んでおくといいですよ。
295: 2015/05/02(土)06:47 ID:cQx6YORh(1) AAS
中文(簡体)文字のファイル名をダイアログで取得して、コピーしたり開いたりしたいんですが、"見つかりません"と言うメッセージに。
中文文字の入ったファイル名やフォルダー名を取り扱う方法かヒント頂けないですか。
296: 2015/05/14(木)12:50 ID:No/KpZZc(1) AAS
二つ教えてください。
1コンボボックスコントロールの▼が反応しない時がある
2リストボックスコントロールAからデータを取得するとき
A.BoundColumn=1
変数=A.ItemData(A.ListIndex)
A.BoundColumn=2
変数=A.ItemData(A.ListIndex)
省4
297(3): 2015/05/16(土)10:31 ID:s10/F9Sk(1/2) AAS
Accessって新しくなればなるほど、不安定化してない？
なんとなくだけど
298: 2015/05/16(土)12:20 ID:mEQOWf9/(1) AAS
>>297
激しく同意
Accessも立ち位置が怪しくなりつつあるのかなって。。。。
今の時代ならForguncyみたいなのがオフィスファミリーのラインナップに
ほしいとこだね。
299: 2015/05/16(土)14:09 ID:/YqkcKmb(1) AAS
>>297
ど安定だと思ってた。難しい事しないからかもだけど。
300(1): 2015/05/16(土)17:59 ID:s10/F9Sk(2/2) AAS
/decompileオプションをつけてファイルを開くなんて、昔はなかったのになぁ・・・。
301(1): 2015/05/16(土)22:55 ID:xhmYU3Qu(1) AAS
>>297
俺の体感ではすくなくとも2007までは順調に安定化してるけど
それ以降は使ってないから知らん
>>300
/decompileっていつからあるんだろうな
昔は全オブジェクトを別mdbにエクスポートとか結構頻繁にやってた記憶が
302: 2015/05/17(日)10:45 ID:vGSHuJcU(1) AAS
>>301
97くらいからはあったはず。
でも/decompileを使うようになったのは2003以降かなぁ？
むかしはmdbファイル丸ごと見事に壊れたから/decompileすら登場の出番が無く
今はVBAを入れるとスグ壊れるから/decompileが効力を発する機会が増えた
うーん・・・改善してるのかもなｗ
ただ開発をやっている人から見るとVBAをいじってる最中の異常終了が増えた
省1
上下前次1-新書関写板覧索設栞歴
あと 700 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s