Access総合相談所 其の19 【桐にしとけ】

ACCESSに関する質問はこちらへ！


▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★ OS、ACCESSのバージョンを明記してください。
★ 質問内容は具体的に書いてください。
　　・何がしたいのか
　　・どんな処理を試したか
　　・動作状況など駄目な理由
　　テーブル/フォームの構成、クエリ、VBAの内容など差し支えない
　範囲で詳しく書くと、早く回答が得られるかもしれません。
　　図解があれば尚良し。
　　聞き返さなくても詳細が把握できる質問が望ましいです。
★ 事前にヘルプ・Google等で調べられる範囲は調べてください。
　　大概の疑問は検索することで解決します。
★ アドバイスを貰ったら、必ず経過・結果の報告をして下さい。
　　ギブアンドテイクで情報を共有しましょう。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【 システム環境　 . 】 Windows**, Access**
【 VBAが使えるか .】 はい･いいえ
【 VBAでの回答　　】 可･否
【 検索キーワード　】 Googleやヘルプでの検索キーワード

前スレ
ACCESS総合相談所 その１８ 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1198885955/

桐はこちら↓
管理工学研究所「桐」【４】
http://pc11.2ch.net/test/read.cgi/bsoft/1100708378/

ACCESS2000総合相談所
http://pc.2ch.net/bsoft/kako/965/965614164.html
ACCESS総合相談所 その２
http://pc.2ch.net/bsoft/kako/1007/10079/1007987001.html
ACCESS総合相談所 その３
http://pc.2ch.net/bsoft/kako/1019/10190/1019087338.html
ACCESS総合相談所 その４
http://pc.2ch.net/bsoft/kako/1027/10274/1027491281.html
ACCESS総合相談所 その５
http://pc.2ch.net/bsoft/kako/1033/10331/1033182163.html
ACCESS総合相談所 その６
http://pc2.2ch.net/bsoft/kako/1037/10378/1037856185.html
ACCESS総合相談所 その７
http://pc2.2ch.net/bsoft/kako/1043/10439/1043996834.html
ACCESS総合相談所 その８(消息不明です)
http://pc2.2ch.net/bsoft/kako/1051/10516/1051630268.html
ACCESS総合相談所 その９(消息不明です)
http://pc2.2ch.net/test/read.cgi/bsoft/1061828549
ACCESS総合相談所 その１０
http://pc5.2ch.net/test/read.cgi/bsoft/1075378966/
ACCESS総合相談所 その１１
http://pc5.2ch.net/test/read.cgi/bsoft/1089812359/
ACCESS総合相談所 その１２
http://pc8.2ch.net/test/read.cgi/bsoft/1106963038/
ACCESS総合相談所　その１３　【桐にしとけ】
http://pc8.2ch.net/test/read.cgi/bsoft/1121055646/
ACCESS総合相談所　その１４　【桐にしとけ】
http://pc8.2ch.net/test/read.cgi/bsoft/1128486351/
ACCESS総合相談所　その１５
http://pc8.2ch.net/test/read.cgi/bsoft/1142586697/
ACCESS総合相談所 その１６ 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1157195290/

