Access VBA 質問スレ Part1

**デフォルトの名無しさん** · 2012/02/06(月) 22:53:46.88

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

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

★2 AccessのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 AccessのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★5 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

関連スレ
Excel VBA 質問スレ Part23
http://toro.2ch.net/test/read.cgi/tech/1327763113/l50

**デフォルトの名無しさん** · 2014/02/12(水) 15:25:40.29

>>199
MySQLの独自実装か？
SQL ServerにもPostgreSQLにもないが・・・。

どんな動きかググってまで答える気にならない。

**デフォルトの名無しさん** · 2014/02/16(日) 11:19:02.87

>>202
>>204
ググレカス

**デフォルトの名無しさん** · 2014/02/27(木) 09:57:10.80

練習がてらVBAでユーザー定義関数をつくろうかと思ったんですが思った通りのものが作れず困っています。
というか簡略化できないもんかと思っているわけですが。

OS XP
Access 2003

Function AAA(Parm01,Parm02,Parm03...) AS String ’parmは最終的にParm24までできますがここでは簡略化

If Parm01 = "S" or Parm01 = "A" then
　　　　　AAA = "1"
Exit Function
Else
　　　　　AAA = "0"
end if

End function

とすごく単純なものなのですが、Parm01～Parm03（実際にはParmは24個）にはそれぞれS・A・B・Cのいずれかが入っているので
それを数値に変換する仕組みを作りたいのです。
SかAだったら1を。それ以外（B・C）だったら０を返す。
上には記載していませんが最終的にはParmの中身を全て合計した値を返すようにいじる予定です。

で、問題なんですが、IF文の中でParmの中身を判定しているわけですが、これをParmの数だけ作るのはなんか美しくない。
Parm01～24をまとめて判定するにはどのようにするのが美しいでしょう。

ご教授頂ければ嬉しいです。

**デフォルトの名無しさん** · 2014/02/27(木) 11:20:17.13

>>206
まず２４個も引数取るのを美しいか疑問に思えよ
その２４個をまとめたコレクションなり配列なり用意するとか
その２４個にあまり関連がないないならParamArrayつかえ
（その前提でまとめて同じ引数にするのおかしいけどな）

**デフォルトの名無しさん** · 2014/02/27(木) 11:34:23.61

>>207
ParamArrayというのがあるんですね。ありがとうございます。調べてみます！

美しさに関しては超ごもっともなんですが、如何せん元のデータをいじる権限がなくてですね。
元データの開発者をぐーで殴りたいレベル。

識別コード（一意）｜24ヶ月前｜23ヶ月前｜22ヶ月前｜21ヶ月前｜・・・｜当月｜

ってな感じなんですよ。
んでこの○ヶ月前ってのがParmになるんですけどコレクションにせよ配列にせよ、結局は同じことなので
AAA（24ヶ月前,...当月）ってやっちまったほうが早いかなと。

大変助かりました。ありがとうございます。

**デフォルトの名無しさん** · 2014/02/27(木) 14:06:57.28

VBAにそんなもんあんのか？構造体使うのが普通だろ
ただしVBAの構造体は遅いけどな

**デフォルトの名無しさん** · 2014/02/27(木) 14:09:36.05

有りますね、サーセンｗ

**デフォルトの名無しさん** · 2014/02/27(木) 15:11:10.30

ACCESSなら元データはテーブルじゃないのか
だったらレコードセットなり渡せば済む話だとおもうが

**デフォルトの名無しさん** · 2014/03/12(水) 22:15:26.86

設計の悪いＤＢだとたまに見る形だな
一々縦横変換とかしなきゃならんやつ

**デフォルトの名無しさん** · 2014/06/30(月) 22:53:54.92

スイマセン。エクセルからACCESSのテーブルにADO接続してエクセルの行(256文字以上のテキスト)をINSERTしようとしています。ACCESS側で受けるフィールドをメモ型にしましたがエクセルからINSERTしても255文字以内しか残りません。

