ACCESS総合相談所 その１０

質問される方へ
・OS、ACCESSのバージョンを明記してください
・質問内容は具体的に書いてください
　テーブル/フォームの構成、クエリ、VBAの内容など差し支えない
　範囲で詳しく書くと、早く回答が得られるかもしれません
　（聞き返さなくても詳細が把握できる質問が望ましいです）
・事前にヘルプ等で調べられる範囲は調べてください
・下記テンプレートの使用を推奨します。
----------　ここから　----------
【.　 目　的　 】 何がしたいのか必ず記入。）
【.　 条　件　 】 （使用OS、ACCESSのバージョン など）
■試したけどうまくいかなかった処理
【.　概 　要　 】 （どんな処理を試したかを説明）
【駄目な理由】 （動作状況など）
■これだけはやりました
【>>1を読んだ】 はい・いいえ （読まない人が多いので必ず目を通してください）
【Googleで調べた】 はい・いいえ （大概の疑問は検索することで解決します）
【検索キーワードは？】 （全て列挙してください）
----------　ここまで　----------

前スレッド - ACCESS総合相談所 その９
http://pc2.2ch.net/test/read.cgi/bsoft/1061828549

過去スレッド/関連リンクは>>2以降

・歴代スレッド
- html化済み -
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

ビジネスsoft板
【玄人】素人ACCESS相談所【禁制】
http://pc2.2ch.net/bsoft/kako/1047/10470/1047052026.html
もう『Access2002』使ってる人いるっしょ？集合！！
http://pc2.2ch.net/test/read.cgi/bsoft/1006147865/
SQL ServerとAccessの安定性は？
http://pc2.2ch.net/test/read.cgi/bsoft/997258157/
ACCESS2000の分かりやすい本
http://pc2.2ch.net/test/read.cgi/bsoft/994154155/
EXCEL,ACCESSで曖昧な表現を。
http://pc2.2ch.net/test/read.cgi/bsoft/1002267900/
Access2000＋SQL Server難しい・・・（´д｀；）
http://pc2.2ch.net/test/read.cgi/bsoft/1002096284/
microsoft access で成績証明書作成
http://pc2.2ch.net/test/read.cgi/bsoft/1054963223/

データベース板
　　D　　A　　O　　v　s　　A　　D　　O　　
http://pc2.2ch.net/test/read.cgi/db/1057233936/
ADO DAO など接続方法について
http://pc2.2ch.net/test/read.cgi/db/1059027812/
Microsoft Access
http://pc2.2ch.net/test/read.cgi/db/1056952414/

プログラム板
Access使い集合！　Ver2.0
http://pc2.2ch.net/tech/kako/1032/10324/1032402846.html
WordとAccessで年賀状
http://pc2.2ch.net/test/read.cgi/tech/1041070946/

クソスレもたくさん含まれています。ご注意ください。

>>1
乙っす。質問天ぷらの組み込み、GJっす。

すみません、Accessってデータベースソフトですよね？
エクセルなんかから発展させたような、よく事務程度で使う
データベースソフトの事だと思っていたのですが
最近はどうもＳＱＬとかプログラミングがらみのものとかが出てますよね？
事務の求人に出ていたり、事務程度で使うようなのを教えてください。

>>5
何が言いたいのかよくわからないんだけどさ、
そんなことに悩まずにAccess使えばいいやん。

レポートのデザインにおける、「並べ換え」に関して、

　一度保存した並べ換え項目の記述を削除したいのですがうまくいきません。
　いい方法があるんでしょうか？

8

>>7
並べ替え/グループ化ダイアログ画面を開いて行セレクタで適当に選んでから
Deleteするだけだと思うが・・・。

2ちゃんもACCESSも新人です、いきなりですが、質問よろしくお願いします。

OSはXPでACCESS2000を使っています。
Excelからデータをインポートして追加追加で現在5列30万行あるデータです。
主キーは設定しておりません。
そのインポートした列のひとつが「日付」なのですが、表記上は例えば今日だった
らテキスト型で040130のようになっています。
この列をすべて一気に「日付/時刻型」に変更したいのですが、方法がありましたら
教えてください。どうぞよろしくお願いします。
【目的】操作をするために列のデータ型を「テキスト型」から「日付/時刻型」に
変更したい。
【試したけど上手くいかなかった処理】
デザインビューで強制的に変えようとしたらデータが失われます。
置換えでやろうとしたけど上手くいきませんでした。

>>10
更新クエリを使えば？
日付のフィールドで
=CDate(Format(日付フィールド名,"@@/@@/@@"))

さっそくのアドバイス本当にありがとうございます。
でもスミマセン。やっぱり素人なもんで(^^;)

選択クエリからデザインビューで更新クエリで
日付のレコードの更新のところに書き入れましたが、
クエリを実行しようとすると「抽出条件でデータ型が一致しません。」
と出ちゃいます。
やり方が悪いんでしょうか。それとも全くピントが外れてるんでしょうか。

>>12
抽出条件欄に入れるんじゃなくその上...
※テーブルを一応コピーしてからやってよ。データ台無しにするな!

追伸
更新クエリはデザイン→ビューで見ても更新結果は見られないからね
ツールバーの「!」ボタンで実行だからクリック後にテーブルで確認してよ

ありがとうございます。
テーブルはコピーしてやっていますので大丈夫です。
式は「レコードの更新」のところに入れています。
抽出条件欄は空白のままです。
これで作成された更新クエリを実行しようとすると最初に「書き換えますか」
の表示が出て「はい」のクリックで「抽出条件でデータ型が一致しません。」
と表示されてテーブルで確認しても更新されていません。
データ型そのものの更新は出来ないんでしょうか？