　　　　　　　　　　　　　　　　　 .∧__,,∧
　　　　　　　　　　　　　　　　　（´・ω・`）
　　　　　　　　　　　　　　　　　 (つ乙と）
　　　　　　　　　　　　　　　　　 ｀ｕ―ｕ´

関連スレッド一覧

★関連スレ★

データベース板
【Access】アクセスは最強のデータベース！
http://pc11.2ch.net/test/read.cgi/db/1166295459/
【I love Access】やっぱりアクセスが良い
http://pc11.2ch.net/test/read.cgi/db/1182004821/

プログラム板
VBプログラマ質問スレ（6.0以前） Part51 ※Office, Access 固有の質問はスレ違いにつき注意！
http://pc11.2ch.net/test/read.cgi/tech/1169949451/
★Microsoft Access★
http://pc11.2ch.net/test/read.cgi/tech/1064900050/

資格全般板
【荒らしは】MOS試験ACCESSスレ【来ないで！】
http://school7.2ch.net/test/read.cgi/lic/1146902574/

ビジネスsoft板
Access2000＋SQL Server難しい・・・（´д｀；）
http://pc11.2ch.net/test/read.cgi/bsoft/1002096284/
ACCESS2000の分かりやすい本
http://pc11.2ch.net/test/read.cgi/bsoft/994154155/
microsoft access で成績証明書作成
http://pc11.2ch.net/test/read.cgi/bsoft/1054963223/
もう『Access2002』使ってる人いるっしょ？集合！！
http://pc11.2ch.net/test/read.cgi/bsoft/1006147865/
EXCEL,ACCESSで曖昧な表現を。
http://pc11.2ch.net/test/read.cgi/bsoft/1002267900/

DAOのことは知らない
VBAでデータベース(mdb)にADO接続してSQLを操る
ってことならまあ、ありかな
何だか書いてるうちに俺も混乱してきた
そんなことをしなくても小規模なシステムならもっともっと楽に作れる

関連ウェブサイト

Microsoft Access Club
http://www.accessclub.jp/

T'sWare HomePage
http://www.tsware.jp/

MOUG
http://www.moug.net/

MS Access Discovery & Access庵BBS
http://www.f3.dion.ne.jp/~element/msaccess/

Accessむかむか - Access VBA TIPS
http://www.sanryu.net/acc/

データベースアクセスの技術情報とアクセス実用サンプル集
http://www.friendlysw.com/knowhow/knowhow.asp

個人的には、C/S型で、バックグラウンドにMySQL、クライアントにAccess 2007 ランタイム
という組み合わせが好きです。

ちなみに、Access 2007 ランタイム他はURL

Access 2007 ランタイム日本語版：http://www.microsoft.com/downloads/details.aspx?FamilyID=D9AE78D9-9DC6-4B38-9FA6-2C745A175AED&displaylang=ja
Office 2007 XPS/PDF出力アドイン：http://www.microsoft.com/downloads/details.aspx?familyid=4D951911-3E7E-4AE6-B059-A2E79ED87041&displaylang=ja
Office 2007 FileFormat Converter：http://www.microsoft.com/downloads/details.aspx?familyid=941B3470-3AE9-4AEE-8F43-C6BB74CD1466&displaylang=ja

XPS/PDFアドインを入れると、ランタイムであってもPDF出力が可能になりますし、マクロのエクスポートにおいて、
選択フォーマットでPDFを指定できます。
また、FileFormat Converterを導入すると、Access2007のExcelエクスポートにおいて、Excel2007形式での出力が
可能になります。

以上テンプレ終了。では、みなさま、お楽しみください。

>>1
乙

>> 前スレ1000
ちょっとズレてる。
アプリケーション >> マクロ言語 >> ミドルウェア >> DBエンジン
という関係になる。
これが
Access >> VBA >> DAO >> Jet
だったり、
Excel >> VBA >> ADO >> SQL鯖
だったり、
HTA >> JScript >> ADO >> Oracle
になったりする。

文章だけだと分かりにくいようなら、下を見れ。
ttp://www.ruriplus.com/msaccess/Exp/Exp0010.htm

>>1 乙です! テンプレートが増強されてる。あと、桐スレへのリンクが追加されとるｗ

既に>>8が説明してくれたけど、せっかく書いたので投下。
前スレ>>1000へ。「VBA＝ADO（DAO）＝SQL」の認識は間違ってる。

簡単に説明すると。
VBAは(データベース操作に限らず)汎用的な操作・処理を行うために使用する言語。
ADO(DAO)は様々な言語から呼び出して使う、(データベース等の)データを操作するための機能セット(言語じゃない)。
SQLはデータベースを操作するための言語。

VBAからADO(DAO)は使えるけど、VBAからSQLは直接使えない。
なので、VBAからデータベースを操作したいときはVBAからADOの機能を呼び出して、ADOからSQLを発行してもらう。
「VBA->ADO->SQL->データベース」みたいに、ADOがVBAとSQLの間を中継してくれるわけ。

なぜ、わざわざVBAからSQLを使うかというと、
フォームやレポートの操作、ファイル入出力などはVBAからしか行えないので、それらと連携したい場合に使う。
あと、AccessのSQLでは書き辛い複雑な処理をする場合にもVBAを使う。
実際にVBAからADOを使っているサンプルコードを探してみれば分かってくるはず。

ちなみに>>5の言うとおり、簡単なものならVBAを知らなくても作れるので、
VBAやADOとかは本当に必要になったときに学習すれば良いと思うよ。
正規化を知ってればテーブルとリレーションシップは分かるはずだし、
テーブルとクエリ(AccessではSQL言語で記述したもの=クエリ)が分かれば、
フォームやレポートも単純なものなら作れるよ。

以上です。あとは、いくつか入門サイトを巡るなり、入門書を買い足してみて。
それでは頑張ってくださいな。

>>1
前々スレ
ACCESS総合相談所 その１７ 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1175943813/

Dim obj As Object
Dim kazu As Long
For Each obj In CurrentProject.AllForms
kazu = kazu + 1
Next
MsgBox kazu
としてカレントプロジェクトのフォーム数を数えることができますが、
テーブル数を数えるにはどう書けばいいのでしょうか？

失礼、こうみたいです。
Dim obj As AccessObject, dbs As Object, kazu As Long
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
kazu = kazu + 1
Next obj
MsgBox kazu

本当に数だけ知りたいなら、CurrentData.AllTables.Countや
CurrentDb.TableDefs.Countだけでいい気がするが。

いかにも不自然だから、ループしたいのが本題で、数を数える
というのは処理の例として適当に出したんだろうけど。

皆様からのいろいろなご教示ありがとうございました。
最後に私がご教示通りに理解したかを確認させてください。

１．マイクロソフトのRDBMSであるJETを操作する言語はSQLである。

２．JETを操作するSQLを簡単につくる便利ツールとしてDAO（ADO）がある。

３．DAO(ADO）は、VBAなどの言語から呼び出して使う。

４．VBAやSQLに精通しているなら、ADO（DAO）は必要ない。
　　（VBAから直接SQLを操作すればいいから。）

もし、上記の認識が正しければ、概念段階のデータモデリングについて教えてください。トップダウンとかボトムアップとかあるようなのですが、どちらにしてもあらかじめどのようにデータベースを運用していくのかを決めないと駄目なようなのです。

しかし、将来的な拡張性を考慮すると、予め全てを決めておかなければいけないというのが作業を躊躇させるのです。

>>14
まじに、桐にしといたほうが良いぞ

>>14
DAOやADOを中心に考えた方が理解しやすいかもしれませんねぇ。

DAO(ADO)‘が’操作するのがJETやSQLserverなどのRDBや、他データ。
DAO(ADO)‘を’操作するのがVBAなどのプログラミング言語。
プログラミング中、データ操作を指示する際に使う文法がSQL句。

プログラムを組む際はDAO(ADO)を通してSQL句を使ってデータを操作する。
こんな感じでしょうか。

>>14
SQL文を操るにはDAOやADOを経由することが必要。
個人的にはDAOやADOに直接SQL文を発行するやり方が好きだが、素人同然だったらクエリを使うべきだと思う。
参照、追加、更新、削除、クエリは全部できるから、そしてクエリはほぼマウス操作だけで作れるから。

混乱しすぎ、難しく考えすぎ。肩の力を一度抜けれ。
まずはVBAのことが書かれていない超入門書を見つけて「ACCESSでは何ができるか」を把握すれ。

てか、ふと思ったんだがどんだけの規模のシステム作るつもりだ！？
会社の基幹システムでも作るつもりじゃまいだろな・・・？？（作るつもりならアウトソーシングするべきだ）

別にSQL使うのにDAOもADOも関係ないじゃん
Accessから普通にSQL使えるから

VBA他プログラム言語からデータベースの要素をオブジェクトとして扱いたい時に、DAO/ADOを介在させるんだよ
2007からはマクロで変数使えるようになったから、Access使うのには、VBAもDAO/ADOも不要だよ

それでもマクロは使わないでください（＞＜；）

んん？　何でよ
Access native 言語のマクロ最強じゃん、tbl 操作するときは SQL 投げれば良いんだし
DAO/ADO で無理やりVBから操作するより安全確実簡単

多くの方々からご教示いただきまして、本当にありがとうございました。
皆様のレスを何度も読み返して、徐々にですが腑に落ちるところがありました。

まさか、超初心者の私の質問に、これほど多くの方々からご支援いただけるとは思わず、
皆様のお心づかいに本当に感謝しております。

本当に、どうもありがとうございました。

とりあえず使ってみればいいのに。

VBA終わったな

よかったな。
次こそガンバレよ。

アクセス2000でｊｐｇデータの表示出来ないんだっけ？
ｂｍｐにいちいち変換はやだしなぁ

イメージコントロールにはふつうに表示できたと思うが。
非連結オブジェクト フレーム コントロールの話なら、下に該当しているとか。

ttp://support.microsoft.com/kb/411755/ja

あー
そんなんでは不特定PCには使えないなぁ

不特定PCに播くのにOLEオブジェクト使うﾔｼはただのアホ。

VBAを使用しているファイルを開こうとすると、「セキュリティの警告　データベースの一部の内容が無効にされました」
という警告がでるんですが、この警告が出ないようにするには、どのように設定すればいいのでしょうか？

>>29
ヘルプ嫁

>>30
オプションで「信頼できる場所」に登録すればいいんですね。
しかし、何だか面倒だな。

レジストリも弄っとけ

>>32
そうなんですか？
ヘルプには書いていないみたいなんですが…

Accessの課題でたけど、やる暇ねえええ
というわけで、課題をやってくれた人には何かあげます＾＾

出題内容
アクセス２００３
ファイル名　：　成績管理（自分の名前）
目的　　　 　：　学生情報の管理を行うデータベースシステム
機能　　　 　：　�@学生情報の（番号/名前/性別/生年月日/住所など）登録/変更/削除
　　　　　　　　　�A学生成績（国/数/理/社/英等）の登録
　　　　　　　　　�B一覧印刷（レポート）
条件　　　　 ：　�@上記の機能を実行するためのボタンを配置したメニューホームを作成
　　　　　　　　　�A上記以外に自分なりの機能を追加すること（最低1つ）
　　　　　　　　　�Bテーブルを設計し、各テーブルに最低5つはデータ登録すること
　　　　　　　　　�C最低１つはクエリを作成・利用すること
　　　　　　　　　�Dレポートの見栄え、操作性などユーザインタフェースにこだわること

AccessからSQLServerへデータを保存しようとする際、フィールド数が30くらいある場合、
insert や update文で更新するのは一般的なんでしょうか？

本来ならレコードセットを開いて書き込めば何の問題もないのですが、
データ件数が数万になるとレコードセットを開くのにも時間がかかるようで・・・。

>>34-35

成績管理システムを作ろう！２【社会貢献】
http://pc11.2ch.net/test/read.cgi/db/1137309494/

>>36
エクスポートって使えなかったっけ（適当回答でスマソ）

>>36
そうなんだが、だったらAccessいらないよな

>>36
というか、たかだか数万レコード程度で時間がかかることの方が問題。
インデックスの見直しでもしてみては？

>>36
まあぶっちゃけ、数万件だとCSVかなんかに吐いてDTS蹴ったほうが速くないか？

ごめんなさい。読み返してみたらちょっと書き方に問題があったかもしれません。
あるデータを書き込む時、追加の場合はレコードセットで問題ありません。
更新の際に、たとえば3件のデータを更新する時に少し問題があります。
１）キーで特定のレコードを開く
２）ローカルテーブルのデータを書き込む
sql("xxx").Value = mdb("xxx").Value
sql("xxy").Value = mdb("xxy").Value
sql("xxz").Value = mdb("xxz").Value
　　・
　　・
　　・
sql.update

３）閉じる
sql.Close

を3回繰り返すのですが、元のテーブルのデータ件数が少ないときはいいのですが、
多くなるとどうも遅くなって困ります。(それだけが原因じゃないかもしれませんが。)

で、"update aaa set xxx = '" & xxx & "', xxy = '" & xxy & "', xxz = '" & xxz & "' where key = ・・・"
のようなSQLを投げた方が早いかなとも思ったのですが、
あまり変数の多い長いSQL文を書くのはどうなのかなと思って質問しました。

>>39
Accessはレポート機能が神過ぎて手放せないのです。
印刷が無ければ.Netでもいいんですけど・・・。

じゃ Access いらないじゃん
印刷のときだけなら桐にしとけ、ODBCで取込んで印刷できるから

>>42
30フィールドくらいはぜんぜん長くないぞ。
200フィールドくらいのをSQL文で更新してるシステムは余裕で見かける。

値として長文が入るとかなら、別の考慮（なんか文字数上限みたいな）が
必要になるかもしれないけど。

ADOって内部でSQL投げてるんじゃないの？

ふつうに考えて、それは無い。
OLE DBから先は知らんが。

。。。と漏れが思っていただけで、特に根拠は無いことに気付いた。

>>42
ボトルネックが分からないから、とりあえず思いつく範囲で。
データを取得しない分、SQL 投げた方が早くなるとは思うけど。

・キーで特定のデータを開くときにインデックスが使用されているか？使用されてないなら使用を検討。
・レコードセットを排他ロックで開いていないか？排他ロックしている場合は共有ロックを検討。
・更新するデータを一度に取得してバッチで更新できないか検討。
　(ADO ならCursorLocationを adUserClient として、LockTypeを adLockBatchOptimisticで開く)。
　例えば SELECT ... FROM ... WHERE a IN (1,2,3,...) ORDER BY a のようにレコードセットを開いて更新。
・フィールド数が多い場合は列インデックスを使用してフィールドにアクセスできないか検討。
　sql(1) = mdb(1)
(バッチ更新の場合は更新ループ前に参照を作成して、それ経由でも可。
　Dim fA(1) as ADODB.Filed
　Set fA(0) = sql("a")
　Set fA(1) = mdb("a")
　Do Loop ...
　　fA(0).Value = fA(1).Value
　　... )
・更新不要な列を更新していないか？値が変化しない列を更新しないようにコード変更を検討。
・テーブルに不要なインデックスがないか？あるなら使用しないインデックスの削除を検討。

あと、ロジックが多少変わるけど。
・常に更新データで上書きするなら元データを全削除してからバッチで追加できないか検討。

SQLServerへのデータ転送が.Netで上手く出来てるのであれば
それはそれでいいのでは？

Accessは印刷専用ツールとして別に使えばいいんじゃね？

>>49
Accessは、ほんと、レポート機能が一番好きだ。

もうちょっとだけ、フロントエンドの機能が増強してくれるなら嬉しいんだけれどね。
Visual Basicのようにもうすこしだけ、コントロールが欲しい。

>>44
なるほど。
たしかに考えてみると、レコードセットのような仕組みよりも
SQL文を投げるやりかたをする方が一般的な気がしてきました。
本当はパラメータークエリがもう少し使いやすければいいのですけどね。

>>48
キーは主キーなのでインデックスは使われていると思います。
バッチで更新というのは盲点でした。
IN (1,2,3...) で一気に呼び出すというのは考えていませんでした。
でも、キーが２つのフィールドで構成されているので今回は難しいですが。
でも、バッチで更新は試してみたいと思います。

>>49
.Netを出したのは、それでもできないこともないということで、
業務で使うツールを作るにあたっては、やはりAccessのほうが
使いやすいと思うのです。
MSは.Netのいいところを取り入れてVBAをもう少し改善してくれないかなと
思ってたりしますｗ

Access2003を使用しています。
Access2000でしたら、adpファイルでSQLServerのストアドプロシージャを編集する際に
コメントの部分のフォントが緑色になったと思うのですが、2003だと黒一色になってしまい
コメント部分と非コメント部分の見分けがつけにくくなってしまいました。

[ツール] → [オプション] を見てみてもどこの設定をいじれば良いのかわかりませんでした。
ストアドプロシージャのコメント部分の文字色はどのようにすれば変更できますでしょうか？
もしくは変更できなくなってしまっているのでしょうか？

どうぞよろしくお願いします。

>>52
普通にVBEのメニューから
ツール->オプション->エディタの設定 の コードの表示色
で「コメント」の「前景」を緑色にする。

>>53
VBEではもちろんコメントの前景色は緑になっています。
すみません、VBEでの話ではなくて、データベースウィンドウっていうんでしたっけ？

「テーブル」
「クエリ」
「データベース ダイアグラム」
「フォーム」
　　：

ってあるところで「クエリ」からストアドプロシージャを新規作成したり編集したりできるじゃないですか？
そこでのフォント色の話なんですけど...
説明が足りてなかったみたいで申し訳ありません。

クエリのSQLエディタはｸｿだからね〜
そもそもそんな機能あったっけ？もともと真っ黒な気がしないでもない。

教えてください。

レポートのテキストフィールドに検索結果を連結して表示させたいです。

そんなに難しくないと思っているのですが、クエリーでできない。
VBAで組んでしまえば良いのですが、できればクエリーで解決したいです。
【 システム環境　 . 】 Windows XP Pro　Access Ver2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 否
【 検索キーワード　】 Access 検索結果 連結, Access 文字列 連結
下のように列Aから検索した結果を，区切りで１つの文字列にしてレポートで表示したいのですが、
どのようにすれば良いのか教えてください。

列A
-----
AAAA
BBBB
CCCC
DDDD

検索結果
AAAA
CCCC
DDDD

最終的にはこの形になれば、良いのですが・・・
レポートのテキストフィールド
AAAA, CCCC, DDDD

>>56
ググレカス

>>56
VBAじゃないと無理

まあ、そういうイレギュラーなのは桐にしとけ

VBAってもADO,DAOで簡単に実現可能と思われるんだが

10+ reasons why IT pros hate Access (but really shouldn’t)
Published 25 July 08 02:49 PM

http://blogs.msdn.com/access/archive/2008/07/25/10-reasons-why-it-pros-hate-access-but-really-shouldn-t.aspx

＞そんなに難しくないと思っているのですが

出発点からして間違ってる。

>>56
検索結果が出るってことは、検索のパラメータを入れたんでしょ?
レポートのテキストフィールド=検索パラメータ では?

>57
ググッてはみたのですが・・・

>62
えっ、そうなのですか、ググッても出てこないのはそのあたりに問題があるのかしら
VBA内にSQL組んで、結果をTEXT型で返さないとだめなのですね。

VBAいやならピボット使え

>>64
ここで>>62が言っているのは、
検索結果が極端に多かった場合について言及しているのでは？

・テキスト型がオーバーフローする可能性がある
・テキストフィールドで表示しきれない可能性がある

ということで、そもそもそんな危うい設計でレポートを作るのは
好ましくないと思うんですけどねぇ。。

>66

なるほど、おっしゃるとおり
VBAで下記のように考えてみたのですが

Dim strClum As String

Do Until objADORS.EOF
strClum = objADORS!カラム名 + ", "
objADORS.MoveNext
Loop

想定していたデータ量が多くても6件程度
全部連結しても300文字程度と軽いのでそこまで深く考えなかったのですが、
言われている事を考慮すると危ういものになりますね。

困った仕事を頼まれてます。

Access2007の中にあるあるテーブルをもとに、ある条件で抽出したクエリがあります。
そのクエリを元に、レポートを作成しPDF出力するマクロは作り上げてあります

その結果出力されるPDFファイルをその同じクエリのある列にあるメールアドレス宛に
個別に送信しろと言われました。現在は、ボタン一つでPDFファイルを作って、メーラー
に添付して一人ずつ送っているのですが、１００名ほどいるので困っています。

このクエリ　そしてそれに基づくレポート -> PDF出力 且つメールで連続送信はどのよ
うなコードを書けば、ボタンを押すだけで、スポッと送れるのでしょうか？

なお、マクロは、レポート出力の際にクエリに対して、現在表示しているフォームの社員
IDを元に抽出、PDF出力という仕組みになっています。

>>67
オブジェクトはセットしてるんだよね、書いてないけど。

で、strClumにその答えを出したいなら、
strClumに答えをためてかなきゃ。
でしょ?

>>68
まず、抽出結果のレポート出力は、コードが書けるんですよね。
2007ならアドインを入れれば、できるんじゃないすか?

>>70
PDFアドインを入れて、エクスポートした上でメーラに添付までは、マクロのレベルで
できることですから。そこまでは掛けています。

問題なのは、これをクエリの結果に基づいて、一人一人に連続送信をしたい。これを
現在は手作業で小茄子状況なので、ボタンぽんで、それぞれにそれぞれ用のレポート
を送りたいわけです。

たとえば、送りたいレポートとは、個々の勤怠レポートや健康診断の予約状況通知など
です。いままではある一部署の長に、まとめて送って、それぞれ渡してもらっていたので
すが、これを嫌がる人続出したため、こうなってしまいまして・・・

１００人ほどですが、１００個のPDFを一個一個、ボタンぽんで個々に送信作業を毎月お
こなうのは、しんどいもので、どうしたら、クエリに基づいて今までやっていた作業を自動化
できるかを悩んでいるのです。

クエリの段階で送るべき人は抽出済みですが、これをレコードセットとして扱い、そして、
それをForループでレコードを移動しながら、マクロを実行をすればいいのかとも思ったの
ですが、自分はこの辺りのコードの書き方がよくわからんのです。

AccessのVBA（モジュール）はマクロとは別だから一緒にしないでね
Excelなんかでは一緒なんだけど

AccessのマクロってAutoExecしか使ったこと無いんで、
わからないんだけど、あて先とか、Bccに変数使えるの？

標準の機能で楽勝なら俺も知りたい。
ダメならBASPユーティリティでググって。

SPAM送信ツールを作ってくれるスレはここですか？

確かに、
AccessでSPAM作れるな。

2008
├商品リスト１
│ ├ 棚１
│ ├ 棚２
│ ├
│ ├
├商品リスト２

こんな感じでテーブルをツリーにできませんか？

> 小茄子状況
ﾜﾛﾀ

>>77
TreeViewコントロールで出来るんじゃね？

>>74
CDO.Message

>>79
TreeViewコントロールは微妙極まりないからな
相当なスキルが必要かと

>>79
thx

普通にサブデータシートじゃ駄目なん？

JETが廃止されてSQL Server Compactになるのか？

Access2007もJetは4.0ですか？
Jetって開発終了したわけではないですよね？

Access2007のデータベースエンジンはACE 12.0です

>>84
見つけてきた
http://cs.albis.jp/blogs/ms-18e/archive/2007/04/09/3017.aspx

Access2007で[新しいフィールドの追加]の列を消す方法を教えてください

>>86
ありがとう。
実質Jetの進化版のようですね。

TempVars Versus Global VBA Variables
TempVars are handy for moving values between queries and forms and form controls and macros and VBA. Before 2007, you could only do this with global variables and even then, that only applied to VBA code.
The problem with global variables was that if the VBA code failed, you could lose the information in the global variable. TempVars are far more robust.

ACE・・・

まるで成長していない・・・

すみませんが教えてください。
集計クエリで項目の合計をだして、
その合計値を別テーブルへ更新クエリを作成したいのですが
出来ないようです。
やり方が間違ってるのでしょうか。

追加クエリと更新クエリを混同してね？

>>92
別テーブルに合計値の項目があるの？

説明不足ですみません。
在庫管理みたいのをやってまして
あるテーブルに現在庫の一覧と数量（重複無）。
別テーブルに１日ごとの数量みたいなものを
蓄積入力していきます。
そしてそれを集計して現在庫数があるテーブルの数量を更新したいのです。

>>95=92
更新クエリは作れそうな気がするんですけどね。
何かエラーメッセージが出るのでしょうか？（型の不一致とか）
それと、集計結果を表示させるだけでなく更新する必要性は本当にあるのでしょうか？
何となく合理的でない感じがします。

［商品マスター］　商品コード(Key)，商品名
［処理名マスター］　処理コード(Key)，処理名
［入荷販売マスター］　商品コード(Key1)，処理コード(Key2)，営業日付(Key3)，増減数量

こんな感じにして、通常は入荷販売マスターのみ累積入力。
商品ごとの現在庫が必要な時は集計クエリを実行して表示。
これじゃ駄目なのかな？

今回の場合は他の要素もありクエリ表示だけでは
足りないのかなと思いまして・・・。
そこで集計クエリを作成して、それを元に更新クエリをするとエラーがでます。
結局集計クエリからテーブル作成クエリで新規テーブルを作成し、それを元に
更新クエリをすることに。
そんなものなのかなと疑問が残りますが・・・。

この場合、集計クエリにこだわる必要はないと思う。
入荷の明細1件1件を元に在庫マスターを更新するだけでいいのでは？

別ファイルでインポートするとかではないなら
俺も都度更新でいいと思うな。
たぶん同期の問題だとは思うが、
集計クエリを元に更新クエリってできなかったと思う。
mdbをどこかにupしてもらうのが、一番早いのだが。

>>97-99
明細入力のたびに在庫を更新する方法だと、トランザクションを使う必要が生じると思うんです。

明細データの追加には成功したが、在庫の更新には失敗した。
業務使用でこんなケースが１件でも発生すると、その後の信頼性に問題が出るような・・・
何かの値を導き出す場合、おおもとになるデータは１本の方が好ましいと思いますよ。

>>100
集計クエリをもとに選択クエリを１度つくる

その選択クエリをもとに、更新クエリをつくる

といった具合に、間に選択クエリを１個置いてみるとかは？

あとは、テーブルの側　つまり集計の結果を出すほうを毎回
クリアし最新データを書き込む形にして、更新クエリは使わな
いとか。つまりこの場合、テーブル作成クエリを使う。

>>100
在庫数の更新が目的ならば集計クエリの作成は必須ではない、というのが発言の趣旨です。
というかAccessなんだからそんな銀行のオンライン更新みたいな手法は最初から選択肢になし。

UPDATE T_入荷 LEFT JOIN T_在庫 ON T_入荷.品番 = T_在庫.品番
SET T_在庫.在庫数 = T_在庫.在庫数 + T_入荷.入荷数
WHERE DateDiff("d", T_入荷.入荷日, #2008/08/01#) = 0

仮に在庫数更新のサイクルが日次ならば↑のような更新クエリを毎日1回実行すればいいのでは？
という意味だったのですが・・・

レコードを追加できません。テーブル'受注明細'の結合キーがレコードセットにありません。
なにこれ？

サブフォーム受注明細は受注ID　商品ID　数量　単価
メイン受注伝票の受注IDが主キーなんだけど・・・

>>103
受注明細の明細番号が無いんとちゃう?

質問です
アクセスの抽出条件またはの行って少ないのですがあれは増やすことはできるのですか
困っております。
たとえば、特定の２００人の情報についていろいろな項目を抽出したいばあい
クエリを増やしていかなければなりません
クエリ一つでまとめてできる方法はないのでしょうか？
よろしくお願いします

通常のデザインビューでは限界があるけど
SQL直書きにすればいくらでも増やせる
左上のアイコン、▼から"SQLビュー"

あれはたしか挿入→行で増やせたよ。

200までいけるかどうかは試してないけどw

ふつうIn句使わないかそれ。

>>106
それでデザインビューに戻すときにエラーが出るんですね、わかります。

ACCESSでタブブラウザーは作れますか？

タブの増減が難しそうだがIEコントロール使ってむりやりやればなんとか

CentOS5.1に入ってるMySQL5.1にACCESS2003からODBCでつないでリンク作ってます。
で、そのリンクをADOで開いて

Dim Connection As ADODB.Connection
Set Connection = Application.CurrentProject.Connection

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
RS.Open "LinkTable", Connection, adOpenDynamic, adLockOptimistic

RS.AddNew
RS("field_01") = "AAAA"
RS("field_02") = "BBBB"
RS.Update

とした後でRSにアクセスしようとすると、
すでに削除されています、とエラーが来ます。

リンク先にはAutoIncrementな主キーがあってUpdate後のそれを読み取りたいのですが
どうにかならないでしょうか？

RS.Updateの際に、実際にAutoIncrementして主キーの値を決めているのは
MySQLなのでAccess側の変数RSに主キーの値がセットされることは無い。
という解釈でよろしいかと。どうしても必要なら別途取得。

>>112

よう解らんが、逃げの手段としてｎｅｘｔしてPreviousしてみてはどうだろう。

>> 113
すみません、その別途取得の方法でもいいので教えてもらえませんか？

>> 114
Update後はそのリンク先テーブルの最初を参照してます。
一回目は削除されています、だったのですが、
二回目からは最初のレコードの主キーが返りました。

>>115=112
MySQL独自の関数としてLAST_INSERT_IDというものがありますので
これを使って取得するようなコードを追加するのが良いかと思います。

あるクエリに基づくレポートを、１つづつPDF化（ファイル名は、レコードの最初の列にある
社員コード）を行いたいと思っている次第。ですがなかなか旨くいかない。

Dim My_Db As DAO.Database
Dim My_Rst As DAO.Recordset
Dim My_Qry As QueryDef
Dim My_Path As String
Dim i As Integer

Set My_Db = CurrentDb()
Set My_Rst = My_Db.OpenRecordset("勤怠レポート")
My_Path = CurrentProject.path
i = 1

My_Rst.MoveFirst
Do Until My_Rst.EOF > i
DoCmd.OutputTo acOutputReport, "勤怠レポート", acFormatPDF, My_Path & "\" & My_Rst!社員コード & ".pdf", False, 0
My_Rst.MoveNext
i = i + 1
Loop

明らかにこれではコードが足りず、このままでは、延々とPDFが社員コードのファイル名で、しかも
PDFの中身は全部同じで、全部のレコードが混じっている状況です。

このコードにどういうフィルタを加え、どういうループを書いたら、１つづつPDF化してくれるのか
を知りたい次第。およそ70レコードあり、70個のそれぞれの社員コードの名前がついたPDFに
出来るのか、お教え願えませんでしょうか？

Accessは2007で、PDF出力アドインが入ってます。

>>117
.EOFはBoolean型なのにInteger型と比較してますよ。
Do Until My_Rst.EOF > i　を
Do Until My_Rst.EOF　とすれば社員コードごとのPDFになりそう。
（変数 i は不要）

あと、
Set My_Rst = My_Db.OpenRecordset("勤怠レポート")　を
Set My_Rst = My_Db.OpenRecordset("SELECT * FROM 勤怠レポート ORDER BY 社員コード")　に。
そうすると、My_Rst.MoveFirst　の１文も不要になります。

AllowBypassKey
AllowSpecialKeys

trueにして自分ではまってしまいました！
これを無効にする方法はありませんか？
昨夜から徹夜で探っていますがわかりません。
よろしくお願いします！

>>119
AllowBypassKey
でググって一番上のサイトに方法が書いてあったよ。

>>118
そのコードを取り入れて実行してみました。

結果として、ファイル名に社員コードで出力はでき、社員コードがある分だけ
PDFファイルは出たのですが、問題のそのひとつひとつの中身なのですが、
その社員コードに該当するレポートだけでなく、すべてのレポートが含まれて
しまう現象は以前なおらず。

勤怠レポートというレポートの中身が社員コードできちんとフィルタリングされ
ていないようで、勤怠レポートというテーブルの中身が全部レポート化された
状態になってしまいました。

あと一歩という感じなのですが、このレポート、それぞれの社員コードに該当
するものだけが、レポートに含まれるようにするために、どうフィルタリングする
コードを追加したら良いでしょうか？

なるほど、それならここも追加で修正。

DoCmd.OutputTo acOutputReport, "勤怠レポート", _
acFormatPDF, My_Path & "\" & My_Rst!社員コード & ".pdf", False, 0

　↓
DoCmd.OutputTo acOutputReport, "SELECT * FROM 勤怠レポート WHERE 社員コード='" & My_Rst!社員コード & "'" , _
acFormatPDF, My_Path & "\" & My_Rst!社員コード & ".pdf", False, 0

レポートのソースが勤怠レポート全件になっていたのを、社員コードでセレクトするように修正。

>>122
ちょっとやってみます。これができると、格段に能率が上がるので非常に
ありがたいです（応用したい物がたくさんあります

まてまて、「勤怠レポート」ってレポートオブジェクトだろ？

DoCmd.OutputTo の第1引数が acOutputReport なら第2引数はレポート名の単体指定のみ可で
SQLは不可というか、仮に可であったとしても「SELECT * FROM レポート名」はないと思うけど・・・

>>124
わかりづらくてもうしわけありません。

勤怠レポートというテーブルと、勤怠レポートというレポートがあるんです。でこの
勤怠レポートというテーブルをソースとして勤怠レポートというレポートという形に
しているのです。

ですが、仰るとおり、acOutput Reportの第二引数はレポートオブジェクトの指定し
かできず、SQLが使えませんでした。となると、このレポートを開く直前で、クエリに
手を入れるコードが必要となるのでしょうか？

なるほど…　このままだとちょっと話がややこしくなるから名前を以下のように変更させてくれ

　テーブル → T_勤怠
　レポート → R_勤怠

そして事情が許すならT_勤怠に抽出用のBoolean項目「印刷フラグ」を追加して、
R_勤怠は印刷フラグ=Trueだけを印刷するような仕様に変更するのが一番簡単な方法だと思う。


Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM T_勤怠 ORDER BY 社員コード")
　Do Until rst.EOF
　　CurrentDb.Execute "UPDATE T_勤怠 SET 印刷フラグ = False"
　　CurrentDb.Execute "UPDATE T_勤怠 SET 印刷フラグ = True WHERE 社員コード='" & rst!社員コード & "'"
　　DoCmd.OutputTo acOutputReport, "R_勤怠", acFormatPDF, CurrentProject.Path & "\" & rst!社員コード & ".pdf", False, 0
　　rst.MoveNext
　Loop
rst.Close : Set rst = Nothing

DoCmdは非同期コマンドだから実はまだ安心できないけど、一応これでいけるはず。
T_勤怠にフィールドを追加できないとか、R_勤怠のWhere句を変更できないとかの事情があるなら
また別の方法で・・・

>>123-125
DoCmd.OutputTo の引数を勘違いしていました。正直ｽﾏﾝｶｯﾀ…orz
拝見したところ、>>126さんの方法で良さそうですね。
一応、DoCmd.OutputTo の直前でレポートの修正を行う方法を考えてみました。

Do Until My_Rst.EOF
'デザインモードで開き
DoCmd.OpenReport "勤怠レポート", acViewDesign, , , acHidden
'フィルタを設定（レコードソースの修正でも可）
Application.Reports("勤怠レポート").Filter = "社員コード='" & My_Rst!社員コード & "'"
'レポートを保存する
DoCmd.Close acReport, "勤怠レポート", acSaveYes
DoCmd.OutputTo 〜(以下略)

ということで失礼します〜

【 システム環境　 . 】 WindowsXP
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 インデックス、制限

ひとつのテーブルに２４個のフィールドがあり、その内１８個のフィールドに他のテーブルとのリレーションとインデックスを設定しようとしたのですが、うまくいきません。
「インデックスの数が多すぎる」とかいうエラーメッセージが出てきます。そこで質問なのですが、ひとつのテーブルに設定できるインデックス付きのフィールド数には制限があるのでしょうか？

超初心者なのですが、顧客のデータ管理をアクセスでできたらと考えています。
具体的には、

１．ひとつの製品は数十個の部品から構成され、
２．それらの部品は、それぞれ数十個の記録すべきパラメータがあります。
３．約数万台の製品の保守を行っています。

数十個の各部品ごとにテーブルを作り、ひとつの製品のテーブルにリレーションを張り、
製品テーブルの各部品フィールドにインデックスを定義しようとしたのですが、
「インデックスの数が多すぎます」というメッセージが出ました。

インデックスを定義しないほうがいいのでしょうか？しかし、数万のレコードを
素早く検索するのはインデックスがあったほうがいいと思うのですが。。。。

ご教示の程、よろしくお願い致します。

>>126
>>127
大変、大変ありがとうございます。ここ１ヶ月こいつの実装に苦しんでいました。

おかげさまで、社員コード別にPDFが出力することができました。このあと、これ
をBASPIをつかって、連続メール送信を実装しようと思っていて、その際に添付
ファイルの指定で、この社員コードとリンクするPDFを自動的に選択して送信する
予定でしたので、大変助かりました。他にも応用できるので、感謝感謝です。

ただ難点が、PDFを70人ほど出力しているのですが、ガンガンメモリ消費量があ
がっていって、一度閉じないと、メモリが解放されない点でしょうか。maxlockfile
を指定するコードを入れて、メモリ不足ギリギリで抑えましたが、７０名ほどでだい
た、520MBほどメモリを消費するので、今後ここに取り組みたいと思います。

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

約数十個×約数万台つったら、テーブル100万個ぐらい作ってんの？スゲーな。
んで、それらがくもの巣のようにリレーション張りめぐらしてるのか・・・
想像したらオラわくわくしてきたぞ！

ちなみにAccessの場合リレーション張ったら双方に自動的に隠しインデックス作っちゃうからそれも数に入れてね。

>>130
test

>>130
言葉が足りず、誤解を招いたようで申し訳ありませんでした。

製品を車に例えると、部品Aはタイヤ、部品Bはカーナビのようなもので、
　　ブリジストンをA1、ピレリをA2
　　パイオニアをB1、パナソニックをB2
とするようなイメージです。製品はA2とB１という具合に選んで組み立てます。

テーブルとしては、
　　部品Aテーブル
　　　　部品名、パラメータ１、パラメータ２・・・・
　　　　　　A１　、　　　　１０　　、　　　１５．３
　　　　　　A2　、　　　　８．５　、　　　　　６．５
　　部品Bテーブル
　　　　部品名、パラメータ１、パラメータ２・・・
　　　　　　B1　、　　　３．１　、　　　２．５
　　　　　　B2　、　　　５．１　、　　　８．７

　　製品テーブル
　　　　製品名、　部品A、　部品B、　部品C、・・・・・・
　　　　　　�@　　　　　A2、　　　B１、　　　C5、・・・・
　　　　　　�A　　　　　A3、　　　B5、　　　C8、・・・・

部品テーブルを20個程度つくり、製品テーブルの該当フィールドにリレーションを張り、
製品テーブルの各部品フィールドにインデックスを定義しようとした次第です。

ところが、製品テーブルの各部品フィールドにインデックスを定義しようとしたところ、
「インデックスが多すぎます」というようなエラーメッセージが出てしまいました。

そこで質問なのですが、テーブルに定義できるインデックスが定義できるフィールド数に
制限はあるのでしょうか？
ご教示のほど、よろしくお願い致します。

>>132=128
確か32個が上限だったように思います。（Accessのバージョンによるかも？）
今回の場合は、製品テーブルを２つのテーブルに分割するしかなさそうですね。

（元）
製品名，部品1，部品2，部品3,…,部品50

（修正）
製品名，部品1，部品2，部品3,…,部品25
製品名，部品26，部品27，部品28,…,部品50

テキストの条件付書式をモジュールで書き換えって出来ませんか？

方法があったら教えてください

>>134
[ACC2003] プログラムを使用してフォームのすべてのコントロールに同じ条件付き書式を適用する方法
http://support.microsoft.com/default.aspx?SCID=kb;ja;304104

>>133
ご指導いただき、どうもありがとうございました。

>>135 　おっ　おしいです　

この例だと 特定のコントロールに予め設定した条件付書式をコピーしますが、
やりたいのは設定する条件付書式の条件をモジュールで指定したいのです。

現在一ヶ月分（日付１〜31）のフィールドを持ったフォームを作成していて、
色を替えるパラメータを入れるテキスト(hoge1〜hoge31)を非表示で日付分置いてあります。

各一日分のテキストに個別に条件付書式を設定しているのですが、
条件の書式が 日付１の場合 [hoge1]=1 ・・・・・・ 日付31 [hoge31]=1 と一日分毎に
違うので、モジュールで条件式を設定できれば、ループを使い一括で個々の
条件を設定できないかとおもったのですが・・。

>>137
FormatConditions.Add メソッドのパラメータで好きな条件を設定できますよ。
VBA ヘルプの FormatConditions を読んでみてください。以下適当なサンプル。

Dim i As Long
For i = 1 To 31
　Dim p as TextBox, f As FormatCondition
　Set p = Forms!FormA("日付" & i) 'FormA から 日付(i) を取得
　Set f = p.FormatConditions.Add(acExpression, "[hoge" & i & "]=1") '[hoge(i)]=1 の条件付書式を追加
　f.BackColor = RGB(128, 128, 128) '条件付書式の背景色を設定
Next

>>138　サンクスです

サンプルまでありがとうございます

早速応用してみます。

フォーム作成が楽になりそうです

Access2007のパスワード保護は従来より強力になりました？？？？

パスワード設定したデータベースを分割します
バックエンドは自動的にパスワード解除されるから、パスワード設定しなおします
フロントエンドのフォームからバックエンドテーブルのデータ操作できます
バックエンドのパスワード変更します
相変わらず、何もなかったように、フロントエンドのフォームからバックエンドテーブルのデータ操作できます

つーことは、パスワードは従来通りに暗号化キーでも何でもなく、MDBを開く許可するだけ？
それともMDB内部にパスワード書き込まれてる？
何つーヘナチョコなセキュリティなん ｗｗｗ

>>140
桐にしとけ。セキュア桐はSQLサーバー並みのセキュリティだぞ。

>>140
不思議ーーーーーーーーーーーーーっつ
どういう仕組みになってるのかね。

たぶん勘違いじゃね？

>>140
MySQLをバックエンドにするほうがお手軽でいいよ

�@パスワード設定したデータベースを分割します
�Aバックエンドは自動的にパスワード解除されるから、パスワード設定しなおします
�Bフロントエンドのフォームからバックエンドテーブルのデータ操作できます

気になって試してみたけど�Bのところで「パスワードが正しくありません」が出るのを確認

>>133様
「Access 2007 の仕様」でオンラインヘルプを検索したところ、
「インデックスのフィールド数」という項目に１０とありました。
おそらく、ひとつのテーブル内でインデックスが定義できる
フィールド数が１０という意味だと思います。
先ほど、アクセス関係のサイトをあちこち見ていたら、それらしい記述
があったので、オンラインヘルプで検索したら、アクセス2007にも同じ
記述があった次第です。

オンラインヘルプもうまく使えない段階なので、へんな質問をしてしまう
と思いますが、これからもよろしくお願いします。

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 添付ファイル

テーブルの各レコードに添付ファイル（写真）を割り当て、
レコードを単票形式フォームで表示させるとき、
フォーム右上にその写真を表示させたいのです。

それ自体はうまくいったのですが、レコードが数百個あるため、
写真をレコードに埋め込むとデータベースファイルのサイズが心配です。

各レコードに写真を埋め込まず、写真にリンクを張るようなことは
可能でしょうか？そうすれば写真そのものをレコードに添付するよりも、
参照先のアドレスだけをレコードに記入だけすればいいので、
容量がかなり助かるように思うのですが。

ご教示の程、よろしくお願い致します。

>>147
たとえば、クエリをつくる

で、オートナンバーではない、例えば社員IDの主キーをもつフィールドを作っておく。
で、画像はその主キーと同じ値をファイル名としているjpgがあったとする。

で、クエリに[社員ID] & "jpg"みたいなのをつくるように設定しておく。

で、このクエリをもとにフォームを作る。

あとは、画像をリンクとして於いて、ソースを..\（Currentproject.path)となるように導く
とうまくできる。でも、VBAつかったほうが楽。

>>146
MSのヘルプは日本語が不明瞭で理解しづらい場合が多いのですが、

「インデックスのフィールド数の上限は10個まで」という制約は、
10個のフィールドをまとめた１つの主キーやインデックスが作れますが
11個以上のフィールドをまとめる事はできません・・・の意味です。
（主キー： F1, F2, F3, …, F8, F9, F10 は可能）

一方、インデックスそのものは32個まで作れると思いますよ。

こういう制約にまで触れている参考書がなかなか無くて、結局は
ヘルプ頼みになるのが悩みの種なのですが、頑張ってください。

>>147
写真のサイズにもよりますが、データベースファイルのサイズは
2GBまでOKですから、そのまま使うのも手ではないでしょうか？
１枚の写真のサイズが２MB程度までなら余裕がある計算です。

教えてくらはい

アクセス２００７で簡単な日計表記帳システムを作ってアホな従業員に入力させようと思います
データベースのバックアップと最適化も自動にして放置したいんですが
その部分は、どんなふうに作れば良いでしょう？

>>148,149,150様
ご教示いただきまして、どうもありがとうございました。
部品の写真は>150様ご教示のとおり埋め込みで、
製品の写真は>148様ご教示にあるVBAでやってみようと思います。
ヘルプが読みずらいので、とりあえず初心者向けVBAの本を買ってきました。

>149様、勘違いしてしまいまして、どうもすいませんでした。
これに懲りず、今後もよろしくお願い致します。

>>151

スタンドアローンに近い環境なら閉じるときに最適化と
フリーのバックアップソフトとでも入れておけ。

>>151
まずデータベースファイルが１つでしたら次の２つに分けましょう。
・テーブルのみ保存したDBファイル(1)・・・データ保管用
・テーブル以外を保存したDBファイル(2)・・・データ操作用
・(2)には(1)のテーブルのリンクを作成

こうすることでVBAを用いて(2)から(1)を最適化したり
バックアップしたりすることができます。
CompactDatabase，FileCopy 辺りでサンプルを探してみてください。

もちろん>>153さんのAccessのオプション設定とバックアップソフトを
使う方法でも実現できます。

>>153、>>154
どうも有難うございます
やるべき方向が解りました

AccessでコンボボックスのDropButtonClickイベントを使いたいのですが、どうすれば良いですか？

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 値集合ソース、コントロールソース

コンボボックスやリストボックスのプロパティに値集合ソースという項目
があります。これはコントロールソースとはどのように違うのでしょうか？
結局どちらも、あるテーブルの、あるフィールドを、コントロールに連結
させるための項目のように見えるのですが。

ご教示の程よろしくお願い致します。

>>156
DropButtonClickイベントハンドラ内に必要なコードを書き込むと使える
>>157
候補リストに表示させる元になるのが「値集合ソース」
候補リストから選択した値を反映させる先が「コントロールソース」

>>156
Access　じゃあ無理。

>>156
ActiveXコントロールのコンボボックスを使ったらできるかもしれませんね。

勉強のためにアクセス買おうかと思うんですが
スーパー貧乏なので迷ってます。
アクセス97買っても微妙ですかね？

>>161
ま、勉強のためならいいんじゃないですか？

俺なんかは、Access2007使ってはいますが、基本的に周りの環境が
Windows2000なので、Access2000形式で作成していますし。

大まかなものは、Access97でも用をなしますよ。勉強用っていうなら、
必要にして十分。

現在は、Access2007 + MySQLのC/S環境でシステムを構築していま
すが、このツールで作っていても、その殆どはAccess97でもコーディン
グできるものです。まぁ、一部は高度なコーディングならば同じ機能が
実現できますが（まぁ、それをやりたくないので、2000以上にしているん
ですがね - 特にXML関係）

１

このあいだやっと97まで撲滅させたけどまだ
2000と2002と2003と2007が混在しとるっちゅうねん

せめて2000にしといた方が後々ラク

>>163
2002と2003はいらんような気がするなぁ。

2000は、Windows2000環境とかのがまだあるから必要って感じで、でも、XP以上
のマシンだけになったら、2007ランタイム使えるから（というかこれがXP以上じゃな
いと使えない）、そうなったら全部2007移行でもいいな。

だからまだaccdb形式を使っていない。

accdbのテーブルを旧バージョンで利用したいという要望もあるので
DBEngine.CompactDatabase "2007.accdb", "2002-2003.mdb", dbLangJapanese, dbVersion40
こうやって最適化ついでにバージョン落としてデータ作成してるんだけど

DBEngine.CompactDatabase "2007.accdb", "2000.mdb", dbLangJapanese, dbVersion30
これで2000のユーザー用に2000形式のDB作ろうとすると実行時エラー3301になるんだよね
古いバージョンでは利用できない機能がどうのこうのとか。

もちろんaccdbはフォームもレポートもモジュールもなしのテーブルだけDBだし
テーブルも複数値型だの添付ファイル型だの新機能は一切なし。

仕方ないから一旦2002形式に落としてACCESS2002から2000形式に落とすとかいう
しょうもない仕事はもうイヤだお・・・

>>158様、どうもありがとうございました。

>>166
ひょっとしたら、アタッチメント型という、ファイルをテーブルに埋め込める形式
が悪さしているのかもね。これ2007からだから。

なもんで、いまだ最初からmdb形式（Access2000で）作ってから、システム構築
してるよ。

>>168
Attachment Data Type の日本語訳が添付ファイル型やぞ

mdbをバックエンドにすればいいんじゃなかろうか

あくせく働くためにアクセスやります。

なんでmdbやらaccdbやら、地雷内臓DB使うん？　素直にsql-server すれば？
つか、MSはmdbをsql-serverで一元化すんじゃなかったの？

sqlite3と比べるならまだしも、mssqlかよｗ
池が狭いと、フラットファイルDBと鯖製品を並べて語っちゃうのか。

>>172
> 地雷内臓DB
ﾜﾛﾀ

おい、コンボボックスでdirtyイベント発生しないのか？？

おしえてくらはいませ
2007です

VBAで、"Status"っていう名前の一時変数設定したいんですけど
以下の【式】の部分には何を書けばよいですか？

---------------------
Access 開発者用リファレンス
TempVars.Add メソッド
すべて表示
すべて非表示
TempVars コレクションに変数を追加します。
バージョン情報
追加バージョン: Access 2007

構文

式.Add(Name, Value)

式 TempVars オブジェクトを表す変数です。

すまそ。GoodsテーブルにCategoryというフィールドがあります。

これに値を入力するときにプルダウンメニューで値を選択するようにしたいのです。
ちなみに値を入力するときはフォームは使わず、データシートビューで値を入力しています。

Access2002です。キーワードだけでも教えていただければググリますので・・

なんしろどうしたらいいかわかりません。よろしくお願いします。

あげわすれ・・

>>176
普通に
TempVars.Add(Status, Value)

当たり前だけど Value には本当の値を入れてね。

自己解決しますた。ルックアップなんですね。

>>179
それで旨くいかないぞっと
試行錯誤の結果、バグのような希ガス

TempVars使ったことあるから過去のコードを調べてみようかと思ったが
>>181があまりにも謙虚すぎてやる気失せたわ

？？
俺だけ？

TempVars.Add(Status, Value)　で通らなくて
カッコを外して
TempVars.Add Status, Value　なら通ったんだけど

俺なんか勘違いしてる？

ご質問（かなり長文です。）
以下のテーブル構成で、次のことをしたいと考えています。
（なお、シチュエーションはフィクションであり、実際にやりたいことを
架空のシチュエーションで置き換えています。）

シチュエーション：
修学旅行のグループ分けの時に、友達同士で組ませるとあぶれる子がいるため、
その子を比較的交流のある子のいるグループに入れる。
ただし、社会の点数が高い子同士で組まないよう、そのグループの成績を
合計し、一定以上の点数にしないように配慮する。（グループが組まれた時点で
既に一定の点数を超えることは問題ない。）
なお、T_4は現在調査中のため、調査の進展とともにデータが追加される。
（他は全てあらかじめ決まっていて、変更はない。）

T_1（社会の成績テーブル）
クラス
出席番号
社会の成績
（主キーとしてクラス、出席番号を指定。当然それぞれ単体では重複データ有り。）

T_2a（グループテーブル：T_2bと組み合わせて生徒と友達グループの対応を表現）
クラス
班番号
社会の成績計（T_1（ないしT_2b）から友達グループの社会の成績の合計を計算したものをあらかじめ入れてある。）
（主キーはクラス、班番号を指定。これもそれぞれ単体では重複データ有り。）

（続く）

T_2b（グループ構成員テーブル：T_2aの構成員を表現（あぶれた子はここに入れない）
クラス（外部キー）
班番号（外部キー）
出席番号
社会の成績（データはT_1と同一だが、数値データをあらかじめ入れてある。）
（主キーはクラス、出席番号だが、固有インデックスとしてクラス、班番号を指定。
また、T_2aと一対多リレーションシップを設定。）

T_3（あぶれた子リスト）
クラス
出席番号
姓
名
（リスト中に姓、名に同一の子は数多くいるが、同姓同名はいない。）

T_4（交流リスト：T_3に載っているあぶれた子と交流のある子を記載……するはずだが、
　　　なぜか交流のある子のデータは出席番号）
姓
名
交流のある子の出席番号
決定フラグ（Yes/No型としており、グループに入れる先にいる（交流のある）
　　　　　　子のレコード１つにチェックを入れる）
（主キーとして姓、名を指定。交流のある子は同じクラスの子に限定なので記載がない。）

注意：T_1の全ての子はT_2bとT_3のいずれか一方のみに必ず搭載することになるはずだが、
別の件のデータと混載しているため実際には両方に掲載されている子が存在。
ただし、抽出用データをT_3に組み込んであるため、クエリにより
T_1＝T_2b（抽出後）とT_3の排他的論理和にすることは可能。

（さらに続く）

ここで、T_4にクラスがなく不便なことから、次のようなクエリを作成し、編集が可能であることを確認しました。
Q_5（あぶれた子のデータ一覧）
決定フラグ(T_4)
クラス(T_3)
出席番号(T_3)
社会の成績(T_1)
交流のある子の出席番号(T_4)
結合：[T_1].[クラス]=[T_3].[クラス] and [T_1].[出席番号]=[T_3].[出席番号]
　　　[T_3].[姓]=[T_4].[姓] and [T_3].[名]=[T_4].[名]

その上で、次のことをしたいと考えています。
要望：T_4の決定フラグにデータを入れる参考とするため、次のクエリを作成し、
　　　決定フラグをクエリから立てられるようにしたい。
Q_6（交流のある子の所属グループ）
決定フラグ(Q_5=T_4）
（あぶれた子の）クラス(Q_5=T_3)
（あぶれた子の）出席番号(Q_5=T_3)
（あぶれた子の）社会の成績(Q_5=T_1)
交流のある子の出席番号(Q_4=T_4）
（交流のある子のグループの）班番号(T_2a)
（交流のある子のグループの）社会の成績計(T_2a)
（そのグループに追加する子のそれぞれの）社会の成績
　　　　　（社会の成績に制限があるため、このクエリを元に集計クエリを作成し、
　　　　　　上限を超えていないか確認する際に使用）

（もう１つ続く）

このクエリを作成するため、以下の結合を作りました。（この時点では、
まだ「（そのグループに追加する子のそれぞれの）社会の成績」フィールドは作成してなく、
代わりにダミーとして[T_2b_1].[出席番号]を追加しています。）
[Q_5].[クラス]=[T_2b].[クラス] and [Q_5].[交流のある子の出席番号]=[T_2b].[出席番号]
[T_2a].[クラス]=[T_2b].[クラス] and [T_2a].[班番号]=[T_2b].[班番号]
[T_2a].[クラス]=[T_2b_1].[クラス] and [T_2a].[班番号]=[T_2b_1].[班番号]
注：[T_2b_1]の実体は[T_2b]

しかし、ここで作ったクエリは編集不可でした。（T_2b_1を結合させる前までは編集可能であった。）
質問は以下の３点です。
１．何が問題で編集不可となったのでしょうか。
２．この問題を回避する方法はないでしょうか。
３．この後、Q_6の結果から集計クエリ（クラス、班番号をグループ化し、追加する
　　子の社会の成績の合計を計算）を作成すると、いろいろなサイトの情報から察するに、
　　そのクエリは編集不可になると思いますが、追加する子の社会の成績の合計を
　　見ながら決定フラグを編集する手段はないでしょうか。

使用しているのはAccess2003 + Win XP、VBAは出来れば無し（不可避ならば
手法をお教えくだされば幸いです。）でお願いできればと考えております。

＞シチュエーション：
＞修学旅行の夜、イケメンのYが女子グループを呼んで
＞トランプして遊んでたんだ。
＞おれは普段から女子と話すことがなかったから
＞トランプ中もただひたすら札を眺めてるだけだった。
＞ねむてぇ・・　そう思った瞬間、ドアの外で見回りの教師の足音が聞こえてきた
＞Y「やべえ隠れろ！」　そうYが叫び
＞みんながアタフタしてる中、おれは颯爽と押入れに飛び込んだ。
＞荷物だらけでせまい押入れに入った瞬間　「男子部屋なんだし俺隠れなくていいじゃん」
＞そう思った瞬間に誰かが飛び込んできた
＞「おいおいここはもう満員だ」　A子「もぅ先生きちゃうよっ」
＞慌てた様子で入ってきたのはあろうことか女子。しかもクラスで１、２を争う美形のA子だった。
＞「ちょ、ごめん俺でとくよ」　A子「しっ！　せんせー入ってきたよ」
＞外ではY達がみつかり廊下で説教をくらいはじめていた
＞「まいったな。。とりあえず部屋にでようか？」　A子「ううん　もう少しここにいよう」
＞その時、はじめて俺はA子と暗い押入れの中で密着していることに気づいた。
＞（やばい・・急に緊張してきた。どうしよう・・・）
＞何分、いや何秒だったのかもしれない長い沈黙が続き
＞必死で次の言葉を探していた瞬間　A子の手がそっと俺の

まで読んだ。

仲良しグループで勝手に組ませとけ、あぶれたら先生と一緒に。
これが日本の教育現場の伝統だろうが

ワロタW
4レスも使って一生懸命説明した184には申し訳ないが、おれもさすがに長過ぎて読む気になれん。
どっかにうぷ出来んかね？

自分もこのスレで解決のヒントをもらった事があるから
何とか力になろうと思って>>184から　3回読み返したけど




理解できなかった　スマソ

>>184

例えば編集できないクエリの内容をそのままワークテーブルに書き出して
予め決定フィールドを作っておいて、「決定」チェックボタンのクリック
イベントで、SQLを使ってしこしこと 個別のテーブルの決定フラグを
更新とかじゃだめなんかな

わかりづらくてごみん

>>184-187
■１．何が問題で編集不可となったのでしょうか。
[Q_6]にダミーとして追加した[T_2b_1]が原因としか言いようがないです。
１つのクエリに同一テーブルの参照を複数追加した場合は更新不可となります。
[T_2b_1]は名前こそ違いますが実体は[T_2b]ですからね。
また本来、１つのクエリに同一テーブルを複数追加する必要はありません。

■２．この問題を回避する方法はないでしょうか。
[T_2b_1]というテーブルを実際に作成する以外、回避する方法はありません。

■３．この後、Q_6の結果から集計クエリ（クラス、班番号をグループ化し…(ry
[Q_6]の‘（そのグループに追加する子のそれぞれの）社会の成績’の部分が
理解できませんでした。同様に[Q_6]を作成するために何故ダミーを追加する
必要があるのか理解できませんでした。

・・・・もう少し・・・ｗ


>>183=181
If MsgBox("これはヒントになりますか？", vbYesNo) = vbYes Then
MsgBox "それは良かった！", vbOKOnly + vbInformation
Else
MsgBox "それは残念…orz", vbOKOnly + vbExclamation
End If

>>188
個人的にはそういうネタは好きですけど、個々まで長文を書くにはそれなりに
真剣だということなので・・・

>>192
出来る限りT_1〜T_3に手を加えたくないのが一点。
もう一つは、修正等の手間を考えるとSQLのような知識が必要な操作は
あまり入れたくないかな・・・と。
後々修正が必要なときに見づらくなるのが・・・

>>193
> １つのクエリに同一テーブルの参照を複数追加した場合は更新不可となります。
なるほど。
> また本来、１つのクエリに同一テーブルを複数追加する必要はありません。
これは、全ての事例に当てはまるのか、一般論なのかどちらでしょうか？
（確かに、違うフィールドに同じクラスのデータが入るのはやや特異な気がしますけど。）

> [T_2b_1]というテーブルを実際に作成する以外、回避する方法はありません。
リンクではなく、実際に作成するということですね。

> 同様に[Q_6]を作成するために何故ダミーを追加する 必要があるのか理解できませんでした。
必要は全くなく、[T_2b_1]をひょうじさせたところで結合やフィールドの選択を
間違えていないか確認したくなって、でも[T_2b_1]で追加すべきフィールドが
ないので適当なフィールドを加えてみたら、その時点でうまくいっていなかった
ということです。

> ・・・・もう少し・・・ｗ
実はこれでも、必要な部分を取り出したつもり（本当はT_2aとT_2bと構造が
同じで中身が異なるT_2AとT_2Bがあり、T_3がその（T_1の）補集合データも
含んでいて、同様の作業を行う（そのため、T_2bとT_3にかぶりがある）とか、
その他に結合すべきテーブルがいくつかあるとか）で、もっと複雑な構造をしているのです・・・

>>190
同意。
>>191
正直しんどい、分かります。
>>192
ワークテーブルを作りたくなりますよね。
サブクエリがネストしてると頭が痛くなりますし。

>>194=184-187
データベースの作法からすると変則的ですが、こういう方法はいかがでしょう？

[テーブル1]：　[F1], [F2], [F3]
[テーブル2]：　[F1], [F2], [F3]

ここで[テーブル1]を元に[クエリ1]を作成します。ただの選択クエリです。
[クエリ1]： [テーブル1].[F1], [テーブル1].[F2]

この[クエリ1]を修正し[テーブル2]の[F3]の合計を追加します。
ただしテーブルの追加は一切行いません。
[クエリ1]に追加する式： DSum("F3", "テーブル2", "F1=" & CStr([テーブル1].[F1]))
　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
この様にDSum関数をクエリ内フィールドで式として使うことで更新可能なクエリが作成できます。

# 必死なのはよく分かるのですが、もう少しやりたい事を整理していただければ。
# SQLのような操作はあまり入れたくないとか、あと出しは知恵を貸してくれた人に失礼ですよｗ

>>195
どこかにうｐできれば楽なのは分かってはいるのですけれど、
Accessがある環境は会社ですし、最近のコンプライアンスの強化などで
データの持ち出しもそもそも業務外のことをするのも難しいですからw
（実物は業務にかかる作業に使うものなので職場での作業は問題ないのですが、
構造を含めデータを見せることは不可能。無害化するのも結構手間がかかります。）

> [クエリ1]に追加する式： DSum("F3", "テーブル2", "F1=" & CStr([テーブル1].[F1]))
DSumについては、試してみたいと思います。

> # 必死なのはよく分かるのですが、もう少しやりたい事を整理していただければ。
やりたいことは184のシチュエーションのとおりです。
テーブル名答を使えば、T_3のうちT_2bに記載のないレコードの全てに
T_2aでいうところの外部キーを追加し、T_1の全レコードにT_2aのレコード
との対応をつけたい。
ただし、対応の付け方に条件があって、既に対応のついているT_2aのレコードと
相対的関連（ここでは「交流のある子」）があること、持っているデータの組み合わせ（シチュエーションでは「社会の成績の合計」）に制限があるので、
関連づけには目視が必要（自動化するには、素人なので開発の時間がない）ため、
クエリ等、候補をデータとともに目視する仕組みおよび、その画面で決定のフラグを付けたい。
・・・というものです。
# これ以上は、自分の説明能力のなさからわかりやすくするのは厳しいです。

> SQLのような操作はあまり入れたくないとか、あと出しは知恵を貸してくれた人に失礼ですよｗ
SQLが出てくることは、UNIONクエリ等を除けばクエリで出来るとの
考えでいたため、想定外の回答でしたので。
後出し感については、確かにその通りです。失礼いたしました。

あれはダメ、これもダメ、手間がかかります、時間がない、礼は言わない、でも教えれ、失礼。

要約するとこうですね、分かります。

>>197
あまりに的確でﾜﾛﾀ。

>>184の会社で出来る外注雇えｗｗｗ

A子の手がそっと俺の…

なんだよ！きになるじゃねえか！>>188

>>198
大変残念なことに、外注を頼める金も権限もありません。
（なにぶんにも、予算という制約がありますので。）


>>195
本来は試した結果を早々にお知らせすべきところですが、
平行して走っている案件（そちらの方が重要度大）が朝から進行したため、
データベース作業は全く動いていません。
とりあえず、引数の意味などを確認して月曜日以降に確認し次第、
ご報告させて戴きたいと考えています。
（ただし、そこまでいさせていただける環境があるのかいささか疑問ですが・・・
ともかくも、本来は報告の際に行うのが筋でしょうが、この場で感謝をば。
ご教示いただき大変有り難うございます。）


>>197
この時間に帰ってきて、このレスを拝見させて脱力させていただきました。

教えてやったことをやらないのはどういうことだ、そんな制約はきいていない、
教えて貰うんだから時間を作ってでも手間を掛けるのは当たり前だろ、
話が途中だが教えたんだから礼を言え、根掘り葉掘り聞くな。
・・・大変良く分かります。
最後の「、失礼」なんて、クレームに謝罪すると、その言葉に突っかかってくるクｒ（ｒｙ

ともかくも、全ての制約条件を記載できるほどAccessに精通していないため、
ここでお尋ねさせていただいているわけで、それにもかかわらずそれだけの
経験や知識を求められていることに、やややるせなさを感じています。
（>>195のような方がいる中でこのような発言をすることは、その方の
心証まで悪くされてしまうため不本意なのですが、あまりにも心ない発言と
思われることからあえて書かせていただきました。
>>197,198以外の皆様には、気分を害する記載したことを、この場で謝罪させていただきます。）

>>200
おまえ、会社で
「まじめで良い奴だけど、要領が悪い」
とか言われてないか？

ACCESSなんて適当でできるじゃん

>>202
Accessは優れたUIツールとして使っている。

Access 2007 Developer Extensionsを使って
アップグレード用のパッケージって簡単に作れないんでしょうか？

確かにWEBも余裕で作れるしな
これで、SQLにつないでる人多いのかな。
移行もしやすそうだよね。

アクセス難しそうだ。
と思ってたらすげー簡単だった。

ただし結構
関数とか反応しなかった利するな
更新前とかごとか
ようわからん

>>204
そもそも、mdbを更新すりゃいいんだから、別に問題ないんじゃない？

おいらの場合、mdbその他、セッティング用のiniファイル、XML出力用のXSLファイル
なんかも同梱した形でパッケージつくって、配布している。DB本体はMySQLへ接続し
て使うものだから、データベース自体もSQLファイルで配布。あとは、MySQLのAdmin
ツールつかって、SQLファイルを入れて、マシンにはMyODBCを入れてもらう。

で、アップデート時には、mdb本体だけ更新するようにしている。
あたりまえだけれど、mdbにはデータ類は何も入っていない。あくまでフロントエンド。
MySQL使わないパッケージの場合、バックエンド用MDBも同梱しているけれどね。

>>208
おお！
拡張子変えてあるだけなんですね･･･
ありがとうございます

人に頼まれてデータベースを作りました
内容は非常にベタというかオーソドックスなもので、各種データを入力し、リストを作成することと
そこから条件検索をかけると抽出したものが一覧表示されるというものです
例えば個人の情報を入力して「東京」で検索をかけると東京都在住の人の一覧が出るといった感じですね

ただ、完成して相手に渡してから最初に確認してなかったというお互いのミスに気づいたのですが
自分は自宅のXPにインストールしていた2000で作成したのですが
相手の環境がVistaで2007だったためにうまく動かない箇所が続出してました

どうしようかということで結局相手から2007がインストールされたVistaのノートPCを預かって
2000では動いたけれど2007では動かない点を修正しているのですが
どうしても直せない問題が１点あって悩んでいます

作成したリストについて、テキストボックスを作成して、そのテキストボックスのイベントで
「更新後処理」→「マクロ」を「フィルタの実行」で別に作成していたクエリを実行させるという方法を取っています
また、隣に作ったラジオボタンのイベントで「クリック時」にそのテキストボックスのマクロ名を実行させることで
テキストボックスに文字を入力し、ボタンをクリックすることでクエリを実行し、リストの抽出をかけられるようにしました

ここまでは問題無いのですが、次に別の条件で検索をかけようとしたときに
テキストに別の文字を入力してクリックしても最初に入力した文字での結果しか表示されないのです

ちなみに一度抽出したリストはラジオボタンのイベント「クリック時」で
「全レコードの表示」というマクロを実行させることで抽出前に戻せるようにしていますが
一度全レコードを表示させてから同様にしても結果はやはり同じです

要するに2000ではそこまで考える必要が無かったけど
2007では一度マクロを実行させたときにテキストボックス内の文字が無効になる
仕組みがあれば良いのかなと思うのですがよくわかりません

よろしくご教授、アドバイスお願いします

＞「更新後処理」→「マ

ここで読むのをやめた

＞よろしくご教授、アドバイスお願いします

ここまで読んだ

＞必死で次の言葉を探していた瞬間　A子の手がそっと俺の

まで読んだ。

そこまで読んだ感じだと、これかな。
ttp://support.microsoft.com/kb/941800/ja

話戻して悪いけど、データベースのソフトの一個としては簡単だろうけど、
Microsoftのソフトの一個として入ると難しい。
何となくExcel使ってるだけの人には、データベースの概念がわかりづらいらしい。
ま、それを言っちゃあAccessに限った話ではないんだけど。

【 システム環境　 . 】 Windows XP SP2, Access 2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 可
【 検索キーワード　】 サブフォーム 挿入前イベント

メインフォーム＋サブフォームという構成のフォームにおいて、
サブフォームで挿入前イベントを取得するにはどうしたら良いでしょう？
サブフォームのプロパティの欄にフォーカスの取得/喪失時のイベントしか見あたらないのですが…

（主キーにオートナンバーではなく数値型を使っているので、挿入前イベントがとれないと困ったことに！）

ペニス挿入したいのか？

>>216
挿入前「処理」イベントでしたね

ttp://okwave.jp/qa1785013.html
などを見ると、サブフォームにも更新前処理イベントがありそうなのですが、自分の環境ではプロパティ欄に表示されないというのが謎です
（主キー関連で、CurrentRecordが使いたいのですが）

それはメインフォームのサブフォームコントロールのプロパティ。
サブフォームのフォームを選択するんだ。

>>218
デザインビューにしてサブフォームを選択（クリック）した場合のプロパティシートは、「メインフォーム上のサブフォームのプロパティ」ということですね
サブフォーム内のフォームのプロパティを開くにはどうすれば…？？
右クリック等ではそれらしいのが見あたらないのですが

フォームの選択は左上の四角をクリックだ。

>>220
デザインビューですよね？
オフィス2007だと↓みたいな感じで、左上に四角形が無いんです…どこに行ってしまったやら

http://up.mugitya.com/img/Lv.1_up72526.png

んー？テーブル埋め込んでる？
フォームじゃないとダメだよ。

きっと使ってるうちに慣れるはずと思いつつ早半年・・・
やっぱり2007使いづれええええええええええええ！！

>>222
確かに見た目はテーブルっぽいのですが、プロパティの表示が「サブフォーム」だったので、これもサブフォームと呼ぶのかなと思っていました
この場合（テーブル？）、挿入前処理イベントは発生しないんでしょうか

発生しないとしたら、どうやって新規レコード挿入時に自動採番すれば良いのだろう…

>>223
Excelやパワーポイントの2007は使いやすいんですけどね
Accessは…2003以前の解説サイトの情報が、2007で適用されなかったりするのが困ったところです

>>224
だからフォームじゃないとダメなんだってば。
「見た目はテーブルっぽい」って…実際は何だっていうんだ？
サブフォームのソースオブジェクトの話だぞ。

>>221
右下に小さくあるよ

キーボードのwindowsキー（窓の絵が描いてあるやつ）、どうやって無効にすんの？
桐でないと無理？

うん、桐でないと無理だよ。

Access2007で突然、通過型・数値型フィールドでのカーソル移動が劇重になりました。
テキスト型フィールドではマトモに動きます。
まったく使い物になりません。
テーブルでもクエリでもフォームでも同様です。
レコード数を削って減らしても、MDB形式に変換しても改善されません。
どうようの経験ある方はいらっしゃいませんか？

Access2007は地雷ですか？

>>226
サブフォームにも、テーブル（またはクエリ）と、フォームの2種類があるってことですね
で、サブフォームのテーブルには挿入前処理イベントは無い、と

テーブルっぽいフォーム作って、それをサブフォームにすることでOKでした

レスいただいた皆様、ありがとうございました

>>227
無いっす…

>>231
ごめん

あるっていったのは、オレンジ色でかこった部分。ここが貴女の望んでいるそれです。
http://www2.uploda.org/uporg1663486.jpg

あと、豆知識として、フォームそのものを選択する場合には、フォームの上下左右の
切れ目付近をクリックすること。で、フォームで使うソースの選択などは、右上にある
無印の■をくりっくすると、点が■の中にでてくるのでそれで選択したことになる。

>>230
突然というか俺は最初からそうだった。
OfficeのSP1当てたからかどうか知らんけど今は直ってる

>>233
治りました。

SP1は、とうの昔に当てています。
実は一週間前に症状が出て、officeの修復したら一度治りました。
今朝、突然再発、何をしても治らず、officeの修復しても治らず、試しにAccess2000時代のMDB動かしたら普通に動いて、それから治りました。

もう、桐にしときます。

Officeボタン邪魔じゃない？

クイックアクセスツールバーとリボンは消したけど、Officeボタンがーーー

>>235
Accessの場合、あまり使わないね。

>>231
テーブルっぽいフォームが欲しいならフォームの既定のビューをデータシートにするといいかも。
場合によるけど。

マクロとVBA
どちらでも可能な処理では、どちらが速いですか？

>>238
ここはおれより詳しい人が沢山居るけど、予想を書いておくと、
マクロってのは自動でVBA書いてるようなもんだから（Excelの「マクロの記録」みたいなもん）、同じ内容なら同じ。
但し、あくまで自動生成なので、余計なもんが入ることもあるだろうな。

【 システム環境　 . 】 Windows XP SP2, Access 2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 可

VBAのサンプルが見たくてテンプレートの資産管理や
マーケティングプロジェクトを開いてフォームのイベントを
見たら、どれも［埋め込みマクロ］になっていました。

Access2007では、イベント プロシージャよりマクロを
使った方が良いんでしょうか？

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 固有の値、固有のレコード

フォームでコンボボックスを作成し、
値集合ソースをクエリビルダ（右側の...を押す）で作成する時に分からないことがあります。

クエリビルダで複数のフィールドを選択し、
その内のひとつのフィールドだけに「固有の値」プロパティを適用したいのですが、
可能でしょうか？

具体的には、総務省の郵便番号データをダウンロードしてテーブルにしました。
都道府県フィールドをコンボボックスで表示させるとき、
北海道から沖縄県へと北から南に順々とコンボボックスで表示させたいと考えています。

都道府県フィールドだけだとＪＩＳコード順に並んでしまうようなので（愛知県が先頭）、
5桁の数字からなるフィールド１（最初の2桁が都道府県、後ろの3桁が市町村を表す）もクエリビルダで選択しました。
そして、left関数でフィールド１の左2桁を選び、並べ替えフィールドで昇順としました。

ここで「固有の値」プロパティを「はい」にすれば、北海道、北海道、北海道・・・・と
同じ都道府県が並ぶことなくコンボボックスに表示できると思ったのですが、
「固有の値」プロパティは選択したすべてのフィールドが固有の値を持つ場合のみ適用されるらしく、
このコンボボックスを動かすと、北海道、北海道、北海道・・・となってしまいます。

そこで質問なのですが、
コンボボックスの値集合ソースをクエリビルダで作成する際、
複数のフィールドを選択して、その内のひとつのフィールドにだけ
「固有の値」プロパティを適用させることは可能でしょうか？

ご教示よろしくお願い致します。

すいません、自己解決しました・・・・・・

クエリビルダで都道府県とフィールド１と郵便番号ID（主キー）というフィールドの３つを選択してました。
それだとできませんでした。理由はわかりません。

>>241を書き込んだ後、郵便番号ID（主キー）をクエリビルダから削除してみたところ、
そうしたら、北海道から沖縄県まで北から南まで順々に表示させることができました。

お騒がせして申し訳ありませんでした・・・・

>>241でうまくできなかった理由がわかりました。
主キーはすべてのレコードで異なるので、すべてのレコードを重複しない
とアクセスが認識したためでした。

初心者とはいえ、馬鹿な質問をしてすいませんでした。

>>239
ここでの質問って

たとえば、DAOで処理しているのと、それをAccessのマクロとではどっちが
早いのだろうかってことなんじゃなかろうか？

たしか、明確な差があるとかなんとかってのをウェブで見かけた

Access2007でアプリ作っても使用者からナビゲーションウインドウ隠せないの？
何ていうセキュリティ
テーブルの中身全部見られちゃうじゃんか

古川さん、お疲れ様です

誤爆した御免

>>245
mdeのようにしちゃうとか。

いわゆるmdbやaccdb形式だとだめでしょう。たしか、accdbも、いわゆる
ランタイムモードってのが付いていた気がする。
ｑｗ

Access達人の皆様、教えて下さいませ
allowbypasskeyの設定をFalseで固定してTrueに出来ないようにしたいですけど
不可能だなと思っていました
DAO接続で外部から設定すればできちゃうから

で、以下のACShift.mdeは、外部からallowbypasskeyの設定を変えれなくなっています
いったい全体、どんな仕組みになっているのでしょう？

ここ↓の、シェアウエアに入ってる ACShift.mde です
http://www.vector.co.jp/soft/win95/business/se244274.html
ACShift.mde の機能の事ではなく、ACShift.mde 自身自体が外部からallowbypasskeyの設定を変えれなくなってます

>>248
ああ、13秒遅れでレスが被ってしまいました
mde にしてもナビゲーションウインドウを見られてテーブル全部覗かれてしまいます
allowbypasskeyを False に固定したいですが >>249 の ACShift.mde は外部から True に出来ますか？
やろうとしたけど、False に固定されてて True に出来ませんでした

>>249
夢を壊すようで悪いが、そのmdeも外部からallowbypasskeyの設定簡単に変えられたけど。
藻前さんが設定の変え方間違っただけで、別に何の仕組みもないと思うよ。

>>251
> 夢を壊すようで悪いが、そのmdeも外部からallowbypasskeyの設定簡単に変えられたけど。
あううーーん
どうやって変えたか、ぜひ、具体的に教えてくらはいませ、お願いします<m(__)m>

パスワード
権限の設定ではだめなんだろか

あああ、でけました
ターゲットMDEを C:\ に置いてたから、VISTAからブロックされてたみたい

で、結局、使用者にテーブル見せない方策は存在しない？

>>253
それ、他のPCにMDE(MDB,ACCDB,ACCDE,ACCDR)コピーして開くと無意味になる

使用者にテーブルを絶対に見せない方策
やっとできました

なんだろ

webフォームしか見せないとか

つ
かって一か月だからよくわからん

2003までのパスワードはアンチョク過ぎてツールで一瞬で解除されちゃう
2007のパスワード付きACCDB,ACCDEは shell起動が出来ない
残された道は...

>>258
まぁ、C/Sにして、サーバー側でアクセスコントロールすればいいだけでしょ。

ヒントで、おいらも解ったお！

重複クエリのデータって表示するだけで使いまわし出来ないの？
いったんテーブル化しないとダメ？

>>261
俺使い廻しているけれど？

というか、所詮クエリだから、なんだって使い回せると思っていたけれど。

>>261
ちなみに、俺がやっているのは

不一致クエリで追加されていない新しいデータだけを抽出して、マスターテーブルに
追加するタイプと、重複クエリで両方のテーブルに存在するものだけひっぱったもの
を、さらに別のテーブルに追加するようなタイプだ。

前者は使いどころが結構あるけれど、後者はあまり使いどころがないね。

>>258
えっ、２００７だとアクセスデータベースからパスワード付いた別のアクセスデータベースを起動できないんですか？

>>262
そうなんですか。
実は名前と日付の二つのフィールドしかないデーターベースがありまして、
名前　　　　日付
山田一郎　平成20年1月1日
山田一郎　平成20年2月29日
山田一郎　平成20年12月31日
山田二郎　平成20年3月1日
山田二郎　平成20年4月15日

と言うかんじでして、各々の人物について日付の最大と最小の間隔を求めないといけない状態です。
重複クエリと集計クエリを組み合わせて日付の最大と最小の差を求めようとしたのですが、差がゼロになってしまって困っています。
テーブルに書き出してからは出来るのですが、クエリーだけで処理したいなと思いまして。。。

太郎それデータベースちゃう

>>266
いやまあ、もっとでかいデーターベースから抜粋したものです。

>>258
ODBCならパスワード渡せますね。
autoexecでODBCからリンクテーブル作るようにすれば良いです。

dbSecWriteDef ってどうやって使うんの？

>>265
本当にそんな構造のテーブルでそんな値を求めたいというだけなら
Select 名前,Datediff("d",Max(日付),Min(日付)) As 日付差 From テーブル名 Group By 名前
じゃ駄目なわけ？

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 ヘッダー　フッター

メニューから「フォームデザイン」を選択して、フォームを設計します。
そのときは「詳細」しか出ません。
メニューの「デザイン」タブから「タイトル」というアイコンをクリック
するとヘッダ-とフッターがでます。しかし、ヘッダーやフッターを非表示
にすることはできません。

ここで質問なのですが、フォームデザイン時に、ヘッダーやフッターを
表示させたり非表示させるにはどうすればいいですか？

よろしくお願いします。

>>271
詳細セクションの境目を上下にドラッグする
色々とドラッグしてみ

境目ドラッグはうまく出来なかったのですが、
なにかの拍子に詳細セクションでマウス右ボタンを押したら、
ヘッダーフッター表示・非表示がありました。

あれこれ試してという>>272様のアドバイスのおかげです。
どうもありがとうございました。

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】

ワイルドカード（アスタリスク）は以下のように使用できますか？

　Like *[forms]![フォーム1]![コンボ14]*

フォーム１というフォームにある、コンボ14の値を用いてあいまい検索をしたいのです。
上記のように試したところ、うまくいきませんでした。
&記号を用いてもみましたが、それでもうまくいきませんでした。

　Like *&[forms]![フォーム1]![コンボ14]&*

どうしてうまくいかないのでしょうか。さっぱりわかりません・・・・
ご教示の程、よろしくお願い致します。

テンプレに載せたくなるほど型通りの質問だな

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 レポート、フォント

恥ずかしい質問なのですが、レポートでラベルやテキストボックスを印刷すると
フォントの条件がエクセルと同じであるにもかかわらず、
エクセルより太く印刷されてしまいます。なぜでしょうか。
フォントはMS　P　ゴシック、サイズは11でboldやイタリック等の
装飾は無しです。つまりエクセルのフォントの初期値と同じなのですが、
印刷すると太くて見にくいのです。
ラベル等のプロパティで文字の太さを極細にしても変化はありません。
よろしくお願いします。

こっちも質問です
大体のヒントでいいのですが
三つのテーブルに住所欄がそれぞれあり
に一つだけ住所が入ってるとしたら
その一つをフォームのテキストボックスに
表示するのはどうしたらいいでしょうか

【 システム環境　 . 】 Windows server 2003, Access 2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 ターミナルサービス、server 2003、Access、排他、複数、同時

Windows server 2003 の ターミナルサービス を利用し、
複数ユーザでひとつのAccess(MDB)を実行させたいと考えているのですが、
きちんとプログラムで排他処理していれば、技術的に問題はないですか？

今までは、それぞれのクライアントPCにMDBをおき、SQL Server を、
みにいっていたのですが、ターミナルサービス初挑戦なので不安です。

よろしくお願いします。

SQL Server使うのやめちゃうの？

＞＞256
漏れも出来たお！
＞＞268 の方法だと作業中電源断されるとマズイ可能性あるお！
もっとスマートな方法が幾つかあったお！
日本語のパクリ元はないお！

はい、ランタイム環境でも可能な方法もありますね。
桐にしとくのは、止めました。

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 レポート
レポートのグループフッタで、全体平均より上だけの平均・下だけの平均という
計算をしたいのですが、うまい方法が思いつきません。ご教授ください。

英語(グループヘッダ)

名前　　　点数
(詳細)
　山田　　　70
　木村　　　60
　佐藤　　　40
　鈴木　　　50

英語集計(グループフッタ)
平均　　　　55
平均以上　　65　　←ここを集計したい
平均以下　　45　　←ここを集計したい

>>279さん

SQL Serverは使います。

どこかネット上で、こういった例が書かれてあるサイトがあったらなぁと
思うのですが、なかなかないですね・・・
メタフレームでは、ちょこっと見かけるのですが

ターミナルサービスって人気ないんですかね。

server2003に、担当者の数だけ、入力用のMDB置くのもかっこ悪いですし・・

【 システム環境　 . 】 Windows XP Professional ver2002, Access 2000
【 VBAが使えるか .】 はい (事務はvb6でつくってる)
【 VBAでの回答　　】 可
mdbの中のテーブルをプログラム上からのみ編集可能にするにはどうしたらいいでしょう?
管理職で勝手に編集するやつがいて困ってます。

>>284
テーブルを見せないように隠せ

285>>
テーブルプロパティで隠しオブジェクトにチェック入れるってコト?

起動時にメニューフォームをポップアップ最大化で開いて
そこから各種フォーム開く
メニューフォーム閉じるときイベントでmdbも終了しる

>>287
隠せました。モジュールにコードを記述してルーチン内で実行。
消えた後はコードを消去して証拠隠滅。
サンクスです。

test

>>282
そこで隠しテキストボックスの出番だ！

すいません。どなたか>>274にご回答いただけないでしょうか？
本屋に行ってアクセスの本（入門書）を何冊か立ち読みしてみました。
索引でワイルドカードを探して該当するページを読んでみたのですが、
コンボボックスで選択した文字を使ってワイルドカードを使う例が載っていませんでした。
ヒントだけでも構いませんので、どなたかよろしくお願い致します。

申し訳ありません。自己解決しました・・・
↓これでいいんですよね？

like "*"&[forms]![フォーム1]![コンボ14]&"*"

お騒がせして、本当に申し訳ありませんでした。

　Like *& Eval([forms]![フォーム1]![コンボ14]) &*

フォーム上のテキストボックスの内容を
テキストファイルまたはエクセルファイルに書き出すには
どうやったら良いでしょうか？

>>294
CreateObject 関数
http://msdn.microsoft.com/ja-jp/library/cc437576.aspx

Write 関数、WriteLine 関数
http://msdn.microsoft.com/ja-jp/library/yxw69s8t.aspx

Access2007の暗号化キーは20Byte=160bit
セキュア桐の暗号化キーは72Byte=576bit
どちらもMS謹製暗号プロバイダ使用

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】

住所用テーブルを作りました。その中に郵便番号フィールドがあります。
新しく作成したフォームにコンボボックスを作成し、郵便番号を検索できる
ようにしました。

そのコンボボックスに検索したい郵便番号を入力しようとすると、
まだ二桁しか入力していないのに、候補らしい番号が白黒反転で表示されます。
例えば、１２と入力すると、１２０００００となります。
０００００は白黒反転で表示されます。

自動的に候補になるような白黒反転表示を辞めたいのです。
自分が検索用に入力した数字だけを表示させるようにしたいのですが、
どうすればいいでしょうか？

ご教示よろしくお願い致します。

【 システム環境　 . 】 WindowsXPSP3, Access2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 可
【 検索キーワード　】 前日　前レコード‥

残高繰越のクエリフィールドを作成しようと思っているのですが、なかなかうまくいきません。

前日の残高に今日の売上を足して、今日の出金を引き、本日の残高としたいです。
エクセルで作っていた時は、A2=A1+B2-C2というような式になっていました。

よろしくお願いします。

>>297
ヘルプで、コンボボックスの自動拡張プロパティと入力チェックプロパティを読め

>>298
クエリで表示、で十分ならMSのサポート情報調べろ、書いてあるから
それじゃあ実用にはならんけど

なんかすげー上級者向けのスレっぽいなｗ
今桐って使ってる人いる？

桐の本が本屋においてないし
打ち込もうと思って、一生懸命入力しようとしてて、打ち込めないなーと思ったら
スペースキーを押してからでないとダメなんだよって言われた。
なんだこれｗｗｗｗｗｗｗｗって思ったわ。ホントなんなの？あれ？

表示モードと編集モード持ってるから、桐の入力は良いんだよ
スーパーのベテランレジ打ちオバさんの様に、ビュンビュンバコバコ入力してもデータ間違えない
表とか表形式フォームとかでバコバコ入力してみ、快感だから

こっちに書いてやれよ。

管理工学研究所「桐」【４】
http://pc11.2ch.net/test/read.cgi/bsoft/1100708378/

Access ってさあ
２つの項目で並び変えたい時に、たとえば[A]で並び変えて、[A]が同じ中では[B]で並び変えたい時

フォームやデータシートで、並び変えボタンを[B]で押してから[A]で押して、
並び変えの結果は、目的通りになる？
MSは仕様で保障してない？

>並び変えの結果は、目的通りになる？
出来なかったと思う。

自分はテーブルを作って、クエリ内SQLのORDER BYで読むようにした。

そのやり方ではできないが
「フィルタ/並べ替えの編集」
で好きなようにできるよ

>>305
おー、知らなかった。サンクス。

>>305
そりゃ便利だな、俺も知らなかった、クエリから読み込みもある
桐の道具箱みたいに会話処理使えるわ

桐は邪道だわ。

DOS時代から桐を使い、オンラインカレッジでデータベースを学習した俺にとっては桐は便利すぎて麻薬みたい。
まともな設計しなくても、頭の中でぼんやり考えている事が形になる。

今更ながら、Accessに乗換えしてるが、桐がいかに「便利なデータベースもどき」だったかが良くわかる。

access2003使って販管システム作ってるのですが
デフォのままではデザインの選択肢が狭くて非常に悲しいです。
appleとかsonyのような透明感溢れるミーハーなデザインにしたい…。
2000形式にしてもそんな透明感溢れるインターフェイスなんて無理だよね。
ねずみ色の背景に白色のテキストボックスだよね・・・。

FileMakerでも使ってろや

背景に画像表示できるし、ボタンも透明にすればいい。

さらにデータアクセスページにすればWEB並みの見た目にできる。

Accessなんぞでデザインセンスの良いソフトを作ろうという事自体が無謀。

コード頑張ればこんなん出来るけど
http://blogs.msdn.com/access/archive/2008/04/28/modal-dialogs-with-transparent-backgrounds.aspx

これはコードが頑張ってるんじゃなくてVista+Access2007で
Accessのオプション→カレントデータベース→フォーム上のコントロールにWindowsのテーマを使用する
の機能ONにしてるだけなんじゃね？

>>310
あれ触るくらいなら表にAccess、裏にRDBMS持つよ。

>>309
重くはなるが、フォームの
背景やボタンにビットマップなど貼り付けまくれば、好きなデザインは可能かな。

ただ、いわゆるDOS/Vやプログラマの美学って、内部のコードの洗練度なんだよね。
無駄が無く、速い。
AppleやSonyのミテクレ文化とは対極なんだよね。

DOS/Vて

>>308

ひねくれ者ではない俺は、便利なものの方が良いと思うけど

またカーソル移動が劇重になったお！
もうアクセス嫌だお！
桐にするお！

カーソル激重現象は気がついたら治ってること多いけど突然再発するから対処に困るよな
別ウィンドウでIE表示してるとその間だけはおＫみたいだからこれで逃げてるが・・・

IMEを、[OfficeIME]でなく[日本語]に設定するとカーソル劇重起きないお！
でも、日本語入力できなくなるお！

フィールド設定でIME使用不可でなくIMEoff設定にしても起きないお！
でも、非常に不便になるお！

その語尾はやめれ。

やめるお！
やめないお！
やめますお！
やめるときお！
やめればお！
やめろお！

>>322
　＼　　　　　　　　　　　　　　　　　　　　/　　　　　　　　　　　　／
　　 ＼　　丶　　　　 　 i.　　 |　　　　　 /　　 　 ./　　　　 　 ／
　　　　＼　　ヽ　　　　　i. 　 .|　　　　　/　　　 /　　　　　 ／
　　　　　 ＼　　ヽ　　　　i　　|　　　　 /　　　/　　　　　／
　　　＼
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　-‐
　　　ー　　　　　　　　　 ／￣`Y ￣ヽ､
.　_＿　　　　　　　　 　 /　/ / / l | | lヽヽ　　　　　　　　　　　--
　　　　　二　　　　　　/　/ //　⌒　 ⌒ヽ　　　　　　　＝　二
　　￣　　　　　　　　　|　| |/　 （●） （●）　　　　　　　　　　　　￣
　　　　-‐　　　　　　 （Ｓ|| | 　　⌒　･ｨ　 ヽ　　　　　　　‐-
　　　　　　　　　　　　 |　|| |　　　ﾄ-＝-ｧ　ﾉ
　　　　／　　　　　　　|　|| |　　　|-ｒ ､/　/|　　　　　　　＼
　　　　　　　　　　　　 |　|| | ＼＿｀ﾆ'_／　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　＼
　　　　　　　　/　　　　　　　　　　　　　　　　　　　　ヽ
　　　　／　　/　　　　　　　　　　　　　　　丶　　　　　 ＼
　　 ／　　　/　　　 /　　　　　　|　　　i,　　　 丶　　　　　＼
　／　　　 /　　　　/　　　　　　 |　　　 i,　　　　　丶　　　　　＼