**デフォルトの名無しさん** · 2014/06/30(月) 22:54:27.08

続きです。
何かすっごく基本的な凡ミスな気がしてるのですが、何かここらあたりありますか？
エスパーな質問で申し訳ないです。。

**デフォルトの名無しさん** · 2014/07/01(火) 00:30:57.04

メモ型はSQL使うと切れたり頭の255しか判定してくれなかったりするからなあ
エクスポートインポートとかはバグで切れちゃうし
普通に文字列INSERTで入るか試してみて

**デフォルトの名無しさん** · 2014/07/21(月) 20:33:39.99

171 名前：デフォルトの名無しさん[] 投稿日：2014/07/17(木) 02:49:51.87 ID:TFQGtdi0
http://www.ynsk.co.jp/nsk/knowhow/sendmail/sendmail5.htm

こちらのサイトに公開されてるアクセスのコードなんですが
Windowsの標準DLLを利用して、メールを受信、送信するプログラムを
実行したいのですが、うまく動かせません。

他のスレッドで質問しましたが、こちらに誘導されてきました。
無償で公開されてるソースコードが動かないのですが、わかる有志の方、いらっしゃいましたら
使い方おしえてください。

元スレッド：Excel VBA 質問スレ Part34

**デフォルトの名無しさん** · 2014/07/21(月) 20:44:10.09

どう動かないのかぐらい書けや

**デフォルトの名無しさん** · 2014/07/21(月) 21:01:38.49

●ＭＤＢファイルの内容
　・　メールユーザ（テーブル）……利用するメールアカウントの情報を保存します。
　※　以下のように設定して下さい。
　　　　　メールアドレス
　　　　　POP3サーバ
　　　　　ユーザ
　　　　　パスワード
　　　　　SMTPサーバ
　　　　　リターン　←　受信時にサーバなどから通知されるメッセージが設定されます。
　　　　　受信要求　←　0(受信しない)または-1(受信する)を設定して下さい。
　　　　　仮受信　←　-1(メールをサーバから消さない)または0(消す)を設定して下さい。

上記の説明通り、テーブルに必要事項を記入しましたが反応しません。
コンパイルはしました。UACを切ってファイルのアクセス権限をeveryoneに変更しました。。
動作確認済み環境が、Win2000とXPProのようで、office97、2000では動作の確認が取れてるみたいです。

自分の環境：Win7pro office2010pro

**デフォルトの名無しさん** · 2014/07/21(月) 21:04:27.24

>>218
反応しないってどういうこと？
テーブルにセットしただけでは何も起こらなくて当然だぞ

**デフォルトの名無しさん** · 2014/07/21(月) 21:44:14.81

メール受信（更新クエリというのが有るようですが、そのクエリが見当たりません。初歩的なところで止まっているような気はするのですが、外部からのデータ受ける部分のdllがwin7で動作できない理由と読んでるのですが。ご教授願います。

**デフォルトの名無しさん** · 2014/07/21(月) 22:38:52.22

　・　B_POP3（モジュール）……メールの受信とデコードを行います。
　※　このモジュールを実行するためには、作業用のフォルダが必要です。
　　　　B_POP3（モジュール）の中のコーディング
　　　　「Private Const BWorkDir As String = "c:\maildata"」と
　　　　「Private Const BWorkTempDir As String = "c:\maildata\temp"」で
　　　　作業用のフォルダを指定しています。
　　　　ダウンロードしたままの設定で操作する場合、
　　　　Cドライブ直下にmaildataというフォルダとmaildataフォルダのなかに
　　　　tempというフォルダを作成して下さい。
　　　　別のフォルダを利用する場合、フォルダの指定を変更して下さい。
　　　　「Private Const c_WorkDir非消去 As Integer = -1」というコーディングがあります。
　　　　-1のままだと、1メールごとに上記作業用のフォルダの中身を削除しません。
　　　　1ユーザのメールが複数あって、それを受信した場合、作業用のフォルダには全件分のファイルを残しています。
　　　　デバック時に1ユーザごとに受信すれば、中間結果を追えるので、有効なことがあります。
　　　　ファイルには、「mail1.txt」,「mail2.txt」.....などの番号を付けています。
　　　　ファイルと受信したメールを照合させるため、テーブルに保存したメールの「件名」にも番号を付けています。
　　　　0にすると、作業用のフォルダには最後の1件分のファイルしか残りません。
　　　　安定した運用段階に入れば、0にした方がディスク負荷は小さくなります