そうだった...(鬱
テーブルで新しいフィールドを「日付/時刻型」で作り
そのフィールドでやって下さいな

OS98でACCESS2000を使っていて、最近PCを買い換え
OSがXPになったんですが、ここで問題が発生しました。

宛名ラベルウィザードを使って
=Trim([値札１])
=Trim("\ " & [販売価格]*1.05)
のようなレポートを作って商品の値札作成用に使用していたのですが、
XPにしてから、このレポートがうまく表示されなくなりました。
すべて「#Neme?」と出てきてしまいます。
ちなみに98上ではしっかり表示されていました。
これはどのような原因によるものと考えられるでしょうか？

値札１とか販売価格のコントロール名と名前(プロパティ>その他)が同じに
なってたら名前の方を「txt値札１」「txt販売価格」等違うものに変えてみ
てはどうでしょうか？

>>18
レス遅れて大変申し訳ありません。
確認してみたのですが、コントロール名(これはコントロールソースの
ことで良いでしょうか？）は「=Trim([値札１])」になっていて
名前のほうは「テキスト1」などとなっています。
やはり式というか関数の部分で引っかかっているのかなと思いまして。。。

>>17
Microsoft Jet のアップデートはしてますか？

>>19
VBAエディタを開いてツールから参照設定を確認して
「参照不可」とある項目があればチェックを外して

できましたーーーー！

>>18さん、>>20さん、>>21さん
自分ひとりでは全然分かりませんでした。
ものすごく初歩的なことだったのかもしれませんが、
わざわざ教えて頂き本当ににありがとうございます！

>>16さん、ありがとうございました。
すんなり解決いたしました。

ACCESSの、期間限定でいいから体験版ダウンロードってないですかね？

評価版あるけど金かかるよ
ttps://s.microsoft.com/japan/products/shop/default.aspx

>>9
それが無理なので

売上データを[列：顧客名][行：売上日付][値：売上額]としてクロス集計クエリーを作成。

これを帳票で印刷しようとすると、横向き（列）フィールドのコントロール名をどのようにすれば良いものか・・・。
顧客データが固定であれば無理矢理できないこともないけど、顧客が増えることを考えるとどうやって次のページに反映させるのか？と悩んでいます。


今までは、行と列を反対にしてごまかしてたけれど（横向きが日付で縦が顧客データになる）、それ以外に何か方法があるものか聞きたくカキコします。


アクセス帳票でこれを実現した方のご教授お待ちしております。

>>27
クロス集計クエリーは使わない。売上データテーブルから、
[グループ],[売上日付],[売上額顧客1],[売上額顧客2],……[売上額顧客X]←用紙に入る列数
のクエリーを作る。レポートには「用紙」という制限が必ず発生する為
あまり自由が効かない。（というか可変レポートなんつうものを作るのはめんどい）
レポートを作り易いソースをまずでっちあげ、レポート上では変わった事はしない。

列タイトルは、ルックアップなり関数作るなりして、引っ張ってきて、
レポートの詳細の外側に張り付けたラベルなりテキストボックスなりに表示させる。

で、そのクエリーを烏賊にして作るか、それは自分で工夫汁！
ユニオンクエリーあたりを弄って美代！
ワークテーブルなんかつかってみるのも一つの方法。

複数の列見出しを持つクロス集計の作り方を教えてください

[行：顧客名][列：商品名][値：売上額]で、
さらに商品は[売上分類]に分類できて[列：商品名]の上に[列：売上分類]を加えたいのです
よろしくお願いします。

>>28

サンクス。
列のコントロールソースをＶＢＡでごりごり変更する方法がいいかも。
いろいろ試してみてダメそうだったら、違う方法で逃げてみます。

みなさんACCESSに詳しいようですが独学で学んだのですか？
僕も職場でACCESSを使用し始め色々やりたい事があるのですが
分からないことが多く正直戸惑っています。

ACCESSを勉強する為の（特にクエリやマクロ）どこかお勧めのHPがあったら
教えてください。

リレーションシップについて質問なのですが、４つのテーブルに「氏名」というフィールドがあります。
この関連付けの場合、たとえばAのテーブルとBのテーブルをリレーションし、またさらにAとCのテーブルをリレーションするのでしょうか？
超初心者ですみません・・他でも調べたのですがリレーションについてはそれほど情報がなかったのです。
アクセスは２００３で、顧客管理をしたいと思っております。

リレーションシップなんて無視しろ。
つないでおけば少しは便利なこともある、程度のものだ。
わけも分からないままつないだって、その便利さは使いこなせないだろう。
使いこなせない便利さの代償はけっこうでかいぞ。
何かやるたびに警告がガンガン出る。
それが嫌だったら、ひとまずは何も手をつけずに放っておけ。
関連づけはクエリ上で必要分だけやればいい。

>>33
昔はそういう意見にﾋﾞﾋﾞｯﾀけど、ACCESSから入る初心者だったらそれもありか
もと思いはじめてきたよ。

>>31　まずはAccessのHELPとサンプルを見ろ！　話はそれからだ。

で、
http://pc2.2ch.net/db/

しかし重要なのは何かを読む事ではなく自分で手を動かし試して見る事だ
具体的に判らないところが出てきたらここで聞けばいい。













ttp://www.moug.net/
ttp://www.microsoft.com/japan/msdn/officedev/

>>33
オレも独学なんで偉そうに言えないけど
リレーションシップってそんなに重要じゃないと思う。
>関連づけはクエリ上で必要分だけやればいい。
同意!

‘リレーショナル’・データ・ベース

>>32
まず「正規化」について勉強した方が良いのでは？
「氏名」フィールドがテーブル毎にあって、しかもそれで連結
するのは如何なものかと。
同姓同名はどうするか、結婚して苗字が変わったらどうするか、
問題がありそうな気がするのですが。

>>33
たしかに、その通りになりました・・・
クエリでデータの調整をしていたら、変更不可能だと。
自分でリレーションを削除し、なんとか元通りに。
昨日から数時間やりっぱなしなので、おっしゃる意味がなんとなくわかってきました。
>>34
一応データベースについてsqlは触ったことがあるのですが、いまいち真剣にやらなかったせいですね。
アクセスで困るハメに陥ってます。
>>36
関連付けと、データの保存とを分別して考えなければいけないのですね。
これもクセのような感じで慣れていけば身に付くのでしょう。。。
と願っています。

>>38
確かにそうですね。
名前で連結しても仕方ない。そのことに気付きました。
同じものを結ばないといけないという、へんな考えにヤラれておりました。
リレーションの件ですが、自分なりに触りまくってわかるようになりました。
みなさん、こんな初心者にありがとうございます。

　　　　商品A　　商品B
A店　　１０　　　　２０
B店　　１５　　　　１０

といったクロス集計に、別のテーブルから商品Cという列を加えることは可能ですか？

COUNT(DISTINCT 商品番号) みたいなの、
アクセスでできる？

>>36
＞リレーションシップってそんなに重要じゃないと思う。
重要だよ。何の為にリレーションを結ぶか理解してれば、そんな乱暴な
意見は出て来ない筈。リレーションシップを結ぶって事は、データを
リソースタイプとイベントタイプに分けてリソース側の追加をやりやすく
し且つ、変更が有った場合のイベント側の変更漏れなどのデータの不整合発生
を防止する。又、１−多のリレーションを結んだ場合の削除や変更のコントロール方式
を明確化する事によるデータ整合性を保つなど、リレーションシップの概念の
データベースにおける重要性は明らか。初心者にいい加減な情報を与える事はやめましょう。

Accessスレで一番活発なのってここ？

>>35
そうですね。頭で考えているよりも実際に使ってみて分からないことが出てきたら
皆さんに教えていただこうと思います。

ヒントになるHPまで教えていただきありがとうございました。

>>36 は Eccel でも使ってれば？（苦笑

>>42
正論だが
大切な概念であるリレーションシップを「大切な概念としてばかり」教えるから、
前進できないで挫折する初心者が増えるんだと、俺は思う。
たとえば顧客マスターがあって買上履歴があって、ある顧客データを削除したら
その顧客の買上履歴も削除しなくっちゃ、で、削除クエリか何かを使ったりする。
まずはそれでいいと思う。
そのうちに、そういう手順を踏むのが面倒になってくる。
あっちのマスターを変更したらこっちの履歴が何ちゃら、そうそうこっちの履歴にも
影響するから・・・なんてことを考えるのが面倒になってくる。
1対多の関係を明確にしておけば、何かそういうことを自動的にやってくれる「機能」
みたいなものがあってもいいだろ、とか、ものぐさなことを考え始める。
初心者がそういう形で前進していくのも、形としてはアリでいいんじゃないか。
とにかく何か作って動かしてみなきゃ前には進めない。

てな調子でひたすら前進を続け、出来上がったモノをぶっつけ本番運用開始。
業務途中でとんでもないトラブルが起こったりもするわけだが・・・
ま、そのあたりは本人の性格にもよるし運にもよる。

↑ごめん、名前欄とEmail蘭間違えた

>>46
激同

明示的にデータ更新や削除をする事はとても大事なことだと思う。
リレーションシップは（理論的に）厳密に考えると必要なことかもしれんが、現場としては必ずしも必要とは思えない。

「正規化」と「リレーションシップ」は後で覚えても良いと思うぞ。
まずは目的が達成するソフトを「完成させること」が大事。

習うより慣れろですな。



あぁ、かといって正規化やリレが不必要と言ってる訳じゃないから。

個人の学習の過程ではそれでも通用するが、業務として作成するなら許されないな。
障害が発生することが容易に予測できる物を納品するなよ。

>>42
>初心者にいい加減な情報を与える事はやめましょう。
ごめん、言い方が悪かった...

>>46,48氏がいうように、まずは慣れていく方向で...という意味で
言ったつもりなんだけど。

たしかに>>49氏の言われるように"業務として作成するなら許されない"
というのも確かです。

Accessをはじめたときは同じ答えを出すのに何十ものクエリ作ったり
してました。テーブルのソースにSQLを直書いたり、VBAを覚えたり、
していくらかマシにはなったと思っていても、まだまだってことです。<自分

試行錯誤できる時間があるのなら、試行錯誤を沢山したほうがいいの
かな？とは思うわけです。

まぁ、頭でっかちで規則ガチガチの不便なモノ作っちゃうよりは、
融通の利くモノの方が受け入れられるのは、ソフトウェアの大原則だよな。

>>43

DB板の

Microsoft Access
http://pc2.2ch.net/test/read.cgi/db/1056952414/

も割と動いてるよ・・と書こうとしたら、そのスレに>>40と同じカキコ発見
まぁ別に２ｃｈでヤイヤイ言うこともないか

初心者的な質問なんですが、テーブルの設定で

0以上10以下のときはA
11以上20以下のときはB

のようなものを作るときはどうすればよいのですか？
ExcelならIF使って簡単にできるんですが、Accessも一緒でしょうか？
よろしくお願いします

0<=10　　A
11<=20　B

見たいな感じになるんですか？

>>53
アクセスはRDBなので、テーブルに式そのものを格納することはありえません。
テーブルに持たせるのはあくまで値だけです。その値を評価するのは、クエリです。
アクセスで、「選択クエリ」を作ってみてください。
ちなみに、EXCELでいうところの[IF]関数は、アクセスでは[IIF]関数です。
使い方はヘルプを見てください。

>>54
ありがとうございます、クリエですればよかったのですね
さらにそれ関連して質問なんですが、今回ExcelでやらずAccessを使った理由というのが、
その条件が多すぎるからです

00〜10　A
11〜20　B
21〜30　C

みたいな条件をテーブルかクエリで作成って可能でしたっけ？
個数で関連付けすればいいんですよね？

そっか、クエリでVLOOKUPを使えばいいんですね・・・
逝ってきます

うーん、やっぱりよくわかんないです

　個数　　　結果
10以下　　　　A
20以下　　　　B

というようなテーブルは無理なんですよね？完全一致以外のやりかたってないもんでしょうか？

>>57
横スレｽﾏｿです。iif関数ですと、これでどうでしょうか？

SELECT T.個数, IIf([個数]<=10,"A","B") AS 結果
FROM T;
>>55だと、
SELECT T.個数, IIf([個数]<=0,"A",IIf(20<=[点数]>10,"B","C")) AS 結果
FROM T;

クエリーのSQLビューにコピペしてみてください
では

>>54
Access(Jet)ってComputedFieldつくれないの？

ComputedField ってなんだ ?

質問させていただきます。

ActiveXのカレンダコントロール 10.0を使って
テキストボックスに日付を入れるVBAのモジュール
があるのですが、カレンダのクリックイベント
をひろえないマシンがあります。OSはWINDOWS
2000です。

このマシンは前にはAccess2000が入っていたようで、
それをアンインストールした上でAccess2002を
インストールしたという経緯があるようです。

うまく動いているマシンのMSCAL.ocxを入れ替えてみたり
しましたがうまくいきませんでした。

ちなみに、そのテキストボックスに日付をあらかじめ
いれておいて、カレンダコントロールを開くときに
その日付を選択した状態で開くというコードを入れて
いますが、こちらはうまく動作します。クリックや
ダブルクリックのイベントだけとれません。

何かご存知の方がいらっしゃいましたらアドバイス
お願いいたします。

バーコードｺﾝﾄﾛｰﾙで似たような現象に陥ったことあるよ。
ac97で作ったパッケージを配布したPCに
ac2000をインストールした馬鹿がいて、バーコードが
印刷できなくなった。
いろいろ考えたけどac2000はそのままにして、
ac97をac2000とは別のディレクトリに
フルインストール（標準ではなく、ﾌﾙ）して、解決した。
ac97はすぐにｱﾝｲﾝｽﾄｰﾙしても大丈夫

>61
しかし、M$ Date and Time Picker Control を何故使わんのだ・・・

>62
ありがとうございます。AC2002がフルインストールか確認してみます。

>63
選択した日付を加工して使うシチュエーションがあるので。。。
Date...だとテキストボックスと一体になっているみたいなんで。

こんにちは。
Access2000で OSは98を使っています。
レポートのことなんですが、そのレポートはテーブルの中身を表示するようにしています。
そのテーブルの項目の1つなんですが、桁数が100に設定しています。
そこで、その項目(文字数100)をレポートに表示する時
ラベル？1行で表示するのではなく、1行で表示するようにしたいんですが、
どのような方法があるんでしょうか？
どうかよろしくお願いします。

>>65
> ラベル？1行で表示するのではなく、1行で表示するようにしたいんですが、

一体何を伝えたいのか ?

あの、テーブルの中の項目からレポートのテキストボックス(2個)に
表示するときの条件で、1個のテキストボックスに半角10文字まで表示させたい場合の
設定はどのようにしたらいいんでしょうか？
また、2個目のテキストボックスには1個目のテキストボックス(半角10桁制限)で
表示しなかった残りの文字を表示したいです。
どなたかお願いいたします。
その表示したいテーブルの項目の桁数が20桁と前提です。

>>67
Left関数、Right関数を調べたら?

(まあ、多分気づくだろうが...) Right じゃなくて Mid 関数だと思う。

あっ、ごめん 20桁固定なら Right でもいいや。

>>60
計算項目とでもいうのかな？
フィールドに計算式が入れられる。
フィールド　単価　数量　金額
　　　　　　整数　整数　単価X数量
見たいにテーブルが作れる。

>>71
ヘェー、そんなことできる奴があるんだ。
Excel みたいだな...。

でも何に使うの ?

普通にテーブルには単価と数量入れといて、クエリ書けばいいだけだと思うけど。

Jet でもそれぐらいなら朝飯前だし。

ここはACCESSスレですよ。
まっとうなRDBMSの話はやめてね。

>>73
Access がまっとうな RDBMS がどうかは知らんが、お前が話についていけないことはよくわかった。
回線切って染んでてくれ。

前振り長いですが質問です。

現在、Access2000で簡単な名刺管理のシステムを作っているのですが
文字情報のほかにやっぱり画像が入ったほうがよいと思い、
イメージコントロールを追加してみました。
とりあえずピクチャプロパティに画像ファイルの絶対パスを指定して
レコードの移動時（Form_Current）にファイルを読み込んで表示、とやったのですが、
実際に動かしてみると、ページの切り替え時に「インポート中・・・（ファイル名）」という
プログレスバーのようなものがイチイチ表示されてしまい非常に鬱陶しいです。
これを出さなくさせるいい方法はないものでしょうか？

ファイルサイズは高々20KB程度で、マシンスペックもそう悪くないはずですが
この現象は致し方ないものなのでしょうか？

どうか回答よろしくお願いします。

すいません、今顧客の売上関係のDBがAccess2000を使用してあるのですが、これにサービスポイントを追加しようと思っています。
具体的には、1,000までが10ポイント、2,000までが20ポイント、というような感じでなるのですが、このポイントのテーブルの追加はどのようにやればよいのでしょうか？

実際のクエリは、

日付　　　名前　　　商品　　　　金額　　　ポイント
2/6　　　　　Ａ　　　バナナ　　　　500　　　　10
2/6　　　　　Ａ　　　ちくわ　　　　1200　　　　20　　　　
2/6　　　　　Ｂ　　　かつお　　　　800　　　　10　

などと、商品ごとにポイントを計算します。人や日付では合計しないです。ちなにみ、各項目はいくつかのテーブルから引いてきています。


売上額　　　ポイント
<=1000　　　　10
<=2000　　　　20
<=3000　　　　30

のようなテーブルの作成の仕方をよろしくお願いします。テーブル以外の方法でも構いません。

>>75
イメージコントロール使う限り、それは仕方ない。
それが嫌なら、テーブルにOLEオブジェクト型フィールドを定義して、フォームでは連結OLEオブジェクトフレームを使えばよい。
ただ、Mdbのファイルサイズが馬鹿でかくなるので、自分も 75さんの方法を使うけどね。

>>76
好きだねぇ、こういう質問。いかにもAccessらしくて。
76 さんの考えている仕様によっていろいろ方法があると思うけど。

1. ポイントテーブルを使わないで演算式でまとめてしまう。

　 クエリ内でSwitch関数を使ってまとめてしまう。こんな感じ。

　 Switch([金額]<=1000,10,[金額]>1000 And [金額]<=2000,20,[金額]>2000,30)

　簡単だけど欠点としては、ポイント値やポイント範囲が変わった場合、いちいちクエリの記載変更が必要になること。
　逆に、ポイント値やポイント範囲が恒久的に変わらない場合、この方法で十分かもしれない。

-続き-

２．Partition関数を使う。

もし、ポイント値やポイント範囲の変更をUIを考えているなら、ポイントテーブルが必要なわけだけど、
その場合ポイントテーブルとの結合キーにPartition関数の返り値を使う。

まず、現状のクエリに次のような式を加える Partition([値段],0,3000,1000)。
すると、[金額]フィールドの値によって次のような値が返ってくることがわかる。

　　 \1000未満0: 999
　　 \1000 〜 \20001000: 1999
　　 \2000 〜 \30002000: 2999
　　 \3000 〜3001:

つまり、Partition関数は[値段]フィールドの値によってその含まれている範囲の文字列を返してくるわけ。
よって、この文字列をポイントテーブルのキーにする。

売上額　　　ポイント
0: 999　　　10
1000: 1999　　20
2000: 299930

あとはクエリを新しく定義し、現状のクエリのPartition関数の演算列と、ポイントテーブルの[売り上げ額]を結合し、
ポイントテーブルの[ポイント]列を出力させる。

げ、なんか出力例の表示がおかしい、スマソ。
タブがなくなってしまいました。（0: 999、1000: 1999、2000: 2999、ということです）

この方法を使えば、ポイントテーブルの値をメンテナンスすることで、クエリの構造を変えることなく売上額の範囲、与える
ポイントを変更できる。ちなみにPartition関数の第4引数がIntervalを示しているので、この値を細かく設定すれば、ポイントテーブル側の調整がよ
り細かくできる。例えば、Intervalを500にしておけば、ポイントテーブル側では次のようになる。

売上額　　　ポイント
0: 499　　　10
500: 999　　10
1001: 149920

まぁ、詳しくはPartition関数をヘルプで引いてくれ。
長文すまんかった。

売上額に対応するポイントに変化がおきたときのことを考えないんであれば
に1,000で割って切り上げて10かければ？

>>81
価格が 1,000 の時にポイントが 10 になってしまいますが。

>>81
元質問者の提示した条件だと、それでいいと思うが。

>>82ね

>>75
画像がGIFかJPGなんじゃない？
BMPなら大丈夫だと思うけど。

>>83
あらホントだ、スマン。

>>78
ありがとうございます、非常に参考になります。さっそく試してみます！
しかし、0〜1000みたいな場合、0:1000と書くのですか
それすら知らないヘタレだったんで ＿|￣|○

>>79
> \1000 〜 \2000　1000: 1999
> \2000 〜 \3000　2000: 2999

ホントか ? \2000 の場合にどっちが返ってくるんだ ?
まあ普通に考えて、2000: 2999 が返ってくると思うが、そうするとちょっとまずいね。

Partition([値段], 1, 3000, 1000) に変更して、ポイントテーブルを

　売上額　　ポイント
　　1: 1000　　10
1001: 2000　20
2001: 3000　30

とすればいいと思う。(ちゃんとテストしてね。)

>>87
> しかし、0〜1000みたいな場合、0:1000と書くのですか

それは、Partition 関数の仕様。
心配しなくても、俺を含めて知らん人も多いよ。

ACCESSについて教えてください。
今、暫定的にACCESS2000を使って顧客管理をやりはじめました。
ACCESSはこの仕事ではじめて使い始めました。

最初は顧客のデータテーブルしか無かったのですが、やっと購買履歴データも
とれるようになり、別テーブルで追加して繋いで分析・抽出するようにしました。

でも蓄積した顧客データが現在12フィールド程で約90万件（レコード）で
購買履歴データが3ヶ月で日付、顧客番号、購買金額などのフィールドで120万件
ぐらいになっています。

顧客データは、今後は増えても月に2万件ぐらいですが、購買履歴データの方は、
どんどん増えていきます。
SQLサーバーとか立てずに（やり方もわかりませんし）、ACCESSだけで
このまま、どの辺まで（何万件ぐらいまで）問題なく操作できる（動作する）
んでしょう？
早めに別の方法に移行した方が良いのでしょうか？
よろしくお願いします。

>>89
何台で使ってんのかな。
1台ならとうぶん大丈夫な気もするけど。
顧客データ増加が月2万件、履歴データ増加が3か月で120万件
ってのは、1台でこなせる量なのか?
何台かでバラバラにデータ集めて、それを一日の終わりに1台にまとめてる、とか?

そういうことじゃなく、1個のデータファイルをLAN越しに複数台で寄ってたかって
突っつき回しているんだとしたら、ｱｳﾞｫﾝﾇの時が刻一刻と迫っていると思う

つか、複数台同時使用でそこまでいけるんだとしたら、これは他のAccessユーザーに
とって大いなる安心材料になっちまうんじゃないかと・・・

>>89
正直、早めにSQLServerに移したほうがいいぞ。
Accessの制限はレコード数ではなく、ファイルサイズだ。
確か2GBが限界だったような。
このペースでいくと、いずれ限界値に行き着くのは時間の問題。

MSDEも2GBの制限かけられているので、SQLServerの製品版を購入すべし。

>90 >91　さん

さっそくのアドバイスありがとうございます。
LANで3台で見られるようにしていますが、基本的に更新等は私の一台です。

暫定的ということで最初はこんなに大量になるまでやると思って
いなかったのでExcelでやろうかとも言ってましたが、ほんとに
やらなくて良かったです。

テーブルの最適化というのをやりながら今、ファイルサイズが
450megabyteぐらいです。パンチ入力会社からもACCESSのテーブルで
データをもらって追加クエリでくっつけてます。
検索や抽出はまだまだ速く動作しますが、バックアップのコピー
には10分ぐらいかかるでしょうか。
でも2GBならしばらくは大丈夫のようですね。
そのうちにASPの業者に委託しますので、SQLサーバーを入れなくても
（それだとまたあわてていろいろ勉強しなきゃいけませんし）
なんとかそれまではもちそうです。
ちょっとホッとしました。

>>77,85
回答有難うございます。
素直に「インポート中、画像、リンク、Access」 などをキーにGoogleで調べたら
レジストリ操作で非表示に出来ることを知りました。
知ってる人は知ってるものだと、、、凄いですね。

ttp://www8.pekori.to/~zoma/cgi-ssi/meeting/artview.cgi?id=ac&num=4580&ope=v&page=1&asc=1

あんた偉いなぁ。

自分で答え見つけたことじゃなくて (それもそうなんだが)、その答えをちゃんと書くところが。

>>92
LAN共有のmdbで450MB！！？　正気の沙汰じゃねぇ・・・。
オープンだけでどれくらいかかることやら。
それでまともに動くということはよほどLAN環境とPC性能がいいんだな。

ADOのレコードセットは連結フォームのデータソースに出来ないよね？
非連結フォームでレコードセット読み込むしかないの？

普通に出来るだろ。
フォーム開くときに
set me.recordset = レコードセットオブジェクト
で連結されんじゃね？やったことないけど。

>>97
ありがトン
わざわざパススルークエリで連結しなきゃダメだと思ってたよ
明日やってみます

>95

>LAN共有のmdbで450MB！！？　正気の沙汰じゃねぇ・・・。
えっ・・そうなんですか？案外素人の強みで平気で無茶しているのかも
知れませんね。
でも一番低いスペックのパソコンはCeleron600のメモリ128メガで、
それなりにすぐに開きますし、検索ぐらいはスムーズです。
社内LANの環境はどうなんでしょう、いいのか悪いのか。システム部が
組んでいるので、私は良くわかりません。

【　目　的　 】 クエリーをCSV形式ファイルにエクスポート
【　条　件　 】 ACCESS2000
【　概 要　 】 小数点第３位で落としたいのですが、第２位で切り捨てされる
（データ型は倍精度浮動小数点型）
ファイル形式は区切り記号つきで 開始位置、幅等には間違いはなし

x

ACCESSのリンクテーブルってSELECTしただけで全てのレコードをフェッチしちゃうの？
使ったことないんで教えてもらえますか？

>>100
Format関数を使い小数点第３位まで文字列に変換する
クエリーをかまして、それをエクスポートするとか？

>>101
しないよ　＞SELECTだけで全レコードフェッチ
リンクテーブルでなくてもしない。

>>99
>>95 は単なるアフォだから、放置しとけ。

ただ、そのぐらいになると >>90-91の言うように結構限界に来ているからあまりお勧めはできない。
MS が 2GB まで動くと言ってもどこまでテストされているかはちょっと怪しいからなぁ。

>>103
言いたいことが>>95とどうちがうのですか？

>103はド素人だから放置しる

>>104

すみません。最初の質問者の私と同じ名前でレスに書込みされると
ちょっと紛らわしいです。ありふれた名前で質問したのがまずかった
のかも知れませんが・・・。
というより他の質問者を見る限りでは、名前は何も入れない方が
良かったのかな。

俺はケツの穴で缶切りができる

>>99
うちも似たような環境で使ってるよ！
と言っても、6年間貯めた売上明細データが約200万件で600MB位だから、
3ヶ月で120万件とは凄まじいですな！
これまでの所、特に問題無く検索の反応も全然悪くないっす。
数十万件程度の集計でも、それなりにサクサク動いてる。
うちの場合、売上の他に仕入・入金・支払・在庫なんかもあるので、
データは全て1テーブルを1ファイルにして管理しています。
まぁ、1GB〜1.5GBになったらファイルを分割すれば、それで良いんじゃないかな？
ユニオンクエリ使えば、データの結合も出来るし・・・

個人的には、適切なインデックス付けと最適なクエリを作成する能力の有無が
明暗を分けるのではないかと推測しています。
拙い経験ですが、JET-SQLでは、
複雑な単一クエリよりも、単純なクエリをネストさせた方が高速であるとか、
場合によっては、ネスト中の中間データを一時テーブルに吐き出すとか、
色々工夫が必要であると感じます。

悪かったな
うちの売上データは3年間でたったの10万件だ
マスターもひっくるめてデータサイズは20MBだ
自前ロックつけて4台で輪姦しているが、退屈なぐらい何事もおこらん
この調子だと24世紀までもってしまう

ところで
>>「新人」氏の扱ってるデータって、もしかしてS関係?
す○ー○2○、とか?

あ、いや、無関係なら放置してくれ

>>108

ちょっと恥ずかしいけど、件数違ってました。
顧客件数は90万件だけど、Transaction件数は2ヶ月とちょっとで
40万件でした。すみません。（それから新人だけど新人はやめました）
ところで
>データは全て1テーブルを1ファイルにして管理しています。
>まぁ、1GB〜1.5GBになったらファイルを分割すれば、それで良いんじゃないかな？
ファイル分けたら横断的な検索・分析等は出来ないですよね？
ほんとは売上データを半年毎ぐらいに分けられれば嬉しいのですが、
過去一年以内にいくら以上買ってくれた方とか抽出する場合は面倒になりますね。

>>108　>>109
ようするにですね、ファイルサイズそのものが問題ではないのだよ。
mdbファイルが大きくてもスタンドアロンで使うのならJETでもさして問題ではない。
2GBという制限は気になるけどね。

一番問題なのは >>90 >>95 が指摘しているようにLan上Mdbをシェアしている場合。
JETはクライアントサイトで動作するDBエンジンだから、データ量が大きくなるとLanへの負荷が厳しくなる。

簡単な例でいうと、、、、、
10万件のデータテーブルから100件のデータを抽出する場合、JETはLan上のMdbから10万件のデータを全部クライアントPCにコピーをし、コピーされた10万件のデータをクライアント側で100件に抽出をかける。
その作業を複数の人数で同時に行ったらどうなると思う？Lan上にものすごい量のデータが流れるわな。

一方SQLServerはサーバーサイトで動作するので、サーバーマシンで10万件のデータを100件に抽出し、抽出した100件のデータだけをクライアントに転送する。
どっちがLanに対して負担がかからないかわかるよね？

上記のような環境でJetで使っていたら、速度はもとよりDB破損なんて日常的に起きてしまう。
>>90 >>95 が指摘しているのこういうことだ。

【.　 目　的　 】 クエリの実行
【.　 条　件　 】 Windows98、ACCESS2000

【.　概 　要　 】共有はしていないに、クエリを実行すると”マシンＡのユーザーAdminがデータベースを開けない状態またはロックできない状態にしています”というエラーメッセジが出る。ちなみにマシンAというのは、そのクエリを実行しているマシン

■これだけはやりました
【>>1を読んだ】 はい
【Googleで調べた】 はい
【検索キーワードは？】 ACCESS2000　クエリ　Adminがデータベースを開けない状態　


開発時にはWindows2000+Access2000で行っていました。
ただの選択クエリなのですが、中身のテーブルの数が12個あります。
Windows98マシン上のACCESS2000にで実行したら上記のエラーが発現しました。
テーブルを一つ一つ削って実行していったら、実行できました。
とはいえ、仕事上全てのテーブルが必要なので、削るわけにもいきません。
他のクエリで,15個ぐらいテーブルを使って実行できているものもあるので、クエリのテーブル制限とも考えづらいです。

ちなみに、
Windows2000+ACCESS2000ではもちろん問題なく表示されます。

何が原因からサッパリわかりません。
情報お持ちの方、よろしくお願い致します。

>>95
> オープンだけでどれくらいかかることやら。
>>111
> 10万件のデータを全部クライアントPCにコピーをし

ヴァカですか ?
さすがの Jet もそこまでアフォじゃない。
まあ、インデックスも張っていないフィールドに対して検索するとかするとそうなってしまうことはあるが、きちんと作ればそれなりに動作はする。

ただ、そこまで Jet を酷使している奴が少ないし、そもそも MS も Jet で高負荷となることは推奨していない。
(参考 → http://support.microsoft.com/default.aspx?scid=kb;ja;300216&Product=accJPN#10)

>>104
>>95 と >>103 の言いたい事はぜんぜん違う。
>>95 は、多分 >>111 と同じ勘違いしていて、性能が悪いと思っている。
(事実、SQL の書き方によってそうなることもあるが。)
一方、>>103 は、性能じゃなくて信頼性のことを言っている。(多分 >>90 も。)

>113　詳しそうなので横からすみません。
１１１ではないが、自分も同じような勘違いしていたので、ちょっと興味があるので詳細求む。
インデックス検索をすれば、インデックス列だけをクライントに取り込んで検索かけてくれるくるってことですか？
あと、ＳＱＬ ＳＥＲＶＥＲとのＯＤＢＣリンクテーブルだと間にＪＥＴが入ってくるけど、この場合はどういう動作になるの？

>>114
もちろん詳細は、MS しか知らんから推測の部分が入るが、インデックスをつけておくと全部のレコードを調べたりはしない。

あんたが辞書引く時に、全ページ見たりしないでしょ ?
英単語なら、abc 順に並んでいるから、例えば Jet って単語引く時は適当に開いて、indifferent ならもうちょっと後ろだな、今度は like か、もうちょい前とかやると思う。
また、目次ある奴ならまず目次を見てそのページに直接飛ぶ。(と言っても人間なら、ページを見て行きつ戻りつだけど、計算機ならホントに直接飛べる。)
詳細は、Hash, B-Tree なんかを調べるといい。

> あと、ＳＱＬ ＳＥＲＶＥＲとのＯＤＢＣリンクテーブルだと間にＪＥＴが入ってくるけど、この場合はどういう動作になるの？

この場合は、Jet は単に中継してるだけだと思うよ。
(でないと、SQL-Server の意味ないし...。)

MSDEやSQLServerではなくJETを採用するメリットは何ですか？

>>116
MS (http://www.asia.microsoft.com/japan/msdn/library/ja/jpdnmsde/htm/msdeforvs.asp) によると...

規模の拡大やユーザー数の増大を考慮する必要がないデスクトップ システムでは、既存の Jet ソリューションとの下位互換性に最も優れた Jet データベースが低コストかつ低オーバーヘッドのソリューションを提供します。

と言うことらしい。

端的に言うと、扱いが簡単で軽いのがメリットだと思う。

Jetは重い

どうしても分かりません。教えてください。
OFFICE2000に入っているACCESSを使用しております。
質問：
SQLビューへSQL文を記述して「住所」というフィールドに登録されている住所のlenとlenbを求めたいと思います。
lenを使用すれば、全角半角問わず1文字＝1計算ですよね？
lenbを使用すれば、全角＝2計算、半角＝1計算で結果を返してくれると思ったのですが駄目でした。
SQLビューではStrConvも使えないみたいですし・・・どなたか良い方法をご存知ないでしょうか？

>>119
ヘルプで『文字列操作関数の動作の違い』を検索汁！

>>119
おい、俺はケツの穴でジャンケンができるが
俺と勝負するか

>>116
アフォなクライアントやユーザーをまるめこみやすいから(MS謹製だから)
ふっかけやすい。
高尚なことをやっているかのように見えやすい。
ただのオフィススイートの一員なのに一品物にみえやすい
「開発」したかのように見せやすい。
ようは利ざやの大きい仕事がしやすいから。

>>110
＞2ヶ月とちょっとで40万件
それだと、購買履歴データだけだったら1年分は保持出来そうだね！
＞ファイル分けたら横断的な検索・分析等は出来ないですよね？
だから、それをやるためにユニオンクエリを使うんですよ！
でも、今の所そこまで実際やってないので、処理速度的に実用レベルかどうかは不明です。
また、分割数が変動した際にクエリのメンテも必要になるから、この辺をどう対処するか・・・
まぁ、確かに多少は面倒です。

>>111
ご指摘は、百も承知しています。
要するにどの様な運用を想定しているかなんですよ。
その想定内で充分ACCESSが使えるんなら、コスト的に有利でしょ？
てな訳で、チープなうちの場合は、
・LAN内のトラフィック負荷は、それ程シビアではないが、応答速度は気にする。
・ローカル側でのみDB更新し、他からは参照のみで利用頻度も低めである。（なので、DB破壊も起きない？）
・むやみなDBサイズ拡張を抑えるために、レコードレベル（正確にはページレベル）でのロックを解除。
こんな感じで運用中です。

>>108

>だから、それをやるためにユニオンクエリを使うんですよ！
失礼しました。と言うことはユニオンクエリって言うのは、ファイル
とファイルを結べるクエリってことですね。
（すみませんまだ本当に慣れてないので・・）
それだとファイル1つの大きさの限度をそんなに心配しないでも、あとは
パソコンの処理能力時間の心配が先になりますか。
うちの場合は前記しましたようにそれまでには、業者のアプリを導入
しますので問題ないですね。
暫定的なので、もしすぐにでもSQLサーバーを一時的にでも導入しなければ
ならないとなると中途半端に無駄な努力と投資が必要なので質問させて
いただいた次第です。ユニオンクエリを調べてみます。
ありがとうございました。

一つだけ言わせて貰おう。
あるmdbＡから他のmdbＢにリンクテーブルを張って、そのテーブルにはＡに存在する
クエリで使用する全カラムに対して複合インデックスが張ってあったとしても、
そのクエリを実行すると、Ｂの全データがローカルに転送されるよ。
パケットをモニタリングして見れ。
JETのバカさ加減をなめちゃいかんよ♪

さすがに全カラムにインデックスが設定してあればOKらしいな。
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/0001/db_solu/

実際には難しいだろうけど。

いや、やはりインデックスはデータ転送量に対して効果が無いという調査結果もある。
http://www.users.gr.jp/ml/archive/viewer.aspx?name=access&no=3604

>>119
ここはまあ、野暮ったく関数でもつくって

Function NagasaB(MojiRetsu As Variant) As Long
If IsNull(MojiRetsu) Then
NagasaB = 0
Exit Function
End If
NagasaB = LenB(StrConv(MojiRetsu, vbFromUnicode))
End Function

まずはこれをモジュールに貼り付けて保存しとけや
んでもって、クエリ中で、NagasaB([住所])とやればOK

いちおうLong型にしといたけど、さほど長い文字列でないことが
分かり切ってるなら、Integer でも Byte でも

where句だけでなく、select句まで含めて、クエリで使用する
すべてのカラムが単一のインデックスに設定されている場合に
限り一部だけ転送されるということなのかな。
少なくとも、where句で使用しているカラムをインデックスに
含めていたとしても、select句にインデックスが設定されて
いないカラムが1つでもあるとテーブルまるごと転送されるらしい。
where条件適合するデータのみをピンポイントに転送という芸当
はしないんだな。

ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください
ここいらで話題を替えてみなさんのケツ毛の思い出を聞かせてください

今のパソコンの環境にプリンタが付いていません。
その中で、レポートを作成したいと思っています。
プリンタがないと無理でしょうか？
学校で作成したACCESSを家でやりたいので。
どなたかお願いします。仮想的のプリンタがあればいいんですが

winなら最初からプリンタドライバがいくつかついてるから
何でもいいからプリンタの追加してみれ。
実際にプリンタを接続しなくても作成できる。

ケツの穴にワセリン塗ったら気持ちよかったが
ケツ毛が抜けた

>>127
Address フィールドにインデックス張って、
> WHERE (((InStr([Address],"山田"))>0));
なんてして｢インデックスの効果が無い」って...、ヴァカですか ?

>>131

ttp://www.nsd.co.jp/share/fineprint/siyourei.html
ソフト開発の現場では、紙をたくさん使います。そんなときはFinePrintを
お使いください。
開発アプリの印刷機能をテストするには従来は実際にプリンターへ出力する
しかなく、紙を大量に使用するものでした。FinePrintなら画面上で出力結果を
確認できるので紙を使わず、しかもスピーディに印刷のデバッグができます。

--

シェアウェアだけど使用期限は無限だし、マジお勧め。

>>135
宣伝 ?

最近のソフトでプレビューができない奴なんてあんまないし、オフィスで使ってる LBP なら縮小印刷/割付なんて当たり前だし...。

俺的には、イラネ。

どちらかといえば、PDF出力の実装希望のほうが多いな、最近は。

アクセスで自力で業務アプリつくってきていたんだけど
実力は下の下です。

で、伺いたいのですがMicroSoft journal形式のコントロールって
できませんかね

フォームに貼り付けてコメントとか書きたいので。。。


アクセスバージョンは２０００、２００３です。

2000から2003にアップグレードしたけど、ノースウィンズというテンプレートのような従来あったのが
消えちゃったんですけど、どこ行っちゃったの？？？？

ノースウィンズ（・∀・）ｿﾚｲｲ!

若手アイドルみたいだな

前から思っていたことなんだけど、
Accessのウィンドウってって MDI よりも
独立した複数のウィンドウになってるほうが
使いやすいと思いません？

てか、その切り替えができるほうが便利だと思う。

os windows2000 access2000を使っています。
データの入ったテーブルからクエリで任意のデータを表示して
エクセル（計算式の入ったシート）にコピペして計算をさせ
計算結果をアクセスの集計用テーブルにコピぺするという作業を毎日50回繰り返しています。
ＶＢＡなどを使えば自動化できるようなのですが、どのような方法が簡単でスマートでしょうか？

>>144
ACCESSだけでは計算できないの？

>>144

うまい方法がスマートだと思います

>>144

>>1

基本的なことをお尋ねしますが
ACCESSって何ですか？？

approach〈動〉接近する
access〈名〉接近

>>148
144に聞いて下さい。

Access2000なんですが、クエリを開いてからピボットテーブルを作成しようとしても、ビューの切り替えのところにピボットのビューが出てきません。
これってなんなんでしょうか？

>>151
148に聞いて下さい。

>>151
単純にクエリが壊れているんでは？
それかAccess本体が。

クエリ上でピボットを作成するのって特に条件無いと思う。
Exelと一緒だよ。

>>151
Access2000の仕様。

初歩的なことで申し訳ありませんが、3つ以上のテーブルをユニオンクエリで連結させるにはどのようにしたら良いのでしょうか？
2つまでなら
SELECT * FROM テーブルA
UNION ALL
SELECT * FROM テーブルB
で簡単にできたのですが・・・・

あとテーブルが10個近くあるのですよ・・・・・
よろしくお願いいたします。

>>155
そのまま続ければ、良さそうだとは思わないか？
UNION ALL
SELECT * FROM テーブルC
UNION ALL
SELECT * FROM テーブルC
　　　　・
　　　　・

ところでテーブルAからテーブルｘまでフィールドは同じなんだろうな。

>>156
ああ、そこでまたUNION ALLのと書くのですが・・・
それすらも知らないヘタレなんで、、、
FROM句やSELECT構文調べようとしてもヘルプ壊れているし（泣き）

SELECT * FROM テーブルA
UNION ALL
SELECT * FROM テーブルB
UNION ALL
SELECT * FROM テーブルC
UNION ALL
SELECT * FROM テーブルD

このように書いていけばよいのですね、助かりました

※もちろんフィールドの内容、数もすべて一緒です。
店舗ごとの売上なんですよ。

>>154
すいません、それってAccessではピボットテーブルは使えないってことですか？
ツールバーにピボットのボタン登録したんですが、使用不可になっているし・・・

>>158
Access2000でピボット系ならクエリでのクロス集計かフォームのピボットフォーム。
必要充分な集計クエリ作って、Excelに出したほうがいいよ。たぶん。

>>157
正解
漏れとかだって初めはそうだったんだからがんがれ
それだと、テーブルA、B、Cが縦に連結されまつ
もちろん、テーブルA、B、Cの各フィールドが同じ場合の話だけど

>>157
よけいなお世話かもしれないが、
同一レコードが存在しうる場合は、以下のようにした方が良い。

SELECT *,1 FROM テーブルA
UNION ALL
SELECT *,2 FROM テーブルB
UNION ALL
SELECT *,3 FROM テーブルC
UNION ALL
SELECT *,4 FROM テーブルD

>>161
*,1や*,2ってどういう意味なんでしょうか？横やり失礼・・・

>>162
意味はないよ。
ただ、テーブルA〜Dを区別するためのもの。

テーブルA
　1,#2004/2/16#,\3000
　2,#2004/2/17#,\2500
テーブルB
　1,#2004/2/16#,\3000
　2,#2004/2/17#,\2800
をUNIONすると、

　1,#2004/2/16#,\3000
　2,#2004/2/17#,\2500
　2,#2004/2/17#,\2800
になるのを防ぐ。

>>163
それはUNION指定だからでは？
UNION ALLにすれば全てのレコードが連結されるんだと思ったが。
ヘルプのUNION操作参照。

>>164
多分、全部出てもレコードの元がどこからきたか知りたい理由があるんだと思われ
（部門毎に分かれた売上テーブルをユニオンで連結して全社資料作りたいとか）

クエリで抽出したデータをＣＳＶに出力したいんですが、どうしたらよいでしょうか？
ａｃｃｅｓｓ２０００です

自己解決しました。
http://search.yahoo.co.jp/bin/query?p=%a5%af%a5%a8%a5%ea%a1%a1%a3%c3%a3%d3%a3%d6%a1%a1%bd%d0%ce%cf&hc=0&hs=0

IIF関数に関して質問なんですが、クエリで

　　日付　　　　　　担当者
2003/2/24　　　　　佐藤
2003/7/10　　　　　山下
2003/8/26　　　　　吉田

という状態で、日付の左に[年度]というフィールドを追加しようと思っています。
そして、その[年度]にはデータを直接入力するのではなく、

IIF [年度]>=2003/4/1、”2003年度”、”2004年度”

設定したんですが、全然うまくいきません。
今までAccessで関数を使ったことが無いので分かる方いたら教えてください。
低レベルな質問で恥ずかしいのですがよろしくお願いします。

Access2002を使っています。
フォームのレコードソースを設定してテーブルに直接連結しています。
良くあるパターンだと思うのですがレコードに変更時に
編集した時刻を記録するために更新年月日という列にNowを入れたいのですが
どうすればいいのかわかりません。
現時点ではすべての連結されたコントロールのChangeイベントに
更新年月日=Now　という風に書くことしか思いつきません。
何か良い方法ありませんか？
よろしくお願いします。

>>168
年度: iif(format([日付],"m")>=4,format([日付],"yyyy"),format([日付],"yyyy")-1)&"年度"

>>169
更新年月日の、既定値=Now()
でいいんじゃないの。フォーム側でもテーブル側でも。

>>170
おお、と思ったのですが、
それって更新年月日というよりも登録年月日といった感じで
新規レコードが追加された時の時間を保持するだけじゃないですか？
私がしたいのは既存のレコードが編集された時に
その編集が確定された時の時刻を持たせたいのです（泣

>>171ああ、ｺﾞﾒﾝ
だったら更新後イベントで(after update)

>>172
ありがとうございます。
やっぱりAfter Updateでしたか。
以前実験した時は変更していないのに
AfterUpdateイベントが呼び出されていたので
使えない、と思ってしまいました。
今検証したら期待通りの動作を確認しました。
以前実験した環境ではいろいろコードが既に書かれてある状態だったので
単純に連結していただけではなく、何かしら勝手に
レコードを書き換えるようなことが書かれていたので
毎回AfterUpdateが発生したのでしょうね、と予想しています。
納得できました。
ありがとうございました〜。

>>170
ありがとうございます、結構色々書かなければならなかったのですね・・・
ちなみに、[年度]は([日付]の書きミスでした。

遅レスだけど、
IIF [年度]>=2003/4/1、”2003年度”、”2004年度”
がうまくいかなかったのは、
「2003/4/1」=「2003÷4÷1」= 500.75 が原因と思われ。

OSはWin2000 ACCESSも2000を使ってのことです。
レポートの作成で、1ページにはタイトルとページ数は表示されるんですが、
なぜか2ページ以降は表示されません。
原因としてはどのようなものがあるのかを教えていただけたらうれしいです。

>>176
レポートヘッダー・ページヘッダーの違いを勉強しる。

銀行テーブルと支店テーブルがあったとしまして
クエリで表示結果を
銀行コード　支店コード
1006　　　　011
1006　　　　001
1006　　　　002
の順で表示したいんですが、どうも上手くいきません。
お願いします。ペコリ
OS：Windows98　Access：2000

http://page2.auctions.yahoo.co.jp/jp/auction/b48525366

http://page2.auctions.yahoo.co.jp/jp/auction/b48525366

>>178
支店コードの2桁目と3桁目をそれぞれ抽出して、降順・昇順にする。
select 〜 from 〜 order by mid([支店コード],2,1) desc , mid([支店コード],3,1)

店舗名、商品名などを複数のテキストボックスに入力して
コマンドボタンを押した時にテーブルから検索して表示したいのですが
どのようにすればいいのでしょうか？

OS：Windows2000　Access：2000　です

よろしくお願いします

>>182
やり方、何十通りもありそう。
つか、その「検索」って、たったひとつの「完全に一致する」
結果を引っ張ってくるわけじゃないでしょ。
どっちかっつう「絞り込み」でしょ。
たとえば商品名の頭の一文字だけでも入力すれば、それを含むものは
すべて引っ張ってくる、みたいな。

たとえば･･･
商品テーブル直結の帳票型フォームをつくる
ヘッダかフッタに検索文字入力用のテキストボックスを２つ。
でもって、コマンドボタンの裏側に↓をｺﾋﾟﾍﾟ
DoCmd.ApplyFilter "", "([商品テーブル]![店舗名] Like Forms![検索フォーム]![店舗名入力テキストボックス] & ""*"" And [商品テーブル]![商品名] Like Forms![検索フォーム]![商品名入力テキストボックス] & ""*"")"

もう一つたとえば
間にクエリかまして､抽出条件をフォーム上のテキストボックスにする、
なんてやり方もありそう｡
コマンドボタンのプロシージャは､
Requery

どっちも実際に試したわけじゃないんで､ダメだったらごめん｡

ユンソナとＢｏａは同一人物なんでしょうか？？

同一穴狢

>>178
そんな順番じゃ関数かまさないとソートできない。
そして関数かますとクエリに最適化機構が働かない。
それに、支店順に並ばせる箇所は多いだろう。
よって、銀行コード・支店コード・支店名とかいうように
なっているだろうと思われる支店マスターに、支店表示順
というバイト型のカラムを追加することをお勧めする。

>>178
銀行コード=1006　支店コード=021はどこにはいるの？

>>170
ありがとうございます。
先々のことも考え、>>168の式を参考に、

年度: iif(format([日付],"yymm")>=0304,format([日付],"2003"),iif(format([日付],"yymm")>=0404,format([日付],"2004"),format([日付],"2002")）&"年度"

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

あ、間違い。

年度: iif(format([日付],"yymm")>=0304,"2003",iif(format([日付],"yymm")>=0404,"2004","2002")）&"年度"

だったかな？

>>183
無事に出来ました！
ありがとうございます。

>>189
>　年度: iif(format([日付],"yymm")>=0304
　　　　　　　　　　　　　　　　　^^^　　　　^^^^
こうやって、y2k 問題って作られるわけだな...。
まあ、>>189 はそれ以前なわけだが...。

取りあえず好い人ぶってフォロー
ざっと見たところ、IIf文の書き方についてはどうにか理解してくれたみたいだし、時が来れば､
式の間違い(というか不備)に気づくでしょ
「年度」なんてくっつけるのは､たぶん単なる閲覧やプリントアウトした場合の見やすさのためだけで､
それが間違っていたからといって業務に重大な支障をきたすとも思えない｡






なんて本気で思ってるわけないんで
>>191
釣られちゃダメ

>>189はたぶん質問者本人じゃない｡
｢先々のことも考え｡｡｡」なんて､もうネタ臭さ100%

確かに、先々のことを考え、ってまったく意味不明だね。

そのIIFでも別に1900年代のデータが無ければ特にもんだいはないと思うけど
なんか重大な勘違いしている？俺
そもそも最初になりやりたいかよく分かっていなかったり

と思ったけど、なんか変だな
年度: 年度: iif(format([日付],"yymm")>=0404,"2004",iif(format([日付],"yymm")>=0304,"2003","2002")）&"年度"

こうやって大きい順にしないとおかしくないかい？
1年終わったら、iif(format([日付],"yymm")>=0504,"2005"
と順次追加していくのが吉

>>194-195
て言うか、なんで >>170 を無視するのかがわからん。

> 1年終わったら、iif(format([日付],"yymm")>=0504,"2005" と順次追加していくのが吉

そんなに自分の仕事がなくなるのが怖いのか ?

＞170だと、2002/〜や2004/〜のレコードに対応できないからだろ？

はあ・・・？

>>197
>170 で実用上は何ら問題ないよ！
でも、厳密にデータ型を考慮すると、、、

年度: Str(Year([日付])-IIf(Month([日付])>=4,0,1)) & "年度"

すでに出来上がってしまったmdbファイルで、たとえば自作関数の一部を別な関数に
差し替えたいとかいう場合、しらみつぶしに探すしかないんでしょうか。

すべてのクエリ、フォーム、モジュールから、ある特定の文字列を検索してくれるツール、
なんてものがあるといいんですけど。

いや、ないならいいです。
地道にオブジェクト一つ一つ当たります。
コード部分はカレントモジュールからの検索でいけるとして、クエリやフォーム上の
テキストボックスは・・・つらいなあ。

教えて下さい。　Access2002です。
クエリーの抽出条件で件数の制限がありますか。
あれば何件まで指定出来ますか。　よろしくお願いします。

>200
モジュール内であれば、ごく普通に文字列検索できるから大丈夫だと思うが。

フォーム、クエリーだとAccessAnalyzerと言うツールでCSVやテキストに
吐き出して検索すると言う手がある。ただし、Accessのverによっては
使えないかもしれない。

AccessAnalyzerで検索すると全く違うものがヒットするなー

｢Access2000 Access Analyzer｣でぐぐると出てくると思う。
ちなみにAccess2000と97しか対応してないと思う。

>>201
そんな５分もあればできることぐらい、自分でやってみなよ。

>>201
クエリプロパティでトップ値を指定する！

>>200
自作した関数ならあるけど使う？
今はちょっと手元に無いんだけど・・・

>>202
Access Analyzer2000
（・∀・）ﾀｽｶｯﾀ!
ありが�d

クエリを元にしたグラフを、連続印刷しようとしています。
やり方は、まず、フォームにグラフとコンボボックスを貼り付けます。それで、
フォームのレコードソースをコンボボックスのコントロールソースにして、
コンボボックスの値で、クエリを使って絞り込みます。

これで印刷すると、連続印刷できるのですが、クエリの実行に時間がかかる
せいか、コンボボックスの値とグラフの結果に同期が取れていません（取れる
場合もある）。

レコード移動時のイベントで、再クエリするなどしてみたのですが、どうし
ても同期が取れません。

クエリが終わるまで待つとか、VBAでレコードごとに印刷するとか出来ない
でしょうか？
OS：Windows2000　Access：2000　です。

>>208
補足です
手動でレコードを移動した場合は、一瞬、砂時計が表示された後、正しい
グラフが表示されます。

>>200
ttp://www8.pekori.to/~zoma/tech/t003.html

関数って。。。本当に関数
>>206=210氏、かな
あ、いや、今ひとつ意味が分からなかったんで、たぶんレス先間違えた
んだろうと適当に読み流したんですけど。
ちょっとビックリ。
作業はすでに済んでるけど、面白そうなんで試してみます。

この書き方ってDAOの参照設定が必要なのかな。
(Ac2000から使い始めた素人なんで、そのまま使えるADOの書き方にすっかり
慣れちゃってます)

やっぱりDAOでなきゃダメだった（；´Д｀）
querydefs と入れてドット打っても全然反応してくれない。
参照設定やり直して、あらためて書き直し。
ただ Debug.Print ってのは、以前から僕にとっては謎のコトバ
何をしてくれる呪文なのかさっぱり分からない。
適当なフォームつくってコマンドボタンつけて､イベントプロシージャに
SearchQDstr ("ID")とか書いてみたけど､やっぱり何が起こったのかよく分からない｡
とにかくクエリの名前さえ取れれば、あとはどうにでもなると思い
MsgBox db.QueryDefs(i).Name
と書き直して実行。
予想したとおりの結果がかえってきました。

>>211-212
210 は漏れじゃないよ！
漏れのはもうちょこっと使えるやつ。
でも、要らんようだったから、今日も準備できてない・・・

Debug.Print の結果は、Visual Basic Editor のイミディエイトウィンドウに表示される！
また、イミディエイトウィンドウ内でステートメント、メソッド、プロシージャの呼び出しを入力して、
Enter キーを押すと実行が可能です。

DAO使ったことがないなら、
DAOの宣言が必要なんじゃないかな。
参照にDAO入れることは前提だけど。

Public dbsObj As DAO.Database
Public tblObj As TableDef
Public rstObj As DAO.Recordset
みたいに

私は97からだからどっぷりDAO…
ADO覚えなくちゃいけないの分かってるんだけど
自分しか使わないツールを自分のために作ってるだけだし、
今までの蓄積（モジュールの使い回し）の関係で脱DAOできないヘタレだ

↑該当モジュールだけの宣言なら
Public dbsObj As DAO.Databaseじゃなくて
どのモジュール内で
dim dbsObj As DAO.Database
ですな…訂正します

>213　206さん
見つかったら教えて欲しいです。
勉強になりますから…お願いします。

>>DAO
Dim db As Database
だけでOKでした

>>イミディエイトウィンドウ
ってのは、そういうものだったのｶ｡｡｡
何か作業中に間違ってどっかのKey押したときに出てきて
あせったことが何回かあるんですけど､見なかったことにして
さっさと閉じてました｡
(書いたプロシージャがちゃんと動いてくれるかどうかの確認は
MsgBox 使うことが多かった)

access2000なのですが、パラメータクエリのパラメータを
VBAで指定する方法を教えて下さい。
指定するパラメータは全部フォームのコントロールにあります。
いままではパラメータに"[Forms]![フォーム名]![コントロール名]"を指定していたのですが、
同じクエリを使いまわす必要が出てきました。
よろしくお願いします。

次期Accessっていつでるの？

2000以降買ってないから、2003の次のバージョンは買わない
とついていけないかも（ｗ

>>219
気が早いな・・

漏れのメインは未だAccess97だしな。
スタンドアロンでつかうにゃこれで間に合うし。

ただ、でかいデータを扱う場合や、大量データの
高速演算処理する場合に限界を感じてるんでなぁ････

>>218
素人が提示する、たぶん非難囂々の邪道な解決法
何があろうと常に開いているフォーム、ってのがひとつでもあれば使えます。
そのフォームの名前を、たとえば MainMenu と。
そこに適当な不可視のテキストボックス、名前をたとえば、Dummy と。
でもって
使いまわすクエリの抽出条件 Forms![MainMenu]![Dummy]
でもって
各フォームで抽出アクションを起こすさいには、まず何よりも先に
Forms![MainMenu]![Dummy] = Me![抽出条件コントロール]

ただこれは、使いまわしクエリが選択クエリの場合しか使えません。

アクションクエリの場合は

Function MyPara()
MyPara = Forms![MainMenu]![Dummy]
End Function

これを標準モジュールに保存したうえ
使いまわすクエリの抽出条件を MyPara() としてください

>>218
HELP MIRO! PARAMETERS

>>218 ADOXで・・(w
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim cat As ADODB.catarog
Set cnn = CurrentProject.Connection


Set cmd = New ADODB.Command
Set cat = New ADOX.Catalog

cat.ActiveConnection = cnn
Set cmd = cat.Procedures("クエリ名").Command

With cmd
.Parameters.Refresh
.Parameters(0) = パラメータ名1
.Parameters(1) = パラメータ名2
.Parameters(2) = パラメータ名3
.Parameters(3) = パラメータ名4
.Execute
End With

Set cat = Nothing
Set cmd = Nothing

cnn.Close
Set cnn = Nothing

レスありがとうございます。
>>224さんの方法で誤植を直したら行けました。
>>222さんの方法は今回は使いませんでしたがアイデアは参考になりました。
また何かありましたらよろしくお願いします。

>>225
あっ、カタログの宣言のところ間違ってた。他にもあったかな？
ってか、ほんとにこれ使ったんだ・・

>>226
×Dim cat As ADODB.catarog
○Dim cat As ADOX.catalog
だけです。
あと、ついでと言っては何ですが
実行するのは追加クエリなのですが、確認メッセージが出ません。
SetWarningsは試してみましたが関係ないようですね。
今回は何の不都合も無いのですが出す方法があれば
後学のために教えて下さい。

>>227
の名前欄間違えてました。私は>>218=>>225です
失礼しました

>>227
RunSQL とか、Docmd.OpenQuery とか今は使わないのでよくわかんないけど
MsgBoxじゃだめなの？

>>229
ありがとうございます。
「○○件追加します。よろしいですか？」というのをMsgBoxで
自分で作ればいいんですね。トライしてみます。

>>218
うーん、VBAは最近使い始めたのかな？
とりあえずクエリ作ってやってるみたいなんでADOXでの処理書いたけど
ほんとはVBAから直接SQL文書いて流した方がいいかも。

チェックボックスを作って、オフの時にはすべてのデータを表示
オンの時には１と入力されてるものを表示するにはどうすればいいのでしょうか？
クエリの抽出条件を教えていただきたいです

>>232
あらかじめフィルターを設定しておいて、OnとOffに
合わせてフィルターのOn/Offを切り替えたら？

>>233
猿でもわかるような説明でお願いしまつ

>>208
今書いてるコードをさらせ。

>>75,93
Win98＆Access2000の環境では、
ファイル拡張子が、bmpだと問題なく、BMPだとインポート中・・・
Ｍ＄よ、小文字と大文字で何で挙動が変わるんだぁ〜！

>>208
コードというほどのものでは無いですが、簡単に書くと、こうなります。

T_Data（テーブル）
　ID:オートナンバー
　name：テキスト型
　value1：数値型
　value2：数値型

Q_Graph（クエリ）
　T_Data.Nameのwhere条件に以下の記述をして、value1,value2を抽出
　　Like "*" & [Forms]![F_Form]![コンボ0]

F_Form（フォーム）
　レコードソース＝SELECT T_Data.name FROM T_Data GROUP BY T_Data.name;
　コンボ0.コントロールソース＝name
　グラフ.値集合ソース＝Q_Graph
　グラフは、value1,value2を横軸、縦軸に設定

これで印刷すると、グラフの内容とコンボボックスの内容が、ずれて表示
されます。

>>237
試し用のデータ。これでやっても、同期が取れてませんでした。

ID,name,value1,value2
1,a,0,13
2,b,2,43
3,c,3,23
4,d,4,44
5,e,3,65
6,a,2,22
7,a,0,22
8,b,1,11
9,a,2,42
10,b,3,24
11,c,4,12
12,d,2,27

>>237,238
いや、VBAのコードを見たかったんですけど・・
例えば「印刷ボタン」を押した時に印刷するんじゃないのか？
その部分もVBAで書いてるわけじゃないのかな？

access2002 を用いて、 c/sデータベースシステムを構築中。
クライアント機としてDell Dimension 2100 を用いている。
（OS Windows ME)　
このクライアントのユーザプログラムであるmdbファイルを、
メンテナンスし続けていると、すぐに「要デフラグ」となる。

どうすればいいのだろうか？
ローカルエリアとしてＣドライブしか切っていないことが
大きな原因であろうか。

>>231
レスありがとうございます。
ADOから直接SQLで出来ました。
初挑戦だったので不明点をまとめてからレスしようと思い遅くなってしまいました。
また何かあったら教えて下さい。

Access2003を使っているのですが
フォルダ名やファイル名を途中で変えたり
Cドライブの外に出しても実行できるようにするためには
どうしたらいいんでしょうか？

>>216
ちょっくら遅くなりましたが、イキマース！（長いけど・・・

'=============================================
'【MDB & DAO 版】標準モジュール: DebugModules
'=============================================
'【使用例】… Formatを検索する場合、
' イミディエイトウィンドウで次の様に入力し、Enterキーを押して実行する。
' SearchItem "Format"

' デバッグフラグ（0:本番モード，1:デバッグモード）
#Const DEBUG_FLAG = 1

#If DEBUG_FLAG Then

Option Compare Database
Option Explicit

' 各オブジェクトの検索フラグ（0:検索しない，1:検索する）
#Const SEARCH_TABLES = 1
#Const SEARCH_QUERIES = 1
#Const SEARCH_FORMS = 1
#Const SEARCH_REPORTS = 1
#Const SEARCH_MODULES = 1

'-----------------------------------------------------------------------------------
' 全てのテーブル・クエリ・フォーム・レポート・モジュールを指定文字列により検索する。
'-----------------------------------------------------------------------------------
Public Sub SearchItem(strItem As String)
　Dim aObj As AccessObject, ctl As Control
　Dim bClose As Boolean
　bClose = False

　#If SEARCH_FORMS Then
　　For Each aObj In CurrentProject.AllForms
　　　If aObj.IsLoaded = True Then
　　　　For Each ctl In Forms(aObj.Name).Controls
　　　　　If ctl.ControlType = acSubform Then
　　　　　　If bClose = False Then
　　　　　　　MsgBox "サブフォームやサブレポートを含むフォームやレポートは、一旦閉じる必要があります！"
　　　　　　End If
　　　　　　bClose = True
　　　　　　DoCmd.Close acForm, aObj.Name, acSavePrompt
　　　　　　Exit For
　　　　　End If
　　　　Next ctl
　　　End If
　　Next aObj
　#End If
　#If SEARCH_REPORTS Then
　　For Each aObj In CurrentProject.AllReports
　　　If aObj.IsLoaded = True Then
　　　　For Each ctl In Reports(aObj.Name).Controls
　　　　　If ctl.ControlType = acSubform Then
　　　　　　If bClose = False Then
　　　　　　　MsgBox "サブフォームやサブレポートを含むフォームやレポートは、一旦閉じる必要があります！"
　　　　　　End If
　　　　　　bClose = True
　　　　　　DoCmd.Close acReport, aObj.Name, acSavePrompt
　　　　　　Exit For
　　　　　End If
　　　　Next ctl
　　　End If
　　Next aObj
　#End If

　#If SEARCH_TABLES Then
　　Call SearchTables(strItem)
　#End If
　#If SEARCH_QUERIES Then
　　Call SearchQueries(strItem)
　#End If
　#If SEARCH_FORMS Then
　　Call SearchForms(strItem)
　#End If
　#If SEARCH_REPORTS Then
　　Call SearchReports(strItem)
　#End If
　#If SEARCH_MODULES Then
　　Call SearchModules(strItem)
　#End If
　Debug.Print "【検索終了】" & vbCr & vbCr & "SearchItem """ & strItem & """"
End Sub

'-----------------------------------------------------------
' 全テーブル中の特定プロパティ値を指定文字列により検索する。
'-----------------------------------------------------------
Private Sub SearchTables(strItem As String)
　Dim tdf As TableDef, fld As Field
　Debug.Print "【テーブルの検索】..."
　For Each tdf In CurrentDb.TableDefs
　　For Each fld In tdf.Fields
　　　If fld.Type <> dbGUID Then
　　　　If Nz(InStr(fld.Name, strItem)) Then
　　　　　Debug.Print "[" & tdf.Name & "]![" & fld.Name & "].Name: " & fld.Name
　　　　End If
　　　　If Nz(InStr(fld.DefaultValue, strItem)) Then
　　　　　Debug.Print "[" & tdf.Name & "]![" & fld.Name & "].DefaultValue: " & fld.DefaultValue
　　　　End If
　　　　If Nz(InStr(fld.ValidationRule, strItem)) Then
　　　　　Debug.Print "[" & tdf.Name & "]![" & fld.Name & "].ValidationRule: " & fld.ValidationRule
　　　　End If
　　　End If
　　Next fld
　Next tdf
End Sub

'--------------------------------------------
' 全クエリのSQL文を指定文字列により検索する。
'--------------------------------------------
Private Sub SearchQueries(strItem As String)
　Dim qdf As QueryDef, fld As Field
　Debug.Print "【クエリの検索】..."
　For Each qdf In CurrentDb.QueryDefs
　　If Nz(InStr(qdf.SQL, strItem)) Then
　　　Debug.Print "[" & qdf.Name & "].SQL: " & RTrim(Replace(qdf.SQL, vbCrLf, " "))
　　End If
　Next qdf
End Sub

'-----------------------------------------------------------
' 全フォーム中の特定プロパティ値を指定文字列により検索する。
'-----------------------------------------------------------
Private Sub SearchForms(strItem As String)
　Dim aObj As AccessObject, ctl As Control
　Dim bClose As Boolean, bOptionGroup As Boolean
　Debug.Print "【フォームの検索】..."
　For Each aObj In CurrentProject.AllForms
　　If aObj.IsLoaded = True Then
　　　bClose = False
　　Else
　　　bClose = True
　　　DoCmd.OpenForm aObj.Name, acDesign, , , , acHidden
　　End If
　　If Nz(InStr(Forms(aObj.Name).RecordSource, strItem)) Then
　　　Debug.Print "[" & aObj.Name & "].RecordSource: " & Forms(aObj.Name).RecordSource
　　End If

　　If Nz(InStr(Forms(aObj.Name).Filter, strItem)) Then
　　　Debug.Print "[" & aObj.Name & "].Filter: " & Forms(aObj.Name).Filter
　　End If
　　If Nz(InStr(Forms(aObj.Name).OrderBy, strItem)) Then
　　　Debug.Print "[" & aObj.Name & "].OrderBy: " & Forms(aObj.Name).OrderBy
　　End If
　　For Each ctl In Forms(aObj.Name).Controls
　　　If Nz(InStr(ctl.Name, strItem)) Then
　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].Name: " & ctl.Name
　　　End If
　　　Select Case ctl.ControlType
　　　　Case acBoundObjectFrame
　　　　　If Nz(InStr(ctl.ControlSource, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ControlSource: " & ctl.ControlSource
　　　　　End If
　　　　Case acComboBox, acListBox, acObjectFrame, acOptionGroup, acTextBox
　　　　　If ctl.ControlType <> acObjectFrame Then
　　　　　　If Nz(InStr(ctl.ControlSource, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ControlSource: " & ctl.ControlSource
　　　　　　End If
　　　　　　If Nz(InStr(ctl.DefaultValue, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].DefaultValue: " & ctl.DefaultValue
　　　　　　End If
　　　　　　If Nz(InStr(ctl.ValidationRule, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ValidationRule: " & ctl.ValidationRule
　　　　　　End If
　　　　　End If
　　　　　If ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
　　　　　　If ctl.RowSourceType = "Table/Query" Or ctl.RowSourceType = "Value List" Or ctl.RowSourceType = "Field List" Then
　　　　　　　If Nz(InStr(ctl.RowSource, strItem)) Then
　　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].RowSource: " & ctl.RowSource
　　　　　　　End If

　　　　　　Else
　　　　　　　If Nz(InStr(ctl.RowSourceType, strItem)) Then
　　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].RowSourceType: " & ctl.RowSourceType
　　　　　　　End If
　　　　　　End If
　　　　　End If
　　　　Case acCheckBox, acOptionButton, acToggleButton
　　　　　bOptionGroup = False
　　　　　If ctl.Parent.Name <> aObj.Name Then
　　　　　　If ctl.Parent.ControlType = acOptionGroup Then
　　　　　　　bOptionGroup = True
　　　　　　End If
　　　　　End If
　　　　　If bOptionGroup = True Then
　　　　　　If Nz(InStr(ctl.OptionValue, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].OptionValue: " & ctl.OptionValue
　　　　　　End If
　　　　　Else
　　　　　　If Nz(InStr(ctl.ControlSource, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ControlSource: " & ctl.ControlSource
　　　　　　End If
　　　　　　If Nz(InStr(ctl.DefaultValue, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].DefaultValue: " & ctl.DefaultValue
　　　　　　End If
　　　　　　If Nz(InStr(ctl.ValidationRule, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ValidationRule: " & ctl.ValidationRule
　　　　　　End If
　　　　　End If
　　　　Case acSubform
　　　　　If Nz(InStr(ctl.SourceObject, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].SourceObject: " & ctl.SourceObject
　　　　　End If

　　　　　If Nz(InStr(ctl.LinkChildFields, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].LinkChildFields: " & ctl.LinkChildFields
　　　　　End If
　　　　　If Nz(InStr(ctl.LinkMasterFields, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].LinkMasterFields: " & ctl.LinkMasterFields
　　　　　End If
　　　End Select
　　Next ctl
　　If bClose = True Then
　　　DoCmd.Close acForm, aObj.Name, acSaveNo
　　End If
　Next aObj
End Sub

'-----------------------------------------------------------
' 全レポート中の特定プロパティ値を指定文字列により検索する。
'-----------------------------------------------------------
Private Sub SearchReports(strItem As String)
　Dim aObj As AccessObject, ctl As Control
　Dim bClose As Boolean, bOptionGroup As Boolean
　Debug.Print "【レポートの検索】..."
　For Each aObj In CurrentProject.AllReports
　　If aObj.IsLoaded = True Then
　　　bClose = False
　　Else
　　　bClose = True
　　　DoCmd.OpenReport aObj.Name, acViewDesign
　　　Reports(aObj.Name).Visible = False
　　End If
　　If Nz(InStr(Reports(aObj.Name).RecordSource, strItem)) Then
　　　Debug.Print "[" & aObj.Name & "].RecordSource: " & Reports(aObj.Name).RecordSource
　　End If

213と224は神だな・・
(俺がヘタレなだけか・・)

　　If Nz(InStr(Reports(aObj.Name).Filter, strItem)) Then
　　　Debug.Print "[" & aObj.Name & "].Filter: " & Reports(aObj.Name).Filter
　　End If
　　If Nz(InStr(Reports(aObj.Name).OrderBy, strItem)) Then
　　　Debug.Print "[" & aObj.Name & "].OrderBy: " & Reports(aObj.Name).OrderBy
　　End If
　　For Each ctl In Reports(aObj.Name).Controls
　　　If Nz(InStr(ctl.Name, strItem)) Then
　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].Name: " & ctl.Name
　　　End If
　　　Select Case ctl.ControlType
　　　　Case acBoundObjectFrame, acComboBox, acListBox, acObjectFrame, acOptionGroup, acTextBox
　　　　　If ctl.ControlType <> acObjectFrame Then
　　　　　　If Nz(InStr(ctl.ControlSource, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ControlSource: " & ctl.ControlSource
　　　　　　End If
　　　　　End If
　　　　　If ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
　　　　　　If ctl.RowSourceType = "Table/Query" Or ctl.RowSourceType = "Value List" Or ctl.RowSourceType = "Field List" Then
　　　　　　　If Nz(InStr(ctl.RowSource, strItem)) Then
　　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].RowSource: " & ctl.RowSource
　　　　　　　End If
　　　　　　Else
　　　　　　　If Nz(InStr(ctl.RowSourceType, strItem)) Then
　　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].RowSourceType: " & ctl.RowSourceType
　　　　　　　End If
　　　　　　End If
　　　　　End If
　　　　Case acCheckBox, acOptionButton, acToggleButton
　　　　　bOptionGroup = False

　　　　　If ctl.Parent.Name <> aObj.Name Then
　　　　　　If ctl.Parent.ControlType = acOptionGroup Then
　　　　　　　bOptionGroup = True
　　　　　　End If
　　　　　End If
　　　　　If bOptionGroup = True Then
　　　　　　If Nz(InStr(ctl.OptionValue, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].OptionValue: " & ctl.OptionValue
　　　　　　End If
　　　　　Else
　　　　　　If Nz(InStr(ctl.ControlSource, strItem)) Then
　　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].ControlSource: " & ctl.ControlSource
　　　　　　End If
　　　　　End If
　　　　Case acSubform
　　　　　If Nz(InStr(ctl.SourceObject, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].SourceObject: " & ctl.SourceObject
　　　　　End If
　　　　　If Nz(InStr(ctl.LinkChildFields, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].LinkChildFields: " & ctl.LinkChildFields
　　　　　End If
　　　　　If Nz(InStr(ctl.LinkMasterFields, strItem)) Then
　　　　　　Debug.Print "[" & aObj.Name & "]![" & ctl.Name & "].LinkMasterFields: " & ctl.LinkMasterFields
　　　　　End If
　　　End Select
　　Next ctl
　　If bClose = True Then
　　　DoCmd.Close acReport, aObj.Name, acSaveNo
　　End If
　Next aObj
End Sub

'---------------------------------------------
' 全モジュールを指定文字列により全文検索する。
'---------------------------------------------
Private Sub SearchModules(strItem As String)
　Dim aObj As AccessObject
　Dim bClose As Boolean
　Debug.Print "【モジュールの検索】..."
　If strItem = "" Then
　　Exit Sub
　End If
　Debug.Print "（クラスモジュール）… フォーム"
　For Each aObj In CurrentProject.AllForms
　　If aObj.IsLoaded = True Then
　　　bClose = False
　　Else
　　　bClose = True
　　　DoCmd.OpenForm aObj.Name, acDesign, , , , acHidden
　　End If
　　Call SearchModule(Forms(aObj.Name).Module, strItem)
　　If bClose = True Then
　　　DoCmd.Close acForm, aObj.Name, acSaveNo
　　End If
　Next aObj
　Debug.Print "（クラスモジュール）… レポート"
　For Each aObj In CurrentProject.AllReports
　　If aObj.IsLoaded = True Then
　　　bClose = False
　　Else
　　　bClose = True
　　　DoCmd.OpenReport aObj.Name, acViewDesign
　　　Reports(aObj.Name).Visible = False
　　End If

　　Call SearchModule(Reports(aObj.Name).Module, strItem)
　　If bClose = True Then
　　　DoCmd.Close acReport, aObj.Name, acSaveNo
　　End If
　Next aObj
　Debug.Print "（標準モジュール）"
　For Each aObj In CurrentProject.AllModules
　　If aObj.IsLoaded = True Then
　　　bClose = False
　　Else
　　　bClose = True
　　　DoCmd.OpenModule aObj.Name
　　End If
　　Call SearchModule(Modules(aObj.Name), strItem)
　　If bClose = True Then
　　　DoCmd.Close acModule, aObj.Name
　　End If
　Next aObj
End Sub

'-----------------------------------------------
' 指定モジュールを指定文字列により全文検索する。
'-----------------------------------------------
Private Sub SearchModule(mdl As Module, strItem As String)
　Dim lngCountDecl As Long, lngCount As Long
　Dim lngLine As Long, strLine As String
　Dim lngCol As Long, strProc As String
　lngCountDecl = mdl.CountOfDeclarationLines 'モジュールの宣言セクションの行数
　lngCount = mdl.CountOfLines 'モジュールの行数
　For lngLine = 1 To lngCount
　　strLine = mdl.Lines(lngLine, 1)
　　lngCol = Nz(InStr(strLine, strItem))
　　If lngCol Then
　　　If lngLine > lngCountDecl Then
　　　　strProc = mdl.ProcOfLine(lngLine, 0) '0=vbext_pk_Proc
　　　　Debug.Print "[" & mdl.Name & "]." & strProc & "() " & lngLine & "行, " & lngCol & "列目: " & strLine
　　　Else
　　　　Debug.Print "[" & mdl.Name & "].宣言セクション " & lngLine & "行, " & lngCol & "列目: " & strLine
　　　End If
　　End If
　Next lngLine
End Sub

#End If

以上です！

連続投稿に引っかかっちゃったよ。。。

>>208,237
グラフのリンク子フィールドとリンク親フィールドに
name を指定すれば良いと思うよ！
そんで、Q_Graphの内容は、SELECT value1, value2, name FROM T_Data;
あと、コンボボックスは、テキストボックスでも充分かと・・・

サブフォームをダブルクリックしたら、メインフォームにテーブルの内容が
表示されるには どのようにすればいいですか。
OS=XP Access=2002です。

>>213
乙鰈!!
ひまな日曜だから解読にかかろうとしたら、うちの職場の売上集計用
mdbファイルがグチャグチャになっているのを発見してしまった。
売上前年同日比なんてあたりがもう全滅。
2004年問題、つか2月29日問題・・・

ちょっと訂正で〜す！
>>246 を以下と差し替えて下さい。
【理由】
既定値と入力規則がないフィールドを除外しようとしていた判定がイマイチだったのと、
別にそんな事しなくてもエラーは発生しないと気付いた。
その代わりと言ってはなんだが、システムテーブルを除外する様にしますた。

'-----------------------------------------------------------
' 全テーブル中の特定プロパティ値を指定文字列により検索する。
'-----------------------------------------------------------
Private Sub SearchTables(strItem As String)
　Dim tdf As TableDef, fld As Field
　Debug.Print "【テーブルの検索】..."
　For Each tdf In CurrentDb.TableDefs
　　If (tdf.Attributes And dbSystemObject) = 0 Then 'システムテーブルを除く
　　　For Each fld In tdf.Fields
　　　　If Nz(InStr(fld.Name, strItem)) Then
　　　　　Debug.Print "[" & tdf.Name & "]![" & fld.Name & "].Name: " & fld.Name
　　　　End If
　　　　If Nz(InStr(fld.DefaultValue, strItem)) Then
　　　　　Debug.Print "[" & tdf.Name & "]![" & fld.Name & "].DefaultValue: " & fld.DefaultValue
　　　　End If
　　　　If Nz(InStr(fld.ValidationRule, strItem)) Then
　　　　　Debug.Print "[" & tdf.Name & "]![" & fld.Name & "].ValidationRule: " & fld.ValidationRule
　　　　End If
　　　Next fld
　　End If
　Next tdf
End Sub

【補足説明】
クエリとモジュールは全文検索ですが、
テーブル・フォーム・レポートについては、
主要と思われるプロパティ値しか検索していません。
なので、抜けてるのがあるかも？
モジールの検索では、ほんとは Find メソッド使いたかったけど、
挙動が不安定なので使うのやめました。
なんかモジールの最終行付近で正しい結果が返って来ない時があるので・・・

【ADO対応に関するヒント】
DAOに依存する処理は、テーブルとクエリの検索部分だけだと思うので、
その辺をADOXのCatalog, Tables, Views, Procedures 等を駆使して
書き換えて頂ければよろしいかと存じます。

>>262
乙かれ〜！
ところでADOXでできんのかな？
210をみてADOXに書き換えてみようと思ったんだけど、
DAOのQueryDefにある.SQLとかってADOXではViewsにもProceduresにも
ないみたいだからどうやってSQL文取得すんのかなぁ？と..
前もSHIFT起動防ぐのDAOから書き換えようと思ったけど挫折した・・
誰かわかる人教えて欲しい。

>>258
今あるフォームに設定しようとしたら「非連結フォームにリンクは作成でき
ません」と言われたので、新しくウィザードで作り直しました。
すると、グラフには、何も表示されなくなりました。タイトルだけ、"T_Data" と
表示されています。

フォームのレコードソース
　SELECT T_Data.name FROM T_Data GROUP BY T_Data.name;

グラフの値集合ソース
　SELECT T_Data.value1, Sum(T_Data.value2) AS value2の合計,
　T_Data.name FROM T_Data GROUP BY T_Data.value1, T_Data.name;
グラフのリンク親・子、ともに name

>>239
VBAのコードは、全くありません。
印刷は、access のファイルメニューから行っています。

>>263
CatalogオブジェクトのTablesコレクションでテーブル名とビュー名、
Proceduresコレクションでストアドプロシジャ名、
及びテーブルのカラム名の取得までは出来たけど、その先が・・・
何故かCommandオブジェクトの操作でコケル！
この辺りでなんとかなると思ってたんだけど・・・
＞偉い人、あとよろしく〜

>>264
nameつーのを使ってるのが曲者だったみたいです。
リンク親フィールドには、form!name と設定すればOKです！

入力フォームを作りたいのですが
日付を入力するときに小さなカレンダーを表示させて
そこから日付をクリックして入力できるようにするって難しいですか？
アクセスの機能だけでできますかね？

「曜日」の関わるばかりダメになる、なんて現象に出くわした方ははいますか?

例1)
表紙のフォームには XX月XX日(X曜)、てな内容が表示されるようになってまして、
起動直後はまったく問題ありません。
で、その表紙にあるボタン、たとえば名簿とか商品リストとか、を押し、表紙の上で別フォームを開く。
用が済んでその別フォームを閉じると、表紙の「曜日」部分がなぜかErrorになってます。

例2)
帳票型フォームにて
XX月XX日(X曜)--入力内容
XX月XX日(X曜)--入力内容
XX月XX日(X曜)--入力内容
・・・
んな形になっているんですが、
このフォームも、開いたばかりの時点では何の問題もありません。
でも入力するともうダメ。
フッタにある入力内容の集計部分まで道連れでErrorになります。
慌てて閉じて、ふたたび開くと、入力もちゃんとされてるし、集計もちゃんと出来てる。

職場にある数台のうち1台だけに見られる怪現象です。
ACCESSのバージョンはすべて2000
WINもすべて2000
怪現象が出るマシンは最近職場に入れたもので、SP4
他はすべてそれ以前、ブロードバンドもなかなか難しい田舎町のことで、
職場のそれはインターネットにもつながっていないし、WinUpdateはまったくしていません。

>>266
ActiveXのDateAndTimePickerかMonthViewコントロールを使ったら

>>265
ありがとうございます。グラフの表示は出来ました。
しかし、印刷してみると（印刷プレビューしてみると）、やはり、グラフ表示と
カレントレコードが一致してないんですよね。
Access2000のバグ（or仕様）ですかねぇ。

>>265
ありがとうございます。グラフの表示は出来ました。
しかし、印刷してみると（印刷プレビューしてみると）、やはり、グラフ表示と
カレントレコードが一致してないんですよね。
Access2000のバグ（or仕様）ですかねぇ。

http://support.microsoft.com/default.aspx?scid=/directory/worldwide/ja/kblight/T005/2/20.asp
の操作に近い操作を行いたいのですが、微妙に違うので困っています。

やりたいことは、
コンボボックスを2列にして出したいのです。
つまり、最終的に文字列を、"";(全て);"1列目";"1列目";"2列目";"2列目";...;"Other";"その他";
というようなものにする関数を作りたいのです。

現在はのコードは、以下の通りです。、

Public Function CreateStrLst(ByVal Field As String, ByVal Table As String) As String
Dim rs As New ADODB.Recordset

CreateStrLst = "(全て);"
rs.CursorLocation = adUseClient
rs.Open "SELECT " & Field & " FROM " & Table, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\mdb.mdb;", _
adOpenForwardOnly, adLockReadOnly
CreateStrLst = CreateStrLst + rs.GetString(adClipString, , , ";")
rs.Close
Set rs = Nothing
End Function

GetStringのところを少しいじればいいと思うのですが、
どのようなフィールド名かわからない場合にもうまく動くものが作れません。
宜しくお願いします。

データアクセスページをmacから使いたいんだけど、可能？

>>271
無理やり、値集合タイプに値集合リストを使わないで
テーブル/クエリでやってみると・・

SELECT 顧客コード,顧客名,1 AS 順番
FROM 顧客テーブル

UNION


SELECT '全て' AS 顧客コード, '全て' AS 顧客名, 0 AS 順番
FROM 顧客テーブル

UNION

SELECT 'その他' AS 顧客コード, 'その他' AS 顧客名, 2 AS 順番
FROM 顧客テーブル

ORDER BY 順番;


顧客テーブルがあって、フィールドは顧客コードと顧客名(「順」はいらない)
「全て」を一番上に表示したいから、「順」をAS句で0を指定する。
通常のデータは「順」をAS句で1を指定する。
「その他」は一番下に表示したいから、「順」をAS句で2を指定する。

「全て」と「その他」の表示が2列目には必要なければ 2列目を、
'全て' ではなくて '' にする。

って余計わかりずらいか・・

すみません、ばかで・・

>>268
ActiveXのリストに入ってないのですがVBを入れないと駄目なのでしょうか？
ACCESS2000なのですが・・・
ActiveXのDateAndTimePickerかMonthViewだけを
何処からか追加などはできないのでしょうか？

>>274
266ではないが、ACCESSならカレンダーコントロールのほうがいいと思う。

↑間違った
○ 268
× 266

レポートの表示で悩んでいます。

エクセルのファイルをOLEオブジェクト形式でテーブルに
貯めてそれをレポートで表示したいのですが、
ファイル内容を全部表示できずに困っています。
プロパティをズーム、クリップ、ストレッチと変えても
だめです。

なにか良い方法があれば教えてください。

>>275
ありがとうございます
検索して
ttp://www.accessclub.jp/beginer/holiday/holiday_05.htm
のページにたどり着いたのですが

(テキストボックス（名前はテキスト）とコマンドボタンを作成します。)

の部分の説明でコマンドボタン作成とありますがACCESS2000使用してまして
コマンドボタンの種類、動作を選ばなくてはいけないのですが
何を選ぶのか全くわからないじょうたいです・・・

>>278
そこのサイト見てわからないのでは教えられるかどうか・・
もう寝ようと思ったんで明日でいいですか？
それまでにそこのサイトもう一度よく見てそれでもわからないところを聞いて！

>>279
どうもです
よく見てみます。

>>269
この前その辺も念の為に試してみたんだが、漏れの環境(AC2000)では
フォームの印刷プレビューでグラフ表示はちゃんと更新されてたよ！
それ程詳しく見た訳じゃないけど、グラフの形はそれぞれ変わってた。
だから、バグじゃなくて他に何か原因あると思う・・・

>>278
コントロールウィザードがオンになってるからそうなるんです。
煩わしければオフにしておきましょう！
でも、いきなりキャンセルしてもボタンは作成されますよ。
で、カレンダーコントロールは見つかったの？

どなたかよろしくお願いします。Windows2k　ACCESS2002です。
これから積算を管理していきたいのですがテーブル構造で悩んでいます。
簡潔に言いますと、ツリー式の構造にして親フィールドには子フィールドの合計が
出るようにしていきたいのですが、この場合どんな構造にするのがおすすめですか？
（合計値はVBA使って自力で出せるぐらいのレベルです）
今自分が思いつくのは同じテーブルに対してリレーションをかけて無限連鎖させていくか、
それとも親テーブル：子テーブル：孫･･･とテーブルを作っておく方法です。
実際には７〜８階層までしかいかないと思われるので複数テーブルでもいいような
感じがしますが、同じデータをコピーして再利用といった場合は１つのテーブルに
まとめてしまった方が管理がしやすいのかなとも思ったり。
ただ、１つのテーブルにすると参照整合性が設定できないようなので、VBA使わないと
だめなのかしらと躊躇したり。

具体例として１テーブルで済ませる場合の上納金管理を挙げます。ｗ
帳票テーブル：[ID(オートナンバー)] [管理名]
明細テーブル：[帳票ID] [ID(オートナンバー)] [親ID] [氏名] [金額]

リレーション：
　帳票[ID] ←→ 明細[帳票ID]　　（１対多）
　明細[ID] ←→ 明細[親ID]　　（できれば1対多にしたいができない）

ここで明細に上納金を納めている人間の氏名と金額を入力していき、もし子ができたら
その金額をクリアして、子側にまた氏名と金額を。さらに孫、曾孫･･･と。
あくまで例なので孫まで管理するこたねぇだろとか言わないで下さい。。。

尚「自己結合」でググると同一テーブルの同一フィールドを結合してカウントさせる
方法しか出てこず、「自己リレーション」だとファイルメーカーが出てきしまいます。
そもそもACCESSでツリー構造をさせようというのが無理な話なのでしょうか？
長々すいません。

>>271
Public Function CreateStrList(strTable As String, lngFIdx1 As Long, lngFIdx2 As Long) As String
　Dim strSQL As String
　Dim rst As New ADODB.Recordset
　CreateStrList = ";(全て);"
　strSQL = "SELECT * FROM " & strTable & ";"
　rst.ActiveConnection = CurrentProject.Connection
　rst.Open strSQL, , adOpenForwardOnly, adLockReadOnly
　While Not rst.EOF
　　CreateStrList = CreateStrList & rst.Fields(lngFIdx1) & ";" & rst.Fields(lngFIdx2) & ";"
　　rst.MoveNext
　Wend
　rst.Close
End Function

lngFIdx1, lngFIdx2 は、0から始まるフィールドの列位置を指定する

>>281
SP3 は、適用されていますか？
こちらでは、どうしても同期がずれるので、仕事場のaccessを調べてみると SP3
が入ってなかったので、入れてみました。
すると、今のところは、正しく表示されています。
本番環境は、どうなるかわかりませんが、どうもバグっぽいですね。

>>273
これって、フィールド名が不明な場合でもいけるのでしょうか？
やってみようとしたのですが、却って分からなくなってしまいました。
UNION句って使ったことがないので、もう少し勉強してみます。

>>283
Fieldsコレクションというのは、こういう風に使えたのですね。
お陰様で、何とか望む関数を作ることができました。
最終的には、このようになりました。
有り難うございました。

Public Function CreateStrLst(ByVal Field As String, ByVal Table As String) As String
　On Error GoTo ERR_HANDLER
　Dim rs As New ADODB.Recordset
　CreateStrLst = ";(全て);"
　rs.CursorLocation = adUseClient
　rs.Open "SELECT [" & Field & "] FROM [" & Table & "] GROUP BY [" & Field & "];", _
　　"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\外部mdbファイル.mdb;", _
　　adOpenForwardOnly, adLockReadOnly
　Do Until rs.EOF
　　CreateStrLst = CreateStrLst & rs.Fields(0) & ";" & rs.Fields(0) & ";"
　　rs.MoveNext
　Loop
　rs.Close
END_FUNCTION:
　Set rs = Nothing
　Exit Function
ERR_HANDLER:
　MsgBox "エラー" & Err.Number & vbCrLf & Err.Description
　GoTo END_FUNCTION
End Function

>>285
すみません、よく見ないでレスして・・
汎用的に使えるように関数にしたんですよね
この場合は無理です。
コンボボックスごとにテーブル名やフィールド名を指定しないとだめですね。
値リストに文字列を書き込むようにやるとコンボに表示させる文字列が
多すぎるとエラーになった場合があったので、わたしはクエリSQL文を
直接割り当てることが多いです。

>>282
具体例のままで良いんじゃない？（明細テーブルを自己結合するやり方
明細[ID] ←→ 明細[親ID] のリレーションは１対１って表示されるだろうけど、
実際は何ら問題ないと思う。参照整合性の設定もちゃんと出来ると思うし・・・
つーか、漏れも似たような事やってるよ！

>>284
素のAC2000でSPは全く適用してないけど、
WinXPのアップデートは最新状態でテストしますた。

>>285
rs.Fields(Field) とも書けます。
ちなみに、無用のトラブルを避けるために、
自分で付与する項目名・変数名等は、極力ほかの
オブジェクト名・コレクション名・プロパティ名等と
かぶらないように気をつけた方が良いですよ。
ちょうど、258,264,265 がその典型とも言えるので・・・

>>281
ありがとうございます！ただ参照整合性ですが、例えば孫レコードを持つ子レコードを
削除しようとすると「現在ロックされているので、更新できませんでした。」という
エラーが出てしまうんですよね。……ロック？

ああああ！オプションのレコードレベルでのロックうんぬんを解除したら大丈夫でした！
これはこれでなんか怖そうな気もしますが、なんとか先に進めそうです！
ありがとうございました。

２０００でヘルプが壊れている人はこれで
http://support.microsoft.com/default.aspx?scid=kb;ja;249065

>>284
ttp://www2.moug.net/app/bbs/message.php?cat=acm_v&id=20031215-000031
結構同様の問題でてるようですね。

アクセス2000でピボットテーブルを作っています。
一度ウイザードを使ってピボットテーブルを作ったのですが、
その後、テーブルからフィールドを新たに加える必要が出きました。
そこでなのですが、ピボットテーブルに新たにフィールドを追加するやり方がわかりません。

条件はウインドウズ2000，アクセス2000、エクセル2000です
お願いします。

>>292
データベースファイル開いて、デザインビューでもいいから
追加してやればいいんじゃないの？

って、間違ってる？

どなたか教えて下さい。
お客から電話が来た時、電話番号を入力して客先データを
表示させたいのですが、電話番号の　-(ハイフン) が邪魔になります。
ハイフンを無視する方法を、教えて下さい。
アクセス2002です。

>>294
ハイフン無視したデータを作れ。

分かった。あんがとん。

WindowsXPでAccess2000を使っています。
　お聞きしたいのはフォームのコンボボックスのことなんですが、コンボボックスの中に
値集合ソースで文字列を入れておくと、その一覧から選べるようになりますよね。ただ
それはあらかじめ一覧にその文字列を加えておかなければならないですよね？
　たとえばブラウザのIEで、アドレスをフォームに入力すると入力しただけ一覧に履歴が
残りますよね？
　そんなふうにコンボボックスにフォームから入力して、その文字列がそのまま履歴で
一覧に残る方法ってないでしょうか？
　これって当然のように使えたほうがいいと思うのですが、ヘルプを見ても何を見ても
載ってないんですよね。
　ご存知の方ぜひ教えてください。よろしくお願いします！

>>297
何度も選択したいかつ、新しく登録した場合、増やしていきたいと言うことですね
それでしたら、それ用のテーブルを新たに作成しましょう
その後、フォームのコンボボックスにそのテーブルのレコードを参照するようにしてください
ていうか、どこにも載ってないって・・・
ググって検索されました？
至極基本だと思いますが・・・・・

Access2000を使っていますが、これのウェブページことデータアクセスページを
作ってみようと思ったのですが、

ぜんぜん思ったようなページが出来ませんでした。
サブフォームがまるで作られず、またまるでカード型データベースのようなもの
になってしまいました。

サブフォーム付きのフォームをデータアクセスページでは作れないのでしょうか？

Accessでコードを直接書き込んでいるときに
気がついたんですが、
スクロールがマウスで出来ないのですが
これって何か原因があるんですか？
Accessのバグなんでしょうか？

別にスクロールそのものが壊れているわけではないです。
よろしくお願いします

>>300
どこでもホイールをインストールしましょう。

>301

ありがとう。解決できました

Access 2000のVBAで質問です。

すんません、きっと簡単な事なんだと思いますけど．．．
VBでコンボのある行を選択状態にする時は
combo1.listindex=3
とかすれば良かったんですが、Accessではどうもうまくいきません。
色々WEBで見てるんですけど、なかなかHITせず．．．．
Accessの場合はどうやるんでしょうか？

>>298
　ご回答ありがとうございました。
　なるほど、まだ試していませんが、その方法でいけそうです！
　検索、甘かったのでしょうか、けっこう探したんですけど・・・。
　ググっていうのは、なんかそういう検索サイトなんですか？
　まずAccessのマニュアル本もけっこうみたし、裏技集って感じの本もみたし、
ヘルプやネットでもけっこう探したんですけど・・・。
　もっと勉強します・・・。
　ありがとうございました！

Office XP Service Pack 3
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=85af7bfd-6f69-4289-8bd1-eb966bcdfb5e

Sub Shori1
アクションクエリとかいろいろ
End Sub

Sub Shori2
これもいろいろ
End Sub

Sub Shori3
やっぱりいろいろ
End Sub
・・・
で、たとえば、これが8個あるとします。
いや、じっさい8個なんですが。

以下のような処理がしたいんです

Dim i As Integer
For i=1 to 8
If 条件 i を満たした場合は Then
処理 i を実行 ←ここの書き方が分かりません
End If
Next i

【OS】　WINDOWS　NT４.0

【バージョン】ACCESS　2000

【目的】フォームのコマンドボタン上にマウスポインタを持っていったときに、ラベルのキャプションにボタンの解説テキストを表示させたい。
　　　　またコマンドボタンからマウスポインタが離れたとき、表示したラベルキャプションのテキストを消したい。

【概要】最初コマンドボタンのプロパティの「マウスボタン移動時」イベントプロシージャｰに、イベント発生時→ラベルのキャプションにテキスト表示
　　　　しました。その結果確かにマウスポインタがコマンドの上にきたときテキストは表示されたのですが、ポインタがボタンの上じゃないところに
　　　　移動しても表示したままで、変わりません。
　　　　マウスポインタがコマンドボタンの上にきたときだけ、ラベルのキャプションを表示する方法など　あるものなのでしょうか？
　　　　ご存知のかたいらっしゃいましたらお願いします。

↑一行が長すぎてみにくくてスミマセン・・・

>>293
おそくなりまして失礼です

それが見当たらないのです。

2002以降と違って、ピボットはフォームに張りつけられているエクセルファイルを使う事になるのですが
どこで、追加して良いやらわからないです。

>>307
ヒントテキスト

>>310
ご回答ありがとうございます。
ヒントテキストで可能なのですが、もっと表示のインパクトを強くしたい
（できればボタンみたいなグラフィックでホップアップヘルプを表示したい）
のです。ですのでコマンドボタンの上にマウスカーソルが乗っかったという
イベントからプロシージャを起動したいのです。
　いろいろ無理難題ばかりですみません
　

>>307
フォームの詳細セクションのマウスボタン移動時のイベントで、
ラベルのキャプションを消すようにするとか？

>>312
ありがとうございます。
やってみたのですが、フォームの移動時イベントで消しても、うまくいきません
下記のように書いたのですが・・・・

Private Sub コマンド0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.text.Caption = "表示してやる！"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.text.Caption = ""
End Sub

俺の彼女はマタが臭いのですが、どうすればいいでしょか？？

>>313
詳細_MouseMove　も使うべし

>>306
Sub Shori1〜Shori8までを１つにまとめられないの？
まとめて引数で分岐したら良いと思うけど．．．

それが駄目なら、もう固定でi=3ならCall Shori3とかするしかないんじゃないかな。

>>316
回答感謝です
そうですよね、SubとかFuncitonってのは使い方をおぼえただけで
今ひとつ理解してないんですけど、変数で呼び出すのはやっぱりダメですよね。
>>Sub Shori1〜Shori8までを１つにまとめられないの？
それぞれ内容がまったく違うので、難しそうです。
けっきょくは固定でやるのとさほど変わりない形で収めることにしたんですけど、
それでも出来るだけ簡略化したいと思い、かなり強引な手を使ってすべての処理を
アクションクエリ化してしまいました。
Shori1からShori3まではアクションクエリ3つ、Shori4は7つ、Shori5は2つ、
Shori6からShori8までは5つ、で、連番をふりました。
Qry11,Qry12,Qry13
・・・
Qry41,Qry42,Qry43,Qry44,Qry45,Qry46,Qry47
・・・みたいな感じにして
Dim j as integer, k as integer
Select Case i
Case is <=3
k=3
Case is =4
k=7
Case is =5
k=2
Case is >=6
k=5
End select
For j=1 to k
CurrentDb.Execute "Qry" & i & k
Next j
つかれた〜
寝ます。

.　 目　的　 】 納品書作成）
【.　 条　件　 】 WindowsXPpro　Access2002
■試したけどうまくいかなかった処理
【.　概 　要　 】 基本を勉強中
【駄目な理由】 　がんばりがたりない
■これだけはやりました
　参考書2冊購入　


Access初めて使ってみました。上司からいきなり納品書作ってくれっていわれて
参考書買ってきていろいろやってはいるのですが、難しいです。

で、分からないことだらけですが、メインパネルに顧客ID・名前（手入力）・
商品名(複数）・金額・個数・消費税・合計・値引きで最終的には印刷という感じです。

そこで、名前は手入力としても商品はリストボックスから選択して
自動的に金額も表示され、個数に応じて合計の計算をしたいのですが、基本となる
データーベースの骨組みがいまいち分からない。
テーブルは何を作ってどれをリレーションすればいいの？

とにかく手入力を最小限に抑えたつくりにしたいのですが、どなたか
お知恵をお借りしたい。なんか基本的な部分を理解していないようで
申し訳ないのですが。

>>314
それは、下「ワキガ」つーて、どうにもならん。
はつきりそう言へば別れてくれるかも。
一生付き合うのはかなわんぞ。まあ彼女は傷つくけど。

【顧客管理 】
【ACCESS2000】
■試したけどうまくいかなかった処理
【1.販売履歴で500円ごとに１ポイントつけて、累算ポイント、使用ポイント、現在のポイントを計算】
【2.レポートを開くときにボタンを押したら最新の伝票1枚のみが開く】 （動作状況など）
ダメな理由
【1.累算ポイントが顧客ごとにならずすべての合計になる。あと、現在のポイントが表示できない(式を入れたらなんかカーソルが読み込みを永遠にしたっぽく
砂時計と交互に】
【2.１枚だけってのがどうしていいのやらです】
■これだけはやりました
【>>1を読んだ】 はい
参考書は初心者用が２冊。いまいち知りたいことが載ってない感じです。
どうぞご助力くださいませ

>>318

> 【駄目な理由】 　がんばりがたりない
判ってんじゃん
> ■これだけはやりました
> 　参考書2冊購入
「購入」だけでは駄目

で、ここまで自力でやってくれ。話はそれからだ。
テーブル
顧客TBL（顧客ID・顧客名）
商品TBL（商品ID・商品名・単価）
取引TBL（取引ID・納品書ID・顧客ID・商品ID・個数・値引額・名前）
リレーション
取引TBL.顧客ID→顧客TBL.顧客ID
取引TBL.商品ID→商品TBL.商品ID

「名前」ってのが顧客名なら不要、自社の担当者なら担当者テーブルを
作って他と同じ要領でリレーション。
これでとりあえず売上明細のクエリを作る。
消費税と合計額はクエリ上で計算しる。

ここまで出来たら（或いは出来なかったら）また来い。
あとは納品書IDで括って入出力できるようにすれば終わりだ。

>>320
【1.販売履歴で500円ごとに１ポイントつけて、累算ポイント、使用ポイント、現在のポイントを計算】

テーブル「t_販売履歴」
　　（フィールド）顧客コード、売上日、売上額
テーブル「t_ポイント使用履歴」
　　（フィールド）顧客コード、使用日、使用ポイント

クエリ「q_累計獲得ポイント」
　　SELECT 顧客コード, Int(Sum(売上額)/500) AS 累計獲得ポイント
　　FROM t_販売履歴
　　GROUP BY 顧客コード;
クエリ「q_累計使用ポイント」
　　SELECT 顧客コード, Sum(使用ポイント) AS 累計使用ポイント
　　FROM t_ポイント使用履歴
　　GROUP BY 顧客コード;

クエリ「q_ポイント管理」
　　SELECT 顧客コード, 累計獲得ポイント, 累計使用ポイント
　　　　　　　, (累計獲得ポイント-Nz(累計使用ポイント,0)) AS 現在のポイント
　　FROM q_累計獲得ポイント LEFT JOIN q_累計使用ポイント
　　　　　　ON q_累計獲得ポイント.顧客コード = q_累計使用ポイント.顧客コード;

Accessでオートナンバー型をやめて
Dmaxを使った自動採番にしようと思っているのですが、
分からないので質問させてもらいました。

挿入前処理で
H16-0001といった風に番号をつけたいのですが、
ハイフンを入れることもできるのでしょうか？
できるとするなら、コードを教えてください。



それと以前、自動採番に挑戦したとき、
テーブルのデータが何もなしの状態で
Dmax＋１を使用したら、番号がつきませんでした。

テーブルデータがない場合の対策も教えて頂きたいです。
よろしくお願いします。

>>321

早速、ありがとうございます

> で、ここまで自力でやってくれ。話はそれからだ。
> テーブル
> 顧客TBL（顧客ID・顧客名）
> 商品TBL（商品ID・商品名・単価）
> 取引TBL（取引ID・納品書ID・顧客ID・商品ID・個数・値引額・名前）
> リレーション
> 取引TBL.顧客ID→顧客TBL.顧客ID
> 取引TBL.商品ID→商品TBL.商品ID

↑今ここまで作りました
主キーの設定を、顧客ID・商品ID・取引IDにしました
名前は顧客名なので作りませんでした

> これでとりあえず売上明細のクエリを作る。

↑次はこれに取り掛かります
クエリはなんとなくわかるのですが、とりあえず作ってみます
また、書き込みます


> 消費税と合計額はクエリ上で計算しる。
> ここまで出来たら（或いは出来なかったら）また来い。
> あとは納品書IDで括って入出力できるようにすれば終わりだ。

>>321

売上明細クエリ作りました。（間違ってるとおもうが・・）

選択クエリで顧客ID・顧客名・商品名・単価・個数・値引額と並んでいます

>>324

> > 消費税と合計額はクエリ上で計算しる。

↑これがわからない
クエリにフィールドを追加すればいいのか？
ちょっと本読んできます


> > ここまで出来たら（或いは出来なかったら）また来い。
> > あとは納品書IDで括って入出力できるようにすれば終わりだ。

【.　 目　的　 】 アクセスのフォーム上の人物データを基に、アウトルック2000の連絡先フォルダ内のサブフォルダにメールアドレスを追加したいのですが、何か方法はありますか？
連絡先フォルダに入れるのは出来るのですが、サブフォルダにいれる方法がわかりません。もちろん手動でなら出来るのですが、アクセス上からボタン一つで自動化したいのです。
【.　 条　件　 】 OSはＸＰ　アクセスバージョン2000
■試したけどうまくいかなかった処理
まったく解らないので試せませんでした。
■これだけはやりました
【>>1を読んだ】 はい
【Googleで調べた】 はい
【検索キーワードは？】 アクセス、アウトルック、アドメンバーズ、VBA

申し訳ございませんが宜しくお願いします。

>>314
私も前の彼女がそうでした
テマンをする翌日も指においにーが残りました
>>319
下ワキガなるものが存在するとは．．．
勉強にナリマス
確かにワキガのオイニーにチカカッタです
勉強になりました

でもスレ違いですよね？

商品カタログDBを作る予定であります。

imgディレクトリを用意しそこにはいくつもの画像が入っています。
そして、DB側でそれをリンクで呼び出し表示、レコード移動と共に
画像も変わって、カタログDBの完成と行きたいです。

ただし、ここからが質問なのですが、ここまではいいのですが、
今後追加する、もしくは差し替えをするに当たって、以下のことを
死体のです

１．imgディレクトリに画像を追加するだけで、DB本体のコンボボッ
クスなどにそのリストが現れるようにしたい。画像差し替えの時に
非常に便利

２．新たにレコードを登録する際に、画像を選択するわけですが、
このとき、上記のように特定ディレクトリのリスト意外の写真もつか
いたいので、ファイルを選択のあのダイアログを出し、パスを取得
して、そのパスをDBに格納したい

以上２点です。この両方を実装しようと考えています。
どうかお知恵を貸してください。

>>329
1.FileSystemObjectを使ってフォルダー内を検索する
2.GetOpenFilename[API]

3台のPCにそれぞれあるフロントエンドMDBからバックエンドMDBを共有して使用してきましたが、PCの増加に伴いSQLサーバーにアップサイジングする予定です。
その際、ADPにて再開発するには少々時間がかかりそうなので現行のフロントエンドMDBを暫くそのまま使用したいと考えています。
試験的にSQLサーバーにデータをインポートし、MDBとテーブルリンクして動かして見た感じでは、なんら問題も無く動くようなのです。
そこで質問なのですがMDBである以上は(JETを介してデータのやり取りを行っている?ので、)やはり今までと同様なトラフィックになっているのでしょうか？
また、ほかにどんな問題点があるのか教えてください。

>>331
俺にはケツの穴が３つあって
どの穴からウンコをするか
どの穴からヘが出るか
選択できるんだ

>>314 >>328
スレ違いで申し訳ない。　私　294　319なの
>お客から電話が来た時、電話番号を入力して客先データを
>表示させたいのですが、電話番号の　-(ハイフン) が邪魔になります。
>ハイフンを無視する方法を、教えて下さい。アクセス2002です。
295さんが >ハイフン無視したデータを作れ。
でやっていますが、電話項目2つは必要ないと思うので。
間もなく70歳になる。昔　オペレーター室の管理者をしていた時、オペの女性
10人位いたが、中に「ワキガ」が１人居て、大騒ぎになった。上「ワキガ」は手術で
直るが、下はどうにもならん。 やさしいコードを教えて(マクロ程度しか出来ない)
いじめるな。

Access2000を使っています。
元データのExcelを取り込んでAccessで処理しようとしています。
Excelのデータには顧客コード・顧客名の両方がありますが
取り込む前にAccess側のマスタと顧客名の不一致のチェックを行いたいと思います。
元データをADOに接続できますが、この後Access側の顧客マスタと
どうやってぶつければよいでしょう？顧客名は完全一致で結構です。
よろしくお願いします。

【.　 目　的　 】 名簿を作っています。通し番号の書体を、女はイタリックにしたい。もちろん性別のデータはあります。
【.　 条　件　 】 Win2000,access2000
■試したけどうまくいかなかった処理
【.　概 　要　 】女のとき、何らかのマークを入れることはできます。
【駄目な理由】書体のいじり方がわかりません。
■これだけはやりました
【>>1を読んだ】 はい（「書体」で検索しました）
【Googleで調べた】 はい・いいえ （大概の疑問は検索することで解決します）
【検索キーワードは？】access　書体　変更
よろしくお願いします。

>>322
ありがとうございます。おかげさまでバッチリ計算のほうができました

ところが今度は計算結果を出力しようとしたフォームが、最初の1件のレコードしか表示してくれません
顧客コードでくくって他の情報とともに出したいのですが、なんで表示されないのでしょう
データシートビューだとちゃんと全員分のポイントのレコードがあるのに・・・

宜しくお願いします。ああ、今日の営業時間内に完成するのだろうか・・・

>>335
詳細単位のプロパティ操作は出来るものと出来ないものがあるし
出来る筈のものでも思うようにいかないこともあるからな

安全な方法としては
書体の違う2つのテキストボックスを背景透明で重ねておいて
♂：　テキストボックス1に記述、2はNull
♀：　1はNull、2に記述
くらいかな

>>336
フォームのプロパティ→書式→既定のビューを「帳票フォーム」にしませう

>>337
できました！　ありがとうございました。
2chにも感謝！

>>338
いや、ちゃうのですよ。帳票フォームだといっせいに表示されちゃうじゃないですか
そうじゃなくて、レコード１０件あったら単票フォーム１０枚になると思うんですが、最初の一枚しか見れないのです。
帳票にしたら全部表示はされました。どゆことだろ・・・

>>340
マウスのホイールを回すと解決するというオチでは…

さすがにそれはないです(苦笑

なんていうか、１ページしか見れない状態、でいいのかな。
下のほうに[>こういうのでて・・・オートナンバーで入力フォームじゃないとだめとか・・・？
混乱中です

>>342
単票フォームの意味を理解してるんだろうか
「レコード１０件あったら単票フォーム１０枚になると思うんですが」
なんて書いてるのを見ると疑問に思う。

普通はフォーム１枚だけ出て、レコード移動で切り替わるよね。
それが単票の単票たる動作なんだから。

>>343
失礼しました。今見たらどうもさっきの341がただしかったのかも・・・なんですが
それだと帳票フォームで表示されてることになりませんか？
規定ビューは単票に設定してるはずなんですが。またなんか間違ってるのかな・・・
だんだん質問してて不安になってきた(苦笑

どうも問題は全然別にあったようです。
サブフォームが連動してない。これだけでした。
また弄ってみます、お騒がせしました。
アドバイスくださった皆様ありがとうございましたです。

フォームの条件付き書式をVBAで
やる方法ってないでしょうか？
あるテキストボックスの中身によって別のテキストボックスの可視プロパティを
切り替えたいのですが。
Access2000です。

昨日から作っているけど、できない・・・・

>売上明細クエリ作りました。（間違ってるとおもうが・・）

>選択クエリで顧客ID・顧客名・商品名・単価・個数・値引額と並んでいます

フォームを作る段階になって、うまくいきません
サブフォームから商品をリスボックスから選んで、自動的に
単価が表示されるようにしたいけど、どなたかお助けください

又、フォームの下のほうに消費税と合計と値引きと総合計の順に
計算して、レポート出力する予定です

>>330
大変ありがとう。あなたには非常に感謝しています。

レポートで請求書を作ってますが、明細行を一行ごとにしましまにできますか？

>>349
できる。

コンボボックスとあるテーブルをつなげています。（値集合ソースにて）

テーブル構成
ID : オートナンバー型
名称 : テキスト型

値集合ソースでこれらを引っ張ってきて、収納先のDBにはIDを格納
しコンボボックスの表示は名称を表示しています。ここまではできて
いるのですが、

このとき、コンボボックスに表示されている名称を取得したいのですが

Me.コンボ苺.XXXXX でXXXXには何をいれたら取得できるのでしょうか？
お願いします。

>>349
出来る。
が　FAXで送ると、黒くなって見えないぞ。
350ではない。

>>351 column(1)

帳票フォームを使用しております。
矢印の上下でレコードを移動したいのですが、
コンボボックスの場合にうまくできません。

方法をご存じの方はおられませんでしょうか？

グループごとでの平均値を出したいのですが
内容はこんな感じです

　 　 りんご　 割合
青森　 　2　 　 2/青森のりんご全部
青森　 １0　 10/青森のりんご全部
秋田　 5　 　 5/秋田のりんご全部
秋田　 3　 　 3/秋田のりんご全部

どなたか、お願いいたします。
本をいろいろ読んで見たのですが、駄目でした。

アクセスのパスワードを解除したいのですがどうしたらいいのでしょう？

>>356
漏れが100ﾏｿで解除してやるぞ（ｗ

>>354
方法はあるようだけど、、、、、
どうやってるのかはしらん。
レスになってないな（ｗ

当方OSはWin2kとXP併用、OfficeのVerは2kで、住所録を作っています。

フォーム上のテキストボックスを条件としてクエリAで住所に絞込みをかけ、
それをサブフォームで表示しています。
それに 「絞込みの条件に適合したレコードすべてにチェックを入れる」
という作業を行わせたいのです。

複数条件でのクエリが重くなるのでフィルタを使ってみたところ、
軽くて物凄く快適になった反面、クエリAを元データとする
更新クエリAにはフィルタが反映されません。（当たり前ながら凹

フォーム上からの命令でサブフォームの値を変更させようと
いろいろ命令を試してみても、「レコードセットが更新できない」と怒られたり
サブフォームの１つめのレコードにしかチェックが入らなかったり、これはこれで轟沈。

更新クエリAを適応するためには全てのフィルタ条件をクエリAに入れなおす事になりますが、
多重フィルタで条件が多過ぎてクエリが組めないとか、重くなりすぎとか、
そもそもそれなら最初からフィルタを使う意味が無いとか、どーにも冴えません。

フィルタで抽出したレコード群の指定・それらへの変更を、簡単に行う方法は無いのでしょうか？

OLEオブジェクトの挿入で写真を挿入したのですが、
Gif画像を挿入しても画像が表示されず、1010.gifの様に
ファイル名しか表示されないのですが、
うまく画像も表示できるようにするには、
どこの設定を直せばよいでしょうか?

いろいろなアプリをインストールするうちに、関連付けが
おかしくなったように思うのですが。

よろしくお願いします。

>>355
りんごテーブル
　　フィールド１　地域
　　フィールド２　りんご

りんご地域別クエリ
　　select 地域, sum(りんご) AS りんご合計
　　from りんごテーブル
　　group by 地域;

りんご割合クエリ
　　select りんごテーブル.地域, りんごテーブル.りんご
　　　　　, (りんごテーブル.りんご/りんご地域別クエリ.りんご合計) as 割合
　　from りんごテーブル inner join りんご地域別クエリ
　　　 on りんごテーブル.地域 = りんご地域別クエリ.地域;

>>359
for文を使ってループ処理

>>362
漢らしい助言に感謝。

変数にEOFを持っていくと「定義が使えない」と怒られたり、
レコードセットからレコード数を取得したら
「このレコードセットは更新できません」と怒られたりしてるけど、
とりあえず方向性だけ固まったから、fornextでｶﾞﾝｶﾞってみます。

>>363
if文と絡めるんだよ。

>>361
助かりました。ほんとにありがとうございます。

そんなことより聞いてくれよ
坊さんの絵を描こうとして
「僧衣」でぐぐったんだ
そしたら一番上が

>>366
オイ、お前>314 >332か

現在検索中ですが、未だ分かりません。
環境ACCESS2000 WIN2000です。
↓のような感じで同一フィールドの累積演算をしたいのです。

ＩＤ　　数値フィールド　　数値フィールドの累積
　１　　　１００　　　　　　　　１００
　２　　　２００　　　　　　　　３００
　３　　　１５０　　　　　　　　４５０

お分かりの方お助けを。

>>368
こんなのでどう？
http://support.microsoft.com/default.aspx?scid=http%3a%2f%2fwww.microsoft.com%2fisapi%2fgomscom.asp%3fTARGET%3d%2fjapan%2fsupport%2fkb%2farticles%2fJP290%2f1%2f36.asp

>>368
SELECT t1.ID, t1.数値フィールド, Sum(t2.数値フィールド) AS 数値フィールドの累積
FROM テーブル as t1, テーブル as t2
WHERE t2.ID <= t1.ID;

グループ化忘れてた

SELECT t1.ID, t1.数値フィールド, Sum(t2.数値フィールド) AS 数値フィールドの累積
FROM テーブル as t1, テーブル as t2
WHERE t2.ID <= t1.ID
GROUP BY t1.ID, t1.数値フィールド;

>>369>>370
物凄く素早い回答ありがとうございます。
>>370
なろほど。こんな方法があるのですね。
SQLは簡単そうで難しいです。
ところで、この演算をフォーム上で入力と並行しながら行うのは無理でしょうか？

すいません、ど素人質問ですが教えて下さい。
Accessのランタイム版とかいうのをインストールしたのですが、
これは製品版と何が違うのでしょうか？

>>372
for文でループ処理　結果をどっかのテキストボックスにでも投げる

>>373
実は、俺は今、営業支援用のデータベースアプリケーションを開発中
なのだが、なにぶん会社で各営業用にAccessを買うのはあまりにも
高額だ。

そこで注目されるのが　実行機能だけを持つAccess本体　それがつま
るところのAccess Runtimeなんだよ。実行機能だけを提供するから、
Accessのファイルを実行することはできても、レイアウトの編集だのま
た、テーブル構造を変えるだのといった一切の改造もできない。

ランタイムとは名ばかりの一種のビューアだと思った方がしっくりくるだ
ろう。

335です。さらなるスキルアップもかねて質問させて下さい。

If [性] = 2 Then
[番箱].Form.DatasheetFontItalic = True
Else
[番箱].Form.DatasheetFontItalic = False
End If

と書いてみたのですが、うまくいきません。
全然間違えておるのでしょうか。

連続失礼します。
３６９さんの投稿でMSにそのようなページがあることを知り、
http://support.microsoft.com/default.aspx?scid=kb;ja;833675
を見つけました。
でこの方法は会得しました。感謝！
よかったらイベントプロシージャにおける書き方↑も教えて下さい。

慌てちまいました。こっち↓です、もとは。
http://support.microsoft.com/default.aspx?scid=%2fdirectory%2fworldwide%2fja%2fkblight%2ft009%2f6%2f04.asp

>>375
ありがとうございました。
よくわかりました。

【.　 目　的　 】 ＯＬＥオブジェクトで画像を既存ファイルから挿入したい
【.　 条　件　 】 OS=XPpro Ver=2003
■試したけどうまくいかなかった処理
【.　概 　要　 】
フォームウィザードを使用し、既存のテーブル（Ｔ１）を基にフォームを作成。
テーブル（Ｔ１）でデータ型をＯＬＥオブジェクトにしていたため、
フォームによりその箇所に画像を挿入しようと試みた。
【駄目な理由】
挿入後、画像が表示されるかと思ったが、画像を縮小したアイコン（パッケージ）に
なってしまった。
ファイル形式はビットマップ（bmp）。
■これだけはやりました
【>>1を読んだ】 はい
【Googleで調べた】　はい
【検索キーワードは？】
ＡＣＣＥＳＳ２００３　　ＯＬＥオブジェクト　　挿入
ＡＣＣＥＳＳ２００３　　ＯＬＥオブジェクト　　画像
ＡＣＣＥＳＳ２００３　　ＯＬＥオブジェクト　　アイコン
ＡＣＣＥＳＳ２００３　　ＯＬＥオブジェクト　　ビットマップ
ＡＣＣＥＳＳ２００３　　ＯＬＥオブジェクト　　イメージ
これくらいです。

OSはWIN2000でACCESS2000を使用しています。
ACCESSのデータをＣＳＶ形式でエクスポートし、他の業務で使用しております。
このエクスポートを手動ではなく、一定時間毎に自動で行なわせたいと考えております。

タスク機能やフリーソフトを利用して一定期間毎に指定したコマンドを実行する、と言う部分は可能なのですが、
ACCESSからのエクスポートに関しては、ACCESS起動時にパラメータを指定したり、
マクロのような物で自動実行は可能でしょうか？
エクスポート先のファイルは毎回上書きで構いません。

>>381
TransferText
でヘルプ参照汁

>>382
ありがとうございます。
ヘルプを見て試してみます。
分からない事があったらまた質問します。

Accessに興味があるのですが、どんな事が出来るのかとか、
どんな機能があるのかとか初心者用に解説したサイトとか
教えていだだけませんか？

現在某DBソフトを使用中ですが、Accessのクエリ機能が
どういう風に使いどの様な事が出来るのかを知りたいのです。

質問です。
ACCESS 2000です。
レポートにWordArtを使用しているのですが、
「挿入」「オブジェクト」の中に [WordArt 3.2]が存在しないPC
と存在するPCがあります。
存在しないPCのOfficeUpdateも全て行ったつもりですが
[WordArt 3.2]がありません。
どうすれば、使用可能になるのか教えて下さい。
よろしくお願いします。

>>360
それ、ぜんスレACCESS総合相談所 その９あたりで
えんえんと、やっちょったぞ。

9はログがhtml化されてないんじゃねぇの？

ACCESS2000で１つのﾚﾎﾟｰﾄを複数のプリンタ（端末に設定されている分）から選択し
出力したいのですが? 良い方法を教えてください。

>>385
すれ違いだが教えてあげる。

Office Updateしようがしまいが、そもそもWordArt 3.2はそんなもので
手に入ることは絶対にない。

>>384
ttp://www5d.biglobe.ne.jp/~ac2000/index.html

ここあたりはどうだ？

ACCESS97で作られたソフトを使っていたのですが、
いきなりデータが開けなくなってしまいJetcompなるものを試してみようと思ったのですが
復元中にユーザ名とパスワードの入力を求められるのですが、
ここにはなにを入力したら良いのでしょう？

ソフトを作った会社はすでに倒産しているし、原因を突き止めようと上司にどんな操作をしたか
聞いても、俺は何もやってない！の一点張りで…別に責めているわけじゃないのに(+_+

それと、なにかデータを復元するための知恵がありましたらお貸しくださいませ

Access2000で教えて下さい。
複数選択可のリストボックスの選択をVBAから全解除したいのですが
どうすればよいのでしょうか？
複数選択不可の場合は
Me.リストボックス名=Null
でいけるのですが、ヘルプを見たら複数選択可の場合は
コントロールの値は常にNullだと書いてあり困ってしまいました。
よろしくお願いします。

すいませんアクセス初心者なんですが質問させてください。
請求書を作成するためのファイルをつくってまして
一つのテーブルの中に
単価、数量、単価２、数量２，単価３、数量３
というふうにフィールドがあります。
そして、クエリをつくって合計：単価＊数量、合計２：単価２＊数量２、合計３：単価３＊数量３
というふうに計算させて
さらに総合計：合計＋合計２＋合計３
という計算をさせたいのですが、この計算結果が表示されません。
どういうふうにしたらクエリの中で総合計を計算させることができるのでしょうか？

>>392
For Each.... と ItemsSelected プロパティを使ってループし
SelectedプロパティをFalseにする。

>>393
むしろどういう風に書いたら出来なかったのか。
普通に書いたらできたけど。

>>393
どうだめなのか書いてないから当てずっぽうで
空の明細があってNullの足し算してるんじゃないかと推測して
総合計：NZ(合計)＋NZ(合計２)＋NZ(合計３)
とかでどう？
あと、そのテーブルって融通きかなそう

>>394
ありがとうございます。
事務所に帰ったらやってみます。

ありがとうございます。
NZで解決しました。
くわしくかかなくてすいません。
空のデータがあるときに合計がされなかったんです。
どのあたりが融通きかなそうでしょうか？
もっと良い形があったら教えていただきたいのですが。

>>397
>どのあたりが融通きかなそうでしょうか？

請求書に4明細以上載せるように仕様変更するときとか
商品ごとの売れ数の集計を取りたいときとか多分困る。

397氏が何屋さんか知らないのでこの通り作ればOKとはいかないけど

売上テーブル　ID、請求書NO、商品CD、数量、金額
商品テーブル　ID、商品名、単価
請求書テーブル　請求書NO、顧客CD
顧客テーブル　顧客CD、顧客名、その他必要事項があれば（住所、TELなど）

フォーム・レポートはメインに請求書テーブルを元に、
サブに売上テーブルを元にしたクエリをソースにする。請求書NOでリンク。
入力時に商品コードと数量が入った時点で金額に単価*数量を入れてやる（マクロでいい）。

なんていうのを参考にしてくだちい。
ちなみに目的が「請求書を作成するため」だったらExcelの方がうんと楽。
そうじゃなくて「当座は請求書が出ればいいけどその先にもっとしたいことがある」
というのでなければ、わざわざ手間をかけてAccessを使わなくてもいいと思う。
前者なら無理するな、後者ならがんがれ。

すみません、今ACCESSについてネットで調べ事してて、

ttp://www2.moug.net/app/bbs/message.php?cat=b_acopr&id=20040318-000017

のページが自分のやりたいことそのままだったのですが、
全然できません。
本当にできるのでしょうか？

Win2000 AC2000です。

>>390
ご紹介ありがとうございました。
勉強してみます。

>>399
その掲示板で本人に訊けば。

っていうかモーグで嘘教えてたら誰か他の奴が
「ダウト」って言ってくるはずだから出来るんじゃねーの

？？ ？？？, ？？？ ？？？？ 4？ ？？？？ ？？ ？？

？？ (？？？) - ？？ ？？？？ 26？, ？？ ？？ ？？？ ？？？ 4？？
？？？ ？？？？ ？？ ？？？ ？？？？？？？？ ？？？ ？？ ？？？
？？？？ ？？？ ？？？？ ？？ ？？？ ？？？ ？？？ ？？？？.

？？ ？？ ？？？ ？？ ？？？ ？？？ ？？ ？？ 4？？ ？？ 10？
？？？ ？？？ ？？？ 9？？ ？？？？？ ？？？ ？？？ ？？？ ？？？
？？？？ ？？ ？？？ ？？？？？.

【.　 目　的　 】 ２つのクロス集計と１つのテーブルから追加クエリを実行したい
【.　 条　件　 】 Win98、WinXP、Access2000
■試したけどうまくいかなかった処理
【.　概 　要　 】
Public Function 表作成()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command

Set cn = CurrentProject.Connection
Set cmd.ActiveConnection = cn

cmd.CommandText = INSERT INTO W_表作成 ( txt1, txt2, txt3, txt4, txt5, txt6, txt7, txt8 )" & _
"SELECT QRY_クロス集計1.*, TB_全体.txt1, TB_全体.txt2, TB_全体.txt3, TB_全体.txt4, TB_全体.txt5, TB_全体.txt6, TB_全体.txt7, クロス集計2.txt7, クロス集計2.*" & _
"FROM ((TB_全体 INNER JOIN QRY クロス集計1 ON TB_全体.ID=QRY_クロス集計1.ID) INNER JOIN クロス集計2 ON TB_全体.ID=相談形態月別集計.ID2) INNER JOIN QRY_集計2用 ON クロス集計2.ID2=QRY_集計2用.ID2;"

Set rs = cmd.Execute

End Function

・”call　表作成”でTB_全体というテーブルとクロス集計1・クロス集計2というクロス集計クエリからW_表作成というテーブルに追加したいのですが・・・。

【駄目な理由】 （動作状況など）
端末によってエラーがでます。
自分のＰＣやいくつかのＰＣで動作確認をしたのですが、知人のＰＣではエラーがでたらしいです。
エラーは実行時エラー　3127とかいうものらしいです。
参照設定は動作確認ができたものと同じ設定になってます。
■これだけはやりました
【>>1を読んだ】 はい・いいえ （読まない人が多いので必ず目を通してください）
はい
【Googleで調べた】 はい・いいえ （大概の疑問は検索することで解決します）
はい
【検索キーワードは？】
実行時エラー＆3127　
insert into

コードは実際のフィールド名等だとまずいのですこし改変してます。
動作確認がとれているので、コードの問題でもないとは思うですが。

いま考えられる点でアクセスのバージョンがSR-1であるかないかの違いが
あるので、アップデートを試してもらうつもりです。
そのほかに何か原因が考えられますでしょうか。

ちなみに動作確認のとれたＰＣはアクセスをよく使う人が使用しているもので
とエラーのでるＰＣではアクセスを滅多に使ってないらしいです。
一応ともにフルインストールしています。

原因が分かる方がおられましたら、よろしくお願いします。

>>399
ってか、別に何もしてないんだな・・
無理だろそれじゃ。

>>389
スレ違いとは、どこで聞けばいいのですか？
教えてあげるというなら、できる方法を教えて下さい。
まさか、オフィス95を入れろが答え？？？

>>407
389ではないが、マルチには教えてやらん。

>>408
しらん奴はだまっとれ

>>409
ＭＹさん、すいませんでした。

質問です

Accessの日付入力で楽をするために、
日付を入力部分をコンボボックスにし、
選択するときに、1ヶ月分のカレンダーを表示させ、
キーボードを使わずに入力できたらいいなと思っていますが
そんなことできるのでしょうか？
できるとするならば、やり方を教えてください。

よろしくお願いします

とりあえずupしとくわ

質問ですが、アクセスで、エクセルのリストファイルを
リンクする時、絶対パスになってしまうので、
アクセスとエクセルのファイルの置き場が同じであっても、
その２つが入っているフォルダー自体を別の場所に移すと、
リンクが切れてしまう。
そこで、リンクする時、相対パスで、アクセスに覚えさす。と言う事は
出来ませんか？

>>411
そんな貴方にDTPickerコントロールを
ttp://www.microsoft.com/japan/developer/library/VBCon98/vbconusingdatetimepickercontrol.htm

>>413
リンクはAccessファイル同士でも絶対パスのはず。
実行させたらカレントパスでファイルを探してリンク更新する
プログラムを書くとか？

すごく単純な質問かもしれませんが
テーブルの「数値型」を使用している場合、
ハイフンとかアンダーバーも使用することはできないのでしょうか？

>>415
なぜすぐに試せる事を質問するんだろう....

ハイフンはマイナス記号として先頭にある時のみ可能
アンダーバーは数値に関係ない文字だから無理

カレンダーコントロールは、マウスでしか入力できないのでしょうか？
キーボードで入力したいのですが・・・・
（マルチでごめん）

>414

Accessでも当然、DTPickerコントロールって使用できるんですよね？

だから試せばすぐわかる事をなぜ質問するかなぁ

>>417
キーボードからでも入力できるし、コンボボックスと同じで
Ctrl+下矢印でカレンダーを出して、カーソルキーでの日付選択も可能。

>>418
使えるから書いてるわけだが。
ツールボックスから「コントロールの選択」で後は一覧で出てくる
OCX/ActiveXの中から「Microsoft Date And Time Picker」を選択

>>419
カーソルキー日付を選択できても、Enterキーで入力できない。
いちいちマウス使って入力するのがめんどうなもんで・・・

>>420
| カーソルキー日付を選択できても、Enterキーで入力できない。

「Enterキーで入力」はどうゆう意味？
カーソルで選んで、日付決定はEnterキーだよね？
それではなく？

それともEnterキーをもう１回押さないと次のコントロールに
移動しないこと?

>>421
>カーソルキー日付を選択できても、Enterキーで入力できない。
すみません「で」が抜けてました。
カーソルキーで日付を選択できても、Enterキーで入力できない。

>カーソルで選んで、日付決定はEnterキーだよね？
>それではなく？
その通りにやりたいけど、Enterキーで決定ができないんだけど・・・
Enter押してもフィールドに入力されないのは、設定がわるいのか？

教えてください。
二つのテーブルに情報を入れてAccessを使っています。
Aというテーブルには現在生産されている車の問い合わせ受付を
Bというテーブルには生産が終了してしまった車の問い合わせを
それぞれ入れて使っています。
それぞれのテーブルのフィールドには受付日や車種、完了日などが書かれています。

月末になると何件問い合わせが来たかを集計しなければならないのですが
クエリの抽出条件を使って（日付のフィールドにBetween [ ]And [ ])集計しようと
思っているのですが、テーブルが１個だけの場合はうまく良くのですが
２個になると同じデータが３個くらい出てきたりして上手くいきません。

抽出クエリを使い２つのテーブルから条件にあったデータを抽出は出来ないのでしょうか？

またもっと効率のいい方法があれば教えてください

使用環境はWin2K＋Access2000です。
よろしくお願いいたします。

>>423
テーブルを一つにする。

>>418
俺は思いっきり使っているけど？

カレンダーコントロールよりも使いやすいから使っているしね。
それに大体のコンピュータにこのコントロール最初から入って
いるしね。最近のは。

他にもVBのActiveXモジュール結構使っている。
どちらにせよインストーラを使わせる予定なのでこれでもいい
のだよ。インストーラである程度の登録処理させちゃうから

>>422
| >カーソルで選んで、日付決定はEnterキーだよね？
| >それではなく？
| その通りにやりたいけど、Enterキーで決定ができないんだけど・・・

あれ、うちはEnterキーで決定ですよ。
プロパティは何も変えずに。

>>423
>>424さんが言うとおり、フラグを１つ増やしてテーブルを
１つにした方がいいのでは？
もし無理ならUnion(Union Allではなく)を使って結合。

>425

カレンダーだけのフォームを作り、
日付をダブルクリックすればテキストに値を代入させようと思っていますが
メインフォームにはすんなり入りますが
サブフォームに入れようとするとうまくいきません。

サブフォームに値を代入するための
基本的な式を教えて頂きたいです。

やはり1つのテーブルに結合したほうがてっとり早いのですね。
>>426さん、>>424さんアドバイスありがとうございました。

>>423
あなたはテーブルの正規化の基本がなっていない

年休取得状況の集計をしています。
テーブルのフィールド構成は
社員コード、年度、本年発生、次年度繰越です。
クエリで計算フィールド”前年繰越”に同一社員の前年度レコードの
次年度繰越の値を持って来たいのですがうまくいきません。
前年繰越:DLOOKUP("次年度繰越","年休tbl","[社員コード]=[社員コード] and [年度]=[年度]-1")
とやってみましたが駄目でした。
条件を色々変えて調べたらWhere式の左辺と右辺が同じレコードを見ている様です。
テーブルにフィールドを作ってADOで値を入れようかとも思いましたが
どのタイミングでVBAを走らせればよいのかわかりません。
目的が達成されれば手段は問いませんので解決策を教えて下さい。
ACCESSのバージョンは2000、OSは98SEです。

age忘れ

自己解決しました。右辺を「" & & "」で囲めばよかったんですね。
スレ汚しのお詫びに解決法のURL貼っておきます。失礼しました。
http://support.microsoft.com/default.aspx?scid=/directory/worldwide/ja/kblight/T008/6/02.asp

ずいぶんと考えているのですが、どうも分かりません。助けてください。
↓のような全く同じ構造のテーブルがあります。

テーブルA　　　　　　　　　　　　　　　　　　　　　　
ID　テキストフィールド　チェックフィールド　　　
１　　ＡＡＡ　　　　　　　False　　　　　　　　　　
２　　ＢＢＢ　　　　　　　False　　　　　　　　　　
３　　ＣＣＣ　　　　　　　False　　　　　　　　　　　

テーブルB
ID　テキストフィールド　チェックフィールド
１　　ｄｄｄ　　　　　　　False
２　　ｅｅｅ　　　　　　　True
３　　ｆｆｆ　　　　　　　False

この２つのテーブルを結合し↓のように

ID　テキストフィールド　チェックフィールド
１　　ＡＡＡ　　　　　　　　False　　　　　　　　
２　　ｅｅｅ　　　　　　　　True　　　　　　　
３　　ＣＣＣ　　　　　　　　False　　

通常はテーブルAのレコードを返し
テーブルBのチェックフィールドがTrueの場合のみテーブルBのレコードを返したいのです。
宜しくお願いします。

>>433
SELECT テーブルA.*
FROM テーブルA INNER JOIN テーブルB ON テーブルA.ID = テーブルB.ID
WHERE テーブルB.チェックフィールド = False
UNION ALL SELECT *
FROM テーブルB
WHERE テーブルB.チェックフィールド = True
ORDER BY ID;

>434
ありがとうございます。
SQL文みると、そうかなるほど！と思うのですけど・・・・
最初にUNIONしてからという考えが頭から離れませんでした＞＜
勉強になりました。

>>435
ですね

「Access DE 名刺管理 2003」と言うソフトを使っているのですが毎回起動時に

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
セキュリティ警告: 安全でない式がブロックされていません。


安全でない式をブロックするには、Microsoft Jet 4.0 Service Pack 8 以降がインストールされている必要があります。最新のバージョンの Jet 4.0 を入手するには http://windowsupdate.microsoft.com に移動してください。

お使いのコンピュータに意図的に損害を与える式が 'C:\AccessDE2003\adMeishiSys2003.mde' に含まれている場合、ファイルを開くのは安全でない可能性があります。このファイルを開きますか?

一般の機能に影響を与えることなく、安全でない式をブロックするには、Microsoft Jet 4.0 Service Pack 8 以降のバージョンがインストールされている必要があります。
最新の Microsoft Jet 4.0 Service Pack は Windows Update から利用できます。
安全でない式をブロックするには、このトピックの一番下にあるリンクからヘルプの 「Jet Expression Service のサンドボックス モードについて」 を参照してください。
Service Pack が適用されない場合は、以下の問題が起こる可能性があります:
ウィザードとビルダを開始できない。
メニュー用フォーム ビルダ でのメニューの作成に失敗する。
Visual Basic for Applications (VBA) プロシージャを呼び出す "RunCode/プロシージャの実行" マクロ アクションが失敗する。
VBA プロシージャを呼び出すイベント ハンドラが失敗する。
プロパティ シートから呼び出される、または SQL ステートメントで使用される VBA プロシージャが失敗する。
ハイパーリンク フィールドのフィルタが失敗する。
プロパティ シートまたは SQL ステートメントから呼び出されるいくつかの VBA 関数が失敗する。
このエラー メッセージに関するオンライン詳細情報

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

と言うメッセージが出てきます。
これを出なくさせたいのですが、どうすればよいでしょうか？

Accses2003です。

>>437
うちの会社で2000で使ってたものを2003で使おうとしたら同じメッセージが出た。
出なくするだけだったら
ツール＞マクロ＞セキュリティ
でセキュリティレベルを「低」にすればOKだけど
それでどんな不都合が起きるかは分らない。
うちの場合は社員が作ったmdbだったのでそれで解決だったけど

>>437
「Microsoft Jet 4.0 Service Pack 8」をWindows Updateでも
使って入れれば良いだけちゃうんかと。

>>438　439
ありがとうございます。

初カキコっス。

クエリの結果を、「固定長テキストデータ」として
マクロでエクスポートしたいんですが、
アクション「テキスト変換」の
引数「定義名」に何を指定すればいいのかわかりません。

1.「定義名」の目的と機能
2.どういった形なのか（ファイル？なら拡張子は？）
3.作成方法

をどなたかご教授を。
ヘルプ、ネットで調べましたが
解決方法を見つけられませんでした。

ちなみに、固定長テキストデータについては
メニューバーの
ファイル−エクスポート、
からでは実行出来ませんよね。

アクセスで画像データを扱いたいのですが、
画像ファイルをリンクするとデータベースファイルが巨大になってしまいます。
設定の方法が間違っていますか？方法があれば、教えてください。
〔状況〕
　１．ビットマップの状態でデータが保存されているようである。(１データ数十ＭＢ）
　２．テーブルでＯＬＥオブジェクト宣言した。
　３．フォーム(またはテーブル）でフォルダー上のＪＰＥＧファイルを直接リンクした。
　４．Ａｃｃｅｓｓ２０００を使っている。
〔行いたいこと〕
　１．２００万画素程度のＪＰＥＧデータを扱いたい。
　２．フォームを作成し、そこから画像ファイルを指定したい。
　３．リンクができなければ、圧縮状態で埋め込みしたい。

>>441
固定長テキストデータのインポート定義の作成はわっかっているかな？
エクスポートの定義は、インポートの定義をそのまま使って、
ファイルとテーブルを入れ替えればいいだけだけど。
インポート定義がわからなければ、また説明するよ。

>>442
普通埋め込みだからこそデータベースが巨大化するならわかるが、リンク
で巨大化するようなことはない。

どういう作り方しているんだ？
俺はこういう作り方をしている
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20040404204603083.jpg

特定のimgディレクトリ内のイメージをリンクさせている。埋め込みなしでストレッチ。
jpgであり、パスはそれ専用のレコードを使い実現している。

とりあえずjpg扱いたいといっているのに圧縮って....

いま、レポート印刷を実行すると、ID１〜10まで全て印刷されてしまうのですが、
１ページにID１のやつだけを印刷する方法ありませんか？

質問です。

世帯番号，氏名，年齢区分，金額の順にフィールドを持つテーブルで、
１，Ａさん，一般，1000
１，Ｂさん，高齢，500
１，Ｃさん，高齢，300
２，Ｄさん，高齢，700
３，Ｅさん，一般，800
４，Ｆさん，高齢，600
４，Ｇさん，高齢，200
……
のようなデータになっています。

これを「高齢と一般が混在している世帯」の年齢別金額内訳を抜粋したいのですが、
（上記の例だと、高齢800、一般1000）
どのような方法があるか御教示下さい。
Win2000、Access2000を使用しています。

>>446
SELECT 世帯番号, 年齢区分, Sum(金額) AS 年齢別金額
FROM テーブル名
GROUP BY 世帯番号, 年齢区分
ORDER BY 世帯番号, 年齢区分;

「高齢」と「一般」の両方を含む世帯の番号は、

SELECT 世帯番号 FROM テーブル
WHERE 世帯番号 IN (SELECT 世帯番号 FROM テーブル WHERE 年齢区分='高齢')
AND 世帯番号 IN (SELECT 世帯番号 FROM テーブル WHERE 年齢区分='一般')

で検索できるから、

SELECT sum(金額) FROM テーブル WHERE 世帯番号 IN (↑) AND 年齢区分='高齢'
SELECT sum(金額) FROM テーブル WHERE 世帯番号 IN (↑) AND 年齢区分='一般'

日付を簡単に入力するために、
コンボボックスで1ヶ月分のカレンダーを表示して
ダブルクリックでテキストボックスに日付を自動挿入させようと
思っているのですが、何かよい方法はないでしょうか？

ActiveXのDTPickerを使ってみたのですが
日付がなしのデータに移動すると
Nullはダメだというエラーが返ってきて
うまくいきませんでした。
どうか、いい案をお願いします

>>447-448
多謝！
やってみます。

スポット的に取引を持った会社の品目などを管理するデーターベースを作っています。
たとえば、３ヶ月前の取引データーを管理ID、日付以外全てコピーして
再度起伝する機能を付けたいのですが、お知恵を拝借して宜しいでしょうか。
T_Main（メインテーブル。　ID,会社名,振込口座,担当者,取引条件,）
T_Sub（メインとIDでリレーションさせた商品目用テーブル。品名,金額）
Q_Search（検索用クエリ。フォームから検索単語を読んでLike検索）
F_SearchLIST（検索用クエリで呼んだデーターを表形式で表示するだけ）
F_ADDNEW（新規レコード追加用フォーム）
と、こんな感じになっています。
F_SearchLISTの各レコードにボタンをくっつけて、そこを押したら
その各データー（社名など）をF_AddNEWにとばす・・・というような
事をしたいのです。　テンポラリテーブルへ追加クエリでデーターを
飛ばして、そこからMe.***=Table![***]てな感じが出来れば良いですが、
もし、より良い方法があれば教えて下さい。

また、既存のデーターは紙になっており各事業書毎に連番が振られています。
この番号も自動で振りたいのですが、例えば
メインテーブルに[事業所]フィールドを作って「本社」「京都」とかの
データーを突っ込んで、その数をカウントさせれば事業所毎の連番を
自動で振ることが出来るかなと思うのですが可能でしょうか？
既存のデーター数は恐らく3000位。年間1000位これから増加すると思います。

>>451
前半は解読する気がしないのでパス
後半はDCountで可。
=DCount("*","T_Main","事業所=本社")

牡蠣のようなレコードを出力を求めています。クエリでも構いません

ある一連のレコードがテーブルに格納されているのですが、これら
の例えば数量、消費税、金額、税込み金額の部分だけを合計した１レコード
を作りたいのです。

ただ商品番号(ポス管理用）と単価は合計しないで
ID | 商品ID | 商品番号 | 数量 | 単価 | 金額 | 消費税 | 税込み金額
と１レコードに集計したいのです。

各商品ごとに抽出後それをまとめ、一定期間（指定）の集計を行ったも
のをクエリか何かで出したいのですが、どうしたらよいでしょうか？

>>453
| 牡蠣のようなレコードを出力を求めています。
硬そうな出力ですな。(w

さて、普通にSum関数とGroup By句でできないか？
単価はAccessならFirst関数か何かでいけるはず。

ここで聞いていい内容かハッキリしないんですが、助言をお願いします。

目的は、Websiteのログイン情報とかをAcccessでまとめていきたいと思うんですけど、
デザイン（と言えばいいの？）の段階で悩んでます。

ユーザーIDとPWの他にも自分が登録した情報の詳細まで記録したく考え、
でも、そういった自分の情報って基本的には同じ内容だから、
毎回入力するのでなく、他のテーブルから参照するのが効率的と思いましたが、
【あるサイトでは、登録の際に「誕生日やアパートまでほぼすべての情報」を登録したけど、
別のあるサイトでは、「誕生日と郵便番号のみ」しか登録していない。】
ってことに気づいて、テーブルの作り方に困っています。
メモ型のフィールの作って項目毎に、それぞれ登録した情報を書き込むのはなんかスマートじゃないし、
やっぱり他から参照したい、そうすればその「自分の情報」テーブルを、
Websiteログイン以外のテーブルからも参照できるって理想のみ前進しちゃって…。

下手糞な文章で、分かり難くてすいませんが、なにかアドバイスお願いします。

↑のものです。
とりあえず、いまは下の形で作ってみています。

<Websites>
<autoNumber>5</autoNumber_>
<category>Portal</category>
<Description>Yahoo! JAPAN</Description>
<URL>http://www.yahoo.co.jp/</URL>
<label1>Yahoo!Japan ID</Label_x0020_1>
<data1>hoge69</data1>
<label2>パスワード</label2>
<data2>hogehoge</data2>
<label3>秘密の質問</label3>
<data3>母親の旧姓？</data3>
<label4>秘密の答え</label4>
<data4>綾小路</data4>
<label5></label5>
<data5></data5>
<regEmail>[email protected]</regEmail>
<regName>西園寺　ぴろゆき</regName>
<regAddress>111-1111 日本</regAddress>
<regInfo>誕生日1874/12/31</regInfo>
</Websites>

とかいう形までは考えたんですが。。。
（サイトによって必要な情報名（ユーザIDだったりログインネームだったり、
OnlineBankingなら口座番号・支店番号・Web用PW）だったり色々異なるんで、
固定のフィールド名でなく、そのつど入力するようにしてみました。）

Accessのアプリケーション内で、モジュールをまたいで共通に使える
変数ってどこかで定義できます？
あるフォームに入っているいくつかの値をそのまま
別のフォームへ突っ込みたいのです。

>>457
標準モジュールの宣言セクション。
区別するためにPublicつけることを推奨。

ただ、フォームの内容は
Forms!(フォーム名)!(コントロール名)
等で直接参照・設定できるわけだが、わざわざ変数に格納する意味があるのかしらん？

名前の色と、本文の文字色、変える方法
教えてくれませんか、レス違いですが。

>>458
有り難う御座います。
実はサブフォームの中の値も一緒にぶち込みたかったのですが、
よく考えてみたらやっぱり変数に格納する意味ないですよね・・・

要するに過去の伝票（メインフォームで社名など、サブフォームで品名等）
からのデーターで新しい伝票を起こしたいのですが、うまいこと出来ない
ものでしょうか。

>>459
>>460
エスパーじゃないのは、俺だけじゃないみたいだな。
>>459
FormのTextBoxのプロパティ『前景色』の変更なんてレベルの質問じゃないよな？
>>460
ADOやDAOのRecordset使えれば簡単だけど
もそっと解り易く書かないと、答え様が無いぞよ!!

459です　↑このスレの名前の色と、この本文の色のことです。
すみません。

>>462
ブラウザーが何か判らないが、IE5.5だと、ダメみたいファイルを保存してからで良ければ
HTMLのソースを書き換えれば良い。
スレ違い所か板違い。気をつけようね!!

>>462
『名無しさん＠そうだ選挙にいこう』の部分だったらE-mailにsageかmalito.sageと
書くと良い。

>>463 464さん
どうもありがとうございました。

access 逆 コンパイル でｸﾞｸﾞって
漏れのHPを見にきたﾔｼ
そんなツールおいてないぞ。。あれば欲しいし（ｗ

OSはWindows2000、ソフトはACCESS97です。
(会社で使用しているため、他のOS、他のソフトには変えることができません)

運用.MDBと履歴.MDBがあります。

下記構文は運用.MDB内に書かれています。
　　Dim DBS As Database
　　Dim rs As Recordset
　　Dim qdf As QueryDef
　　Dim strSQL As String
　　'
　　Set DBS = CurrentDb
　　'
　　strSQL = "SELECT テーブル1.* FROM テーブル1 INNER JOIN テーブル2 ON テーブル1.番号 = テーブル2.番号;"
　　Set qdf = DBS.CreateQueryDef("", strSQL)
　　qdf.ODBCTimeout = 400
　　Set rs = qdf.OpenRecordset()

として、OpenRecordsetしたあと、
rsの中身を実行の年月日時分秒のテーブル名で履歴.MDBにテーブル作成させてやりたいのですが、
どのように記述すればよろしいでしょうか．

簡単な方法としては、
まずSELECT構文の中身を運用.MDBの中でテーブル作成してやり、
それを履歴.MDBにコピーしてから、
作ったテーブルをOpenRecordsetしてやれば
思ったことができるとは思うのですが、
テーブルを運用.MDBの中に作ると、
無駄にファイルサイズが大きくなってしまいます。

かといって、テーブル作成と、OpenRecordsetを別々にすると、
2倍の時間がかかる(ひとつ処理あたり10分ちょっと)になってしまい、
実用的ではないので…。

Recordsetの中身をテーブルに落とす方法はないものでしょうか。
まったくできようも無いというのであれば、
別方法を考えますので、もしできるという識者がおられれば、
その手法をご教授願いたく思います．

アクセスにずっとためてたデータを見ようとしたら、ものの数十件
しかデータテーブルがでてこない。数百件のデータが帳票で保存さ
れてるはずなのに。
アクセスファイル自体のサイズは以前のまま（３Ｍ近い）なのでど
こかにあると思うんですが・・

>>469
間違えて削除しちゃったんじゃないの ?
データベースってレコード削除してもファイルサイズは小さくならないよ。
今の .mdb をバックアップしてから、最適化してみな。

【.　 目　的　 】 だぶりデータの消去
【.　 条　件　 】 OS：XP Home　　アクセス：2003
【.　概 　要　 】
現在の使い方としては、テーブルにtxtデータを取り込み、
クエリで抽出してるくらいです。

お店の顧客管理にアクセスを使ってるのですが、
同じテーブルに同じ人物が2件や3件入ってることがあります。

なんとかだぶってる件数の数を出すまではクエリで出せますが、
その出したデータを手作業で直すしか出来ません。

数が数万件と多いため、手作業では限度があるのですが、
これを「だぶってるデータは1件残して削除」したいのです。

こういった機能はアクセスにあるのでしょうか？

>>471
集計クエリーを使って2件以上ある情報のみ抽出し、
あとはモジュールからループ処理で削除して回ります。

>>471 HELP嫁
DISTINCT 述語　選択したフィールドの中でデータが重複しているレコードを除外します。

SQLもVBAも使えないなら、
元テーブル→[集計ｸｴﾘ]→ワークテーブル　で、だぶりを除外し、
ワークテーブル→元テーブル（上書き）

フォーム上で、新規レコードへ飛ばした後にレコードの移動を禁止して
スクロールボタンであさってのレコードが出てくるのを防ぎたいのですが、
方法ありますでしょうか。

WinXP ACCESS2000

3列、200行ほどのデータシート形式（帳票）のフォームを作成しています。全て記入した後にテーブルに追加するようにしたいです。
ただ、内容は、前にそのフォームで行った追加データと似てる部分が
多い（レコード数は毎回一緒になる）ので、フォームをオープンしたらまず
クエリで以前のデータを取得して、そのデータをあらかじめフォームに代入させておきたいのです。

そこで、ADOレコードセットへSQLで以前のデータを取得し、そのレコードを別に作ったローカルのレコードセット（？）
へ全て代入して、そのレコードセットをフォームのレコードセットにセットしようと思いました。
-この時点で間違えてそうなのですが、どうしたらよいのかわからないのです（＞＜）-

しかし、この方法だとセットの部分で

実行時エラー7965
"Recordset/レコードセット"プロパティの設定に、そのオブジェクトはつかえません。

とエラーが出てしまいました。
ヘルプを調べてみると、どうやらフォームのレコードソースにセットするレコードセットは
"レコードセットに含まれるデータの種類 (Jet または SQL)"
をみているようでローカルで作ったレコードセットはセットできないみたいでした。

これをどうにかセットできるようにはならないでしょうか？
又は、そんなことしなくてもこうすればいいのに的ななにかを教えて頂けませんでしょうか。

Set rsModel = New ADODB.Recordset
Set lrs = New ADODB.Recordset
strSQL = "SELECT 台リストコード, 番号, 台コード, 変更日 " & _
"FROM T_台リスト " & _
"WHERE 台リストコード=" & lngBefore & " ;"
rsModel.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly

With lrs
With .Fields
.Append "台リストコード", adBigInt
.Append "番号", adBigInt
.Append "台コード", adBigInt
.Append "変更日", adDate
End With
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With

Call copyFields(rsModel, lrs, 4) ' Aのレコード内容を第3引数のフィールドまで全てBへ代入又は追加

rsModel.close
Set rsModel = Nothing

Set Me.Recordset = lrs < エラー

>467
いまいちやりたいことが理解しにくいが
strSQL="INSERT INTO target [(field1[, field2[, 年月日時分秒]])] VALUES (rs!value1[, rs!value2[, now()])"
db.execute strSQL
でデータを追加したいのかな。

>>475
元のテーブルから、最新のデータをワークテーブルに送り
ワークテーブルのデータをフォームに表示させて
データの入力がすんだら
ワークテーブルのデータを元のテーブルに送れば
いいんじゃないだろうか。

【.　 目　的　 】 項目が複数あるテーブル作成したいのです。
【.　 条　件　 】 OS：XP Pro　，ACCESS2003

【.　概 　要　 】 項目が1個しかないテーブルは作れるのですが、２個以上あるテーブルが作れません。
【駄目な理由】 デバックは通るのですが、実行するとフィールド定義のエラーとでます。

グーグルで調べたのですがさっぱりで。

すみませんが、ヒントだけでもいただけませんでしょうか。

すみません。
処理はSQLコマンドで、Create table テーブル名 （あああ CHAR(255))だとOKで
Create table テーブル名 （あああ CHAR(255),　いいい CHAR(255))だと上記のエラーが
出るって事です。

>479
VBAで[create table]のSQLを実行するのがうまくいかない、という意味？
問題ない範囲で、該当するコードをここに書けば誰か教えてくれるよ。

MS-Accessのマクロでテーブルのデータを入れ替えるのに、いったんSQL文でレコードを削除し、テキストファイルから新しいデータをインポートしているのですが、これだと削除確認ダイアログが出てしまうため、作業を無人化できません。
削除確認ダイアログを出さずにデータを入れ替える方法はないでしょうか？

>481　有難うございます。
コードを書かせていただきます。
Dim strSQL As New ADODB.Command
strSQL.CommandText = "Create table " & _
worktable & " ( " & _
"aaaa 　　　number ," & _
"bbbb 　　　number ," & _
"cccc 　　number ," & _
"dddd 　number ," & _
"eeee 　　　 CHAR(255) ," & _
"ffff CHAR(255) ," & _
"gggg CHAR(255) ," & _
" )"
strSQL.Execute
本当は項目が２１あるのですが、長くなるので…。
すみませんが、宜しくお願いします。

>477
それは追加クエリということですよね？
追加したデータをフォームに連結させて変更する、ということでしょうか？
そうすると、フォームで作業してる途中に異常終了など起こった時に
テーブルにゴミデータが残ってしまいますよね。

以前のデータを取得して、そのままテーブルに追加するのではなく、
そのデータをひな形のようにした帳票フォームで、内容をいろいろ変更して、
最後にテーブルに追加、ということがしたいのですが。

列ごとに色を変えられますか？

>483
各項目の型の後に、NULLを許容するかどうかをつけないといけないんじゃない？

"aaaa 　　　number not null ," & _
"bbbb 　　　number not null," & _
"cccc 　　number not null," & _
"dddd 　number not null," & _
"eeee 　　　 CHAR(255) null ," & _
"ffff CHAR(255) null," & _
"gggg CHAR(255) null," & _

みたいに。これはSQLサーバの感覚だから外してるかもしれないけど。

>482
それはFAQに近いと思う
もう一度>>1を読んでみてね

>484
作業用テーブルを用意して、それに以前のデータを突っ込んで、
フォームに出して編集させて、更新時に本番テーブルに一括挿入で
いけるんじゃないですか

>485
>>1を読んでね

>484
うわ。大変失礼なことをしました。>477さんのレスを自分へのものと勘違いしたレスです。
申し訳ございません。

しかもそのため>478さんが自分にレスして頂いていることに気付きませんでした。すいません。

>ワークテーブル・作業用テーブル
実は、自分データベースというもの今回初めてなので、概念をすでに間違えているのかもしれません。
今はテストで、スタンドアロンでやりとりしているのですが、将来的に
フロントエンドとバックエンドを切り離すことを想定しています。
バックエンドにはインターネット又はLAN経由でアクセスする形です。

フロントエンド側のフォームのワークテーブルとは、毎回テーブル作成クエリなどで
バックエンドにテーブルを作り、そこを基に作業して、追加した後テーブルを削除、
という形になるのでしょうか？
調べている時にそのようなものを見つけたのですが、効率が良くなさそうと思い、
メモリで行えるRecordsetオブジェクトをフォームに使用できないか、と思ったのです。

もし、無理なようでしたら教えて頂いた方法を利用させて頂きます。
ご教示ありがとうございました。

>486さんの言うとおりにしてみたのですが、結果は一緒でした＞＜
NULL条件がいるなんて気にしてなかったのは確かです。SQLサーバの影響を受けすぎかなぁ。

これじゃない？ってのがありましたらまた教えていただけませんでしょうか。
宜しくお願いします。

>>489
2000です。すみません。

>479

＞ "gggg CHAR(255) ," & _
この行の最後のコンマを取ったらどう？

ＡＣＣＥＳＳもパソコンも素人ですが、よろしくお願いします。

あるフォルダに入れた、ＣＳＶデータ（同じフォーマットでヘッダ無し）を
全部、一気に、ＡＣＣＥＳＳ内のテーブルに追加インポート(？)する
方法はないでしょうか？

データはyyyymmdd.csvという名前で約1100個ぐらいあります。
手でやると、何件かが漏れそうで、しかもチェックも自信がないので
自動でできればいいのですが・・

質問です。
たとえば、AというテーブルとBというテーブルの2つの
テーブルのレコードを、１つのテキストにエクスポートする方法は
ないですか？

excelではたとえば
A1に100と入力すればB1に=A1*1.05としとけば
105と計算してくれるじゃない

accessのテーブルでそれをするにはどうしたらよいでしょう
デザインビューのどこをどういじればよいでしょうか

VBAでマウスのスクロールボタンを禁止する事って出来ないでしょうか・・・

>>495
ひとつのテキストにエクスポートできるということは、二つは似たような構成なんだよね？
なら、ユニオンクエリーを作り、エクスポートモジュールを書く。

>>484
ディレクトリ内のファイルを格納して回るモジュール（ぐぐったら、あります）を利用して、
ファイル名を取得し、ディレクトリ名を取得し、
do
loop
で、インポートして回る。

>>496
accessでは計算結果を表示するのはクエリでやる
（稀にレポートのテキストボックスのコントロールソースに計算式を入ることもある）。
テーブルではしない。

>>496
クエリー*1.05するのは駄目なの？

>>495
クエリ作って、エクスポートの対象にしてみ。

【.　 目　的　 】 処理対象のファイルが使用中かどうか知りたい
【.　 条　件　 】 WinXP + ACCESS2002
■試したけどうまくいかなかった処理
【.　概 　要　 】
KILL（削除）したいファイルが使用中かどうかを、Nameプロパティにより判定
している。ローカル・ドライブにあるファイルについては問題ないが、UNIXサーバ
上のファイル群をネットワークドライブとして割り当て、同様にNameプロパティ
により判定させると、使用中でもないのにErr オブジェクトが発動してしまう。
Name myFilename As myFilename
'ファイルが使用中ならエラー発生
If Err.Number Then
Err.Clear
Open_check = 1
Else
Open_check = 0
End If
【■これだけはやりました
【>>1を読んだ】 はい
【Googleで調べた】 はい
【検索キーワードは？】 VBA/ファイル/使用中/チェック/調べる

テンプレだけを投げてしまいました。Nameプロパティにこだわるつもりはない
ので、要はこけることなくファイルの使用中かどうかを判定し、KILLしたいの
ですが、うまく行かずに困っています。

よろしくお願いします。

【.　 目　的　 】 自動インポート
【.　 条　件　 】 （Windows2000、Access2002）

やりたいことは、特定のフォルダにある複数（50程度）のxlsファイルを、インポートしたいのです。
xlsファイル内のバージョンや書式等は統一で、ファイル名が違うだけです。（当然データの内容は違いますが）

これをテーブルに連続して自動的に取り込みたいのですが、なにかいい方法はないでしょうか。

■これだけはやりました
自動 インポート 連続 ACCESS ファイル指定にてgoogle検索

dir *.xls /b >test.csv
として、ファイルリストは取得したのですが、その先が・・・思いつきません。

レスありがとうございます
キーポイントはクエリですね
いろいろいじってみます

>505
VBA前提だけど、Microsoft Scripting Runtimeを参照設定して、
FileSystemObjectを使ってフォルダ内のファイルを列挙できます。
for each 〜 next でfile名を取得しながら、docmdでワークシート変換
(DoCmd.TransferSpreadsheet)してやればできると思う

>>494さんの場合は、テキスト変換(DoCmd.TransferText)だね

>>499ｻﾝ　>>507ｻﾝ
ありがとうございます。
ＶＢＡ使わないと無理そうですね(´･ω･‘)ｼｮﾎﾞｰﾝ
この機会に勉強しようとおもいます。

初歩的質問ですが、教えて下さい。
処理すると「何々をします」とメツセージが出るようになっていますが、
前任者が出ないようセットして居なくなりました。
この表示が出ないとまだ心配なのです。どこにありますか。
「ツール」「オプション」の中にありますか。教えて下さい。
2002です。

>>509
ツール⇒オプション⇒編集/検索の確認にチェックをつけます。

>>510さん　509です
ありがとうござしました。
遅くなりました。

２年ぶりにAccess2000を使っているのですが
ヘルプを使うたびに毎回Windowsのインストーラーが出てきて
『選択した機能は現在使用できないネットワークリソースにあります』
などなどメッセージが出てきて、キャンセルを４回ほど押さなければ
いけません。（その後ヘルプは普通に使えます）

昨年、WindowsMeから2000に変えたせいかな？思うのですが
回避する方法はないでしょうか。

>>512
「ヘルプ→アプリケーションの自動修復」をやってみたら？

WinXP　Access2003を使っています。
表形式フォームでレコード削除をするときに
レコードセレクタをクリックしてdeleteキーではなく
レコードに付けた「削除」というコマンドボタンのクリックで削除したいのですが
スマートな方法を教えてください。

フィールド項目に削除フラグを持っておき、
「削除」クリックで削除フラグをオンにすると同時に削除クエリを走らせて
速攻リクエリとか考えましたがあまりにひどいと思ったので…。

何故そんなことをする必要があるかというと
他のテーブルは削除時には有効フラグをオフにして
ユーザーから見えなくする仕様で
インターフェース上はそれにあわせた方がいいと思ったからです。
よろしくお願いします。

>>514
なんかいまいち言いたいことが理解できねぇ

>514
＞フィールド項目に削除フラグを持っておき、
＞「削除」クリックで削除フラグをオンにすると同時に削除クエリを走らせて
＞速攻リクエリとか考えましたがあまりにひどいと思ったので…。

別にひどくないと思うけど。
あとは、レコード毎にボタン持たせて、ｸﾘｯｸイベントで削除するとか。
大して変わらんけど。

説明がわかりにくくてすみません。
やりたいことはまさに>>516さんの言う
>あとは、レコード毎にボタン持たせて、ｸﾘｯｸイベントで削除するとか。
これなんですが、マクロにも「レコードの削除」はないしdocmdはdeleteobjectしかないので
クリック一発で削除する方法を教えて頂ければありがたいです。

条件付き削除クエリ用意すりゃいいじゃん

>>517
クリックイベントではカレントレコードのキー内容を掴めるから、
それをもとにdeleteのSQLを発行する

Dim sSQL as string
sSQL = "delete from [table] where キー = " & me.カレントレコードキー
CurrentDb.Execute sSQL
Me.Requery

※SQL発行は、docmd.RunSQLよりCurrentDb.Execute の方が
※よろしい。docmdは非同期オブジェクトなので。

ありがとうございます。
サクッとスマートにいきました。
感謝です。

誰かアドバイスお願いします。

ACCESS2002を使っています。
あまり詳しいことは書けないのでわかりにくくてスミマセン。
各建物に関する情報のＤＢを作成しています。
■建物：Ａ群
■必要情報：Ｂ群
■必要情報の担当者：Ｃ群
とありまして、Ｃの人達にＢの情報が入っている状態です。
（Ｂ：Ｃのリレーションシップが多：１になっている）
Ｃの人達は一人につきＢ群が複数入っています。

その状態でＡの建物ごとに、何の必要情報がいり、
担当者は誰であるといった順番での管理フォームを
作成しようと、Ａ群がメインフォーム、Ｂ・Ｃをサブフォーム
としたものを作成しました。（Ａ：Ｂは１：多のリレーションシップ）

Ｂを指定した上で、逆に対象者となるＣをコンボボックス
で抽出したいと思い、自分なりに作成を行ったのですが
うまく動作しません。

Ｂを選択後、Ｃのコンボボックスには抽出された名前が
出てきますが、その中から選ぶと空欄になってしまいます。
とりあえずやけっぱちで
Ｃ欄の更新後処理とフォーカス取得時は再クエリ
サブフォーム自体のレコード移動時にＣ欄の再クエリ
を設定しています。

サブフォーム故に何か原因があるのかと思い、カキコしました。

考えられる原因があればよろしくおねがいします。

入力フォームを開くボタンを作成中です。

違うファイルのフォームを開きたいのですが、フォーム名の指定の時に表示されません。
そこで、ハイパーリンクアドレスでファイルを指定すると、指定ファイル内のフォーム選択・
作成画面は開くのですが、直接フォームを開けることが出来ません。

どのようにすればよいのでしょうか。

初めてアクセスを触るので全くわからなくて落ち着きません。（1時間ほど格闘して駄目でした）

どなたか教えてください。

申し訳ありません。アクセスは2000で、ウィンドウズはMEです。

まず・・・なぜ違うファイルでなければならないのか？
ひとつのファイルで、メニュー用のフォームと入力用のフォームを
持っている形の方が、開発作業としては数段楽なのだが。
わざわざ難しいことをやる必要はないと思います。

>521
画面遷移的にも、コントロールの使い方的にも、
ﾕｰｻﾞにとって非常に分かりづらい作りではないか？

Aを選択
↓
Aの担当者の「選択肢」をCから取得し表示
このとき「すべて」を「選択肢」に含める
↓
選択された担当者に所属するBの「選択肢」を表示
「すべて」が選択されたら全担当者分のBの「選択肢」を表示
↓
選択された必要情報の内容を表示

「選択肢」はコンボもしくはリストボックスで

こんな感じでいかがか

前略
access97 です。excel2000です。
どうしてもsylkファイルをワンクリックでテーブルにインポートしたいのですが、
ＶＢＡの記述を教えていただけませんか。
officeのバージョンがちぐはぐなのと初心者なのとでうまくいきません。

524さん、レスありがとうございます。

実は一つのメニュー用フォームから複数の入力用フォーム（複数ファイル）
を開く必要があるのです。

フォームを開けるには難しい作業が必要となるのでしょうか？
よろしければ教えてください。

>527
>>522の、
＞違うファイルのフォームを開きたいのですが、フォーム名の指定の時に表示されません。
という意味が分からないのですが、これはＶＢＡをコーディングするとき、docmd.OpenObject acformの
ときに選択肢として別ファイルのフォーム名が一覧で出てこないという意味でしょうか？
フォーム名の指定の時に表示されないという意味を説明してください。

http://millionshop.55street.net/index.html

超基本的な質問で失礼します。

クエリ結果を一行ずつループで参照して処理するという、JAVAや
PHPで一般的なやり方はAccess VBAでは不可能なんでしょうか？

たとえば特定のテーブルの中である条件を満たすレコードに連番を
振りたいようなとき、いちいち抽出クエリで新しいテーブルに入れて
オートナンバーを使うことになるんでしょうか。

あるいは専用のフォームを作って、順番に対象レコードへ移動し、連番を
振っていくような形にもできると思いますが。

まあこういうやり方でも問題ないのですが、クエリ結果を直接（配列等として）
いじれないとすると非常に隔靴掻痒な感じです。

>530
データセットを扱うミドルウェアを使えば、ACCESSのテーブルやクエリを
自由に扱うことが出来ます。ADOやDAOというキーワードで検索してみて
下さい。

ヽ(;´д｀)ノ

何度も出てそうな質問なのですが､
えらい昔の>>53さんみたいな質問です。

テーブルに書かれてる任意のワードをみて、
違う言葉に置き換えるようなことをしたいのですが､
Accessでどうやればいいのでしょうか?

[担当]　　　　　　　[結果]

相○太郎　　　　　 A
相○　　　　　　 A
竹○まるお　　　　　B
まるお竹○　　　　　B

うまく説明できないですが､上みたいに、
相○が入っていたらAを、竹○があったら、Bを入れるみたいにしたいのです。

　説明下手ですが､よろしくお願いします。

>533
IIF関数とワイルドカード文字(*)及びLIKE演算子を使えばできます。

ポイントとしては
IIF関数の基本的な構文は　 IIF( 条件 , TRUE , FALSE )　ですが
条件が複数あるときは　IIF( 条件 ,TRUE ,IIF( 条件 ,TRUE ,FALSE ))　
のようにネストできます　頑張ってください

>>525サマ　
レスありがとうございます。

Ａ群とＣ群の関係ですが、図解でいうと
　　　Ａ群
　　／
　Ｂ群−Ｃ群
こんな感じになっています。
もしＡ群からＣ群を指定しようとしても、Ａ群にとってはＢ群を指定しないことには
Ｃ群が見れない状態になっています。
（元々Ｂ群・Ｃ群のＤＢを作成しているところに、後でＡ群が加わったので
　こんな構成になっています。）

ちなみにＡ群は２０件、Ｂ群は１０項目、Ｃ群は４００人程度になっていますので
Ａ群からＣ群を選ぶとなると４００人の対象から選ぶことになってしまいます。
やや詳しく書くとこんな感じです↓

　Ａ物件に�@さん、�Aさん、�Bさんが担当についていて
　�@さんは資産管理と経理
　�Aさんが組合管理と経理
　�Bさんが庶務と資産管理、施設管理
　が業務として可能。しかし一人１担当しか担えない。
　Ａ物件では庶務と組合管理と施設管理が必要。
　また、別物件では必要とされる担当種別・担当数が変化する。

ちょっとわかりにくかったらｽﾏｿ

物件・人材管理を総括して行っている人にとって
ヒューマンエラーが少なくなる方法で行いたいという要望で
こんなややこしい組み合わせになってしまってます（涙

----------　ここから　----------
【.　 目　的　 】 タスクバーの[スタート]から[プログラム]→[MicrosoftAccess]と進と
「新しいデータベースの作成」「既存のファイルを開く」を選ぶwindowが開き、
「既存のファイルを開く」のオプションボタンの下に「既存のファイル」のリストが表示されますが、
その表示を消したい。
【.　 条　件　 】 使用OS：WIN NT4.0 、ACCESSのバージョン： Office97）
■試したけどうまくいかなかった処理
【.　概 　要　 】 （まったくわからない）
【駄目な理由】 （ 関連する操作が不明 ）
■これだけはやりました
【>>1を読んだ】 はい
【Googleで調べた】 はい
【検索キーワードは？】 （関連するファイル、初期表示、）
----------　ここまで　----------

>>536
レジストリの中を、
「既存のファイル」のリストをキーワードに検索してみましょう。

有り難うございました。レジストリの中を見るのが初めてで恐いです。
Regedit.exeを起動してレジストリファイルをお教え頂いた「既存のファイル」
で検索してみましたがACCESS関連が６件ほど見つかりましたが、恐いもので
それ以上手出しをできなくていました。やはりレジストリ関係の操作は私のような素人には
道の領域です。
なんか他に方法が無いですかね？LOTUSアプローチにはそのような画面自体を非表示に出来たので
簡単に考えていましたが素人には難しいのでしょうか？

素人のインチキSEです。
この度MDBをMSDEに切り替えようかなと思っています。
そこで識者の方々にお聞きしたいのですが、
MDBでリンクテーブルを使うのとADPとではどちらが望ましいのでしょうか？

個人的にはMDBの方がローカルのMDBとリンクテーブル張ったり
TXTファイルのインポート、エクスポートが簡単なのでいいかな〜と思ってます・・・

最近のSEってどういう定義なのか気になる

俺の甥っ子も今年４月外国語学部新卒の駆け出しで、
俺が「どんなことやってるの？」って聞いたら、「SEです」って
胸張って答えるので、今はどんなことやるとSEと言えるのだろうと思た

俺、汎用機、UNIX、Windows併せて23年目自称SEなのだが・・

>>539
俺ならADPを使う
同じこと（連結フォーム作成とか）やるんでもMDBより作業が少なくて済む
MSDEの管理ツールとしても使うし
確かにテキスト変換の定義を保存できないのはかったるいが

Sokohakatonaku Engineer

【.　 目　的　 】 異なるＤＢのテーブルを一つのＳＱＬで参照したい
【.　 条　件　 】 w2k + ACCESS2000

わからんのです。おねがいします。

>>543
テーブルのレイアウトが同じなら、片っぽからリンク張って
ユニオンクエリすればいいのでは？

>>543
Select * From Itteyoshi In 'C:\2ch\Giko.mdb'
Union All
Select * From Omaemona In 'C:\2ch\Mona.mdb';

Text1を名前、Text3をフリガナ（自動入力）みたいな感じで、
Text1の方に全角５文字の文字数制限かけたいんですが、
フリガナ支援が邪魔してるっぽくてエラーでる。。。

全角で５文字入れる→１文字消す→３文字くらい入れる→エラー

フリガナ支援外せば、問題なく動くんですが。


Private Sub Text1_Change()
Dim MaxByte As Integer
Dim S As String
MaxByte = 10
S = Text1.Text
If LenB(StrConv(S, vbFromUnicode)) > MaxByte Then
Text1.Text = StrConv(LeftB(StrConv(S, vbFromUnicode), MaxByte), vbUnicode)
End If
Me!Text2 = LenB(StrConv(Text1.Text, vbFromUnicode))
End Sub


一応mdbはココおいときます。Access2000形式です。
ttp://cham.dyndns.org/list/source/up4107.zip


まぁ最終的にはフリガナの方も、２文字で文字数制限かけたいんですが。
おねがいしますー

ACCESS初心者ですがよろしくお願いします。
ACCESS上でEXCELのように簡単に足し算は出来ないのでしょうか？
金額のフィールドを複数選んで合計を出したいだけなんですが・・・

>>547
選択クエリのフィールドを
合計:[field1]+[field2]
のようにすれば合計数字を表示することは可能

ただし、数字の入っているデータフィールドに対してNULL許可している場合は
合計:Nz([field1],0)+Nz([field2],0)
のようにしないとうまく計算されないことがある

ゴクゴクありふれた、図鑑をつくっています。

で、げんざい1000種類のキノコの図鑑が完成しつつありますが、
１個１個めくるのはあほくさい話しです。

そこで、IDを指定してそのレコードの内容に飛ぶようにしたいので
すが、どうしたらいいですか？

ACCESSってIserrorみたいに、ErrorのときにTrueを返すような関数ありますか？

>>550
あるよ。クエリーで試してみれ。

Windows2000、ACCESS2000です。
アルバイトの始業時間と終業時間を入力すると、
勤務時間がn時間か求められるクエリを作っています。
DateDiffで求めた勤務時間から休憩時間を引くところで躓いています。
アルバイトの休憩は「午前中に30分、12時から13時まで60分、午後3時に30分」です。
始業と終業の間に正午をまたぐ場合-60分するという式は正常に動作しました。
この要領で下記の式を入力したのですが「式が不正である」とエラーが出ます。

勤務時間: IIf(Hour([始業時間]) < 12,
IIf(Hour([終業時間]) > 12,
IIf(Hour([終業時間]) > 15,
DateDiff("h",[始業時間],[終業時間])-2,
DateDiff("m",[始業時間],[終業時間])-90
),
DateDiff("m",[始業時間],[終業時間])-30),
IIf(Hour([始業時間]) > 12,
IIf(Hour([終業時間]) > 15,
DateDiff("m",[始業時間],[終業時間])-30,
DateDiff("h",[始業時間],[終業時間])
)
IIf(Hour([終業時間]) < 12,
DateDiff("h",[始業時間],[終業時間]),
DateDiff("m",[始業時間],[終業時間])-30)))

ACCESSを触って4日目なので、どこが間違っているか見つけられません。
ご教授お願いします。

試したんですけどだめだったんですよ

[A]+[B]っていう式が、#Errorになるとして、

Iserror([A]+[B]）ってやると、#Errorって返ってくる（ｗ

>>552
午前中の30分休憩は何時から何時？
この要件が曖昧だから式も曖昧になるんだよ。
式が不正云々以前の問題。

それとDatediffなんか使わず、素直に
[終業時間]-[始業時間]-休憩時間
って計算した方が簡単だと思う。
休憩時間の部分だけIIf関数で分岐させてみ。

>>552
分岐が正確じゃないと思うけど、こんな感じ。

勤務時間: [終業時間]-[始業時間]-IIf(Hour([始業時間])<12 And Hour([終業時間])>15,CDate("2:00:00"),
IIf(Hour([始業時間])<12 And Hour([終業時間])>12,CDate("1:30:00"),
IIf(Hour([始業時間])>12 And Hour([終業時間])>15,CDate("0:30:00"),0)))

もっとスッキリ出来る人よろ。

フォームのテキスト入力でタブやEnterで
次に進んだときに文字の全選択にならずに
文字の最後にカーソルを持ってくるようにするには
どうすればいいのですか？

>>554
>午前中の30分休憩は何時から何時？
一般的な土木現場なので、おそらく10時から30分だと思います。
まだ現場側に確認を取っていなかったので、
とりあえず「午前から始業の場合はデフォで-30分」と計算させていました。

>>555
こういう書き方も出来るんだと感動しました。
今は会社が休みのため検証できる環境が無いので、
休み明けに早速試してみます。ありがとうございます。

ところで、VBAに触るのも、RDBに触るのも初めてなので、
何か参考書のようなモノを買いそろえようと思っているのですが、
お薦めの書籍は有りますでしょうか？
今のところは技術評論社の「ACCESS関数ポケットリファレンス」を
買おうかと思っているのですが。

>>552
ACCESS触って４日目でそこまで出来るなら、後３日で出来るよ。

画像データベースに関する質問です

【.　 目　的　 】 フォーム画面でビットマップ以外(jpeg.gif)の画像を表示させたい
【.　 条　件　 】 OS：Me　Ver：2000
■試したけどうまくいかなかった処理
【.　概 　要　 】　1.テーブルデザインでOLEオブジェクトを指定
　　　　　　　　　 2.デーブルビューで「オブジェクトの挿入」よりファイルを参照させる。
　　　　　　　　　　3.「パッケージ」と表示される。
　　　　　　　　　　4.フォーム画面ではアイコンで表示される→失敗
　　　　　　　　　　
＊手順2.で参照するファイルがビットマップ形式だと
手順3.の表示が「ビットマップイメージ」となり、フォーム画面でもきちんと表示される。

【駄目な理由】
アクセスがビットマップ以外の画像をサポートしていないと思われる。
…そんなはずないよなぁ。
表示させたいファイルは高々10〜20Kb。　

なお、>>380と全く同様の質問だと思いますが、>>380は見事にスルーされています。
解決、または解決のヒントをお願いします。

質問です。accessの書籍等の使用例に殆ど顧客情報みたい
なんですけど、受注商品の管理（在庫を参照して発注、納期決め）
とかを自動化することは可能ですか？

>>549
レコードセレクタ

わかりそうなので質問取り消します。すいませんでした。

>>560
それはAccess云々の前の問題だろ。
その受注・出庫・発注という業務をどう工夫して効率をあげるか、
どこをコンピュータで自動化するのか、本当にRDBでやるのが
最適なのか、Accessの他の選択肢は切っていいのか、
全部検討していって、ﾊｲじゃあこの部分はこういう仕様にしようと
考えてるけどAccessでやろうとしたらここでつまずきましたって
段階でこのスレ来た方がいい。

>>560
それはAccess云々の前の問題だろ。
その受注・出庫・発注という業務をどう工夫して効率をあげるか、
どこをコンピュータで自動化するのか、本当にRDBでやるのが
最適なのか、Accessの他の選択肢は切っていいのか、
全部検討していって、ﾊｲじゃあこの部分はこういう仕様にしようと
考えてるけどAccessでやろうとしたらここでつまずきましたって
段階でこのスレ来た方がいい。
可能ですかなんて要件も規模も分からずに有益な回答得られる
わけない。

>>559
これあげるから、がんばって♪
http://tool-ya.ddo.jp/2ch/trash-box/file/20040502195134184.zip

二重スマソ

(´・ω・`)

>>557
午前から始業の場合にデフォで-30分なら>>555は
正しく計算されないから気を付けて。
勤務時間: [終業時間]-[始業時間]-IIf(Hour([始業時間])<10 And Hour([終業時間])>15,CDate("2:00:00"),
IIf(Hour([始業時間])<10 And Hour([終業時間])>12,CDate("1:30:00"),
IIf(Hour([始業時間])<10 And Hour([終業時間])<12,Cdate("0:30:00"),
IIf(Hour([始業時間])>12 And Hour([終業時間])>15,CDate("0:30:00"),0))))
これで逝けるかな？

それと参考書は、経験上まず１冊じゃ済まないから、最初からSQL・VBA・関数とそれぞれ用の
書籍を揃えるつもりで。
１冊で内容を欲張ってもロクな事がない。

【目的】クエリを使った計算データをテキストに差し込み印刷する。
【条件】マシンは自作、ＸＰ＋Access 2002(SP3パックをインストール済)
【概要】約８千件の文献データをもとに、クエリで簡単な四則演算（料金計算）をした
　　ＶＢＡの自作関数の結果をテキストファイルに差し込んだ文章を作る。
　　最終形はテキストベースのhtmlで、ヒナ型のテキストにデータを組み込んで役所に
　　オンラインで提出するため、画像や表などの不必要なタグはダメ。
　　　目的は業務の手抜きなので、一度エクスポートしたのを再度読み込んでテーブル化
　　して差し込みをするなどの、手のかかることはしたくない。
【駄目な理由】 （動作状況など）
　　　ＶＢＡ関数なしのクエリではワードのテキストファイルに容易に組み込めるが、
　　ＶＢＡファイルを組み込んだとたん、ワードが差し込み部分のクエリを認識せず、
　　ＶＢＡの計算結果だけでなく、クエリの表全体が認識されない。ＶＢＡ関数を除くと、
　　また元通りにクエリが見えるので、自作ＶＢＡ関数が障害になっていることは間違いない。
　　　（関数は、同一レコード内のデータの四則計算で、特に難しい処理をしていない）
　　　　　また、代替手段なども教えていただけるとありがたい。
【>>1を読んだ】
　　読んだんですけど、Accessを本気でさわりはじめて５日目なので、どこから手をつけて
　　良いのかもわかりません。できましたら、膨大なログのどの当たりを見ればよいか、
　　おしえていただけるとありがたい。

>>552
IFネストが深いので、現状のコードでは、あとのメンテで苦労します。
これだけの内容の濃い式を１個の式にまとめることに無理があるかと
思われます。

IF文の中の式をいくつかの変数にしたり、関数化して、複数の短い式に
するとよいでしょう。また、各変数にいろいろな数値を代入してEXCELで
検算することも、バグ退治の良い方法かと思います。

>>569
四則演算程度との事なので、
Functionを使用しないようにする

Xyzzy + 2ch-mode から書き込みテスト。

>>568の式で上手く動作しました。ありがとうございました。

書籍は、とりあえず2冊買ってきました。
　技術評論社 「Access2000 場面別108のこうしたい！」　谷尻かおり
　秀和システム　「Access VBA辞典」　E-Trainfer
です。どちらも作業中に困ったときに開いてますが、なかなかいいと思います。

田舎住まいなので、ちょっと踏み込んだ内容の書籍を買うとなると、
100km先の本屋まで行かなきゃならないので大変です。

>>571
そうっすね。それだけのことっすね。

将来、料金改定などがあると、if文使って複雑な分岐をしなきゃいけないけど、
そのころには、もうちょいマシになってますかね？

数字が見えるし、フォームにだったら書きこんでくれるので、それをテキストファイルに
書いてくれればいいんだけど.....うーん、納得いかない。

>>572
Amazonで注文すれば何百キロ先からでも届けてくれます。
内容が吟味出来ないのが辛いけど。

因みに、俺が初心者の頃にお世話になった書籍が
技術評論社　「AccessVBA基本例題300」　システムサイエンス研究所
もう売ってないみたいだけど。

ACCESSのアイコンって何で紫色のおたまじゃくしなの？

>>575
かぎですが・・・

左ストレートです

よろしくお願いします。いまだAccess97使ってます。
【目的】データから和暦表示したい
例3500930→意味は、先頭3or4は3=昭和、4=平成
　　　　　　　　　 50は年、09は月、30は日
【条件】Access97、OS=98,Me,XP
■試したけどうまくいかなかった処理
【概要】モジュールで以下のように作ってあります。

改行が多いと怒られました…

【駄目な理由】98でいつのまにかランタイムエラー（ﾌﾟﾛｼﾞｪｸﾄまたはﾗｲﾌﾞﾗﾘが見つかりません）
　　　　　　　が出て表示できなくなる
　　　　　　　XP、Meはエラーが出たことがないです。
　　　　　　　98でも出るPCと出ないPCがあります。

これを作っていただいた方が海外出張で当分戻りませんのでよろしくお願いします。

以下、モジュールです。

Function Wa_和暦(w_date As String) As String
Dim t_nengou As String
Dim t_yyyy As Variant
Dim t_mm As String
Dim t_dd As String
Dim t_yy As String
Dim t_date As Variant

t_nengou = Left(w_date, 1)　←エラー時にここが反転している
t_yyyy = Null
t_mm = Mid(w_date, 4, 2)
t_dd = Mid(w_date, 6, 2)
t_yy = Mid(w_date, 2, 2)
t_date = Null

Select Case t_nengou
Case 1
t_yyyy = 1867 + t_yy
Case 2
t_yyyy = 1911 + t_yy
Case 3
t_yyyy = 1925 + t_yy
Case 4
t_yyyy = 1988 + t_yy

Case Else
t_yyyy = 1988 + t_yy
End Select
t_date = DateSerial(t_yyyy, t_mm, t_dd)
Wa_和暦 = Format(t_date, "ggge\年m\月d\日")

End Function

r

>>579
予想される問題はいくつかあるかと思われます。

１．コードの型の問題
　"3500930"というコードが元のテーブルで数値型で保存されていて、
　関数で文字列として呼び出されている場合。
　このテのエラーは、予想外のところで時限爆弾エラーとなるので、やっかいです。
　　→　コードがテーブル内で数値型で保存されているか、文字型で保存されているか？

２．left()関数のライブラリの問題
　問題の箇所ですが、mid()関数はちゃんと使えるようなので、
　left()関数の箇所を
　　t_nengou = mid(w_date,0,1)
　としてみてください。

こういう時のテクニックとして、left関数の行の前に
msgbox(t_nengou)
というコードを入れて、変数の値を確認することをおすすめします。

あと、蛇足ですが、>>580のcaseは、
　case "1" 、case"2"....などとする必要もあるかと思われます。

>>578
参照設定がだめなのでは(FAQ)


そもそも、なぜこんな関数が必要なのか考えてみる。
いまどきのデータベースでは、文字列を日付にするような関数は、普通必要ではない。
日付は日付型でもつからだ。
メインのサーバ等があってそれが吐き出すデータを、Accessで処理しているんだろうなと考えられる。

Access2000 or 2002 or 2003どれでもいいので
VSSを使いたいのですが、AccessとVSSの他に何が必要なんでしょうか？

>>578
Dim w_date As String

これを追加で動くんじゃない

みなさん、お返事が遅くなって申し訳ございません。
今朝、さっそく試してみました。

>>582さん
１．コードは文字型になっています。
２．left()関数をmid()関数に変更したところ、変更した箇所に
　　「ﾌﾟﾛｼｰｼﾞｬの呼び出し、または引数が不正です。」
　　とエラーが出てしまいました。
他に何か方法がありますでしょうか・・・

>>583さん
FAQにあるのでしょうか？

このデータベースはもともとPC-DOS用に作られたものをWindows用に改変して使っているのです。
もとのデータをPC-DOSのものと共用していますので、日付型に変更することができないのです。

>>585さん
重複しているとエラーが出てしまいました。

よく分からないけど、参照設定を確認してみなよ。
どう確認したらいいのか分からないんであれば、
これを解決するのはあなたには無理だよ。

>>588さん
ありがとうございます！
参照設定の意味がやっとわかりました・・・
エラーが出るPCの参照設定を確認したところ、たしかに「参照不可」となっているところがありました。
（エラーが出ないPCは問題なし）

違いを調べたところ、インストールされている一太郎のバージョンによるものでした。
一太郎のバージョン違いにどんな影響があるのかわかりませんが、エラーが出ないPCのバージョンに
統一したところ、エラーが出なくなりました。

みなさん、本当にありがとうございましたm(__)m

なんで一太郎のバージョンが関係あると思ったのか
すごく気になる。

>>590さん
「参照不可」になっていたもののパスを確認したところ、JUSTフォルダにつながって
いたからです。
それでエラーが出ているPCを確認したところ、すべて一太郎８でした。エラーの出て
いないPCは一太郎13がインストールしてありました。

正確には一太郎８がインストールしてあるPCも「参照不可」の部分を変更したらエラ
ーが出なくなったのですが、もともと一太郎13にバージョンアップしたかったので、
何も考えずにバージョンアップしたところ、参照設定を確認しなくてもエラーが出な
くなったのです。

ちょっとスレ違いな話になりましたので、これで失礼いたしますm(__)m

>>591
いやすれ違いでもないと思うぞ

【.　 目　的　 】 レポート内で次に出力される座標を取得したい
【.　 条　件　 】 Win2000SerSP4･Access2000SR-1
■試したけどうまくいかなかった処理
【.　概 　要　 】 Me.Topで取得した値を使用した
【駄目な理由】 マシンによって誤差が発生した
　　　　　　　 見た目にも大きな違きく場所で同じような値がでた
■これだけはやりました
【>>1を読んだ】 　はい
【Googleで調べた】はい
【検索キーワードは？】 覚えている範囲ですが『Access･Access2000･レポート･レポート内･座標･座標取得･Me.Top』

以上です。
宜しくお願い致します。

アッチョンブリケ

おそらくそれはやめといた方がいいと俺の経験が言ってる

レスTHXコ……
違う方法を模索してみますYO。

AccessのUserFormについて聞きたいんですけど、
UserFormって使ってますか？

私は存在自体を最近知りました。
このUserFormを有効に使う場面ってどんなところでしょうか？

アクセスを1から勉強中の初心者です。
お助けくださいm(__)m

||郵便番号 || 住所 || 住所フリガナ||
の3つのフィールドで、住所入力支援ウィザードで郵便番号から
住所の自動入力は出来たのですが、その住所を「ふりがな」の
フィールドに自動入力出来ずにいます･･･

単純に住所のフィールドで、ふりがなウィザードで「住所フリガナ」を
設定してやるだけではいけないのでしょうか？

本には簡単に出来そうに書いてあるんですが、
なんか設定間違ってるのかなぁ

>>598
「ふりがな」は、実際にタイプしないと、無理です。

名前カナを自動フリガナ設定にしてたときに、担当者がスペース均等大好きで
セットした名前データにスペース入れまくって下さいました

小　林さんはショウ　ハヤシさんに
金　森さんはキン　モリさんに

途中で気づけよ！とも思ったが、そもそも早く直してほしいこのバグ…

ということで　>>598さん
フリガナは気をつけたほうがいいときもありますよ〜

>>598
住所録を作る過程で郵便番号が必要だというのなら、

ttp://www.post.japanpost.jp/zipcode/download.html

こういうのがいろいろ出回ってるから、自分に合ったものを探してきて
使いやすいようにいじってみてください。

「1から勉強中」ってのが、郵便番号データベースを作ることだとしたら、
出来合いのものに頼らず、気合い入れてがんばってくださいｗ

レコードに書き込んだその時の日時を表示させるには
どう設定したらいいのでしょうか？
Now()でやると次レコードの日時欄にその時の日時が
出てしまうので・・・。ＡＣＣＥＳＳ初心者ですが
よろしくお願いします。ＯＳはＸＰ、ＡＣＣＥＳＳは９７です。

>>598
住所側のテキストボックスのプロパティ「ふりがな」に
ふりがなを表示するテキストボックス名を入れる。

>>602
テーブルのフィールドに日付型を加えます。
日付型の既定値に　now() を入れます。（初期値）

新規レコードを作ると、既定値が表示されるのでそのまま入力する。

印刷時に日付は先の日付型のフィールドを使うと作成日が印刷される。

>>602
Microsoft Access
http://pc5.2ch.net/test/read.cgi/db/1056952414/862

の人だよね？
日付をテーブルに持たせたら、後はDLOOKUP関数で
日付引っ張りだすといいよ

Winxp　　ac2000です。アクセス初めて10日です。過去ログ辿りながら丸3日がかりで
表形式フォーム内のコンボボックスの連動に成功しました。が、しかし！コンボボックスって
リスト以外のものも書き込み出来るんですね。かなりショックです、リスト以外を入力しないように
と思って3日もがんばったのに。解決策があれば疲労困ぱいの私に教えて下しい．..お願いします。.

連動に成功しているんですよね。
文章の内容から何を質問しているのかが分からないのですが。

>>606 リスト外の入力を不可にするプロパティなかったか？

入力チェック

質問の仕方が最悪でしたすみません、パニクってました。

コンボAには大分類として肉、野菜、果物．．．
コンボBには小分類としてコンボAが肉だったら豚、牛、鳥...
コンボBが野菜だったらレタス、ピーマン、ほうれん草...、というようには出来ました。

困っているのは例えばレコード1に
コンボA…肉
コンボB…豚　　　と入ったとします。

しかしレコード1のコンボAは野菜だったってことでコンボAを野菜に変更しても
コンボB豚は変わりませんよね。(あたりまえですけど)

質問はコンボAの変更時(リストから選んだ時点)でコンボBのリストをドロップダウン
できないものかということです。自動でドロップダウウンすれば変更漏れもなくなる
のではないかなぁ〜と。(エンターキーで進んだ時は自動ドロップダウンの設定にはなってます)
アクセスにチャレンジしたての為、質問も上手く伝えられなくて申し訳ありません。

Accessの前に日本語…

comboAの変更時に、comboBの再表示、またはcomboBにフォーカスセット
でいいんぢゃないか？感。
どのコントロールで、なんのイベント中に、ナニやってるかまでわかんねーから
回答も適当になりがちだがｗ

>>610
普通、コンボA_Click　イベントを使ってコンボBの再設定しますよ。
もちろん、大分類と小分類はマスター化してある前提です。

| しかしレコード1のコンボAは野菜だったってことでコンボAを野菜に変更しても
| コンボB豚は変わりませんよね。(あたりまえですけど)

ちっとも当たり前じゃありませんよ。
そうなってるのは設計ミスか手抜き。

在庫一覧みたいなDBを参照して納期順の配送一覧に対して
在庫が足りるかどうか判断させて在庫対応表を作る事はできますか？

　　【在庫対応表】　　　　　　　　　【在庫一覧】
名　前　納期　数　在庫　　　　　 名前　 在庫数
商品Ａ　5/20　２　　有　　　　　　商品Ａ　　６
商品Ｂ　5/22　１　　有　　　　　　商品Ｂ　　５
商品Ａ　5/22　３　　有
商品Ａ　5/25　２　　無
商品Ｂ　5/28　３　　有

日を追って配送していくごとに在庫が減って在庫が足りなくなった
ら在庫無しと表示する感じです。でもあくまでも配送予定表なので
実際には在庫DBは配送するまでは数字は変わりません。
商品ＡやＢごとに集計とかはわかるのですが、集計の抽出条件を
それぞれの納期を当てはめるというかなんというか、あ゛〜っ！わ
からん！という状態です。お願いします。

>>613
出来ますけど、システム設計がかなり難しいです。
キャンセル処理はどうするか？
更新タイミングはどうするか？
分納処理は必要か？
ダブルビン処理は必要か？

>>614
ありがとうございます。難しいですか。
配送一覧に対する在庫の有無を表にするだけで、分納やダブルビン、
キャンセルは考慮する必要がありません。
これは製作側が納期や在庫の持ち具合を見て生産スケジュールを
立てたいというものです。出荷による在庫の減や生産による増は考
慮しなくていいです。

単純計算でよければ、

在庫対応表と在庫一覧の日付が同じとする。
この日付を開始日付とする。
納期の一番大きい日付をmax日付とする
在庫数から出荷数を差し引いたものを在庫残数とする

説明の為に、製品別で書きます。

製品名でフィルターする。
開始日付から（開始日付+1）までの出荷数集計と在庫残数をｗ１ファイルに追加書き出し
（開始日付+1）がmax日付になるまで繰り返す。
ｗ１を日付順にソートする
印刷時に在庫残数から在庫有無に変換する。プラス数値が在庫有

在庫対応表のデーター量にもよりますが
処理がとても重くなります。処理時間大。
効率化の為に、日付計算で不要な日付は計算させない、
期間を限定するとか、製品を限定にするとかを考えることも必要
製品別日付別在庫数一覧表のような表を中間的に作ることになります。

ACCESS2000，Windows2000です。
VBAで作成した独自の関数に、フォームで入力した値を取得して、
引数として渡したいのですが、
同時に連結レコード名とそのフィールド名も一発で渡したいのですが、
そのような方法はあるのでしょうか？

[社員名簿テーブル]<-テーブル
[社員名]　　[住所]<-フィールド
[もなー]　　[東京]<-フォームに入力した値

という場合、フォームから引数に[Me!社員名][Me!住所]を渡すと、
同時に[社員名][住所][社員名簿テーブル]も取得できるような形にしたいのです。
よろしくお願いします。

店名　　　月の予定　　　　火の予定　　　　水の予定　　木の予定…
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

A店　　　　　　　　　　　　棚整理　　　　　　　床掃除
B店　　　トイレ掃除　　　　床掃除　　　　　　　　　　　　　窓拭き
C店　　　ワックス　　　　　窓拭き　　　　　　　床掃除
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−


このテーブルから



翌日の予定（翌日が火曜日として）

A店　　棚整理
B店　　床掃除
C店　　窓拭き　

とするにはどうすればいいのでしょうか？
内部カレンダー（って言うのか？）から日付を取得して曜日に変換して
その対応する曜日の列を表示したいのです

翌日の曜日を取得するなら
WeekdayName(weekday(Date+1))
だが、なにやらテーブルの設計が
よろしくない予感がするのは漏れだけか。

ああ・その翌日の曜日の取得も知りたかったのですが

問題は
その曜日のときに『対応する列の内容』を表示する
なんです
選択クエリでするにもどうしたものかと…

掃除の予定が店舗ごとで一定で、
明日の各店舗ごとの掃除予定を呼び出したい、ということかな？

youbi = WeekdayName(WeekDay(Date+1)

SELECT youbi FROM [掃除予定] WHERE 店名 =　'A店';

掃除予定の各曜日のフィールド名は月曜日、火曜日、など
WeekdayName関数が返す値と一致していること。

たぶんこんなかんじ。

ソレだとA店だけの翌日予定になるのでは？
40店舗全部の翌日の予定の一覧を作るとしたら
その式を40店分作るということですか？

ACCESS2000，Windows98です。
レポートについてなのですが、
宛名ソフトによくあるように、短い文でも長い文でも、ある一定の範囲に収まるように
フォントサイズを自動で変えられるようにすることはできるのでしょうか。

>>623 VBA使える？

>>624
本を見ながら写す程度です。。

>>623
印刷時のイベントで、フォントサイズのプロパティを変更する記述すれば
大丈夫だったはずだが・・・

結局出来なかったので
『店名』と『月の予定』のクエリ、『店名』と『火の予定』のクエリ…
と7つのクエリを作って
ソレを呼び出すボタンを7つ『月』『火』『水』…
と配置して、翌日の曜日ボタンを押したら一覧で出るようにしました。
できればもう少しスマートに『翌日の予定』ボタンで出るようにしたかったのです
まだ諦め切れませんので、よい方法があればご教授ください

"売上テーブル"に、日付・金額・数量　の３つの項目があります。

月初めから、本日2004/05/24までの金額と数量を合計を帳票に出したい
場合(2004/05/01 〜 2004/05/24)はどうしたらいいんでしょうか？
その帳票には、本日の合計と、今月の合計を出力します。


今夜中にこれができないと、上司から怒られます。泣きたいです。

>628
１．まず、クエリーを作りなさい
　　クエリーをどの程度操作できるか知らないけど、
　　select sum(金額),sum(数量) from 売上テーブル
　　where 日付 between "2004/5/1" and "2004/5/24"
　
　　で実行して、期待通りの結果が出てくるかどうか
　　検証しなさい

２．次に１．で作ったクエリーを基に、レポートを
　　作りなさい。これはウィザードにしたがってれば
　　勝手に出来るから流れに身を委ねなさい

３．わけのわからない仕事を引き受けないで、
　　出来ないなら出来ないと言いなさい

>>628
クエリ？

かぶっちゃった
ごめんなさい

>>616
ありがとうございます。
「(開始日付+1)がmax日付になるまで繰り返す」の部分がわかりません。
これはVBAやマクロで実現するものですか？クエリ内で生成できるもの
ですか？
製品別日付別在庫数一覧表を中間的に作成するということは、製品が
100あれば100の一覧表を作成するわけですよね。
もしかして非現実的だったのかなぁ。

>629さん　ありがとう。

ちょっと私の言い方が悪かったけど、
例えば　2004/12/24日 に 2004年の12月のデータ合計が欲しい場合
2004/12/1〜2004/12/24時点のデータ合計を出力したい。
between構文での日付範囲は、その現在時間によって違うってことです。

629さんの　where 日付 between "2004/5/1" and "2004/5/24"
では、６月、１１月の時もあるから、その都度
クエリの日付範囲を 6/1〜,７月〜に変えなければならないってことになったいます。

　　↑　　↑　　↑　　　↑　　　↑
＞クエリの日付範囲を 6/1〜,７月〜に変えなければならないってことになったいます。

訂正・・・
クエリの日付範囲を 6/1〜現在時刻 , 7/1〜現在時刻　に変えなければならないことになります。

windowsXP + access2000 です。

フォームにラベルコントロールを設置し
マウスがそのラベルの上にあるときだけカーソルをあの
白い指に変えたいんですけどどうやったらいいでしょうか？

Screen.MousePointerだとなんかできなくて．．．

今月の最初の日〜今日

>>633
つーか、月ごとの集計と本日の集計を同時に表示させたいんでしょ？
そんなに単純なモンじゃないよ。
VBAでDSum関数使って集計した方が早い。
それと、集計期間を変化させたいならテキストボックスなり何なりで
集計期間を指定させて、その値を変数に代入して集計するのが良いと思う。

クロス集計の結果をEXCELにエクスポートしてsum
ってのは？

表現が少しおかしかったな。
月ごとの集計と本日の集計じゃ無くて、月集計と日集計。

それぞれの集計値を格納する変数を用意して代入してやれば
フォーム上ででもレポート上ででも楽に作業できるでそ。

>>613
ああ、間違ってたので、修正します。

製品名でフィルターする。
開始日付から（開始日付+n）までの出荷数集計と在庫残数をｗ１ファイルに追加書き出し
（開始日付+n）のnが0からmax日付になるまで繰り返す。
ｗ１を日付順にソートする
印刷時に在庫残数から在庫有無に変換する。プラス数値が在庫有

（繰り返しはマクロかＶＢＡになると思います）

全製品として行うときでも
ｗ１ファイルは１個で良いです。
データに製品名の項目を追加して同じ処理を行えば良い
結果的には在庫対応表と同じ数のデーター数が格納されます。

製品別日付別在庫数一覧表のような表を中間的に作ることになります。
これは全製品のときのイメージです。
エクセルのような表で縦軸に製品名、横軸に日付を
そして升目の中に出荷数と在庫残数が入るような感じです。
これを横方向に順番に計算してゆきます。
実際に計算するのは在庫対応表のデータ数だけですから、
もっと効率が良いように改良してください。

実際に在庫対応表と在庫一覧のデータ数はどれくらいなんでしょう？

>693さんありがとう

条件に合致すVBAで集計値を格納する、変数を用意します。
それをレポート上でどうすれば、反映できるんですか？

現在のシステムでは、日付指定のフォーム上のテキストボックスで
2004/05/25　と入力しその値を、Docmd openreport　の引数として一緒に
レポート表示させてます。

結局私のせいでこの宿題はできなかったので、今日は上司に怒られます。
簡単だと思って引き受けた私が馬鹿でした。

>>628
かんたんに実現出来ます。やり方を知っていればの話ですが
SQL文４個くらいと印刷フォーム、ワークファイルを２個くらいかな

>>641
取り急ぎ....

期間集計用クエリ(クエリA)
PARAMETERS [開始日] DateTime;
SELECT Sum(売上テーブル.金額) AS 期間金額の合計, Date() AS リンク用日付
FROM 売上テーブル
WHERE (((売上テーブル.日付) Between [開始日] And Date()))
GROUP BY Date();

本日集計用クエリ(クエリB)
SELECT 売上テーブル.日付, Sum(売上テーブル.金額) AS 本日合計
FROM 売上テーブル
GROUP BY 売上テーブル.日付
HAVING (((売上テーブル.日付)=Date()));

帳票クエリ
SELECT クエリA.期間金額の合計, クエリB.本日合計
FROM クエリA INNER JOIN クエリB ON クエリA.リンク用日付 = クエリB.日付;

>>640
ありがとうございます。
参考になりました。もう少し頭ひねって煮詰めてみます。

ACCESS VBAで、perlの配列操作のpush,popのような関数はありますか？