>>318
俺はひねくれものじゃあないんだけど、まわりがひねくれ者ばかり。
何で「桐」なの？　「管理工学」？　何でAcessじゃないの…って。
エクセルしか使えんくせに、大きなお世話じゃ。

>>325
AccessはVBAできなくても、それなりに作れはするが、RDBMSの知識が
やはり有る程度のところで要求されるし、さらにプログラミングスタイルは、
VBAではあるけれど、体系は、VBに限りなく近いから、ExcelのVBAでな
れている人は辛いハズ。

>>326
ExcelのVBAって使ったことないわ
使うつもりもなかったが、そんなに違うのか？

そりゃ扱うモノ自体が全然違うからな
大枠や関数の構文は全く同じだけど

日本語でオケ

何がわからんのかわからん

俺には>>326が何言ってんのかわからんな

文章という名前のレポートを作ってVBEでいろいろ書いている最中に
Reportｓ!文章.caption=hogeと書いても怒られないのに、0R文章という名前のレポートを作ると散々に怒られて、
Reportｓ![0R文章]としたら怒られなくなった。でもXR文章というレポートを作ったらカッコが無くても怒られなかった。

教科書では2番目の書き方を習ってましたが、商用ソフトのコードをみると1番目の書き方も結構使われていますね。他にカッコを使う書き方も見たことがあるし。
ここら辺のルールってどうなってるのでしょうか？