**デフォルトの名無しさん** · 2014/07/22(火) 00:54:13.17

フォルダのアクセス権限の確認→念のため、everyoneに変更
ディスク負荷による動作停止の可能性→-1から0に変更したが変化なし
そもそも、動作環境は古いマシンで行われていたので
マシンスペックのリソース不足は考え難いと考えました。

もう少し、調べてみます。winsock.dllあたりが怪しいです。
ﾊﾟｹｯﾄｷｬｯﾌﾟとる以前に、ハードディスクの動作に変化が見られない。

**デフォルトの名無しさん** · 2014/07/22(火) 02:35:29.84

お騒がせしました。
原因は、accessの使い方がわからないまま
クエリが非表示であることに気付かず、試そうとしたためです。
同じ環境をVM作成し、対象のクエリのSQLクエリが見えたのでそれをぱくりました。

以上

**デフォルトの名無しさん** · 2014/07/27(日) 15:01:49.68

基本的なことと思いますが、教えてください。

Public Function FuncSyohizei(ByVal kingaku As Double) As Double
FuncSyohizei = kingaku * 1.05
End Function

これを、イミディエイトウインドウから実行する場合
?FuncSyohizei(100.0)
・・・型が一致しません。ちなみに、?FuncSyohizei(100)でも、同じ。
?FuncSyohizei 100
→ 100 ?FuncSyohizeiは、文字列とみなされ、無視された？。

ただしく、100と引数を渡したら、105と返ってくるようにするには
イミディエイトウインドウに、どう入力すればいいんでしょうか。

**デフォルトの名無しさん** · 2014/07/27(日) 16:34:57.58

? ＠FuncSyohizei(100.0)

**224** · 2014/07/27(日) 18:14:36.50

いろいろやってみて、解決しました。

フォームモジュールに、これを作ったのがいけなかったようです。
標準モジュールにコピペして、?FuncSyohizei(100)したら
105が出ました。

**デフォルトの名無しさん** · 2014/07/28(月) 00:30:37.26

Date, Now って
Functionじゃなく
Propertyなのな

**デフォルトの名無しさん** · 2014/07/28(月) 02:29:49.00

>>227
そんな事ないと思うが
もしかしたらそう言う名前のプロパティを持つものもあるのかもしれんが
ちなみに、何のプロパティだ？

**デフォルトの名無しさん** · 2014/07/28(月) 03:01:52.49

>>228
オブジェクトブラウザ見てごらん

**デフォルトの名無しさん** · 2014/07/28(月) 13:08:38.66

VBAの標準関数って、VBA組み込みオブジェクトのメンバして実装されてるのか
しかし、メソッドとプロパティの使い分けの基準は謎だな

**デフォルトの名無しさん** · 2014/08/20(水) 13:35:49.89

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のところでクッキーのセキュリティ警告が出てしまいます。
http://imgur.com/41wmxYi
回避する方法はないでしょうか？
インターネットオプションをいろいろといじってみたけど、お手上げ状態です。

URLを変更して呼び出すたびに毎回出てくるので、処理を開始して放置しておくことができません。

**デフォルトの名無しさん** · 2014/08/20(水) 18:22:09.72

>>231
Windows再インストール後初めてプログラム実行したとき表示されたけど
許可して以降は出てないな。

**デフォルトの名無しさん** · 2014/08/21(木) 00:46:10.94

>>232
本当ですか…

とりあえずプライバシーの設定を最低にして全てのクッキーを受け入れるにしたら、でなくなりました。

が、少し怖い…

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

>>233
IEの設定を全リセットしても出ない。
Win7x64+IE10

**デフォルトの名無しさん** · 2014/08/21(木) 02:28:53.95

>>233
win7(32bit),ie11です。

今度クッキーとか履歴とか全部クリアして試します。
メッセージでくぐってもie5がってMSのサイトしかでないんですよね。

ちなみにat Homeの不動産情報サイトです。

**デフォルトの名無しさん** · 2014/08/21(木) 02:29:20.42

>>234
でした。
すんません。

**デフォルトの名無しさん** · 2014/08/21(木) 02:32:53.11

>>231
ちょっと状況違うみたいだけど
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsMSHTML.html
にある
objHTML.DesignMode = "on"
試してみた？

**デフォルトの名無しさん** · 2014/08/21(木) 16:24:32.22

>>237
231です。
これも見ていたのですが、オンにするとスクリプトが実行されないとあるように、
ほしい情報がとれなくなってしまいました。

コメントありがとうございました。

**デフォルトの名無しさん** · 2014/10/23(木) 15:05:01.01

OLEオブジェクトにゼロデイ脆弱性、Microsoftが暫定対策プログラムを公開
http://www.forest.impress.co.jp/docs/news/20141022_672480.html

**デフォルトの名無しさん** · 2014/12/23(火) 20:32:46.30

質問です。WIN7、ACCESS2010
初歩的な質問なのですが、
文字列を扱う変数では何文字の格納が可能でしょうか？

**デフォルトの名無しさん** · 2014/12/23(火) 21:36:03.42

ｖｂａでgoogle driveにレポートをアップするやり方どこかに良いサンプルないかな。。。google driveのクライアントソフト入ってない場合でも使いたいんで。。。。

**デフォルトの名無しさん** · 2014/12/23(火) 21:50:29.64

>>240
2Gまでだったと思うけどヘルプ確認してくれ

**デフォルトの名無しさん** · 2014/12/23(火) 22:33:08.77

>>242
ありがとうございます。
では、500文字くらいはしょぼいレベルと捉えて良さそうですね。

**デフォルトの名無しさん** · 2014/12/24(水) 03:21:35.84

>>240,242-243
2010や64ビットバージョンで変わってなければ
固定長なら約 63KB だけどな
まあ、固定長文字列なんてめったに使う事ないけど

>>241
レポートのアップってのが具体的に何を指してるのかしらんが
そもそもVBAではHTTP通信とか直接サポートされてないから

**デフォルトの名無しさん** · 2014/12/24(水) 22:57:10.21

>>240で質問した者です。
変数に格納した、ただの文字列をテキストファイルに出力することは
可能でしょうか？

**デフォルトの名無しさん** · 2014/12/25(木) 03:42:32.22

>>245
可能か不可能かっていうならもちろん可能だけど
やり方は色々あるぞ
純粋にVBAだけならPrint#だけど、あんまりこれ使ってるの見た事ないなｗ
ACCES的に考えると、１回テーブルに格納してテキスト書き出しじゃないかな

**デフォルトの名無しさん** · 2014/12/25(木) 19:12:54.77

大量のAccessファイル含め移動するのですが、リンクテーブルのリンク先の一括張り替え機能を実装したいのですが、ご教示いただけないでしょうか？

**デフォルトの名無しさん** · 2014/12/25(木) 19:40:21.24

ADOXDB

**デフォルトの名無しさん** · 2014/12/25(木) 20:14:11.26

>>246
ありがとうございます。
最終的に長めの一文をテキストファイルに出力するためだけに
ACCESSでテーブル作成したりクエリ組んだりしてるのです。
通常の使い方だとテーブルやクエリをエクスポートでいいんでしょうが
なんせ一文のみなので、printというのを試してみます。