怒られるときにはカッコを使うルールだよ

最近VBAをつつき出したのですが、（）［］ とか ” とか # とか、
ネット上のサンプルも一貫性が無いし、ヘルプの例文でさえ怒られる事があります。
あれって、もともと文法が曖昧なんでしょうか？
ライブラリのVerのせい？

機嫌が良い時は怒らないよ
態度悪いと怒るけどな

Accessってそういうエラー多いよね

複数クライアント同時使用ってACCESSだと難しい？

皆さん、分かって言ってると思うのだけれど、
この場合は「OR」という予約語を含むオブジェクト名を付けているのが原因ですよね。
ORの使い方が間違ってるぞ！と怒ってるわけで。

ゼロだろ

問）アクティブフォーム(.Name="form1") から アクティブコントロール(.Name="control1") の
　　バリュープロパティ参照する場合、以下の方法A〜Gを速い順に並べろ

A: [form1]![control1].Value
B: form1.control1.Value
C: Me.contorol1.Value
D: Me.ActiveControl.Value
E: ActiveForm.ActiveControl.Value
F: ActiveForm.contorol1.Value
G: Screen.ActiveControl.Value

>>337
素直に、複数クライアント同時使用するなら、MySQLサーバでも建てて
運用すべし。そんなに難しくない。

テーブルをMySQL側で持つだけだ。やややっかいな設定はODBCドライバ
の設定くらいなもんで、これまでつかってきたAccessのファイルは、テーブル
の部分だけリンクテーブルになるだけだから、引き続き使える。

うちの会社では、給与計算システムがしょぼすぎるので、俺がこれで作りこ
んだものをサブシステムとして使っているよ。他にも従業員宛名ラベル一括
印刷だとか、名刺印刷だとか、タイムカード印刷だとか、いろいろ作り込んで
いるよ。

逆に、こういうので作ると、単体のAccess DBで運用するのが嫌になる。

複数ユーザー同時使用だろ？
ファイルサーバにテーブルぶち込むだけでOK

MySQLはライセンスが面倒臭い

2007のaccdbは、今のところ壊れた話は聞かないなぁ
今度は大丈夫かも

>>340
Ａが一番遅いのは俺でもわかる。
どれが早いか俺も知りたいぞ。

>>338
自作のレポートは発見しやすいようにゼロを頭につけました。

>>346
Visual Basic のプロシージャ、変数、および定数の名前について
ttp://office.microsoft.com/ja-jp/access/HP051867721041.aspx?pid=CH063666331041

スタンドアローンで使うデータベースなのに併合処理が出来ないアクセスって何なの？
全然ダメじゃん。

そもAccessはOffice製品の中では異端だからね。
MS自体が開発環境とか言って、逃げを打っていた気がする。
ところで、併合処理とはなにを指して言っているのだろう。

まあOfficeで断トツ��1の異端児はVisio君なんですけどね

そして俺も併合処理って何なのか知りたい。
まあマイナーDBのマイナー用語をあたかも全世界標準であるかのように
語られても困るだけなんですが・・・

>>347
禁則でも[ ]でくくると許されるから混乱するんだろうな。（ ）も多用されているし。
acFormのほかにA_Formとかも見た気がするし。方言の多さ故に文法がいい加減になって、意外なときに怒られる。

併合処理。。。？
DB用語じゃなくて、お役所かなんかの業務用語かね？
しかし「スタンドアローンで使うデータベースなのに」と枕詞が付くからには、
サーバ型DBにはなくてもsqlite3なんかには付いてるDB機能なのかな？
何を指して「ダメ」と言っているのかまったく伝わってこないな。。。

「併合」って桐の事でしょ？
Accessの事は良く分からないけど、クエリで出来る気がする。

テーブル同士の結合演算・併合演算はデータベース演算操作の基本だよ
SQLが出来てからはJOINで処理するようになったけど。
スタンドアロンだと簡便な併合演算ないと煩雑でキツイでしょ。
アクセスだと都度クエリをコネクリ廻して実現してるけど。

このスレでAccessと関係なく、ANSI SQL準拠でもない用語を当然のように使うのはどうなんだろうね
データベースの基本がどうのこうの語る以前の問題だと思うが

それがAccessの利点でもあるってとこかな…

テーブルの加算や積算は基本中の基本だと思うが。

Accessの併合はマクロで組んでるお！

基本か。ググってみた。

"併合演算" に一致する日本語のページ 6 件中 1 - 6 件目 (0.05 秒)

そうか基本か。

>>352
ユニオンクエリのことでも指しているのかしらね

DBとDBを併合する　なんてね。そんなところじゃない？

ほら、よく言うじゃない
毒をくらわば







それは併呑

　　∧γ∧
　 （　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　 　 |　|
　　 Ｙ　/ノ　　　 人
　　　 /　）　 　 < 　>＿∧∩
　 ＿/し'　／／. Ｖ ｀Д´）/
　（＿フ彡　　　　　 　　 / 　

>>354
簡便な併合演算って何？例えば
AccessのSQLで、特に出来ないことも、難しいことも無いけど

>>360
DBを併合出来る訳ねーだろ、併合はデータベース・テーブル同士の演算だ
http://www.google.com/search?q=%E3%83%86%E3%83%BC%E3%83%96%E3%83%AB%E3%81%AE%E4%BD%B5%E5%90%88&rls=com.microsoft:ja:IE-SearchBox&ie=UTF-8&oe=UTF-8&sourceid=ie7&rlz=1I7ADBR

>>362
> 、難しいことも無いけど

じゃ作ってくれ
総売上.tbl に A支店売上.tbl(持ち出した総売上.tbl に、A支店で独自にレコード追加したもの) を併合するSQL
新たな商品のレコードは追加して、同じ商品のレコードは売り上げ額を加算して、他はそのままで、フロントエンドから処理する追加・更新クエリだ
バックエンドに置くと、DBEngine.CompactDatabase が使えなくなるからな
B支店、C支店から集めたtblも併合する追加・更新クエリを、簡単に、作れれば合格だ
極めてメンドイだろ？

>>363
見たとこ初心者の質問とかDBとジャンル違いの説明とかUNIONクエリと同じことの解説とか
意味ないURLしかヒットしてないだろこれ

DBEngine.CompactDatabase はむしろバックエンドのほうがラクだろ・・・
フロントエンドが自分で自分をCompactDatabaseってどうやりゃ簡単に出来るんだよ

>>364
.tblってのがよくわからんが翻訳するとA支店.mdbとB支店.mdbとC支店.mdbにバラけた売上テーブルを
本店.mdbの売上テーブル（主キーは商品コード）に売上額を集計するSQLを作れってこと？

joinしてsumすりゃいいんじゃね？

>>366
フロントエンドからバックエンドをDBEngine.CompactDatabaseする
そのバックエンドにクエリー置いたら、DBEngine.CompactDatabaseできないんでない？
(CompactDatabase メソッドは Microsoft Access オブジェクトを変換できないので、CompactDatabase メソッドを使用してこのようなオブジェクトを含むデータベースを変換しないでください。 )

今日び、DBにパスワード掛けてるのが普通だから Application.CompactRepair は使えないしな

>>367
そう、
ぜひ作ってくれ
サーバ使えずパーソナルDBのアクセス使ってる小企業だ
各所で総売上.tbl参照するために持ち出して、総売上.tblに各所の売上を追記してるケースな
簡単に作れれば、合格

難しいか？

商品コードで集計するんだから本店の商品コードは当然主キーに設定して

　insert into [本店.mdb].[売上テーブル](商品コード, 売上額)
　select 商品コード, 0 FROM [?支店.mdb].[売上テーブル]

これの?支店のところをA〜C支店に変えて3回実行してから

　update [?支店.mdb].[売上テーブル] T1
　left join [本店.mdb].[売上テーブル] T2 on T1.商品コード=T2.商品コード
　set T2.売上額 = T2.売上額 + T1.売上額

同様にこれの?支店のところをA〜C支店で3回実行するだけだろ。

まあこんな設計してたら全社計売上は把握できても支店別売上が不明になるから
普通はunion all した結果をgroup by するのがセオリーなんだけど、
おかしなクライアントのおかしな要望に応えるのも腕のうちなんでもう慣れたわw

?を入れ替えたり3回実行したり、簡単に作れないからパーソナルDBとして不合格だな

>>372
レポートのコントロールソースをVBAで記述する方法はありますか？
プロパティーに式を書くと上手く動作するのですが、
レポートを開くときのプロシジャーにレポート名.controlsource = hoge　と書いても上手くいきません。

>>373
アンカーはいりません。間違えました。

>>372
そうかな？
桐の併合も、編集中の元表と併合対象表でやるから、支店数だけ操作が必要じゃないの？
結局、一括処理（AccessのVBA）か履歴（キーボードマクロ）が必要になってくると思うけど。

>>371
まあ、そうなんですけど
小企業はパーソナルデータベースを使うのに貴方を雇うべきですね

遣ってる事は同じ。
最初から条件設定ダイアログが用意されてて設定条件保存できるから。
設定しやすく使いやすいだけ。

レポートの元データだったら
reports!レポート名.recordsource=sql
じゃないのか

何かよくわからんのだが
桐ってのはあれか
使う人が、Excelみたくその時々の必要に応じてごにょごにょいじるタイプのソフトなのか
でもって、それを使いこなせることが、場合によってはスキルと認められるような?
Accessってたぶん違うぞ
小規模で使われることが多いから、作る人イコール使う人な場合もあるけど
大部分のただ使う人はSQLもVBAも書ける必要なんてないだろ
操作が簡単かどうかは作る人の技量しだいなんで