**デフォルトの名無しさん** · 2014/12/25(木) 22:18:03.24

>>247
DAOで
CurrentDb().TableDefs("テーブル名").Connect 書き換えてから
CurrentDb().TableDefs("テーブル名").RefreshLink

**デフォルトの名無しさん** · 2014/12/26(金) 09:32:55.94

マルチだよ

**デフォルトの名無しさん** · 2014/12/27(土) 17:01:11.46

>>244
レポートというかAccessから出力された成果物をGoogleDriveのクライアントソフトが
入っていない場合でもGoogleDriveにアップロードしたいということだったのでした。

そんなことをやる人もあまりいないみたいですね。
Pythonあたりでフィルをアップするプログラムを作ってアクセスから
ファイルパスを引数に持たせて実行させるようなイメージで考えてみようかとお思います。

もっとかんたんにできるぉ。。っていう神がいれば教えてたも。。。

**デフォルトの名無しさん** · 2014/12/27(土) 18:42:52.92

>>252
VBAはHTTP通信サポートしてないから、どっちにしろVBAだけではできんが
俺ならC#（かVB.NET）でDLL作ってCOM公開だな
C#のライブラリあるっぽいから、ほぼそれそのままCOM公開する形で行ける気がする
探せば誰かすでに作ってるかもしれんが

**デフォルトの名無しさん** · 2014/12/27(土) 18:46:25.06

>>252
pypiで検索してみ

**デフォルトの名無しさん** · 2014/12/27(土) 21:43:55.93

情報ありがとうございました。

>>253
VisualStudioもPro同等品がフリーの時代ですからね。
勉強してみたいのですが、時間（＆気力）が乏しく、、、まずは探してみます。

>>254
Python自体ほぼほぼ初心者なんで、、、、
探してみます。お勧めとかありませんか？

**デフォルトの名無しさん** · 2014/12/28(日) 01:48:08.62

馬鹿には無理

**デフォルトの名無しさん** · 2014/12/29(月) 18:29:45.70

>>256
馬鹿なりにいろいろ考えますた。
GoogleCLで何とかできそうです。

**デフォルトの名無しさん** · 2015/01/06(火) 15:02:29.70

AC2000くらいぶりに2013で作るんだが、変わりすぎてて困るなこれ

**デフォルトの名無しさん** · 2015/01/07(水) 12:14:43.42

お前の頭が老化してるんだよ

**デフォルトの名無しさん** · 2015/01/08(木) 11:57:49.05

１）のデータの県名を元に、２）のように並べたいのですが、アクセスでやる方法はありますか？

１）
千葉　成田　空港
埼玉　秩父　蕎麦
埼玉　川越　イモ
栃木　日光　華厳
千葉　浦安　ネズミ
埼玉　秩父　三峯
栃木　日光　東照宮
栃木　宇都宮　餃子
千葉　館山　菜の花

　↓
２）
千葉　成田　空港　館山　菜の花
埼玉　秩父　蕎麦　川越　イモ　秩父　三峯
栃木　日光　華厳　日光　東照宮　宇都宮　餃子

**デフォルトの名無しさん** · 2015/01/08(木) 12:16:44.21

浦安とネズミーランドはどこに入れば良い？

**デフォルトの名無しさん** · 2015/01/08(木) 13:16:48.72

すいません。書き直します。

１）のデータの県名を元に、２）のように並べたいのですが、アクセスでやる方法はありますか？

１）
千葉　成田　空港
埼玉　秩父　蕎麦
埼玉　川越　イモ
栃木　日光　華厳
千葉　浦安　ネズミ
埼玉　秩父　三峯
栃木　日光　東照宮
栃木　宇都宮　餃子
千葉　館山　菜の花

　↓
２）
千葉　成田　空港　館山　菜の花　浦安　ネズミ
埼玉　秩父　蕎麦　川越　イモ　秩父　三峯
栃木　日光　華厳　日光　東照宮　宇都宮　餃子

**デフォルトの名無しさん** · 2015/01/08(木) 13:22:02.26

浦安とネズミーランドだけ順番入れ替える基準は？

**デフォルトの名無しさん** · 2015/01/08(木) 16:12:11.95

出来たからおしまい
https://paiza.io/projects/kXqWvxUj1PG97Z7Vq1KNXA

**デフォルトの名無しさん** · 2015/01/09(金) 08:12:06.75

>>264
Runtime Errorがでました

**デフォルトの名無しさん** · 2015/01/09(金) 12:46:37.92

>>262
横展開の数が固定なら
https://social.msdn.microsoft.com/Forums/ja-JP/cf79c817-f15e-4375-8d9b-95990b2d00de/accesssql?forum=vbajp

増減するならVBAでワークテーブルに入れていくしかないと思う

**デフォルトの名無しさん** · 2015/02/19(木) 08:17:57.69

質問です。
数万レコード程度のログファイルの集計（抽出）をしたいです。

抽出条件は、レコードに担当者と時刻が入っていて、
その時刻の＋１分以上かつ＋５分以下で、同じ担当者の物です。
最終的には、条件にあてはまるレコードの１つ目と２つ目以降という感じで並べたいです。

今はEXCELのCOUNTIFS関数で半分手作業でやってますが、
かなり手間なのでできればAccessVBAでやりたいです。

よろしくお願いします。

**デフォルトの名無しさん** · 2015/02/19(木) 10:34:22.43

したいことは判りました。

次のかたどうぞ。

**デフォルトの名無しさん** · 2015/02/19(木) 16:00:09.30

わからないなら黙ってろよアホか

で、vbaからcountifを呼び出せばいいんじゃねえの？
思いついただけで試してないが

**デフォルトの名無しさん** · 2015/02/19(木) 16:34:11.57

>>267
VBAは必要ないでしょ。なにかその後バッチ処理をしてるっていう
なら別だが。

普通に該当のテーブルを元にクエリつくって、パラメータクエリを
作る。フォームを用意して、入力させてその値をパラメータとして
クエリの条件式に入れる。

１分以上５分以下という条件をbetween andで書いて２つパラメータ
を時刻のカラムに入れる。これで抽出は完了。SQLでやってもいい
んだがそこまでは必要ないでしょ。手軽にできるし。

**デフォルトの名無しさん** · 2015/02/25(水) 19:46:25.88

定時で帰ってるのがばれるじゃないか

**デフォルトの名無しさん** · 2015/02/27(金) 10:17:16.72

>>271
密度が違いますと言い張れば大丈夫。

**デフォルトの名無しさん** · 2015/04/11(土) 08:59:32.35

Excelファイルで(表現上CSVで表現してますが、XLSXファイルの１つのシート上のデータだと思ってください。)

999,999,AAA,999・・・・・・
999,999,BBB,999・・・・・・
999,C　 ,999,999・・・・・・
999,999,DDD,999・・・・・・

という４件のデータがあるとします。
これを、SELECT * FROM のクエリをDao.Recordsetで読み込みたいのですが、
Fileds(1)のところのタイプは数値型。
ここで、３行目のデータを見に行くと、フィールドの型が数値型なのに「C」が入っているためRS.Fields(2).Valueを参照しようとすると異常終了してしまいます。
全部のフィールドを強制的に文字列型で見る方法はないのでしょうか？

**デフォルトの名無しさん** · 2015/04/11(土) 09:00:28.88

RS.Fields(2).Value
を
RS.Fields(1).Value
に訂正。m(_　_)m

**デフォルトの名無しさん** · 2015/04/11(土) 18:29:40.40

>>273
落ちる所のコードが無いから分からないけど
dim aaa as long
aaa=RS.Fields(1).Value
みたいな使い方しているなら
dim aaa as long
dim bbb as string
bbb=RS.Fields(1).Value
bbbを数値判定してから本来のaaaに取得
判定方法はIsNumericやCIntやCLngなど