>>369
試しに手持ちのAccess2007と2002でやってみたが全然そんなことはない
クエリだろうとフォームだろうと何が入っててもおＫだった。

もしかしてDBENGINE.CompactDatabase の第4引数に変な変換オプション指定して
大昔のバージョンに戻そうとかしてないか？

>>380
ああ、実際にエラーが出た訳じゃあないんだ
DBEngine.CompactDatabase@2007開発者用リファレンス、に以下が書いてあるので
「CompactDatabase メソッドは Microsoft Access オブジェクトを変換できないので、CompactDatabase メソッドを使用してこのようなオブジェクトを含むデータベースを変換しないでください。」

俺が、変換の意味を取り違えてるのかな？

>>381
確かにヘルプの記載は解かりにくいですね。
MSサイトで原文読んだ方が良さげ。

>>364
なんか普通に出来そうだが、お前はまず日本語の勉強した方がいい。

言いたいことが感覚でしか分からん。

>>364
何で逆切れの馬鹿自慢してんの？

>>364
そのていどの追加クエリと更新クエリなら５分で作れるだろ。
オレオレ用語で言っていたことの中身は分かったが、まったく共感できない。

5分も掛るって何なの？

つまらない釣りですね

>>378
そうでした。そういう風にきちんと書いても、レポートのテキストボックスとかのコントロールソースに代入できないんです。
これはプロパティー画面でしか設定できない仕様なのでしょうか？

代入とかいう言葉を使われると、何をしたいのか確信が持てなくなってくるな
単に値が欲しいのか?
だったら「取ってきて」｢入れる」だけだ
レコードソースもコントロールソースも関係ない

どうやって取ってくるかは、それがどこにあるかによって違ってくる

>>388
どんな風に上手くいかないの？
「OnOpen/開く時」イベントでならVBAで設定できるはずだけど。

設定できるけど値が表示されないなら、
一度、プロパティに書いた式をそのまま設定してみて上手くいくか試してみたら？
Private Sub Report_Open(Cancel As Integer)
　Me.RecordSource = "クエリ1"
　Me.テキスト1.ControlSource = "列1"
　Me.テキスト2.ControlSource = "='文字列1'"
　Me.テキスト3.ControlSource = "=Date()"
End Sub

以下ヘルプ。参考にどうぞ。
http://office.microsoft.com/ja-jp/access/HA012327251041.aspx
http://office.microsoft.com/ja-jp/access/HA012327891041.aspx

>>370
昔自分も桐をつかっていたけど、ずいぶんと態度悪いな
桐とAccessは別ソフトなんだから、同じ処理が全く同じようにできないのは
あたりまえじゃないの？

やり方を教えてもらう立場なのに、合格だなんだと偉そうだし、 >>371 が親切に
回答してくれているのに、感謝すらない
こういう人がいるから、桐使いの人の評価が下げてしまっているのにねぇ

Accessを使えない桐使いが単に自分のスキルのなさをアピールしているだけじゃん

>スタンドアローンで使うデータベースなのに併合処理が出来ないアクセスって何なの？
>全然ダメじゃん。

桐はこういった人でもデータ処理が簡単にできるので確かに優秀なソフトだと今でも思います
（自分も昔そうでした）
だからといって、Accessがダメな訳ではないでしょ
一番ダメなのは、こんな卑下した言い方しかできないこの人ですから

要は自分の抱えている問題を解決できればいいんだから、桐でもAccessでも
どっちでもいいじゃない
桐使いの格を下げるのはやめてもらいたいです
>>370 の人は、もう少し考え方を改めたほうがいいよ

彼は顔真っ赤っかにしてあれを書き込んだのでそっとしておいてあげましょう。
かわいそうな人です。

自問自答ばかりだな

それっ桐にしときなさい。

こんにちは
【 システム環境　 . 】 WindowsMe, Access97
古いVerで申し訳ありません

フォームから入力した日付で、期間集計をしようと思い
DoCmd.RunSQL "SELECT Sum(T_見積予算管理データ.総合計) AS 総合計の合計, T_見積予算管理データ.決定, T_見積予算管理データ.キャンセル " & _
"FROM T_見積予算管理データ " & _
"WHERE ((T_見積予算管理データ.引越日) Between #" & 日付検索1.Value & "# And #" & 日付検索2.Value & "#) " & _
"GROUP BY T_見積予算管理データ.決定, T_見積予算管理データ.キャンセル " & _
"HAVING ((T_見積予算管理データ.決定)=1) AND ((T_見積予算管理データ.キャンセル)=0);"

以上の内容を記述したのですが
実行時エラー　"2342"
RunSQL/SQL アクションを実行するには、SQLステートメントからなる引数を指定
する必要があります

というエラーが出力されうまく動作しません
うまく動作しないのは何故でしょうか？

> フォームから入力した日付で、期間集計をしようと思い
といっていますが、フォーム上のコントロールの指定が誤っているようです。

「日付検索1.Value」 　の部分を
「FORMS!フォーム名!日付検索1.Value」　←※フォーム名は実際のフォーム名で
に改めて、もう一度実行してみてください。
（日付検索2.Value も同様にね）

>>395
RunSQLで選択クエリを実行することはできないから。

いや、確か実行不可なのはdbオブジェクトの.Executeメソッドで
DoCmd.RunSQLはエラーにならずにデータが表示されると思った

「DoCmd.RunSQL SQL文」はやめて、
まずは上記の修正したSQL文をクエリで保存して、（フォームを開いた状態で）
実行してみてください。
開ければとりあえず記述に間違いはないはずです。


でも、そもそもSELECT文で作成した後に結果セットで何をしたいんでしょうかねぇ。

なんでアクセスって、複数行への貼付とかできないの？
エクセルでは普通にできることができなくて、両方使ってるから
結局あんまり効率が上がらないんだが。

>>400

>複数行への貼付

普通にできない?
それとも同行数じゃなくて、例えば

元：1行　→　貼り付け：複数行

て、ことなのかな。
そういう作業が必要な場合は、面倒だとExcel併用したりしてるわ。

>>401
そうそう。言葉が足りなかったですね。
アクセスは表計算ソフトじゃないんで〜、っていうのとは別問題で
普通に操作上の不満なんですよね。

同じような操作で、複数行（セル？とは言わない？）を選択して
deleteしてもいっぺんに削除してくれないし。
こういう普遍的で直感的な操作を
あえて出来ない仕様にする意味ってあるのかな？

どうなんだろうね。
基本的に直ではテーブル触らないし。
Excelみたいに間違って削除したとしても
保存しなければ元通りってわけには行かないからじゃないかな。
といいつつ、とりあえず削除してみて保存しなければいいやと思いつつ
保存してしまって泣きを見たことが幾度とあるが。

アクセスは表計算ソフトじゃないんで

いや、言い訳になってへんで（笑

>>398
ふーん、すごい記憶力だね

Q. 表計算ソフトと同じことがなんでできないの？
A. 表計算ソフトじゃないんで

どこか変か？

>>402=400
複数行の削除は、レコードセレクタを使って複数行を指定→Deleteで普通にできますよ。

コピー元：1行から複数行に貼り付けというのは、（本来）テーブルには主キーがあるべきだという
テーブルの理念に反しますから操作できないんじゃないでしょうか？
その意味で>>407さんは正論ですねｗ

>>407
表計算ソフト独自の、とか表計算ソフトならではの、っていう操作ならわかるけどね。
そうじゃないじゃんｗ

一つずつに貼付けるのはできて、複数行にはできない、
これはなぜでしょう。
仮にできるようにしたら何か不都合があるでしょうか？
もしかしてアクセスって、それ単体で完結できるように作られてない？
最初からエクセルの助けありきなんですか？

試しに数値型(主キー)・テキスト型・日付型のフィールドを持つテーブルを2つ作って
それぞれ主キーを1〜5、6〜10にしてその他は適当な値でデータを登録してみた。

最初のテーブルの2〜4を選択してctrl+C → 次のテーブルの7〜9を選択してctrl+V

この操作で7〜9の行が2〜4の行の内容に置き換わったけど・・・
>>409は何が不満なんだ？

>>400 >>402
桐にしとけ
お望みの直観的な操作だ

>>410
ウンコに触るとウンコつくよ。

>>396 >>397 >>398
レスありがとうございました

無理やりですが、ワークテーブルを生成し、その後Dlookup で総合計データを
フォームに代入しました

DoCmd.RunSQL "SELECT Sum(T_見積予算管理データ.総合計) AS 総合計の合計, T_見積予算管理データ.決定, T_見積予算管理データ.キャンセル " & _
"INTO w_総合計 " & _
"FROM T_見積予算管理データ " & _
"WHERE (((T_見積予算管理データ.引越日) Between #" & 日付検索1.Value & "# And #" & 日付検索2.Value & "#)) " & _
"GROUP BY T_見積予算管理データ.決定, T_見積予算管理データ.キャンセル " & _
"HAVING (((T_見積予算管理データ.決定)=1) AND ((T_見積予算管理データ.キャンセル)=0));"

Me.合計.Value = DLookup("総合計の合計", "w_総合計")

この方法で、見積りデータの決定部分のみの期間集計ができました
失礼します

もしわけないのですが、もう1点
決定とキャンセル部分をグループ化するより、WHERE句にまとめたほうが
速度的に早くなるでしょうか？

Access2007がXML使わないとアプリ開発出来ない件
まんどくせ

2007でページがなくなったからWebアプリの開発は別の方法になるだろうけど
Webアプリだけを指してアプリ開発って表現はどうかと・・・

いや、XML使わないと、アプリのメニューつーか、カスタムリボン作れない

２００７コンボボックスのダーティー時イベントで埋め込みマクロが作れないのは仕様ですか、バグですか？
一度閉じて開くと埋め込みマクロが消えてなくなります(>_<)

絞ってからクエリ通すのと、丸ごとクエリ通すの、どっちが速いか
みたいなことは俺も前に考えたことがある
絞ってから通したほうが早そうな気もするけど、けっきょく実感としては
違わなかった
最近見たT's何とかってサイトでもそんな実験結果が出てたな
理由は不明

基本的に、WHERE文で絞れるものはWHERE文で、HAVING文でしか絞れないものは
HAVING文でやった方が、どういう単位での絞り込みかが後で見たときに分かり
やすいし、その都度書き方を混合させているよりは一貫性があって保守しやす
いです。

それに、WHERE文であれば絞込みたい項目にインデックスがあれば、スピード
アップもされる場面もあると思います。
（但し今回は「決定・キャンセルとも０１」ぐらいの値の範囲なので、
　仮にインデックスをつけていても効果はほとんどないでしょうけどね）

第一、WHERE文で絞ってからグループ化したほうが単純に全体の対象件数が
ぐっと減らせるイメージは容易に想像つくでしょ。
（元々の全体件数が大した件数でなければあまり違いはないかもしれないけどね）

Access95時代はHAVINGの方が圧倒的に速かった。
今はオプティマイザ的な機能が進化してるかどうか知らないが
どちらもほとんど違いが感じられない・・・

>>422
マシンパワーも桁違いだから見えにくくなっているだけでは

2003なんですけど、英語版のせいかフリガナウィザードが起動しません
テーブルのデザイン時なのですが、Furigana Controlの入力欄右をクリックすると
通常[･･･]みたいなボタンが出る筈なのですがそれが出ません
どなたか対処法ご存知でしょうか？

>>419
>>420
>>421
>>422
>>423
どっちが速いかってきいてんだよ
全然答え出てねぇじゃねーかよ

ったくAccess使いってやつは

>>425
そんなのケースバイケースなんだから、一概に言い切れる訳ないじゃん
そんなことも分からないのかこいつは？

そもそも、そういうあんたは何使い？

アクセス2000にエクセルで作成したデータを
インポートして、バーコードデータを作ろうとしましたが、
インポートしたデータは反映してきませんでした。
（新たにアクセスの画面で入力すれば大丈夫でした。）
何かいい方法はありませんか。

（前略）エクセル（中略）インポート（中略）反映（後略）

これ定期的にくるな・・・

初心者ですすみません
計算式なんですけど
粗利:([商品単価]-[商品仕入値]*[数量])
ってテキストに書いてあるんですが普通の数学同様、
掛け算から計算していいんでしょうか
そうすると商品単価っておかしい気がするんですが・・・

テキスト書いた人に聞いてみてください

>>429
テキスト書いた人に聞いてみてください

>>427
Excel からインポートしたデータとアクセスから取り込んだデータを比較して
違ってたら修正すればいいだけでは？

バーコードのデータなんて数値情報なんだから、簡単に修正できるとおもうけど

情報がないからなんともいえないけど
おそらく、Access上のフォームにExcel取り込むための、コマンドボタンが
あるはずだから、デザインモードにしてコマンドボタンを右クリック後プロパティから
イベントプロシジャーを開く、
その中にExel取り込み用のワークテーブルの記述があるはず

そのテーブルとAccessのバーコードの数値がはいっている、テーブルを
比較してみればよろしい、当然そのテーブルのバーコードの数値データを
Accessのテーブルに追加する処理が必要

【 システム環境　 . 】 Windows XP, Access2002 SP2
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 Access タブ　追加　動的

はじめましてよろしくおねがいいたします。

会社で前任の残したゴミ資産をリサイクルすることになり、行き詰った点が出てきてまいりましたので
皆様の知恵をお借りしたいと思います。

メインフォームの中にあるサブフォーム内にタブコントロールがあります。
メインフォームから「タブ追加」ボタンでタブを追加したいのですがいかんせんうまく出来ないです。

Private Sub cmd001_Click()
Call M_Common.Tab_Add("メインフォームのサブフォーム")
End Sub
から
Public Sub Tab_Add(ByVal strSubFormName As String)
DoCmd.OpenForm strSubFormName, acDesign, , , , acHidden
Application.Forms(strSubFormName).Controls("tabControls").Pages.Add
DoCmd.Close acForm, strSubFormName, acSaveYes
End Sub

とすると

Pages.Add をした瞬間に
2467
指定した式で閉じているかまたは存在していないオブジェクトを参照しています。

とケチつけられてしまいます。
対処法などに気付いた方がいらっしゃいましたら教えてもらえないでしょうか？