**デフォルトの名無しさん** · 2015/04/13(月) 17:40:35.62

Access2013です。

いろいろと作っているうちに突然コントロールソースに持っているユーザー定義関数が働かなくなり、#NAMEのエラーが出る様になりました。

ファイルが壊れたのでしょうか？

**デフォルトの名無しさん** · 2015/04/13(月) 18:03:17.07

>>276
自己解決しました。
関数名を英数字のみにしたら動きました。
ただ、動かなくなったきっかけがわからない。

**デフォルトの名無しさん** · 2015/04/14(火) 07:53:37.48

>>277
そもそも関数名に日本語使うそのセンスを疑う

**デフォルトの名無しさん** · 2015/04/14(火) 15:41:26.89

だってイベントプロシージャは日本語名で動くじゃん

**デフォルトの名無しさん** · 2015/04/14(火) 19:08:51.74

漢字カタカナを関数名にグイグイ使ってました。まあ今日も明日も使っちゃうんですが。

**デフォルトの名無しさん** · 2015/04/15(水) 22:25:26.57

IF文についてなのですが、
IIf(A = 0 Or B = 0 Or C = 0 And D = 0 ...
という書き方の場合、「Aが0」もしくは「Bが0」もしくは「Cが0、かつDも0」のいずれかの場合、
という条件判定になるという考え方で良いでしょうか？

**デフォルトの名無しさん** · 2015/04/16(木) 08:12:50.91

>>281
一緒といえば一緒ですがIF？IIF？どちらでしょう？
> という書き方の場合、「Aが0」もしくは「Bが0」もしくは「Cが0、かつDも0」のいずれかの場合、
> という条件判定になるという考え方で良いでしょうか？
そうですね

ハッキリさせたい時には()でくくると分かり易くなりますよ
こんな風に
IIf((A = 0 Or B = 0) Or (C = 0 And D = 0), "true", "false")

IFならモジュールにテスト用の関数作って確認できますし
IIFならもっと簡単にクエリー等でテスト出来ますよ
まずは試してみる事をオススメします

**デフォルトの名無しさん** · 2015/04/16(木) 13:45:46.84

>>282
ありがとうございます、安心しました

**デフォルトの名無しさん** · 2015/04/18(土) 01:50:57.01

ExcelVBAをほんの少しいじった程度ですが、同じことがAccessVBAでもできますか？
たぶんできたとして、データアクセスが目的ならExcelよりAccessのほうが早いのかな。

**デフォルトの名無しさん** · 2015/04/18(土) 03:55:58.31

WSH(VBScript, JScript), PowerShell からでも、
呼び出せるよ

Accessはデータベースだから、
Excelよりもデータの整合性は、より安全で、
何々明細とかを扱う、本格的な業務に適している

**デフォルトの名無しさん** · 2015/04/18(土) 07:06:32.83

>>284
Excel にデータエクスポートして開いてピボット集計して保管してzipにしてメール添付して送信、とかExcelの外から出来る。

**デフォルトの名無しさん** · 2015/04/18(土) 09:55:54.98

エクセルの65535行制限って解けたんだっけ？

**デフォルトの名無しさん** · 2015/04/18(土) 18:09:00.24

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
Next
Rs.MoveNext
Loop

のようにしてエクセルデータからデータベースに保存してます。

で、
A=Rs.Filds(i).Value
は無意味なコードなのですが、
これがないと保存がされません。
ワンクッション？が必要なようなんです。
これ、原因や同じような症状でた人いますか？

**デフォルトの名無しさん** · 2015/04/18(土) 19:59:14.52

それ以前にAddnewしてる位置がおかしい気がするんだが

**デフォルトの名無しさん** · 2015/04/18(土) 21:20:04.66

書き間違えました。
実際は、Forのまえにaddnewしてnextのあとにupdateしてます。

**デフォルトの名無しさん** · 2015/04/19(日) 02:01:53.14

書き間違いとか実際のコードじゃないもの出されてもなぁ
お前の勘違いの可能性が圧倒的に高いと思うぞ

**デフォルトの名無しさん** · 2015/04/19(日) 07:19:00.86

事実、
ワンクッションのある無しで発生するんです。

**デフォルトの名無しさん** · 2015/04/19(日) 09:54:27.68

フィールドが100個くらいあるエクセルデータを同じように取り込んだときに経験したことある
ケド、、、、原因調べないでおわっちゃたなｗそーいえばｗｗ
原因を探るためにDebug.Print入れたら登録がされるようになって、原因解明より先に仕事・・・・となって、そーいえばそのままｗｗ

**デフォルトの名無しさん** · 2015/04/20(月) 08:09:04.77

>>287
ここ、Accessスレですよ。

それとGoogleで調べれば分かるような内容の質問はどこのスレでも
禁止です。頭に叩き込んでおくといいですよ。

**デフォルトの名無しさん** · 2015/05/02(土) 06:47:20.55

中文(簡体)文字のファイル名をダイアログで取得して、コピーしたり開いたりしたいんですが、"見つかりません"と言うメッセージに。
中文文字の入ったファイル名やフォルダー名を取り扱う方法かヒント頂けないですか。

**デフォルトの名無しさん** · 2015/05/14(木) 12:50:18.83

二つ教えてください。

1コンボボックスコントロールの▼が反応しない時がある

2リストボックスコントロールAからデータを取得するとき
A.BoundColumn=1
変数=A.ItemData(A.ListIndex)
A.BoundColumn=2
変数=A.ItemData(A.ListIndex)
A.BoundColumn=3
変数=A.ItemData(A.ListIndex)
A.BoundColumn=4
と一つの関数内で取得する列を変更してデータを取得しようとしても、データが取得できる場合と取得できない場合が発生するのはなぜでしょうか？

**デフォルトの名無しさん** · 2015/05/16(土) 10:31:05.05

Accessって新しくなればなるほど、不安定化してない？
なんとなくだけど

**デフォルトの名無しさん** · 2015/05/16(土) 12:20:26.27

>>297
激しく同意
Accessも立ち位置が怪しくなりつつあるのかなって。。。。
今の時代ならForguncyみたいなのがオフィスファミリーのラインナップに
ほしいとこだね。

**デフォルトの名無しさん** · 2015/05/16(土) 14:09:51.76

>>297
ど安定だと思ってた。難しい事しないからかもだけど。

**デフォルトの名無しさん** · 2015/05/16(土) 17:59:47.30

/decompileオプションをつけてファイルを開くなんて、昔はなかったのになぁ・・・。

**デフォルトの名無しさん** · 2015/05/16(土) 22:55:57.30

>>297
俺の体感ではすくなくとも2007までは順調に安定化してるけど
それ以降は使ってないから知らん

>>300
/decompileっていつからあるんだろうな
昔は全オブジェクトを別mdbにエクスポートとか結構頻繁にやってた記憶が

**デフォルトの名無しさん** · 2015/05/17(日) 10:45:41.40

>>301
97くらいからはあったはず。
でも/decompileを使うようになったのは2003以降かなぁ？
むかしはmdbファイル丸ごと見事に壊れたから/decompileすら登場の出番が無く
今はVBAを入れるとスグ壊れるから/decompileが効力を発する機会が増えた

うーん・・・改善してるのかもなｗ
ただ開発をやっている人から見るとVBAをいじってる最中の異常終了が増えた
感じがするから不安定化しているように見えるのかも

**デフォルトの名無しさん** · 2015/05/22(金) 21:24:51.38

[Forms]![コントロール名]......

のように使う
　!
と
　フォーム．プロパティ
の
「！」と「．」
の違いってなんなんでしょうか？

**デフォルトの名無しさん** · 2015/05/22(金) 21:51:36.82

/decompile 知らなかった。