( ´ω`)ｽﾊﾟｧﾝ!!!
>>430-431⊂彡☆))Д´)

前任の資産はゴミかもしれないが後任の設計思想もかなりのゴミだな・・・

>>436

すいません。作り直したかったのですが時間がなく、ゴミ設計のまま突き進むことになりました。
実際のコードを見せることが出来ないので大分ハショりましたが指定方式はおなじです。

なぜこれを使うのかはわからないのですが「残したい」らしく・・・

>>434
ttp://msdn.microsoft.com/ja-jp/library/cc378891.aspx
よく嫁

ほとんど赤字で時々黒字になる決算があるとします。
この数字をフィールドに入力するときにマイナス記号を入力するのが面倒です。
そこで、「123」と入力したときに自動的に「-123」となり、
「+123」と入力したときに「123」となるようにしたいのですが、
定型入力で可能でしょうか？

それが自分の勤め先の案件ならとっとと辞めるべき

ワロタ

>>440が真理を突いた。

Access14 の dev kitchen 行ってきて、パンケーキの焼き方習ってきますた。

>>439
とりあえず正負逆のままで一通り打ち込んでいって、最後にまとめて、
UPDATE文（WHERE句で絞込み）でマイナス単項演算子でつけてデータを
ひっくり返す更新をすればいいのでは？

できないならできないって言えよ

できない

>>444
そのうち、その作業を忘れてしっちゃかめっちゃかになりそうな気がします。。。
更新前のイベントでIIFとか使えるかな？明日、やってみます。

ゆくゆくはVBA切り捨てられるから全部マクロで書かないとな

うっそ〜ん、マクロは無くなるのは分かるけど、
VBAは無くなると困るよー

Access14まではVBA大丈夫
その後はVisualStudioでVB書いてください

本当かい…
Accessの案件ってまだまだあるからVBAがAccess上からすぐに使えないと不便だな〜

まじで？VBA無くなるの？

そう簡単に亡くなるもんかね
COBOLでさえ絶滅には至ってないのに・・・

確かに、おまいがCOBOL使ってる限り絶滅ではないが

>>300
桐は表示モードと編集モードがあります。
表示モードは、データをみることは可能だが編集はできない。
編集モードは、データの編集が可能となります。
慣れると、その項目にカーソルが行っただけで
データが変わってしまうのを防ぐことができるので便利です。

COBOLは俺が好んで使ってるわけじゃなくて
むしろとっとと絶滅してほしいとさえ思ってるんだけど・・・

みんなもっと桐をつかえ！

V10出るなら桐使うよ、先が見えなくて不安です。
開発中のアナウンスでもあれば良いんだけどさぁ。

Access14 の dev kitchen からアンケート依頼です
http://deploy.ztelligence.com/start/survey/survey_taking.jsp?PIN=13ANQHPQH8VAB&Page=Blog

>>458
そうなんだよな
そこが一番気になるところだし、利用を躊躇してしまうところなんだよな
管理工学もその辺の姿勢をハッキリしてもらいたいよな
（かといって将来に否定的なことをズバリいうはずもないだろうけどね
　ほんとに微妙．．．）

桐で作ったら一瞬だったのに、tblのみでそのまま出来たのに。
アクセスで在庫管理作るのにクエリ・イベント屈指して脳味噌がウニになっても完成しない。
リクエリのコマンドボタン押すたびに在庫データがどんどん変わっていくorz
アクセスのバカヤローーーーーーーーーーーーー！！！！！！！！！！！！！！！！！！！！

向き不向きがある

>>461
俺はもうなれちゃったから、どんなテーブル、クエリでも作ることができる
から、頭にイメージしたものを形にできるけれどな。

ただ、Accessはそういった意味では、非常にプログラマブルなツールだか
ら、イメージしたものを直感的に作るのは難儀するかもしれんね。とくに、
UIを作り込むとなるともはや、プログラミングだしさ。

プログラミングが好きな奴は、Accessのほうが使いやすいでしょ。

>>463
教えてください。
アクセスでは直前のレコードの値は普通はどうやって取得するの？
並べ替え済みレコードの特定項目の直前レコードの値とか。

ACCESS 2007すげぇ・・・感動した。

>>464
アクセス（というかデータベース）には「直前」とか「直後」とかいう概念がない。
自分の発想で脊髄反射的にプログラミングしたいならアクセス（というかデータベース）を使うのは諦めて
エクセルや桐でシコシコやるほうが君にとっては幸せだと思う

>>466
教えてください。
アクセスではPreviousレコードの値は普通はどうやって取得するの？
並べ替え済みレコードの特定項目のPreviousレコードの値とか。

>>467
ｃｔｒｌ+７で直前の値が入力できるよ。おれは手でシコシコやっている。

【 システム環境　 . 】 Windows XP, Access2003
【 VBAが使えるか .】 一応
【 VBAでの回答　　】 可(頑張って理解します)
【 検索キーワード　】 Access ネットワーク　VPN　共有　遅い…etc

質問です。Accessに関しては最近勉強を始めたばかりです
過去にAccessで組んでいた台帳用のMDB(本社内のみで使用・作者は退社)があるのですが、
今度、社内ネットワークがVPN(FTTH)で整備される事になりDBを拠点間公開できるようにして欲しいと依頼が来ました
件数は多い物でフィールドが10〜12、登録数が6000程で6万〜8万コード程になります。同時使用者は5名前後になります

で、ネットワークを介してAccessDBを共有すると非常に重いという話を耳にし、
ある拠点のLANHDDに3万件程のデータのMDBをコピーし、本社から開いてみるとかなり重く感じました(ADSL同士のVPN接続)
このままではストレスがかかって使用するのに問題があると思うほどでした。

そこで質問です。対策としてはどのような方法があるでしょうか？
SQLServer(MSDE)を立てて行えば、ストレスを感じさせないレベルまで行けるならば
申請してPC1台ぐらい買って貰うのもありだと思っていますが、
SQLに不安なのは設備投資がかかる以上、AccessもままならないのにSQLに対してズブの素人でも構成出来るかという点です
上司は回線整備されれば光だから問題ないと楽観視していますが…
パソコンに関しては私よりも素人なので簡単に信じれなくて困っています

努力と根性で負荷軽減出来る部分があればご教授お願いします
現時点での対策としては、台帳(全拠点の情報が入っている)を拠点間別にMDBにしてしまい、
必要な情報だけをリンクテーブルでくっつけてやっています

>>469
素人の俺が答える。
外注しろ。そのくらいの金あるんだろう？
零細なら・・・・・ま、頑張れ。

PC1台の10万ぐらいに金をケチってんのに外注したら軽く50万は飛ぶと思うぞ。
本末転倒だろｗ

SQLServerのExpress版インスコして努力と根性でズブの素人から脱却しろ
まずはそこからだ

>>468
有難うございます。
値の入力だけじゃなく取得がしたいです。

桐で在庫管理してました。
[年月日],[ID]で並べ替えて、[商品名]でグループ化して、
[在庫数]=#直前値(0,[在庫数])+[入庫数]-[出庫数]+[補正数]
で一瞬でできました。
アクセスで同じことがしたいです。

だから世界が自分の都合で回ってると思うなら
自分にとって都合のいい桐だけ使ってろと

アクセスで現在在庫求める方法を教えてください。

商品マスタ left join 入庫履歴テーブル
商品マスタ left join 出庫履歴テーブル

[棚卸時点の在庫数]+[棚卸以降の入庫数]-[棚卸以降の出庫数]

>>476
どうも有難うございます。
left join 調べて勉強してみます。

素人にSQL文直書きは無理
まずクエリつくれ
履歴テーブルをグループ化して集計して、マスタと商品CODEで結ぶ(マウス操作でOK)
left joinについて考えるのはそれから

>>469
俺の場合、給与計算システムがあまりにも糞すぎて、しかも大昔の代物なので
融通が利かず、これらから給与確定後のデータを素に、だいたい最大で１０万
レコード程度になる。

で、これをどうしているかといったら、MySQLのサーバを建てて、リンクテーブル。
場合によっては、ストアドを使うこともあったり、パススルークエリを使ったりもする
が、概ね通常の利用ではいたって問題がでていない。利用者も同時に12名ほど。

サーバ用マシンは、情報システムの中にあるサーバにブレードサーバを１台入れ
てもらうか、それともワークステーションを１台買うかで悩んだあげく、ワークステ
ーション購入になっちまった。

ワークステーションは4GBメモリとCore2Quadのマシンで、OSはUbuntu Linuxを
使用している。以上のことを踏まえて、バックグラウンドはMySQL Server、クライアント
はAccess2007/2000共用としている。よって、Access2000で動くようにプログラムを
考慮して作っているというわけさ。

支所間のデータ参照制限は、ユーザ管理をMySQLがやってくれるのでそちらで個別
にアクセス制限掛けている。

>>469
こんな感じ
http://virtual.haru.gs/blogup/src/ge0311.odg

で、当たり前なんだけれど、バックアップを毎日取ること。なので、マシンには
DATドライブを付けてある。さらに、HDDはRAID-0となっているよ。

大量のデータをたとえば、クロス集計クエリで集計し、さらにグラフ化やそれを
もとにレポート作成となるとかなり時間が掛かる（１０年分のデータを処理すると
なるとね）。そうなると、もう一工夫必要だが。

ありがとうございました。SQLServerを使う事を前提で色々作業を進めて見たいと思います

>>481=469
あくまでも経験則なのですが…
[SELECT * FROM Table WHERE Field = hoge] という処理を行う際に

MDBファイルを共有した場合、WHERE以下の処理はローカルで行われるようです。
・リモートから全レコード分のインデックスを取得して…
・取得したインデックスを使用してローカル側でWHERE句以下を処理。
・ローカルからリモートに該当レコードを要求し…
・リモートから該当レコードを取得。
仮にFieldが4バイトとしても1万レコードあれば最低でも40KB(?)のトラフィックが
処理ごとに発生することになります。

これに対してSQLServerの場合、WHERE以下の処理もリモートで行いますから、
・リモートがSQL句全体を処理して…
・該当レコードのみローカルに返す。
Accessのようにインデックスのやりとりによるトラフィックが発生しません。


インデックスはSELECT文に限らずすべての処理で使用されますから、
Accessのインデックスがネットワーク上を流れる仕様はレコード数が多いほど
不利に働きます。拠点間ネットワークの速度とインデックスのサイズから
おおよその処理時間は計算できると思うので、運用に耐えうるかどうか計算して
みてはどうでしょう？

でも、一番のお勧めはAccessのテーブルをSQLServerにアップサイズして
ローカルにSQLへのリンクを張ったMDBファイルを置くことかと思います。

同じく仕入のMDBをSQL Serverで4,5人同時入力させたいけど
ネットワークが絡むと何したらいいのやらさっぱり分からないわ…。
ファイルサーバに放置したままネットで検索しまくって一週間が経つ。
やっぱコード書かなきゃダメなんですかね？

>>483
ネットワークよりも同時入力の方が問題としては複雑ですね。
詳細は、［排他制御］でぐぐって頂くのがよろしいかと。
コードは必須と考えた方が良いと思います。

>>483
ありがとう。
もうちょい頑張って調べてみます。

>>482
MySQLだと、かなりトラフィックが発生しますね。

まぁ、見逃せる程度の量なのかそうでないのか・・・・

フォームからDAOのRecordsetCloneを作った場合、フォームに設定していたフィルタと並べ替えは、自動的に適用されますか？

たかだか10万レコード程度で考慮して作っているわけさ、とかなんなの
うぶんつだのパススルーだのブレードだの言いたいだけちゃうんかと

>>488
となると、今後、あなたに任せた方がよさそうですね。期待してますよ。>>469への回答。

>>487
http://msdn.microsoft.com/ja-jp/library/cc380160.aspx
> 作成される Recordset オブジェクトにもそのフィルタの実行結果が反映されます。

>>490
どうも有難うございます。

うんこぶり

>>475
次の3つのテーブルをつくれ
商品マスタ [商品番号(主キー)][棚卸時点の在庫数](商品名やら価格やらはとりあえず無視)
出庫履歴 [適当な連番(主キー)][出庫商品番号][出庫日付][出庫数]
入庫履歴 [適当な連番(主キー)][入庫商品番号][入庫日付][入庫数]

つくったら、クエリのSQLビューにSELECT以下の文を貼り付けろ
こんな不細工で馬鹿長い文が必要なのかよ、桐では・・・なんて駄々はこねるな
何かの値を取得する、その基本原理はひとつでも、やり方は星の数ほどある
どんなやり方をとるかは、実際の運用方法から考えていくもの
たった一つのやり方を覚えれば一瞬でできるなんてことが得意げに語られるツールとは別物と思ったほうがいい

SELECT 商品番号, Nz([棚卸時点の在庫数],0)+Nz([入庫合計],0)-Nz([出庫合計],0) AS 現時点の在庫
FROM (商品マスタ
LEFT JOIN (
SELECT 入庫商品番号, Sum(入庫数) AS 入庫合計
FROM (SELECT 入庫商品番号, 入庫数 FROM 入庫履歴 WHERE 入庫日付>#9/30/2008#) AS QN0
GROUP BY 入庫商品番号) AS QN1
ON 商品マスタ.商品番号 = QN1.入庫商品番号)
LEFT JOIN (
SELECT 出庫商品番号, Sum(出庫数) AS 出庫合計
FROM (SELECT 出庫商品番号, 出庫数 FROM 出庫履歴 WHERE 出庫日付>#9/30/2008#) AS QS0
GROUP BY 出庫商品番号) AS QS1
ON 商品マスタ.商品番号 = QS1.出庫商品番号

子クエリ、孫クエリまで一気書きなので分かりにくいかもしれない
以下、バラし書き

SELECT 入庫商品番号, 入庫数 FROM 入庫履歴 WHERE 入庫日付>#9/30/2008#
これをクエリ「QN0」として保存

SELECT 入庫商品番号, Sum(入庫数) AS 入庫合計 FROM QN0 GROUP BY 入庫商品番号
これをクエリ「QN1」として保存

SELECT 出庫商品番号, 出庫数 FROM 出庫履歴 WHERE 出庫日付>#9/30/2008#
これをクエリ「QS0」として保存

SELECT 出庫商品番号, Sum(出庫数) AS 出庫合計 FROM QS0 GROUP BY 出庫商品番号;
これをクエリ「QS1」として保存

で、仕上げのクエリ
SELECT 商品番号, Nz([棚卸時点の在庫数],0)+Nz([入庫合計],0)-Nz([出庫合計],0) AS 現時点の在庫
FROM (商品マスタ
LEFT JOIN QN1 ON 商品マスタ.商品番号 = QN1.入庫商品番号)
LEFT JOIN QS1 ON 商品マスタ.商品番号 = QS1.出庫商品番号

これはあくまで一例
基本原理だけをクエリだけであらわした形
実際の運用を考えればやらなきゃならないことはもっと沢山ある

>>493
有難うございます。
お時間取っていただいて、凄いものを書いて頂いて、感謝感激です。
なんか難しそうで沢山あって、じっくり試して勉強します。
私が実務で使えるもの作れるようになるには先は長そうです。

お時間取っていただいたお詫びに、というのもなんですが、話のネタに、私が考えた方法を次レスに書きます。
たぶん欠点だらけで全然実務に使えないのだろうと思います。
素人がやるとこうなるんだという見本にでもしてくださいませ。

私なりに簡単な方法を考えていました。
[ID],[年月日],[商品名],[出庫数],[入庫数],[補正数],[時点在庫数],[メモ]
クエリで[年月日],[ID]順にして表形式フォームを作りました。

方法１)
ヘッダにリストボックスを作って[商品名]でフィルタしました。
フッタにテキストボックス[現在在庫]作って =sum([出庫数]-[入庫数]+[補正数])としました。
AfterInsert イベントで、[時点在庫数]=[現在在庫]としました。
過去データ訂正の時には、コマンドボタンでレコードセットの先頭から累計していく形で[時点在庫数]を再計算するようにしました。

方法2)　新規レコードで桐の #直前値 を実現しました。
BeforInsert イベント時点で、Me.CurrentRecord=null になってましたので、
　docmd.gotorecord,,previous
　Temp_直前値=Me.[時点在庫数]
　docmd.gotorecord,,next
AfterInsert イベントで、[時点在庫数]=Temp_直前値+[出庫数]-[入庫数]+[補正数]
他は方法1と同様です。

おまい、頭いいな、お手軽で (･∀･)ｲｲ!!

桐方式も考えようによっては便利だな w

質問

VBA　でアクセスのVER を取得する方法はありますか？

Application.Version で取得する。

もしくは、SysCmd(acSysCmdAccessVer)

>500　は　Access 2000ではうまくいきませんでした。

>501　では成功しました。


謝謝

>>502
＞★ OS、ACCESSのバージョンを明記してください。

とうとうアクセスで直前値使えるようになったな。
もう桐は役割終わった。

桐V9 2009　発表
改行コード自動変換のクロスエクセル機能だって
もともと accessよりもエクセルとの親和性高いよね

まじ？ちょっと見てきます。

桐終わったな
永遠にExcelのお伴です
もう2009年一杯くらいは新機能はありません

Accessも次バージョンは２０１０年でしょ、同じだよ。

最近の一般ユーザーが使うアプリケーションは圧倒的にExcel主体なんだから、
最新バージョンに必ず対応してくれているのは親切でいい事だと思う

目新しい新機能はないかもしれないけど、ユーザーを大切にしてくれている
姿勢は評価したいね

>>507
そもそも、今の時代Excel対応をやめて唯我独尊の姿勢のみで貫くほうが、
よっぽど終わっていると思うけどね

そもそもこの人の考え方自体が今の時代を無視しているわけで、終わっている
のは言わずもがなだよな...

終わったって・・・　桐って始まってたの？

E割でコソーリ値下げしてる件

>>511
歴史が長すぎて始まりの時期がいつか分からない人多数です
Ｅ割って値下げしてるの？　いくら？

同じものを通常版より安く売るんだから実質値下げでしょ

>>513
確か「桐９」の初版が出たときも、Ｅ割というのがあった記憶があります
その頃より安くなったのかなと思ったもので

そういえば、マニュアルレスの「これっ桐」っていう廉価版も当時発売していたな

>>496
> 桐の #直前値 を実現しました。

Function 直前値(F_Name as String)
Dim RS As DAO.Recordset
Set RS = Me.RecordsetClone
　RS.Move 0, Me.Bookmark
　RS.MovePrevious
　　IF RS.BOF=True Then
　　　直前値=0
　　Else
　　　直前値=RS.F_Name
　　End IF
RS.Close
End Function

もう、桐は不要だ。

SET RS=Nothing しない馬鹿どもにコードを書かせるなっ！
って海原雄山がいってたよ

×　RS.Move 0, Me.Bookmark
×　RS.MovePrevious
○　RS.Move -1, Me.Bookmark

△　RS.Close
△　SET RS=Nothing

RS.Close も SET RS=Nothing も不要、Funtion 抜けると変数RS不適応になり自動的にメモリ解放される
無い方が早い？

>>518
つい忘れてしまうw

ACCESSのSQLについて質問ですが

SELECT A.店舗コード,A.店舗名,B.棚卸日,B.データ送信日
FROM (SELECT 店舗コード,店舗名 FROM 店舗マスタ
WHERE 店舗コード between 1000 and 4000) AS A
LEFT JOIN (SELECT 店舗コード,棚卸日,データ送信日
FROM 棚卸マスタ WHERE 棚卸日=#9/30/2008#) AS B
ON A.店舗コード=B.店舗コード
ORDER BY A.店舗コード;

上記のようなFROM句にサブクエリを使用した場合、一度データシートビューで
データの内容を確認した後、ウインドウを閉じようとするとFROM句構文エラー
と出ます。SQLビューでコードを確認すると( )の所が[ ]に勝手に変換されてしま
い、そのせいでエラーになるみたいなのですが、これはACCESSの仕様なのでしょうか？

フィールドにインデックスを設定する意義が、いまいちよくわかりません。
主キーや、外部キーとして使うフィールドにインデックスを設定しておけばいいと
聞きますが、該当するフィールドを全てそうしておけばいいのでしょうか。
何が変化したのか、よくわからないんですが、何がどう変わるのか、
分かりやすく教えていただけないでしょうか。

>>521
Access2007では現象を確認できませんでした。
が…旧Accessでフィールド名に漢字を使った場合にまれに症状が出た記憶があります。
どうも一部の漢字の組み合わせにおいて内部処理する際に予約語と誤って判断するみたいです。
そんな訳でフィールド名を[　]で括って試してみて下さい。直るといいのですが。

>>522
カラオケにある歌本。
歌いたい曲番号を調べる際に、曲名から調べたい時は曲名がアイウエオ順に
なっていたら便利ですし、歌手から調べる時は歌手名がアイウエオ順だと便利です。
もし必要なインデックスが無い場合は歌本を先頭から１曲ずつ調べることになります。
しかし不要なインデックスは歌本が厚くなるだけで便利になることはありません。
便利＝処理が早くなるということです。…という例えでご理解いただけますか？

>>522
まとめると、傾向としては「レコード追加や削除ではインデックスを付けない方が速く、レコード選択ではフィールド数によってインデックスを付けた方がよい場合と付けない方がよい場合があり、
フィールド数が多い場合にはインデックスを付けた方がよい。」ということになります。明らかにレコード追加がメインとなるテーブル、例えばテキストファイルをいったんワークテーブルに取り込んで、
それに何らかの更新を加えてからメインとなるテーブルに追加するような場合、ワークテーブルにはインデックスは付けない方がよいでしょう。
しかしそれ以外のテーブルでは、追加や削除がメインとなるのかレコードの抽出・読み込みがメインとなるのか、あるいはどちらの処理がスピードを要求されるのかによって判断することになるでしょうが、
その境界線を画一的な数字で決めることは無理なようです。

T'sなんとかに書いてあった。

>523
ご回答、ありがとうございます。イメージはとてもよくわかりました。
そしたら、例えば次のようなフィールドを持つ「会員名簿」テーブルがあったとして、

ID(主キー), 名前, 年齢

次のような選択クエリを実行する場合、

SELECT * FROM 会員名簿 WHERE [年齢]<30

調べるのは[年齢]フィールドなので、そこにインデックスを設定しておけば
処理が速くなり、逆にIDや名前にインデックスを設定してもこの場合は
意味がないから不要、という考え方でいいんでしょうか。

だとすれば、「インデックスは主キーや外部キーに設定するもの」というより、
「検索条件に用いられるフィールドに設定するもの」と理解しておけばいいんでしょうか。

「会員名簿」くらいなら、選択もインデックス無い方が早い
高々１０フィールドくらいだろ

>>524　>>526
ありがとうございます。
レコードの追加・削除がメインとなるテーブルのフィールドについては、インデックスを設定すると、
インデックスの更新も頻繁にしなくてはならず、時間がかかるから、インデックスは付けないほうがいい、
という理解でいいでしょうか。

でもその次の、「レコード選択では（中略）フィールド数が多い場合はインデックスをつけたほうが良い」
というところが分かりません。525に書いた、

SELECT * FROM 会員名簿 WHERE [年齢]<30

のSQLでは、抽出のための評価対象が[年齢]フィールドになっていますが、これはつまり、
各レコードの[年齢]フィールドを評価していき、条件に合致するレコードのみを抽出する、
という処理をするんですよね。この処理においては、[年齢]以外のフィールドの数が多くても少なくても
関係は無いように感じるのですが、その点はどう理解すればいいのでしょうか。

>>525=522
その解釈で概ね宜しいかと思います。

また>>524さんが提起されている通り、インデックスがあるとINSERTやDELETEの際には
余分なオーバーヘッドが生じますが（歌本に新曲を追加する場合を考えてみて下さい）
一般的には追加時よりも参照時に速度が必要な場合が多いので、そういった場合には
インデックスは有用であることが多いです。

また主キーはレコードを一意に特定できるフィールドで、最も頻繁に使用されるはず
なので重複のないインデックスを作成しておきます。
（逆に言えば、主キーが頻繁に使われないようなテーブルは設計が悪いという事ですね）
と、ここまで書いておいて何ですが…
実はインデックスの持たせ方に原則はあっても絶対的な法則はありません。
歌本の例で曲が全部で10曲しかない場合、インデックスに頼らずに先頭から探した方が
早いことも考えられます。100万曲なら間違いなくインデックスは有用でしょう。
そんな訳でシステム全体を見渡した上で腕の見せ所といったところでしょうか？

>>527=522
フィールド数で判断するのではなく、レコード数で判断するのが正しいです。

DBにレコードを追加することとDBを参照すること
どちらが手段でどちらが目的かを考えれば答えは自ずと決まってくると思うが・・・

本当にインデックス付けた方が速いのか？
つーか、今日びインデックスなんて要るのか？
SQL Server とか、もうインデックスなんて無いよなぁ
100フィールドとかあると、確かにインデックスあった方が速いらすい

リレーショナルデータベースなら「主キー/インデックス」は基本でしょ
それとなぜ >>530 の人はフィールド数とインデックスの関係で早いといっているのでしょうか？
普通インデックスって対象フィールドのレコード数が多いときに有効なものでしょ

それと、自分はAccessと桐くらいしかデータベースを知らないけど、
SQL Serverでインデックスがないってどういうことかなぁないはずはないと思うけど...

ISAM全盛期のままの人いるね
http://www.intel.co.jp/jp/business/glossary/5787109.htm

http://www.tsware.jp/labo/labo_05.htm

ああ、桐とかDBproとかはISAMだからインデックス作った方が断然早いよ
確か、DBproはISAM、桐は変形ISAM

>>534
ご紹介頂いたページを拝見しましたが、テストとしては不適切に思えます。

このテストコード内のSQL句を見ると
Set rst = dbs.OpenRecordset("SELECT * FROM " & astrTableName(itblCount) & _
" WHERE (Count mod 10=0)")
となっていますね。この" WHERE (Count mod 10=0)"が曲者です。

少し考えれば分かるのですが、テーブルは[Count mod 10]の値を持っていません。
つまり、(Count mod 10=0)の真偽を評価するには全レコードを検査するしか方法はなく
フィールドCountに設定したインデックスはまったく関係がないことになります。

WHERE句の部分で、Countの値そのものを評価するような式に書き換えてテストすると
インデックスの有無でまったく異なる結果になるはずです。

# 念のため、"WHERE Count=乱数" としてSELECT文を1000回ループさせてみたところ、
# インデックスの有無で80倍ほどの開きが出ました。（2007+XP）

>>533
ご紹介いただいたサイトを見てみて「ISAM 形式のデータベース」はあまり使われなくなってきた、
ということは分かったのですが、その情報だけでは、「インデックス」という手法自体が使われなくなって
きているのかどうかが分かりません。現在普及しているというＲＤＢＭＳにおいても、インデックスは
依然として有効なのか、それともさして効果的でなくなっているのか。

...あ、せっかく情報頂いたのに、俺すごい偉そうですね、すみません。でも勉強になったので感謝です。


>>534
とても実証的な記事が載っているサイト、ご紹介ありがとうございます。
検索条件に従って対象のフィールドのデータを一つ一つ評価していく以前に、
そのテーブルにおける対象フィールドを特定する必要があり、
その際にフィールド数の多い少ないによる速度の違いが生まれる、ということですね。

ただ、この実験では、レコード数が膨大な場合と少ない場合との比較がされておらず、
その視点に基づくインデックスの有効性が結論に含まれていません。
>523 >528のアドバイスにもありますが、インデックスの本来の使途って、たぶんそこなんですよね？

でも、>>534のサイトに載っていた実験用ソースコードがとても便利そうなので、それを改変して、
その点についての実証は自分でやってみることにします。

ご回答くださった方々、ありがとうございました。

質問は537ので締めるつもりだったのですが、
ほぼ同時刻に書き込まれた>>536で鋭い指摘が出てきたので....

そこまでは考えていなかったのですが、たしかにその通りですね。
T'sWareの中の人にこそっと教えてあげたら、感謝されるかも…

>>538
ISAMの様にインデックスを別ファイルに持つ形式はさすがに廃りましたが
今でもISAMの考え方は生きているのだと思います。

例えばISAMでインデックスファイルを丸ごとメモリ上にキャッシュするようにしたら
処理が速くなりそうな気がしませんか？ 実際これに近いことが昨今のRDBMSでも
行われているようで、全く同じSELECT処理でも２度目以降の方が速い事もよくあります。
またこの辺りの内部ロジックこそ各社がしのぎを削っている部分でしょう。

T'sWareさんの実験でフィールド数によって速度に差が出たのは、フィールドの指定に
フィールド名を使ったのが原因ではないでしょうか？
体験上、RS.Fields("フィールド名")よりも、RS.Fields(フィールド番号)の方が速いので
これを鑑みると、フィールド名で指定した場合はこれを内部でフィールド番号に変換してから
処理しているように思えます。この変換にかかるコストがフィールド数が多いほど高くなる
んじゃないかと。確証はまったくありませんけどねｗ

# 色々とテストしてみるのは大いに賛成です。
# また面白い結果が出たら是非教えて下さい。

2度目以降が速いってのはOSのディスクキャッシュが効いてるような気がする

>>536
> # 念のため、"WHERE Count=乱数" としてSELECT文を1000回ループさせてみたところ、
> # インデックスの有無で80倍ほどの開きが出ました。（2007+XP）

おお、GJ！
そのコードここに書いてよ、直ぐに誰でも検証できて、それで結論出て議論終了

>>494
> これはあくまで一例
> 基本原理だけをクエリだけであらわした形
> 実際の運用を考えればやらなきゃならないことはもっと沢山ある

確かに、↓みると相当に大変そう
http://www.accessclub.jp/bbs3/wforum2.cgi?mode=allread&no=132840&page=0

>>496 が如何に御手軽便利か解かる www

>>523, >>528, >>536, >>539 と長文の連投失礼しました。

>>541
テスト用のコードを上げておきますね。
私の場合、50000レコードに対して5000回繰り返しで試しました。

Private Sub TEST()
Call CreateTable 'テスト用のテーブルを作成し
Call AddRecords 'テーブルにデータを追加しておいて
Call SelectTest 'このテーブルに対してSELECT文を複数回実行。
Call DeleteTable '後処理としてテーブルを削除します。
End Sub

Private Sub CreateTable()
Dim DB As DAO.Database
Dim TD As DAO.TableDef
Dim FLD As DAO.Field
Dim inpF As Integer
Dim inpIX As Byte
Dim i As Integer
inpF = CInt(InputBox("フィールド数を指定してください", "入力必須"))
inpIX = CInt(InputBox("インデックス種を指定してください", "0:なし，1:重複あり，2:重複なし"))
Set DB = CurrentDb
Set TD = DB.CreateTableDef("T_test")
For i = 1 To inpF
Set FLD = TD.CreateField("F" & CStr(i), dbLong)
TD.Fields.Append FLD
Next i
DB.TableDefs.Append TD
Select Case inpIX
Case 0
Case 1
DB.Execute "CREATE INDEX idx ON T_test (F1);"
Case 2
DB.Execute "CREATE UNIQUE INDEX idx ON T_test (F1);"
End Select
DB.TableDefs.Refresh
DB.Close
Set DB = Nothing
End Sub

Private Sub AddRecords()
Dim DB As DAO.Database
Dim inpREC As Long
Dim i As Long
inpREC = CLng(InputBox("レコード数を指定してください", "入力必須"))
Set DB = CurrentDb
For i = 1 To inpREC
DB.Execute "INSERT INTO T_test (F1) VALUES (" & CStr(i) & ");"
Next i
DB.Close
Set DB = Nothing
End Sub

Private Sub SelectTest()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim RCount As Long
Dim inpTest As Long
Dim dtStart As Date
Dim dtEnd As Date

Set DB = CurrentDb
Set RS = DB.OpenRecordset("SELECT Count(*) FROM T_test")
RCount = CLng(RS.Fields(0))
RS.Close
Randomize
inpTest = CInt(InputBox("テスト回数を指定してください", "入力必須"))
dtStart = Now()
For i = 1 To inpTest
Set RS = DB.OpenRecordset( _
"SELECT * FROM T_Test WHERE F1=" & CStr(Int(Rnd * RCount + 1)))
RS.Close
Next i
dtEnd = Now()
DB.Close
Set DB = Nothing
MsgBox "処理に要した時間は" & CStr(DateDiff("s", dtStart, dtEnd)) & "秒でした", vbInformation
End Sub

Private Sub DeleteTable()
Dim DB As DAO.Database
Set DB = CurrentDb
DB.Execute "DROP TABLE T_test"
Set DB = Nothing
End Sub

以上です。お騒がせしました。

>>536
パチパチ

で、結局どんな結果になるんだ？
キャッシュ効いちゃうみたいで良く解らんかったけど

>>536
の言うとおり、インデックスフィールドを演算してしまっては、インデックスは
利用されずに、全ての比較が「全件検索」での検索となってしまいます。

「インデックスのある/なし」に関わらず、SQL文の書きかたに問題があるため、
比較自体できていませんね。

また、ディスクキャッシュは１回目と２回目以降では差がありますが
（ハードディスクのアクセス状況をみると分かるのでは？）、２回目以降〜は
連続的にテストを行っているのであれば、基本的に全てディスクキャッシュが
聞いた形になると思われるので、２回目以降で比較を行えば正確に比較ができ、
良いと思います。

>>543
それを俺が試した結果
　フィールド数:50
　レコード数:5000
　テスト回数:5000
インデックスあり は、インデックスなし よりも ４倍速かった
重複あり でも、重複なし でも同じ結果だった

質問です。

これまでAccess2003で開発をしていたのですが、すでにAccess2007しか
購入することが出来ない状況となっています。そこで、新しく導入するところは
Access2003で作ったファイルをAccess2007で開いて実行するという形と
なるのですが、このような状況の時に起きると予測される不具合は何が
あるでしょうか？
一度Access2007形式で開いて保存しなおして運用の方が良いのでしょうか？

俺の場合、2000→accdbにしたらVBAのコードで結構な数のエラーが出たので
コード追加して正常動作させたり、レジストリいじらなきゃエラー消えない部分もあったりして苦労した。

2007でSandBoxモードが強制ONになっていくつかの関数（46個？）が
クエリ中＆オブジェクトのプロパティで使えなくなったから
自分もいくつか書き換えは必要だったな。

あと2007で統一できるならいいけど同一の.mdbを2003でも2007でも使いたいとなると
自分にもよくわからん。人柱報告よろ

>>552-554
ここが参考になるかと思います。
ttp://support.microsoft.com/kb/294698/

>>551=534
私も改めてきちんとテストしてみましたのでご参考までに。
テスト回数：5000で統一。（単位：秒）

フィールド数:10
　　　　　　　　　　　　　 |　1,000ﾚｺｰﾄﾞ　　|　10,000ﾚｺｰﾄﾞ　　　|　100,000ﾚｺｰﾄﾞ
ｲﾝﾃﾞｯｸｽ無.　　　　　　 |　　5,　　5,　　5　|　　32,　　33,　　33 |　308,　302,　302
ｲﾝﾃﾞｯｸｽ有(重複有) 　|　　2,　　2,　　2　|　　 2,　　　2,　　 2 .|　　 2,　　 2,　　 2
ｲﾝﾃﾞｯｸｽ有(重複無) 　|　　2,　　2,　　2　|　　 2,　　　2,　　 2 .|　　 2,　　 2,　　 2

フィールド数:100
　　　　　　　　　　　　　 |　1,000ﾚｺｰﾄﾞ　　|　10,000ﾚｺｰﾄﾞ　　　|　100,000ﾚｺｰﾄﾞ
ｲﾝﾃﾞｯｸｽ無.　　　　　　 |　14,　 14,　 14　|　43,　　43,　　44　.|　341,　337,　342
ｲﾝﾃﾞｯｸｽ有(重複有) 　|　11,　 10,　 11　|　11,　　11,　　11　.|　　11,　 11, 　 11
ｲﾝﾃﾞｯｸｽ有(重複無) 　|　11,　 10,　 11　|　10,　　11,　　10　.|　　11,　 11, 　 11

※インデックスがあるとレコード数の影響が極端に小さくなりますね！

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 少しだけ・・・
【 VBAでの回答　　】 可
【 検索キーワード　】 リレーションシップ、ループ

リレーションシップのつなぎ方について質問します。
多対多のリレーションシップは不可なのはわかりますが、
次のようなリレーションシップはOKなのでしょうか？

１．テーブルを3個作ります。それぞれ「テーブルA」「テーブルB」「テーブルC」です。
２．上記テーブルのリレーションを、次のように行います。
　　　テーブルAのフィールド１（一）　→　（多）テーブルBのフィールド２
　　　テーブルBのフィールド１（一）　→　（多）テーブルCのフィールド２
　　　テーブルCのフィールド１（一）　→　（多）テーブルAのフィールド２

こういうリレーションを作ると、多対多と同様に、参照が無限ループになるので
駄目だと思うのですが、いかがでしょうか？

あと、クエリー内でもリレーションシップ（矢印なし）が作成できますが、
それは、普通のリレーションシップと何が違うのでしょうか？

ご教示よろしくお願い申し上げます。

クエリ内で設定する「線での結びつけ」はテーブル同士の結合する方法を
さしています
　矢印なし：内部結合
　矢印あり：左外部結合（あるいは右外部結合）
を示しています

内部結合は、テーブル間のキー項目同士が同じ値同士（=）であれば、
両方のテーブルのレコード同士を結合します。

外部結合は、矢印の元の方のテーブルの全行が必ず抽出結果に現れ、矢印先の
テーブルはキー項目が等しい（=）レコードのみ抽出し結合します。
（矢印元に対応する相手テーブルのレコードが存在しないレコードが現れます
　が、その場合その列には「NULL（ヌル）」が設定されます）

内部結合で生成される結果は結合条件に一致した「両方のテーブルに存在する」
レコードなので、場合によっては期待した結果が抜け落ちてしまうことがあります。
そういう場合、どちらか一方のテーブルを強制的に表示させたい時などに使います。
（よくある例では、担当テーブルと売上テーブルの結合で、売上げのない担当を
含めた全担当の売上げ実績を抽出/集計したい場合などです）


詳しくは、「内部結合/外部結合」等のキーワードで検索してみてください。

リレーションシップと結合条件と参照整合性を混同してるやつ多いよな

もうリレーションシップでNGにしても支障ないよなw

画面の指示の仕方が同じ感じだし、機能に説明がないから分かりづらいんだよね

でも、リレーションシップ画面のテーブル間を結ぶ線をダブルクリックした
時にでる参照整合性とかを設定する画面にも「結合の種類」ボタンがあって
この中でも、結合の仕方を外部結合とかにすることで、リレーションシップ
画面でも左/右外部結合を設定できるけど、これって単にクエリでテーブルを
２つ以上出したときに、ここで設定した結合方法が初期値として自動的に設定
されるだけの機能なんでしょうか

誰か分かる人教えてください

>>556
はい、駄目です。やってみれば分かると思うけどデータが挿入できない。
Aの挿入にはBにレコードが必要…Bの挿入にはCが必要…Cの挿入にはAが必要…以下ループ。となる。

その構造を使いたい場合は、多対多のリレーションシップを実装する時と同様に
A,B,Cのリレーションシップのどこかに仲介用のテーブルDが必要。
まあ、Access2007 なら複数値フィールドを使えば自動的に仲介用テーブルを作ってくれるけど。

詳しくはこちら。
http://office.microsoft.com/ja-jp/access/HP051884441041.aspx
http://office.microsoft.com/ja-jp/access/HA012337221041.aspx

あと、クエリ内で設定しているのは、他の方も説明してるけど、
リレーションシップではなくて単なる結合で、クエリ結果に他のテーブルの列を含めたいときに使う。
リレーションシップでの結合の設定が既定で反映されてるだけで、変更してもリレーションシップには影響しないよ。

>>560
うん、それだけの機能みたい。
> リレーションシップそのものは影響を受けません。
http://office.microsoft.com/ja-jp/access/HP051875371041.aspx

クエリ画面での設定と違って、リレーションシップ画面で設定するぐらいだから、
何か特別な制約の意味とかがあるような気がするけど、どうなんだろうねぇ

あ、今書きこんだけど、直前のタイミングで >>561 の人が答えてくれていますね

このスレは間違った事を堂々と書く奴がいるから注意な

>557様、>561様

いま自宅から書き込みしています。
ご教示いただきまして、どうもありがとうございました。
丁寧にご説明いただいて、本当に感謝しております。

【 システム環境　 . 】 WindowsXP, Access2007
【 VBAが使えるか .】 少しだけ・・・
【 VBAでの回答　　】 可
【 検索キーワード　】 リレーションシップ

さっそくですが、もう一つ質問させていただきます。次のようなリレーションシップはOKでしょうか？
素人なりに調べてみたのですが、以下のような2系統のリレーションの定義は、例題としてどこにも
記載されていなかったので、根本的に間違えているのかなと不安なのですが、大丈夫でしょうか？
ご教示よろしくお願い致します。

１．　４つのテーブルを作ります。テーブルA、テーブルB、テーブルC、テーブルDです。
２．　上記テーブルに以下のような2系統のリレーションを作れますか？

　　　　　　テーブルAのフィールド１（一）　→　（多）テーブルBのフィールド２
　　　　　　テーブルBのフィールド１（一）　→　（多）テーブルCのフィールド２

　　　　　　テーブルAのフィールド１（一）　→　（多）テーブルDのフィールド２
　　　　　　テーブルBのフィールド１（一）　→　（多）テーブルDのフィールド３
　　　　　　テーブルCのフィールド１（一）　→　（多）テーブルDのフィールド４

　　　イメージにすると、以下のような2系統のリレーションを作れますか？

　　　　　　テーブルA（一）　→　（多）テーブルB（一）　→　（多）テーブルC

　
　　　　　　テーブルA（一）　−−−
　　　　　　　　　　　　　　　　　　　　 ｜
　　　　　　テーブルB（一）　−−−−−−→　（多）テーブルD
　 　 　 |
　　　　　　テーブルC（一）　−−−

最後の縦線がずれてしまった・・・・ｏｒｚ

>>566
可能だよ。
ただ、その場合、Bにない(B,A)と、Cにない(C,B)の組合せがDに登録できちゃうけど。
それでも問題ないならOK。

リレーションシップなんて要らん。早くトリガを！

このスレが間違ってるならおまえが正解を書けばいいじゃない

>>566
Dの用途が分からんから、只のお節介かもしれないけど、
普通、A<-B<-Cとリレーションを作成するなら下のどっちかじゃないかい？

多 -> 一
A {A1}
B {A1, B1} -> A {A1}
C {A1, B1, C1} -> B {A1, B1}
D {D1, A1, B1, C1} -> C {A1, B1, C1}

A {A1}
B {B1, A1} -> A {A1}
C {C1, B1} -> B {B1}
D {D1, C1, B1, A1} -> C {C1, B1}, B {B1, A1}

A, B, Cのどんな組合せでもDに入れて良いなら、それで合ってる。

>>418
バグです。

2007はコンボボックスのRowSourceとかフォーム/レポートのRecordSourceとか
クエリのデザインビューでシコシコ作っても保存したはずが保存されてなくて
何度ブチ切れたことか・・・

インデックスって標準SQLに採用されてんの？
ないよね

過去ログどこだっけ？
たしか誰かが纏めたWebページあったよね、テンプレにも載せてほしい。

>568様、>571様

ご教示いただきまして、どうもありがとうございました。
また、お礼が遅くなりまして、申し訳ありませんでした。
これからも、質問させていただくことがあると思いますが、
どうぞよろしくお願い致します。

>>553-555
レスありがとうございます。
2003と2007の同時運用は難しいようですね。。。
2007に統一するのを検討してみます。

private subのprivateの部分をpublicに書きかえれば、call出来るらしいのですが、デメリットはありませんでしょうか？

デメリットなけりゃあ全部publicだろ

>>579
使いわけをしたいので、具体的に教えていただければ幸いです。

winXP
Version2003
VBA 可（簡単なものなら）

クエリのフィールドで例えば、ダンプと入力すると別のフィールドにD、
トラックと入力するとTと表示されるものを作りたいのですがどうすればよろしいですか？

>>580
javaのクラスと同じと思っていいし、
そんな質問が出るくらいなら全部publicで問題ないはず。

>>578
VBAはモジュールやフォーム，レポート内で使いますが、大雑把に言うと
個々の中だけで有効なものがPrivate，すべて共通に有効なものがPublicです。
詳しくは「スコープ」でぐぐってみてください。

>>581
入力すると表示に即反映されるようにするにはVBAが必要。
入力後、改めて表示した際に表示されるようにするだけならクエリだけで可能。
いずれにしてもIIF関数が使えそうです。

同じ処理でもpublicで書いたほうが速い感じなのが気のせいじゃないなら
誰か理屈を説明してくれ

気のせいだ

だから説明しない

>>585
そっか。俺もそんな気がしていた。
Accessって人の気持ちを揺さぶるソフトだよな。

Huron ｲｲ!!

2007でオートフォーマット変更しても反映されないのは不具合？
フォントと背景色は変わるのにピクチャだけ（なし）のまま

【 システム環境　 . 】 WindowsXP, Office2002, ADO2.8
【 VBAが使えるか .】 可
【 VBAでの回答　　】 可
【 検索キーワード　】 Format関数

ExcelとAccessの連携についての質問です。ADOもからむので、どこのスレで尋ねようか迷いましたが、まずこちらで。
ExcelVBAでADOを利用して、.mdbファイルのデータを取得します。
mdbファイルには、２つのフィールド（日付、売上）からなる「日報」テーブルが含まれています。
月ごとの集計を取得するために、ExcelVBA側でRecordSetオブジェクトを生成し、以下のようなSQLを設定してOpenしたところ、
結果的に意図するレコードセットを取得することができました。

SELECT Format(日付,"yyyy/mm") AS 月, Sum(売上) AS 月間売上
FROM 日報
GROUP BY Format(日付,"yyyy/mm");

疑問なのは、SQL文の中にFormat関数が使われていますが、これはSQLの命令ではなく、AccessVBAの関数ですよね？
Accessがインストールされていないパソコンに、mdbファイルと、上記の仕様のExcelVBAコードが含まれたExcelブックをコピーして
試してみましたが、うまく取得できてしまいます。とても便利ですが、気持ち悪いです。このあたり、内部的にどうなっているのでしょうか。
Format関数などの命令はADOライブラリの中にあるのですか？　あるいはOLEDBプロバイダで提供しているとか？

普通に考えて、ＶＢＡのライブラリが処理しているんじゃ？

そのSQL文自体を何が処理しているのかと考えてみて

>591
ということは、Jetエンジンですか？

Excel/Accessで関係なく、共にFormat関数はVBA関数としてあったと思います

>>589
正解はこちら。
ttp://office.microsoft.com/ja-jp/access/HP010322311041.aspx

>>594
んー、なるほど。
JetエンジンがVBAライブラリを参照しているわけですね。
ということは、VisualBasic for Applicationライブラリが存在し、
かつADOが使えるExcel2000以降がインストールされているパソコンなら、
Accessの有無に関わらず589の操作は可能とみなしていいわけですね。

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

「Access、桐、ファイルメーカー」今のところ（デスクトップ）データベースといったら、
ほとんどがこの３つのどれかだと思うけど、昔はいろいろあたったよね

現在、他のデータベースで使いやすいやつとかお薦めってないんでしょうかね
だれか、教えてください

OOoのスレによるとBASEはAccessを超えた！らしいよ

>>596
SprintDB Pro Desktop Companion 4.0

>>596
SQLite

>>596
MS SQL Server Compact Edition

>>596
桐がまだ販売してたことを知り、軽くショック

>>597
> OOoのスレによるとBASEはAccessを超えた！らしいよ
【無料DB】OpenOffice2.0?Base【Accessｲﾗﾈ】
http://pc11.2ch.net/test/read.cgi/db/1103175670/

俺には解読できない暗号が書かれてるんだろな

バージョンアップのたびに「超えた」と言うのは、Baseスレの伝統芸能だから。
あんまり構うな。そうでなくてもBaseは大変なんだから。

>>601
桐が今でも販売していると何がショックなんですか（ビックリの間違い？）
むしろうれしい事だと思うけど

>>604
●定価：オープン　●税込価格： 39,900円

Access入りのOfficeの方が安い・・・

すみません、ADOを使ったレコードの削除についての質問です。

ADO Recordset にて、複数テーブルを結合して読み込み、
（ INNER JOIN を使用 ）それを削除（ recordset.delete ）する
という操作は、通常の操作と見て良いのでしょうか？
一度テストをしてみて、意図するようにレコードが削除されてたら
それで本番運用しても良いのでしょうか。

実際にコーディングしていて、気分的にちょっと気持ち悪くなって
きて、質問をしてみました。
（一度 SELECT して、それによって得られた主キーの一覧を文字列に
格納し、DELETE FROM table WHERE string といったSQLを実行した
方がいいのかな？）

気分的にちょっと気持ち悪くなってきたわ

うん。気持ち悪い。
削除するの?
フラグ立てて、見えなくするとかじゃ、ダメ ?

Recordset.Deleteで、Accessがオエッて変なのを吐くと思う。

>>606
今一具体的でないので分からないな
もう少し詳しく、具体的な処理内容やそれに対するコードを書いてみて

>>610
レスありがとうございます。こんな感じです。

「T社員」テーブル（今回はこのレコードを削除したい）
ID：数値型（主キー）
氏名：テキスト型
フリガナ：テキスト型
性別：数値型

「T性別」テーブル
ID：数値型（主キー）
性別：テキスト型

recordset を open する時の SQL 文
SELECT T社員.ID, T社員.氏名, T社員.フリガナ, T性別.性別
FROM T性別 INNER JOIN T社員 ON T性別.ID = T社員.性別;

削除をするVBAコード
（「氏名」が「hiro」の場合に削除する）
Do Until rs.EOF
If rs!氏名 = "hiro" Then
rs.Delete
rs.Update
End If
rs.MoveNext
Loop

WinXPSP2、Access2002です。
フォームAを開くと、テキストボックスｘとコマンドボタンｙがあり、コマンドボタンｙをクリックすると、テキストボックスｘの値を引数にしてフォームBが開くとします。
フォームAを開いた後にボタンｙをクリックしてフォームBを開くのがほぼルーチンの作業なので、自動化したいです。
ところが、open、load、resize、activate、curretnのどのイベントでもフォームBが開けません。HELPによるとテキストボックスｘの値が取得できないからだと思われます。
仕方なく、Timerイベントでやっていますが、フォームが開いてデータが全部揃ったことを意味するイベントってありますでしょうか？
フォームAが開いてデータも全て参照可能な状態→フォームBを開くという手順でプロシジャーを書くことは出来ますでしょうか？

テキストボックスのコントロールソースはどうなってるの？

>>613
DLookupです。そういえば、このコントロール表示に時間がかかることがあります。
もしかして、Dlookupが遅いことが原因という可能性もあるのでしょうか？

Unique Table プロパティ設定しないと、join したレコードセット削除できないんじゃまいか

Unique Table プロパティは何処で設定するのですか？
join したレコードセットは削除出来ているのですが。

削除出来ているなら良いよ、忘れてくれ

XPで作成したAccess2000のデータファイルをwin2Kにファイルを移動すると動作しなくなります。
動かすようにするには何か設定がいるのですか？
win2KにもAccess2000はインスコしてあります。

>>614
わざわざテキストボックス経由せずにコードの中で直接DLookupすればいいのでは

joinしたレコードを削除する操作は問題ないのかな？
DELETE * FROM WHERE 〜　でexcuteした方がいいのかしらん。

>>618
そういう問題は通常起きません。
念の為確認しますが、データファイルというものは、mdbやmdeですか？
adpファイルとかだと、別な意味で動作しなくなると思いますが。

ここで原因を追究したかったら、どんなファイルを作ったのか？
どんなエラーメッセージが出るのか？などを具体的に書いていくしか
ないだろうね。今の状況だけじゃなんともいえないので。

>>606
INNER JOINしたものでも現行VBAだと何故か削除できますね。
ただ不思議なことに、Access自身でそういう削除クエリを作って実行しようとするとエラーが出ます。
という事で、個人的にはDELETE * FROM をお勧めします。

>>612
よくあるパターンとしては、TextBox.Value とTextBox.Textの使い分けができていない事が考えられます。
ソースをよく確認してみてはどうでしょう？（見当違いなアドバイスだったらごめん）

>>618
>>621さんのご指摘の通り、Accessが直接関係しているエラーではなさそうですね。

DELETE (テーブル名).* FROM
な具合に、どっちのテーブルの*なのか思い知らせてやればいいんだぜ

>>622
レスありがとうございます。

> INNER JOINしたものでも現行VBAだと何故か削除できますね。
やはり、INNER JOINしてても簡単に削除が出来る方がおかしいんですよね？

> ただ不思議なことに、Access自身でそういう削除クエリを作って実行しようとするとエラーが出ます。
これは知りませんでした。こちらでも実際にやってみると削除は出来ませんでした。

> という事で、個人的にはDELETE * FROM をお勧めします。
DELETE * FROM でやることにします。

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

一応

JOIN 操作の結果を更新する: Unique Table

JOIN 操作の結果を更新する: Unique Table
ADO では、Unique Table 動的プロパティを使用して、複数のベース テーブルに対する JOIN 操作によって形成された Recordset 内の特定のベース テーブルへの変更を詳細に制御できます。
Unique Table の使用方法の詳細については、「ADO プログラマ リファレンス」の Unique Table 動的プロパティおよび Update Resynch 動的プロパティのトピックを参照してください。

>>621
mdbファイルです。
エラーの詳細は調べてみます。
ありがとうございました

>>618
VBAで、参照設定しているものが、異動先のWindows2000マシンにないとか。

Windows Scripting Runtimeとか参照している場合には、WSHが入っていない
Microsoft XML Parser 6.0ならば、MSXML6.0が入っていない

ってな具合に。参照しようとしてないもんだから止まる。それは起動途中に参照
するので、本体に問題なくてもそれだけで起動しないよ。

未だにアクセス９７を使用している貧乏会社なんですが・・・

以下のようなデータがあります
具体的には顧客ごとの工程管理なんですが

顧客番号 |　作業日　 | 内容
　123456　| 08/11/12 |　Ａ
　123456　| 08/11/12 |　B
　123456　| 08/11/13 |　C
　223456　| 08/11/13 |　D
　223456　| 08/11/14 |　E
　223456　| 08/11/15 |　F
　323233　| 08/11/13 |　G
　423233　| 08/11/16 |　H

これを顧客を縦軸　日付を横軸に以下のように抽出して表示することを上司から求められています


顧客番号 | 08/11/12 | 08/11/13 | 08/11/14 | 08/11/15 | 08/11/16 |
　123456　| 　 　A　　　| 　 　　　　　| 　 　　　 　| 　 　　 　　| 　 　　　　　|
　123456　| 　 　B　　　| 　 　　　　　| 　 　　　 　| 　 　　 　　| 　 　　　　　|
　123456　| 　 　　　　　| 　 　C　　　| 　 　　　 　| 　 　　 　　| 　 　　　　　|
　223456　| 　 　　　　　| 　 　D　　　| 　 　　　 　| 　 　　 　　| 　 　　　　　|
　223456　| 　 　　　　　| 　 　　　　　| 　 　E　 　| 　　 　　　　| 　 　　　　　|
　223456　| 　 　　　　　| 　 　　　　　| 　 　　　 　| 　　 F　　　| 　 　　　　　|
　323456　| 　 　　　　　| 　 　G　　　| 　 　　　 　| 　　 　　　　| 　 　　　　　|
　423456　| 　 　　　　　| 　 　　　　　| 　 　　　 　| 　　 　　　　| 　 　H　　　|

どのようにすれば実現できるのかさっぱり私の力量ではさっぱりわかりません
どなたかやり方をご教授下さい

どうせなら、こうしようぜ

顧客番号 | 08/11/12 | 08/11/13 | 08/11/14 | 08/11/15 | 08/11/16 |
　123456　| 　 　A　　　| 　 　C　　　| 　 　　　 　| 　 　　 　　| 　 　　　　　|
　123456　| 　 　B　　　| 　 　　　　　| 　 　　　 　| 　 　　 　　| 　 　　　　　|
　223456　| 　 　　　　　| 　 　D　　　| 　 　E 　 　| 　 　F 　　| 　 　　　　　|
　323456　| 　 　　　　　| 　 　G　　　| 　 　　　 　| 　　 　　　　| 　 　　　　　|
　423456　| 　 　　　　　| 　 　　　　　| 　 　　　 　| 　　 　　　　| 　 　H　　　|

>>628
【クロス集計クエリ】 で調べてみて下さい。

後だしで途中の日付が飛んでるってのはなしな

628です　後出しで申し訳ないですが日付が飛んでいる場合があります　すみません

あと　クロス集計は試しては見たのですが、　集計をしたいのではなく　工程管理なので
只の縦に顧客　横に日付順に　表示を行いたいだけなのですが可能なのでしょうか？
いろいろ調べては見たんですが、どうしても単純なられるの方法がわかりませんでした。

出来ましたらもう少し具体的にお願いできればうれしいです

>629さん
それが出来れば最高です　やり方ご存じですか？

すみません　名前間違えてました
>629さんごめんなさい

俺だったら、格納用テーブルを別に作って、VBAのrecordset使って処理するのを
考えるかな。SQL文実行だけで一発でやろうとすると、構文が長くなりすぎて把握が
しずらくなるので、結局はVBAでちょっと眺めの処理するコードを書くのと同じこと
だと割り切ってるしｗ

格納用テーブルのフィールド
顧客番号、day1、day2、day3、day4・・・

もとテーブルは、ORDER BY 顧客番号 ASC で読み込む。
一行ずつデータを見ていきながら、格納用テーブルに、
データを書き込んでいく。

プログラムを工夫することによって、>>628のようにも>>629のようにも出来るし。

>>632
縦横入れ替えもクロス集計クエリで可能だよ。

クエリのデザインビューを開いて、[クエリ]-[集計クエリ]を選択。
表示に必要なテーブルを追加したら、クエリを以下のようにしてみて。

フィールド : 顧客番号 | 作業日 | 内容
集計 : グループ化 | グループ化 | 先頭
行列の入れ替え : 行見出し | 列見出し | 値

データがない日付も列に含めたい場合は、
必要な日付の入った日付テーブルかクエリを別に作成して、
作業日と左結合すれば良いよ。

>>635さん

やってみましたが同一の日に複数の値がある場合表示されませんでしたので、ちょっと駄目みたいでした
でもとても参考になりました。　ありがとうございます。

>>634さん
少し難しいのでまだ試せていませんが、次の休日にじっくりとやってみます。
ご教授ありがとうございます

VBAでレコード舐めてExcelに吐き出すのがいいよ。レポートなんて再利用できないし。

>>636
ごめん重複作業日の件を見落としていた。
その場合は単純に顧客番号+内容でグループ化すれば良いだけ。下ので試してみて。

フィールド: 顧客番号 | 内容 | 作業日 | 内容
集計: グループ化 | グループ化 | グループ化 | グループ化 | 先頭
行列の入れ替え: 行見出し | 行見出し | 列見出し | 値
並べ替え: 昇順 | | |

>>638さん
ありがとうございます！　出来ました。
これで先に進めそうです　本当にありがとうございました。

他の皆さんもありがとうございました。　いろいろとヒントをいただき、まだまだ出来る事が増やせそうな
気持ちになってきました。　がんばります！

Accesのレポートの背景に画像・PDFとか重ねるのどうやるの？
余白で切れてA4サイズのPDF重ねられないんだけど…

>>640
桐にしとけ、簡単に可能だぞ

>>636
VBAコードはこんな感じだな。（>>628の結果を得る場合。）
作業日のデータの型が分からなかったので、テキスト型を
前提としているなど、ざっとした処理内容になっているが、
これに付け加える形で目的のものは書けると思う。

変数
rs：元のテーブルのrecordset
rs2：統計表テーブルのrecordset
datestr：文字型
i：数値型

コード

Do Until rs.EOF
datestr = "day" & Right(rs!作業日, 2)
rs2.AddNew
rs2!ID = i
rs2!顧客番号 = rs!顧客番号
rs2(datestr) = rs!内容
rs2.Update
i = i + 1
rs.MoveNext
Loop

OS:Windows server 2003
Accessのﾊﾞｰｼﾞｮﾝ：Access2003

ﾀｰﾐﾅﾙｻｰﾋﾞｽを使用し、複数ﾕｰｻﾞでAccessを使用したく
次のように、担当者ごとに、入力用MDBを用意してみました。
（入力用MDBの名前を変えるのは面倒なので、ﾌｫﾙﾀﾞを別々に用意。）

担当者Ａ：C:\Access2003\担当者Ａ\入力用.mdb --→ SQL
担当者Ｂ：C:\Access2003\担当者Ｂ\入力用.mdb --→ Server
担当者Ｃ：C:\Access2003\担当者Ｃ\入力用.mdb --→ 2005
担当者Ｄ：C:\Access2003\担当者Ｄ\入力用.mdb --→ に接続

いまのところ問題はなさそうですが、
間違って同じ入力用MDBを複数ﾕｰｻﾞが同時に開いてしまったら
予想通り壊れてしまいますね

複数ﾕｰｻﾞでAccessを使用したい場合、この方法で問題ないでしょうか？
よろしくお願いします。

>>643
Accessを単にフロントエンドとして使用しているということだよね？
それであれば同時に開いてもSQL Serverのデータは壊れないと思うけどな。

−追加−
そういえば、なぜ入力用MDBをWinServer上に置いてターミナルサービス経由で操作するの？
めちゃくちゃ効率が悪い気がするんだけど。

各クライアントごとに入力用MDBを配置できない理由でもあるのかな？

>>645
それ、俺も思った。
mdbを同時に開く危険性を今よりも低くしたいのであれば、
すべてのクライアントにAccessインストールしてmdbを
クライアントに置くしかないわけで・・・
ま、それでもネットワークの障害によってクライアントの
mdbが壊れることはあるようだけど。

クライアントにMDB配置するよりも、ﾀｰﾐﾅﾙｻｰﾋﾞｽ使うとLAN上を流れるトラフィックが劇的に少なく済むんじゃまいか？

すごいサイト見つけました
最新ビジネスソフトが格安でした
「格安ＰＣサイト」で検索して
格安ＰＣサイトってところです。
後払いで安心して買えました

バックエンドがSQLServer2005なんだから各クライアントにフロントの.adpでいいだろ

Accessとターミナルサービスを使ったシステムは見たことがあるけれど、
Access以外の部分ではどの系統のことを学べば良いのでしょうか？
Windows Server 系統？

単純に、access買うよりCALの方が安いってことだろ

>>650
クライアントからサーバーにログインして、直接サーバーを操作する（させる）わけですから
WinServerに関する知識は必須でしょうね。

>>651
Accessランタイムという手もありますね、特に2007からは無償で提供されてますし。

InfoPath使ったら出来ますた
苦労してフォーム作った後でInfoPath入ってるPCでしか動かないことに気付きますた
桐にしときます

ターミナルサービスを使ってシステムを構築中なのですが、
クライアントからリモートデスクトップ接続をすると、自動的に
サーバのAccessのファイルを開くような仕組みはどのようにしたら
構築できるのでしょうか？
こういうのを調べてみろ、みたいなヒントでも良いのでお願いします。

あと、フォーム上のボタンをクリックした時、自動でリモート
デスクトップ接続を切るまでの操作は実装可能なのでしょうか？

サーバ：Windows2003 Server
クライアント：WindowsXP

よろしくお願いします。

>>654
Accessとは関係ないんですが、下記を参考にしてみてはどうでしょう？

Microsoft TechNet
＜リモート デスクトップ接続の接続時に起動するプログラムを指定する＞
ttp://technet2.microsoft.com/WindowsServer/ja/library/a59b1110-8293-4d77-9808-22d4e48d16381041.mspx?mfr=true

>>655
その方法で一度やってみたのですが、接続の時点で失敗となってしまいます。
[プログラムのパスとファイル名] ボックスに、Accessの実行ファイルのパスを
入力してみたのですが、駄目でした。
「C:\Program Files\・（中略）・\MSACCESS.EXE」という文字列です。

考え方が違うのでしょうか？

>>643
そのmdbファイルへのショートカットを各ユーザのデスクトップに作るなどして
対応してるのなら、間違えて別のユーザのを開くこともないと思うが、
そういう対処をしてても同時に開いてしまうという状況が生まれるのであれば、
別なところの見直しをした方が良いと思うぞ。
ログインする時のユーザ名を区別しやすいものにするとか。

ターミナルサービスでNGにしたわ

Accessからターミナルサービスを終了させる方法は？

環境: Access 2003 SP3, Windows Vista, ActiveX Data Objects 2.8 Library, mdb
フォームフィルタの動作条件についてお聞きしたいのですが、

Dim p As New ADODB.Recordset
p.Open "SELECT * FROM hoge", CurrentProject.AccessConnection, adOpenStatic, adLockReadOnly, adCmdText
Set Me.Recordset = p

フォームのRecordSourceを使わずに上のコードを使ってレコードセットを設定した状況で、
ツールバーの[フォームフィルタ]をクリックすると、下のメッセージが表示され実行できません。
> 「フォームのレコードソースがレコードセットオブジェクトの場合、フォームフィルタは実行できません。」

ただ、[選択フィルタ]や OrderBy に値を設定するなどして、フィルタを実行した後は[フォームフィルタ]が実行できています。
フィルタを予め実行せずにフォームフィルタを実行できる方法や設定があるのでしょうか？

adpでレポート作っています。
グループフッターに集計するところで躓いています。

データはこのようになっています。

日付　曜日　販売数
11/1　土　　　100
11/2　日　　　50
11/3　月　　　60
11/4　火　　　30
11/5　水　　　5
・・・　

これを曜日別に合計を出したいのです。
ちなみに集計する式は月曜集計欄に =SUM( IIF([曜日]="月", [販売数], 0)
という感じなのですが「集計関数は、レコードソースの出力フィールドにのみ許可されています」というエラーが出ます。
adpではこういうsumとiifの使い方ってだめなんでしょうか？

>>660
そういう操作をしたことがないのでよく分からないんだけど、
普通はコードを使って、フォームのレコードソースを操作するんじゃないのかな？
Me.RecordSourse="SELECT * FROM hoge"　みたいに。

>>661
adpの場合、Jetを経由しないという速度的なメリットがある代わりに
Jetを経由しないが故にVBAの関数ライブラリが参照されないはず。（>>589-595）
ということで、Server側のしきたりに従ってクエリ式を作ってくだされ。

>>662
…やっぱりそうですよね。おとなしくしきたりに従います…

TransactSQLでIIf使えたら楽なんだけどなw

>>660
そういうことを聞きたいわけじゃないとは思うけど、ヘルプに
「フォームがレコードセットに連結しているときに [フォーム フィルタ] コマンドを使うと、エラーが発生します。」
と明記されているから、できないんじゃないのかナー。

ttp://msdn.microsoft.com/ja-jp/library/cc380231.aspx

他にもフィルタとか並べ替え関連のプロパティは全部無効になるとも書いてあるから、
自前でRecordsetをセットするのはいいけど、それならレコードセットの操作は
フォームの組み込み機能に頼らず全部自前で面倒見る覚悟でやれや
。。。ってことなのかな、と。

ちなみにフォーム開くときにVBAで一瞬フィルタかけてすぐに解除すると
フォームフィルタ使えたけど、フォームフィルタ画面で条件を
何も設定せずにそのまま解除しようろするとデータプロバイダが
何ちゃらってエラーが出た。
たぶん、それ出来たからやっていい操作ってことじゃなく、
本来許可しない操作がガード破れてできちゃったけど、
どっか（レコードセットの管理とか）が破綻しちゃうんじゃないのかな。
ちょっと香ばしすぎて、業務ソフトに使ったら即死亡な悪寒。

レスありがとうございます。

>>662
リンクテーブルを使わない外部参照、ストアドプロシージャからの取得、
複数フォームにまたがるトランザクション、外部接続を一旦切断してバッチ編集させる場合等では
RecordSourceが使用できないので、仕方なくRecordsetを使っています。

これらの場合でもRecordSourceが使えれば良いのですが……。
一旦、ローカルのテーブルに挿入する手は、今回はコストが大きいため使っていません。

>>665
ヘルプについては見逃して言いました。リンクありがとうございます。
やはり、本来使用できないのが仕様で、たまたま実行できてしまっているだけなのですね。
私の環境でも、確かに通常の挙動とは異なります
(コンボボックスに列の値が表示されない、[閉じる]をクリックすると状況によっては異常終了する等)。
フォームフィルタは便利なので、正しく使える方法があるのなら、是非使用したかったのですが、
今回は諦めて、自前でフォームフィルタ似のものを実装することにします。

ちなみに Set Me.Recordse = p で一旦フィルタ関連の設定は無効にされるのですが、
再度設定してやると正しく適用されました。同様に[並び替え]と[選択フィルタ]は問題なく使用できています。

助言、ありがとうございました。

インデックスを設定して、そのインデックスの順に合わせて絞り込みやグループ化すると
処理が早くなりますけど、絞込みとグループ化でそれぞれインデックスのキーを
指定しても絞込みの方にしかインデックスは利用されないのでしょうか。
具体的には、Index(日付, 科目, 補助科目)ってな感じでインデックスがあったとして、
絞り込み条件にこの３つ内、左のキーから絞込み条件を指定した場合、例えば

SELECT 日付, 科目, 摘要 FROM 取引履歴
WHERE 日付=Between #2007/04/01# And #2008/03/31# , 科目="現金"

は「日付,科目」までのインデックスが有効に使われると思いますが、
これが絞り込みとグループ化の指定で、

SELECT 科目, Count(科目) AS 件数 FROM 取引履歴
WHERE 日付=Between #2007/04/01# And #2008/03/31#
GROUP BY 科目

のような指定だと、「日付,科目」の順できちんとインデックスは使われるのでしょうか
（それとも「日付」までしか使われないのでしょうか）

どこかに、「インデックスと絞込みの条件・グループ化・並べ替え」との関係を
詳しく解説したところ知りませんか？（できればAccessについて）
分かる方よろしくお願いします

絶対に使われるとか絶対に使われないとか明言はできんよ
クエリアナライザとかないんで・・・

確かに検証できるツールが標準であるわけではないので、いくとおりかのSQL文による
ケースバイケースでのインデックスの利用/未使用は判定できないでしょうが、私の知
りたいのは「インデックスが使われる定石としての考え方」です。

インデックスとして設定した複合フィールドが「検索条件・グループ化条件」の両方で
連絡的に使われることがあるかどうかを知りたいのですが．．．

「オブジェクトはゾンビ状態です。」

うーんインデックスについての回答ないですねぇ
よそで聞いてみます

otlook2002です。
フローティングのフォームがいくつかあって、alt+tabみたいにフォーカスを変えていく方法はありますか？
Ctrl+F6だとフローティングのフォームにフォーカスが移らないんですよね。

いま、勤怠管理ソフトを改造中です。

複数のフォームをタブコントロールをつかって切り替えていると、フォームの数が多くなれ
ばなるほど多くなるので、遅くなるので、トグルボタンで切り替えるようにしました。

その中に、おまけ機能として、登録住所をGoogle Mapsで表示出来るようにしてみようと思い
まして、WebBrowserコントロールを貼り付けて、ローカルのGoogle Maps APIを用いて作った
map.htmlを読み込ませています。

右上に見えるものは、Google Maps APIを用いて、Accessに登録している住所をジオコーディング
させたものを、緯度経度に分けているのですが、この値をWebBrowserコントロールの中のHTML
に対して、投げることはできるのでしょうか？

Google Maps APIのcenterAtLatLng()を使えばウェブブラウザの場合にはできるそうなんですが
どのように、このAccessから、WebBrowserコントロール内のmap.htmlに対して、移動してほしい
位置へ飛ぶように、緯度経度情報を渡せますか？

http://www.uploda.org/uporg1786199.jpg

やっと2007レポートはグリッドプロパティできて罫線使えるようになったけど
段組み印刷で項目名が段組みされないのは何なのよ
真面目に開発しろよ

レポートで罫線使えるようになっただけ大進歩です。

なんだかんだやっていたらできるようになりました。

すんません。

ちなみに解決手段は

１．Google Mapsを表示しているフォームは親と同じレコードソースを便宜的にあてる
２．WebBrowserコントロールを貼り付けて、レコードの移動と連動させるには
　Ａ．Form_CurrentにおいてVBAを記述する
　Ｂ．以下のようなコードを記述する
　　　 'フォーム内のテキストボックスに住所をコピーする
　　　　Form_googlemaps!WebBrowser0.Document.all.address2.value = Form_社員マスター.住所.value

　　　'フォーム内のボタンを押す
　　　　'１番目のフォームのなかの２個目の要素をクリックの意味。１個目はテキストボックス
　　　Form_googlemaps!WebBrowser0.Document.Forms(0).all(1).Click
３．読み込ませるmap.htmlには・・・
　Ａ．geocoder = new GClientGeocoder();をfunction onLoad()に入れておく
　Ｂ．フォームの部分はこんな感じ
　　　　<form action="#" onsubmit="moveAddress(this.address2.value); return false">
　　　<input type="text" name="address2" value="" />
　　　<button type="submit" name="btn01">移動する</button>
　　　　</form>
　Ｃ．moveAddress()は、function moveAddress( ADDRESS )としてつくっておく。getLatLngを
　　　もちいて、map.setCenter()で移動させるようにする。その際にgeocoder.getLatLng()内に
　　　これらを入れておく。ジオコーディングしてから、map.setCenter()で移動させる仕組み。
４．これでAccessに入っている住所データを用いて、マップと連動できる。さらに、マーカーを
　　うつように、マップ自体に仕込んだり、AccessのテーブルをXML出力後、それを読み込ませ
　　るようにすれば、マップにマーカーをいっぺんに打てる。
５．最初のmap.html読み込み時は、フォームがbusyなのに緯度経度情報を渡そうとしてエラー
　　になるので、on error resume next以下に、WebBrowser0.Busy = True の間はDoEvents
をDo while loopで読み込みを待たせる。その後、2-Bのコードを記述しておく。

するとこんな具合に、できました
http://www.uploda.org/uporg1789541.jpg

１．をやっておかないと、レコード移動しても、最初の１回だけは移動してくれるのですが、
２回目は移動しません。Form Currentした時に、このフォームがレコードを移動したよとい
う認識が、レコードソースを割り当てておかないと認識しないようです。

このマップを表示するフォームに実用上レコードソースのデータは何一つ使わないので
すが、ここで嵌っていました・・・

次は、Accessで旅費計算をさせるプログラムをつくることにします。これでこんどは乗り換え
案内やルート検索のサイトなどと連動させてみたいと思います。ありがとうございました。

すみません桐ってなんのことですか？

ゴマノハグサ科の落葉高木

>>678
へその緒を乾燥させたものをしまっておくものにも、桐の小箱が使われるよね。

で、ここでの話は、直感型データベースソフトのことをいう。
ただ身近で使っている人は俺の場合、一人しかしらないし見たこともない。

ファイルメーカー使いもあまりみたことがないけれど、こっちのほうがまだユーザ
数は多いと思われる。パーソナルデータベースはあまり選択肢がない世界だか
ら、なかなかアレなんだけれどね。

Access2003のランタイムは今はもう入手できないのでしょうか？
サイトを探していても、そのファイルがダウンロードできる場所が見つかりませんでした。

http://office.microsoft.com/ja-jp/access/HA011208861041.aspx?pid=CH011228281041
ドキュメントはあるようなのですが。

http://www.microsoft.com/downloads/details.aspx?FamilyID=d9ae78d9-9dc6-4b38-9fa6-2c745a175aed&DisplayLang=ja
2007のはあるようですが。

>>678
http://www.kthree.co.jp/index.html

このスレで出る質問事項の殆どが簡単便利に解決しちゃう魔法のソフト
でも高いよ、エグゼクティヴ向け

>>681
Access Developer Extensions の購入が必要じゃないの？

>>681
なんか見つけたみたい。
ttp://e-server.mydns.jp/server/modules/mydownloads/viewcat.php?cid=10

>>683-684
ありがとうございます。
2003で作ったファイルを動かすことが出来ました。

質問です。
Windowsの共有フォルダを利用して、mdbを動かした場合についてです。

以下のような操作方法を考えていますが、これだと逆にネットワークの負荷が
大きくなるのでしょうか？それとも、ネットワークの負荷は小さくなり、逆に
サーバ側の負荷が大きくなるのでしょうか？

まず、サーバに共有フォルダを準備し、そこにデータ用のmdbファイルと、
クライアント用のmdbファイルを置く。
クライアントPCからは、サーバの共有フォルダを開いて、クライアント用の
mdbファイルを開き、操作を行う。

共有フォルダでNGにしたわ

>>686
Accessはデータベースサーバーではありませんので
ローカルディスクにあったmdbが共有フォルダに移動した
だけの扱いになります。
>>687
そう邪険にしなさんなｗ

>>688
サンクスです。

上でも書きましたが、フォームがフローティングで複数開いている場合、フローティングではないフォームも含めたフォーム間のフォーカスの移動はどのようにするのでしょうか？
フローティングでなければCtrl+F6で出来るのですが。。。

マウスクリック

>>691
殺生な。。。仕事に使うためにはマウスフリー化が必須です。

うん、分割フォームのフォーム部分とデータシート部分の行き来は、どうしてる？

>>693
データーシートビューは全く使いませんね。全てフォーム上の操作だけのソフトウェアです。
小さいフォームまでいちいちSetFocusで指定するのも面倒だから、alt+tabみたいにフォーカス移動出来ればいいなと夢想しています。

>>692
桐にしとけよ

>>695
マウスフリーと桐はさすがにあまり関係ないだろ

桐はキーボードだけで操作できるよ
まじに、マウスフリー

＞仕事に使うためには

だったらフローティングとか浮かれた機能使ってんじゃねーよ

>>698
俺もそう思うんだけど、業務用ソフトだから仕方がない。
報告書作成フォームに書き込むときに、フローティングの履歴フォームを開いて参照しつつ書き込むようになっている。
フローティングを参照してから、報告書作成フォームにフォーカスを移すときにマウスが必要な設計ｗ
しかもフローティングが5個くらい開ける設計ｗ　　何か、いい手はありませんか？

孫の手

>>700
ありがとうございます。でも、出来るだけ、Access内で解決したいなと思いまして。

そうしたいなら、そのようにコーディングすればいいだけ。
それが面倒なら、あきらめればいいだけ。

>>694
> データーシートビューは全く使いませんね。全てフォーム上の操作だけのソフトウェアです。
> 小さいフォームまでいちいちSetFocusで指定するのも面倒だから、alt+tabみたいにフォーカス移動出来ればいいなと夢想しています。

alt+tab って SetFocusやってるじゃねーの？
SetFocus を好きなキーに割り当てろよ、たぶん設定面倒だけど

>>702　>>703
各々のフォームに対して、他のフォームにSetｆocusするためのキーを設定するしかないですかね。
alt+tabはグループ間で順次Focusが移動するから、大雑把で使いやすいかなと思いました。
要するに、いちいち設定するのが面倒だな、大雑把なやり方があればいいな、ということです。

業務用ってのがよくわからんがもしかして外部の業者とかに作らせたソフトなのか？

>>705
詳しくはいえませんが、業者物のソフトです。年間ん十万円支払っています。

そういうのって普通は物理的にソース修正できないようになってるか、あるいは
仮にできたとして勝手に改変したら保守契約対象外とかになったりしてまずいんじゃないの？

まあどういう契約になってるかわからんけど・・・

バレなきゃ良い、必要な時に戻せば良い

>>707
いじり放題です。もちろん、自己責任ですけどね。
ユーザーインターフェースをいじるくらいなら安全かなと。
チビッ子フォームがたくさんあるときにフォーカスを移動するとき、皆さんはどうされていますか？

猫の手

>>710
autohotkeyを使用すれば実現できるのはわかっていますが、Accessで（ｒｙ

すみません、仕事で使っているファイルが壊れてしまったので教えてください。

【 システム環境　 . 】 WindowsXPSP2, Access2002
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 ブックマークが正しくありません

あるファイルを起動しようとすると「ブックマークが正しくありません」
というエラーメッセージが出て開けなくなりました。
その他のファイルは、現在も問題なく開けています。
壊れたファイルも、直前までは問題なく開くことができて、作業できていました。
上記ワードで検索し、以下のページに行きましたが良く分かりません。
ttp://www.accessclub.jp/bbs/0054/beginers21309.html
ttp://support.microsoft.com/default.aspx?scid=kb;ja;209137

ツールの「最適化/修復」というものを使うらしいのですが、
最適化元データベースを開く時に、やはり「ブックマークが正しくありません」と出ます。
どうか解決策を教えて下さい。

>>712
該当ページ、ttp://support.microsoft.com/default.aspx?scid=kb;ja;209137 にある、
【破損したデータベースの回復】を試せば良いんだが？

１．Accessは最新版に
２．破損ファイルのコピーを作っておく
３．ldbファイルは削除しておく
４．壊れたファイルを開こうとするのではなく、Accessのみ起動して最適化／修復を試す
５．それで駄目だったら、空のデータベースを作成し壊れたファイルからインポートする
以下、省略

細かい手順。

>>712
とりあえず、壊れたファイルを適当な場所にコピーしてバックアップ。
壊れたファイルと同じフォルダに、壊れたファイルと同じファイル名で拡張子が.ldbのファイルがある場合は、それを削除。

ファイルを直接開いてないかい？
直接開いてエラーが出る場合は以下の手順で、空の Access を開いて最適化を試してみる。

1.Windows の[スタート]->[すべてのプログラム]から Access を選択して開く。
2.Access のメニューから[ツール]->[データベース ユーティリティ]->[データベースの最適化/修復]を選択。
3.壊れたファイルを選択。
4.修復したファイルの保存先のファイル名を聞かれるので、適当なファイル名を入力して保存。
5.4で入力したファイルを開く。開ければ修復できたので、壊れたファイルと置き換えて終了。

上の手順で駄目なら以下の手順で、全てのデータのインポートを試してみる。

1.Windows の[スタート]->[すべてのプログラム]から Access を選択して開く。
2.Access のメニューから[ファイル]->[新規作成]を選択。
3.新規のファイル名を適当に入力して保存。
4.Access のメニューから[ファイル]->[外部データの取り込み]->[インポート]を選択。
5.壊れたファイルを選択。
6.オブジェクトのインポート画面が開いたら全てのオブジェクトをインポート。
　[テーブル]、[クエリ]、[フォーム]、[レポート]、[ページ]、[マクロ]、[モジュール]の各タブで
　[すべて選択]をクリックして全て選択後、OKをクリック。
7.インポートが終わったら、使えることを確認。大丈夫なら、壊れたファイルと置き換えて終了。

>>713-714
ご解答ありがとうございます。
破損ファイルのコピーは取りました。
ldbファイルと言うものを探しましたが、同じフォルダには何もありませんでした。
Accessのみ起動→最適化/修復しても、「ブックマークが正しくありません」と出ます。
空のデータベース作成からのインポートも試しましたがうまくいきません。
空のデータベース作成→外部外部データの取り込み→インポートをしようとしても、
やはり「ブックマークが正しくありません」と出てきました。

他のファイルでしたら最適化もインポートもできます。何がおかしいのでしょうか。

>>715
うーん、ダメ元で decompile してみる？
適当なショートカットを作成して、リンク先を以下のように変更。
作成したショートカットから一度開いたあと、壊れたファイルを直接開く。

リンク先:
"C:\Program Files\Microsoft Office\OFFICE10\MSACCESS.EXE" "D:\Hoge\hoge.mdb" /decompile

D:\Hoge\hoge.mdb の部分は壊れたファイルの場所とファイル名に変更してください。
Accessのインストール先が違うなら、C:\Program Files〜の部分も一緒に変更。

>>716
ありがとうございます。
試してみましたが、こちらの方法でもダメでした。
ショートカットから開く時に、また「ブックマークが正しくありません」と出てきます。

>>717
ここにある JETCOMP.exe を使って、最適化を試みてください。
Jet compact utility is available in download center
http://support.microsoft.com/kb/295334/EN-US/

使い方
1.ページ中央の「Download the JETCOMP.exe package now」をクリックしてJETCOMP.exe をダウンロードします。
2.ダウンロードした JETCOMP.exe を実行して適当なフォルダに解凍してください。
3.解凍されたフォルダの JETCOMP.exe を実行してください。
4.Database to Compact From [Source] の方に壊れたファイルを指定。
5.Database to Compact Into [Destination] に最適化したファイルの保存先の場所と
　ファイル名(適当なファイル名を入力)を指定してください。
6.Compact をクリックして最適化を実行します。
7.5で入力したファイルを開く。開ければ修復できたので、壊れたファイルと置き換えて終了。

>>718
ありがとうございます。
1〜4までは進めたのですが、5が良く分かりません。
5ではどのように入力したら良いのですか？

4ではボタンを押して、壊れたファイルを指定できたのですが、
5でもファイルを開く画面になり、保存先指定やファイル名の入力ができません。
適当にファイルを作るとcompactを押せますが、エラーが出てしまいます。

>>719
5で入力するのは保存先のファイル名なので適当に (保存先のフォルダ名)\db1.mdb とか。
既にあるファイル以外を指定してください。

ボタンを押すと、ファイルを選択するウィンドウが開きますが、
そこで既にあるファイルを選択して Compact をクリックするとエラーになります。
ウィンドウを開いて選択した場合は、ファイル名だけを直接入力して適当な名前に変更してください。

>>720
細かいご指導ありがとうございます。
５でC:\db1.mdbと入力し、Compactを押したのですが、
「Error compacting database.」と出てきました。

ですが、４で壊れていないファイルを指定すると問題なく処理が進みました。

>>721
確認なのですが、壊れたファイルは Access 2002 で作成したファイルですか？
Access 97 で作成したファイルを Access 2002 で使用しているような場合では、
JETCOMP.exe の画面で、Destination is 3.x database format を選択する必要があります。

あと、一旦 Error が表示された後で、
正しいファイル名を指定しても Error compacting database と表示される場合があるので、
一旦閉じてから、再度実行してみてください。

それでも駄目な場合は、データを一旦、取り出して、
手作業で復旧するしかないかもしれません。

Access のリンクテーブルを使う場合
1.Windows の[スタート]->[すべてのプログラム]から Access を選択して開く。
2.Access のメニューから[ファイル]->[新規作成]を選択。
3.新規のファイル名を適当に入力して保存。
4.Access のメニューから[ファイル]->[外部データの取り込み]->[テーブルのリンク]を選択。
5.データを取り出すテーブルを選択
6.元のAccessと同じ形式のテーブルを作成して、テーブルのデータをコピーしてください。

Excel に取り出す場合は以下を参考にしてください。
http://support.microsoft.com/kb/304561/

>>722
現在確認中です・・・
とりあえずDestination is 3.x database formatを選択してもダメでした。

データ復旧ですが、4の外部データ取り込みが上手くいきませんでした。
今回も同じく、「ブックマーク〜」とエラーメッセージが出てしまいます。

>>723
起動すると自動的に何かフォームが開いたり、コマンドを実行するようになって
いるかい？たとえば、autoexecマクロがあったりとか、起動時にODBCリンクを
張ってどこかに接続するようになっているとか。

Shiftキーを押しながら起動してみて、フォームとかautoexecが実行されない状態
で、同じようにエラーがでるのならば、復旧は諦めて、データのサルベージに移行
しましょう。その前に、そのmdbが有るフォルダに、database1.mdbなんて感じのへ
んなmdbがあったら儲けものなので開いてみましょう。

さて、データのサルベージですが、
１．Excelや他のAccessから、対象となるmdbへ接続して、データを取り出す方法。おもに
ODBCを利用した接続となる。

２．MySQLのMigration Toolkitを使って、一度MySQLへAccessをインポートし、無傷の
同じmdbでMySQLへODBCリンクをはって接続。データを戻す方法。こちらはMySQLや
MyODBCが必要なので非常に手間が掛かる。

３．http://msdn.microsoft.com/ja-jp/library/cc708919.aspxを使って、SQL Server形式に
してみて、SQLサーバ経由で、ADPでもつかって取り込み直す

４．各種変換ツールを使う（CSVに変換などなど）

mdbはモジュール単位での破損や、本体そのものの破損と破損といってもいろいろあって
軽傷ならばサルベージで助かることもあります。

簡単に復旧できたらバックアップの重要性を理解しないまま
いつかまた同じことを繰り返すだけ

やれる限りの方法を試してみるということは、それで良いと思う。
だけど、駄目な時は駄目だぞ。どんな方法をやってみても。
簡単に復旧できたらバックアップの・・・という意見には俺も賛成だな。

>>725
自分も同意見

だから、自動的に起動時にバックアップをつくるモジュールを付くって
autoexecで作動するようにしています。最大5個を常に起動時に作り
続ける仕様になっていて、このおかげで実際に、自動最適化でぶっこ
われて　なんて目に遭っても、大丈夫。

終了時の自動最適化が結構、ファイルが壊れる原因になっているよう
な気が最近はしているので、はずすべきなのかもしれんけれど。

>>727
> 最大5個を常に起動時に作り続ける仕様になっていて
ｋｗｓｋ

>>724
起動時に自動でフォームが開いたり、コマンドを実施するようにはなっていませんでした。
Shiftを押しながら起動してもブックマークが云々言うので、復旧は無理そうですね・・・
現在、サルベージ手段というのをググって調べています。
が、相当深刻な損傷みたいです・・・

>>728
http://www.accessclub.jp/bbs/0050/beginers20072.html
http://www.moug.net/tech/acvba/0070012.htm

ここのを参考にしていろいろ必要なものだけに削って、パラメータなんかは
iniファイルから読み書きにしてある。バックアップの個数とか、バックアップ
ファイル名なんかがそれ。

で、autoexecマクロにプロシージャの実行で、このプロシージャを割り当てて
起動時に自動バックアップ、古い物を削除、という具合にして、最大5で設定し
てある。

これ、パーソナルレベルなら結構使えるなぁというのが自分の感想。C/Sの場
合は、いくらクライアント側のmdbが壊れても問題ない（完全にUIに徹するので）
この方法は使っていない。

mdbで完結するようなものは、こういうのは必須だと思うけれど、これくらいの
レベルでは実装されていないのが惜しいね。

>>729
ODBCでまず接続してみてそれでも、同じようにエラーがでる場合には、かなり
厳しいかもね。

Excel -> Accessで接続するものをODBCドライバを設定しておいて接続。MSSQL
経由でデータをExcelに引っ張れるなら、サルベージは可能かもしれないけれど、
プログラムそのものは復旧はできない。

無傷な過去のコピーがあればいいんだけれどね。

>>729
１ヶ月前にバックアップを取っているので、データさえサルベージできればよいのですが・・・
通常も週１でバックアップとっているのですが、今回は直前に取ったバックアップも同様のエラーが出ていました。
ウインドウ右上の×を押して閉じたのがいけなかったのか。

>>730
詳しいレスありがとうございます。
紹介してあるサイトなどをじっくりと読んでみたいと思います。

セル内での文字数設定の方法がわかりません。
「文字数オーバーです、切り詰められました」というメッセージが出て、
それ以上文字の入力が出来ません。

アドバイスお願いします。

だめだー。どう足掻いてもサルベージすらできそうにないです。
ご協力頂いた皆様、大変ありがとうございました。
次からはバックアップをもっと頻繁にとって、終了は×を押さずに終了するようにします。

×押しちゃダメなの？

×を押すとファイルが壊れる仕様なんて無いと思う。
別なところが問題かと。


起動時に自動でバックアップという案は良いな。
AccessはSQLServerみたいに常駐できないからな。
起動時はmdbファイルを開くのではなく、VBの
プログラムを開かせて、ファイル操作でバックアップを
取るなんていう案もあるな。

終了時の自動最適化はoffの方が安全かな？
確かにファイルが壊れるのは自動最適化onの時の方が多い気がする。

アクセス2003なんですが
すでに作られたデータベースの一部のテーブルに新規でレコード書き込んだり
修正したりできないのですがこの設定を解除するにはどうしたらよいのでしょうか？
たぶんパスワードなどはかかってないと思います。

ちなみにこういった初歩的な知識を得るために書籍を買おうとおもうのですが
アクセス2003できる大事典でもかっとけばOKでしょうか？

データベースの知識はシスアドで勉強した程度で
ほとんどありません。

教えて下さい

テーブルＡ
社員名、フラグ
クエリＡ
社員名、フラグ
フラグにチェック入った社員名のレコードは表示させない
テーブルＢ
社員名(データはクエリＡから引っ張る)、フラグ、出勤時間、退社時間
クエリＢ
退社時間に時間が入力されたら表示しない


ここで質問ですがクエリＢのフラグにチェックするとテーブルＡのフラグにチェックさせるにはどうしたらいいのですか？

桐にするといいよ

テーブルＡ
社員名　テキスト型
フラグ　　YES・NO型
クエリＡ
社員名　テキスト型
フラグ　　YES・NO型
フラグにチェック入った社員名のレコードは表示させない
テーブルＢ
社員名　ルックアップ型(データはクエリＡから引っ張る)
フラグ　YES･NO型
出勤時間　日付型
退社時間　日付型
クエリＢ
社員名　ルックアップ型(データはクエリBから引っ張る)
フラグ　YES･NO型
出勤時間　日付型
退社時間　日付型
退社時間に時間が入力されたら表示しない

たぶんクエリBで選択した社員名のフラグ（チェックボックス）をチェックしたら
テーブルAの社員名のレコードのフラグもチェックできるようにしたいのかな？

UPDATE テーブルA SET 社員名 ='ぬるぽ' WHERE フラグ = true;
とかできるのかな？よくわからないけど・・・
オレより詳しい人よろしく＞＜