ACCESS2000総合相談所

スレ乱立するのもあれだからACCESSの質問・回答はここでまとめてやりましょう。

・質問する人は可能な限り具体的に書くこと。回答がなくてもキれないこと
・分かる人はできるだけ回答して下さいませ

で、自分の質問ですが、

まず、テーブルＸがあります。これは

伝票ＩＤ,商品,数量,発送先,発送日
001,商品Ａ,5,東京,8/8
001,商品Ｂ,1,東京,8/8
002,商品Ａ,3,大阪,8/10

と、上記のような構成になっています。

次に、レポートＡとそれに埋め込んだサブレポートＢがあります。

レポートＡはテーブルＸからクエリで作成したテーブルＹ（IDでグループ化。
よって伝票ＩＤは１つにまとめられる。フィールド構成は伝票ＩＤ,発送先,発送日）
をレコードソースとします。


サブレポートＢに、同じくテーブルＸから作成したテーブルＺ（フィールド構成は伝票ＩＤ,商品,
数量）を指定するのですが、こうするとどうしてもテーブルＸから全てを抽出してしまうのです。
Where条件にどういうのを指定してやれば、サブレポートＢにレポートＡの伝票ＩＤと同じ
伝票ＩＤのレコードを抽出できるのでしょうか。

宜しくお願いします。

ちょっと訂正

サブレポートＢのレコードソースは

SELECT Ｚ.伝票ＩＤ, Ｚ.製品, Ｚ.数量 FROM Ｚ WHERE Ｚ.伝票ＩＤ=レポートＡの伝票ＩＤ

でした。最後の「レポートＡの伝票ＩＤ」の式をどうすればいいか教えて下さい。

よく見てないが
サブレポートの
LinkChildFieldsとLinkMasterFieldsに伝票ＩＤ
をいれれば？

Reports![レポートＡ]![伝票ＩＤ]でいけました。
こんな簡単だったのか…

４さんもありがとうございます。

ACCESSのsqlなんですけど

フィールドＡＡ
A001
A002
｜
A009
A010
B001
B002
｜
Z009
Z010

というデータがありまして、この中から「X???を除いたデータを選択」
するクエリはどういう式になりますでしょう？

select * from テーブル where ＡＡ <>（left("ＡＡ",1)="X"）

とか、ＡＡ <> (like "X*")　とか試してみたんですが、全てのレコードが
選択されてしまいます。like "X*"　だとちゃんとX???だけ表示されるのに…
left("ＡＡ",1)="X"　ではXで始まるレコードだけ選択しないので、根本的に
間違ってるんでしょうか？

あーなんか根本的に間違ってるのは自分の頭だったみたいです。
where ＡＡ = left([ＡＡ],1)<>"X")　でいけました…

大変困っているので、
分かる方、教えて下さい。

Windows95でAccess2000のRanntaimuをインストールしようとしたら、
下記のエラーメッセージが表示され、インストール出来ませんでした。

Insttallation of System Software Installer SHIP
Command line option syntax error. Type Command/? for Help.

なお、同一のセットアップをWindows98にインストールしても上記のエラーは
出ませんでした。

原因は何でしょうか？
どうすれば、Windows95にインストール出来るのでしょうか？

教えて下さい。お願いします。

テーブルＡ
ID,フィールドＸ
1,100

というテーブルがあります。この100をテーブルＢのフィールドＹへ放り込みたい
時はどうすればよいのでしょうか？

VBAで

変数I= "select Ａ.Ｘ from Ｘ where ＩＤ='1'"

update Ｂ set Ｙ = SQL実行関数(変数I)

とやっても0が入るだけなんです。

宜しくお願いします。

「from A」
じゃないのか?

レコード数によって条件分岐する方法について教えてください。

フォームに入力した条件に合致するレコードを表示したクエリが開くというものを作っています。
そのときに、抽出されたレコードがたとえば５０件を超えたら、条件を絞り込まないとクエリが開かないようにしたいのですが、どんな方法がありますか？
得意先データなので、あまりたくさん表示できないようにしたいのです。

よろしくお願いします。

>10
そうです。書き間違いで、コードではＡになってます。

>11
クエリが開かないように、ってのはできないんじゃないですかね。
サブフォームにテンポラリテーブル読み込ませるようにして
tenmテーブルをDcountでレコード数えて50overならサブフォーム
を開かないようにする、という風にしか思いつかないです。

dim Asql as string
dim I as integer
Global Const subf =サブフォーム'レコードソース はtempテーブル
I=0
Asql ="select * into temp from Ｘ;"
runsql (Asql)　'テンポラリテーブル作成
I=Dcount("得意先ＩＤ","temp")　'テーブルのレコードを数える

'レコード数の評価
if I > 50 then msgbox("条件を絞り込んで下さい")

　else
'サブフォームを親フォームへ挿入
　　　[Forms]![親フォーム]![埋め込み1] =　subf
end　if

自分も初心者なんで間違った文法、抜けまくりな処理があると
思いますけど、大体感じは掴めていただけるんじゃないでしょうか

Access97使っているんだけど、あの悪名高い(漢数字の"〇"(ゼロ)が無視されるとか)
日本語ソートはAccess2000では直っていますか?

テキストボックスのプロパティで「ハイパーリンクあり」にして
テキストボックスの内容はhttp://〜としているのにダブルクリック
してもそのurlに飛んでくれないのですが（何も起こらない）
どうすればそのページへ飛んでくれるようになるのでしょうか。

VC++6.0でCDaoRecordsetを基本クラスとしてクラスを派生させ、
access2000で作成した.mdbファイルにアクセスすると、
「認識できないファイル形式」というメッセージが返り、
読めません。
access97で作成したファイルであれば正常に処理されます。
どうしたら良いでしょう？

マクロの「アプリケーションの実行」のコマンドラインの引数に変数を渡したいのですが
どうすればよろしいでしょうか。
*.exe [forms]![object].[text]　とかやるとそのまんまで実行されてしまうんです。

業種　　　企業名カナ
総合　　　アタリ
総合　　　コナミ
プレス　　ナムコ
プレス　　ニンテンドウ
電気　　　エスエヌケイ
電気　　　アイアイ

業種のフィールドを任意の順にソートして、かつ会社名で
ソートをしたいのですが、上手な方法はないのでしょうか？
会社名のソートは出来たのですが。

DAOはそのうちなくなって、ADOに移行していきます。
ACCESS2000にはADOを使うとうまくいきます。ADOを使う場合にはOLE DB
を使います。
しかし、ADOはACCESS97には使えません。

>15
MSJ 日本語版No.66と
http://support.microsoft.com/support/kb/articles/Q236/9/91.asp
に解決方法がのってますよ。

>19
アクセスできました。
助かりました。ありがとうございます。

モジュールで、ある文字を置換しようとして入力したら
入力が確定した瞬間に違う文字に変わってしまいました。

たとえば、「見積」と入力すると「倹」と言う漢字になってしまいます。

OSはWindows2000でAccess2000とAccess97が入っています。
この現象はAccess97でも起こります。

OSから再インストールしてみましたが直りませんでした。
いろいろ調べてみたら、漢字一文字では起きないようです。
複数の文字（漢字以外も含めて）を入力すると変になってしまいます。

何が悪いのでしょうか？

>17
選択クエリを作ってグループ化するといいです。
SQLだと
SELECT 業種, 企業名カナ FROM テーブルA GROUP BY 業種, 企業名カナ
ORDER BY 業種 ASC ,企業名カナ ASC;
かな。

>21
９７に関しては仕様です（マジ）
エディタで書いてコピペするしかないです

>23

同じ様にソフトをインストールしている
他のマシンでは正しく入力できます。

Access2000をインストールしていないマシンでmdbを動かしたいのですが、
エクセルのビューワーのような感じでランタイムのようなものはあるのでしょうか。
MSのサイトを回って見ましたが見あたりませんでした。

１ページ目
A 1
B 2
C 3
合計　6
--------
２ページ目
D 4
E 5
F 6
合計 15
--------
２ページ目の合計が全体の合計21になってしまうのですが合計を15にする方法
はありますか？

ちょっと不細工だがこれでもできる
http://www.microsoft.com/JAPAN/support/kb/articles/J026/7/93.htm

27さんありがとう。2000ですが、97でも同じ方法で動きました。

ちょっと説明しにくいのですが｡
リストボックスにデータが表示しきれない場合､
縦スクロールバーが表示されますよね(もちろん有効にした場合)｡
このときスクロールバーを動かすと､マウスを放した時点ではじめて画面がアップデートされます｡
スクロールバーを一番下に持っていき､データを全て表示しきると､スクロールバーを動かしている最中も
画面は更新されます｡
この動作を､リストボックスがフォームに表示された時点で行うことはできないのでしょうか｡

最初のページに表示されなくなったのでage

ACSESS2000で特定の文字列（ローマ数字等）を含むデータを、インポートすると
文字化けしてしまいます。
何か回避方法はありますか？
（９７では大丈夫です）

>>29
フォームを開いた瞬間に、リストの最大の値を
入れて、すぐにNullを入れてやるのはどうでしょうか？

>32
ナイスなアイディアですね。
件のファイルは会社なので、月曜日早速やってみます

できた｡
さんきゅう

>32 だ

VBScript使ってAccess開くとき、

WScript.CreateObject("ここに何て書けばいいの？")

はじめまして　KIといいます。よろしくお願いします。
いきなり質問で申し訳ないのですが
アクセス+MSDEで
携帯電話販売ＤＢのようなものを作っているんですがその中で

商品ＤＢ

キャリア　機種　色

卸ＤＢ

キャリア　機種　色　仕入れルート　仕入れ値　卸値１、卸値2・・

仕入先ＤＢ

仕入先名　機種　色　卸値

と３っつあるのですがこの中で　卸ＤＢの中で入力するときに商品ＤＢを参考にして
キャリアを選べば機種が絞られ機種を選べば色が絞られるようにして、同じように
仕入先名を選べば　仕入先DBを参考にして入力された機種に準じて仕入れ値が自動で
出るようにしたいのです。

このようなことを行いたい場合はどのような機能を使うのでしょうか？できれば商品ID
や仕入先IDを打つ込んで出るのではない方法がいいのですが。・・
SQLでクエリーを書くべきなのかリレーションで解決すべきなのかＶＢなのかなやんでいます。
もしかしたら　すごく頓珍漢な質問かもしれませんがよろしくお願いします。

リレーション。

ODBCでのアクセス２０００のファイルの開き方を教えていただけないでしょうか？
できれば、MFCをつかったやり方と使わないやり方で両方あるとありがたいです。
DAO（MFC）ではわかったのですが、ODBCではさっぱり。
ちなみに、環境はスタンドアローンで直接アクセスのファイルを指定したいです。
ご教授願います。

>>37
ACCESS2000の仕様はよくわからないのですが、
基本的な売上管理システムと同じじゃないでしょうか。
テーブル構成でいうとこんな感じかな。
（仕入先ＤＢの卸値は仕入れ値の間違い？）

商品ＤＢ　：商品コード(key)、キャリア、機種、色
仕入先ＤＢ：仕入先コード(key)、仕入先名、住所、ＴＥＬ
仕入値ＤＢ：仕入値コード(key)、仕入先コード、商品コード、仕入値
卸値ＤＢ :登録ID、仕入値コード、卸値１、卸値2・・

これらをリレーションでつないで、クエリーで必要な情報を組み合わせて
見れるようにしたら良いと思います。

ただ、仕入れ値に値動きがあって、なおかつ履歴（実績）に残す
必要がある場合には、マクロやプロシージャを使う必要が出てくる
と思います。

あ、「できれば商品IDや仕入先IDを打ち込んで
出るのではない方法」って書いてる．．．．。
コンボボックスは？
それから、もし段階選択をさせるのであれば検索専用フォームに
検索キーを埋めるテキストボックスとリストボックス作って
テキストボックスの更新ごとにプロシージャでリストボックスの
値集合ソースを書きかえる仕組みにして、選択したら元のフォームに
引き渡して閉じる形にします。

>21
同じ症状でMSインテリマウスのソフト、インテリポイント削除したら直った。
インテリポイントはいってませんか？

多対多リレーションシップを2重に使いたいのですが、可能でしょうか？
項目A,Bで多対多リレーションシップを作り、更にその項目BとＣで多対多リレー
ションシップを作りたいのです。
具体的には、項目A,B,Cがあって、それぞれ{A1,A2,A3,....},{B1,B2,B3,.....}
{C1,C2,C3,.....}とデータがあります。
で組み合わせとして、
{A1,B1,C1}
{A1,B1,C2}
{A1,B2,C1}
{A2,B3,C2}
{A2,B2,C3}

といった具合にリレーションを設定したいのです。

今のところ、テーブルA,B,Cとそれぞれの中間テーブルA-B,B-Cを作って
リレーションを設定するところまでは出来たのですが、データインプットの際、
データが重複するため、更新できないとのエラーが出ます。
テーブルA,Bだけの多対多リレーションシップは正常に処理されるのですが・・・。

この方法自体に、問題があるのでしょうか？
ご教示いただければ幸いです。

何か質問ばっかりだな｡

>>42
入ってます。今度試してみます。
ちょうど今再インストールしているところです。

>>42
試してみました。

入れる前は正しく入力できました。
入れると正しく入力できませんでした。
アンインストールしたら正しく入力できませんでした。

インテリポイント逝ってよし！

c:\1.bmp
c:\2.bmp
c:\3.bmp
とテーブル１に入力してレポートでbmpファイル一覧を表示したい
マクロの式の代入でアイテムは
[Reports]![レポート1]![イメージ0].[Picture]
式は
[Reports]![レポート1]![イメージ0].[Picture]=[テーブル1]![フィールド1]
アクションの実行エラーになりました。
レポートでbmpファイル一覧はできないですか？

Access2.0から2000にしたら妙に不安定です。
他の人もそうですか？

レポートで全ページ数でなくて、グループレベルのページ数を表示する方法は
ないでしょうか。何ページの何枚目とかいれたいんですが。

>>48
OSは？

>>49
http://www.microsoft.com/JAPAN/support/kb/articles/J026/6/94.htm?LN=JA&SD=SO&FR=0

ナナ氏さん、ありがとう。

アクセスのレポートで1111がフィールドに入っていた場合、
壱千壱百壱拾壱と表示する場合どうすればよいのでしょうか？

48ではないのですが
Access2.0からAccess2000に変換しようと思い
データベースユーティリティーの変換を使いmdbファイルを変換したところ
「このデータベースを変換、または有効にする際にコンパイルエラーが発生しました」
というエラーが表示されコンパイルされない状態で表示され
そこから自分でコンパイルし直せって指示があるんですけど指示に従ったところ
「モジュールではなく、変数またはプロシージャを指定してください」
というコンパイルエラーが表示されます。
これはAccessBasicで作られたためだと上司に言われたのですが
構築し直す以外に何か良い手立てはないでしょうか？

５３＞
２．０→９５→９７→２０００とバージョンアップしつつコンバートする
と良いのでは？　しかし確証がないのでそーゆーやり方もあるっていう
理解に留めておいてくれよ！
責任とれないから．．．　スマン

Access2000でOSはWindows98、ハブ１個で6台（全部同環境）をつないでNT（4.0)サーバーに
接続、という感じなんですけど、サーバーに入ってるmdbファイルが開けないんです。2台だけ・・・。
（どっちもe-oneというのも関係してるんだろうか(汗)）「ディスクまたはネットワークのエラーです。」
となってしまって・・1台はOSごと再インストールしてみたんですけど、効果なし、、
その2台はoffice関連だけ（word、excelは開くことはできる）保存もできません。（「ディスクがいっぱいです。」）
巧く説明出来なくて申し訳ないのですが、どなたかわかる方教えてください。

あ、開けない、保存できないのはサーバーにだけで、
自分のとこにコピーしてくると開いたり保存できたりします。。

もしかして、ネットワーク板で聞いた方がいいのかな・・・

自力で関数作成しかないです。

自力で作成してみます。

質問です。
エクセルだと縦も横もSUMでNULLを除いた合計が出ますが、アクセスは横(同レコード)
の合計、平均、順位等はどうすればよいのでしょうか？
どなたか、宜しくおねがいいたします。

ここでは教えてもらえないんでしょうか？

クエリ使ってくださいませ。

>59
select フィールド1 + フィールド2
from TAB
where PrimaryKey = 'KEY';

>55
質問です。
複数のAccessから１つのｍｄｂファイルを利用するって、
どうゆう神経してるんですか。
まあよくあるパターンなんだけど、私には理解できないよ。
msdeでも拾ってくればいいじゃない。

>>55
よくわからんが、ディレクトリのアクセス権、共有フォルダのアクセス権
アクセスで設定するアクセス権、全部適切に設定してる？

>select フィールド1 + フィールド2
nullがあってもOKですか？
avg([],[])でいいんですか？

>65
select TAB2.A TAB2.A / 2 ,TAB3.A
from
(
select (decord or nvl (フィールド1,NULL,1) + decord or nvl (フィールド2,NULL,1) ) as A, PrimaryKey as B
from TAB
) as TAB2,
(
select COL_NUM as A, PrimaryKey as B
from TAB
) as TAB3
where TAB2.B = TAB3.B

Access形式に変換してくれ。

間違い
select TAB2.A TAB2.A / 2 ,TAB3.A
from
(
select (decord or nvl (フィールド1,NULL,1) + decord or nvl (フィールド2,NULL,1) ) as A, PrimaryKey as B
from TAB
) as TAB2,
(
select COL_NUM as A, PrimaryKey as B
from TAB
order by 順位Key
) as TAB3
where TAB2.B = TAB3.B

エクセルとアクセスでは、どちらの方が使いやすいですか？？
顧客管理とかをしたいんですけど。
あと、インターフェイス（？）が初心者でもわかりやすく、
カスタマイズしやすいのはどちらですか？

今から購入・勉強しようと思ってるのですが。

私的にはアクセスの方が使いやすいように見えますが。
どちらでしょうか？？
教えて下さい。よろしくお願いします。

あ　1個
あ　2個
あ　3個
あ　4個
あ　5個
い　1個
い　2個
い　3個
う　1個
う　2個

テーブルからレポートをあ、い、う　に分割して印刷したいのですが
グループでは1行になってしまいます。

-------
あ　1個
あ　2個
あ　3個
あ　4個
あ　5個
-------
い　1個
い　2個
い　3個
-------
う　1個
う　2個
-------

と別々の紙に印刷するにはどうすればよいですか？

>>68
エクセルとアクセスにはどの程度習熟されてますか？
（個人的にアクセスは使いこなすのが難しいと思いますが。）
データ数にもよりますが、基本的な操作なら使い慣れているものを用いた方が良いのでは。
最初にエクセルで作っておいてアクセスに移すという手もありますね。

そうならないようにするのが「テーブルの正規化」＞５９
５９のような問題が起きるのもＡＣＣＥＳＳとＥＸＣＥＬを似た者同士
として混同してるせい。全然別物と考えよう。＞６８
グループフッタに改ページコントロールいれたらできひん？＞６７

-------
あ　1個
-------
あ　2個
-------
あ　3個
-------
あ　4個
-------
あ　5個
-------

改ページ入れたら1行1枚になりました。

＞質問です。さん
どういうテーブルになっているのかわかりません。
まずテーブルの構造を先に示して下さい。

フィールド1　フィールド2
あ　　　　 　1個
.
.
となっています。
オブジェクトの新規作成でテーブルを新規に作成しました。

うむ。各フィールドはどういう意味を持っているのかなぁ。
データベースの目的がわからないしこれではなんとも言えない。。。

テーブルをどうやって作りました？どのフィールドが主キー担っているのですか？
このスレで解決するのは時間がかかりそうだし、それ系のサイトをめぐって見られてはいかがでしょ。
へててぺ://www.acc.gr.jp/kb/index.shtml
へててぺ://www.people.or.jp/~Niki/

ここでやるなら他の方の参考にならなければいけないんだろうし。どうなんでしょ？＜ＡＬＬ

はじめましてZipともうすます。
質問です。
例えばＸというテーブルに下記データがあります。
主キーの設定は無し、会社名＋支店はインデックス（重複あり）の設定をしています
　　会社　　 支店　最終売上日
　　　Ａ　　　01　　20001009
　　　Ｂ　　　01　　20000605
データをインポートし下記のような結果になった場合に（別サーバーからテキスト抽出したものをインポート）
　　会社　　支店　　最終売上日
　　　Ａ　　　01　　20001009
　　　Ａ　　　01　　20001110　←インポートされたデータ
　　　Ｂ　　　01　　20000605　　　
インポートした際にＡ　01　20001009のデータを削除又は売上日のみ更新をしたいのですが
どうしたらよろしいのでしょうか。

◎76の付けたし
　よろしくお願いします。

遅レス＆既に解決済みかもしれんが。。。
1.レポートのデザインで、フィールド１のグループフッターを設ける。
2.グループフッターのプロパティを開く。
3.書式タグ->改ページ項目を「カレント セクションの後」に設定する。
4.「詳細」以外(ヘッダー&フッター)の余白を詰める。
5.保存

これで、目的のレポートを出力できる。

4.を省略すると１枚目とそれ以降のページの印字位置が
異なったり、最後に白紙が余計に出てくるので。。。

>78
解決していませんでしたが78の方法で解決しました。
ありがとうございました。

エクセルのシートのデータの一部を簡単に（コピペ並に）Accessのテーブル
に移す方法って無いですか？CSVのエクスポート・インポートを繰り返すの
に疲れました。

レポートのラベルで均等割付を使って文字が全部重なって
しまうことってありませんか？特にプリンタを変えたとき。
いったん均等割付を解除してやり直しても直りません。

良い対策はないでしょうか。

access2000を一度インストールしたのだが、理由があり
access97に戻したいのですが、なんか 2000 uninstall->97
インストールでは正しくインストールしてくれないようです。
（起動してくれない）

誰か解決策を教えてくれませんか？
（９７と２０００の同居方法でもいいですが）

MSDE を利用しています。フォームを使わずに、データシートビューである程度の入力・更新が出来るようにしたいと考えています。（特に更新の場合は、一覧を見ながら更新出来ると便利ですので。）

商品テーブルと販売テーブルがあり、販売テーブルにレコードを追加する際には商品テーブルから選択して追加します。（例です。）

MDB ファイルの場合は、データシートビューに相当する画面でリストボックスを用いて、商品テーブルから選択するように出来ます。MSDE でこれに相当する方法が分かりません。

MDB ではテーブルのデザインビューのルックアップのタブで、リストボックス等の設定が出来て上のようなことが実現出来るのですが、MSDE では同様の設定はないのでしょうか？

よろしくお願いします。

>82
それ私もやってしまいました。2000を入れると97のＪＥＴを消してしまうようで、97はＪＥＴが無いと動かないんじゃ
ないかと思います。オフィス2000を全部アンインストしても直りません。ウィンドウズのDBシステム自体を書き換えて
しまっていますから。
アクセス97を残して2000を入れることでしか両方を起動できるようにしておく方法はないと思いますが・・・。
もっと詳しい方のレス求む。

>80
できます。文字では説明しにくいし、どういう形式のデータを
インポートさせているかわからないし、
元のExcel側の表がどんな風になっているかもわからないので
本屋で立ち読みor購入して勉強して下さい。
ところでなんで、わざわざcsvにしてからインポートするの？
Excel形式のままでもインポートできるのに。

>82・84
順番としては、97がインストールされている環境に
別フォルダに後から2000を入れなければいけません。
その順番が逆ではダメです。
[OFF2000] 同一 OS に複数のバージョンの Office をインストールした時の注意点
J055139
http://www.microsoft.com/JAPAN/support/kb/articles/J055/1/39.htm

既に逆にインストールしてしまった場合の解決策については
そこのページには載っていません。
個人ユーザのサイトも検索してみましたが、見つかりませんでした。
やはりOSから入れなおすしかないと思いますが・・・

すいません。１点どうしてもわからないことがあったので
教えてください。

Access2000で、レポート"A"を作成します。
その際、レポートを横向きに設定します。
そのデータベースでフォーム"B"を作ったとします。

その条件で、フォーム"B"のVbプロジェクトでエラーが
発生するとなぜか"A"のレポート設定がデフォルト状態
（この場合だと縦向き）にもどってしまいます。

どなたか、原因と解決方法が分かる方いませんか？
よろしくお願いします。

仕様です。
修正パッチが出ているので当てときましょ。２，３ヶ月前の雑誌の付録ＣＤなどにも入ってますよ。

>82
ACC2000アンインストール後インストールフォルダが残るので、こいつもフォルダごと削除してください。
その後、ACC97を再セットアップしてみては？？

>83
フォームを使うしかありません。
フォームのコンボでルックアップし、フォーム自体はデータシート形式で設定します。

83 を書き込んだものです。ご解答ありがとうございます > 88

仕方がないので、アクセス・データベースで、「ファイル」>「外部データの取り込み」>「テーブルのリンク」の機能を使いました。

テーブルを作るのはアクセス・プロジェクトで、使うのはアクセス・データベースなので、使うものが 2 つに分かれて面倒ですが、仕方ないですね。

>85
えーと、私ができたらいいなと思っているのは、すでにあるテーブルに、
データをあるフィールドのデータをExcelから貼り付けるということです。

例えば、

ID | F01 | F02 | F03 | F04 |
1 | 456 | 234 | 652 | |
2 | 764 | 749 | 345 | |
: | : | : | : | |

というテーブルのF04フィールドのデータをExcelから貼り付けるとか、
F02フィールドの100〜199レコードまでのデータをExcelからコピーして
くるとか。Excelのデータを範囲指定してCtrlのドラッグで持ってくると
レコードが追加されてしまいますよね。何かうまい手あるんでしょうか。

うわ、ずれてる。すみません。

>90
こんな風な考え方は？

Access テーブル
Ttest (ID, f01, f02)
IDは主キー(プライマリキー) インクリメンタルな数値型
その他のフィールドf01,f02のデータ型は適宜(テキスト、数値etc.)

Excel ワークシート Book1
Sheet1 A,B,C
セルA,B,Cは、各々テーブルTtestのID,f01,f02に対応

上記ExcelワークシートをAccessのリンクテーブルにする
リンクテーブル
Sheet1 F1,F2,F3
F1〜F3はワークシートのセルA,B,Cのリンクテーブル上での表記

追加、更新用のクエリーを作成する
クエリー作成するうえでの条件として、セルAの値を用いて
テーブルTtestに追加、更新する範囲を指定する

追加クエリー
insert into Ttest (ID, f01, f02)
select Sheet1.F1, Sheet1.F2, Sheet1.F3 from Sheet1
where Sheet1.F1 between [p1] and [p2];

更新クエリー
＊ここではテーブルTtestのf01フィールドを対象とする
update Sheet1 inner join Ttest on Sheet1.F1 = Ttest.ID
set Ttest.f01 = Sheet1.F2
where Ttest.ID between [p1] and [p2];

ってな感じでVBA使わんでもクエリーでお茶を濁せそうだが。。。

制約として、Excel側のセルA(テーブルTtestのIDに対応)には
最低、なにかしらの値を用意しなきゃならんこと。
と、同時にユニークな値にしなきゃならんね。

ま、これは答えじゃなくて、考え方のひとつってことで。

んと、これが元ネタね。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

1 名前： ピーター 投稿日： 2000/11/26(日) 17:06

ども。アクセス2000で、レポート作成時の日付を英語で入れたいのですが
、うまくいきません。「＝Now()」で日本語風の日付を入れられることは知ってます。
が、英語風（september,20,2000見たいな・・・）の表記ができないっぽいの
ですが、ご存知の方はぜひお願いします。

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

nowで得た値を format関数で整形すれば、望みのモノ得られます。はい。

format(now(), "mmm d yyyy") -> Nov 27 2000
format(now(), "mmmm d yyyy") -> November 27 2000

「書式」とかいった類のキーワードでヘルプファイルを検索
すれば、ひっかかりそうな気がするんですが。。。

って言うか、format関数のサンプルがそのものズバリ。

当方、Access97にて確認。 2kで同じかどうかは別の話。

Access 97 の話なんですが、Access のデータで HTML 作ってる人います？
その場合、どのような手順をとってます？

僕の場合、エクスポートで吐き出されるのがただのテーブルなのが気に入らないので、

クエリで出力用データ選択
→テンプレートでとりあえずHTMLテーブルに落とす（スタティックHTML）
→sedを使ってテーブルタグをタブ区切りレコードに変換、他の不要なタグを消す
→得られたタブ区切りファイルからHTMLを生成

という遠回りをやってます。
グループを dt、個別データを dd にするとか細かい書式制御をやりたいからなんですが。
2000ならもっと融通きくんですかね。

HTMLでなくCSVで出力しないのは、
・ハイパーリンクで登録してるデータがありこれをそのまま使いたい
・マクロで極力自動化しているが、CSVに吐き出すための設定がわからない
ためです。

>94
IIS(or PWS)+ASP+VBSで加工する。。。ってなると
Accessそのものの範疇でなくなるか。

Accessの環境で閉じるんだったら、VBAでhtmlフォーマットに
整形しつつ、write # でファイルに書き出してしまうな。
自分だったらね。

Access97なんですけど、
ODEでランタイム版のデータベースを作って、そのフォルダの中にある
Msaccess.exeで他のmdbを開くのってどうなんでしょうか？
最初に開くと「System.mdwを見つけることができませんでした」とい
うメッセージが出て、でも２回目以降は問題なかったのでそのまま運用
してたらmdbが壊れまくって。
System.mdwってセキュリティ関係のファイルではないんですかね？
あ、ちなみに>>63の忌み嫌う使い方してます（俺だって嫌だよ、、、）

>>95
コメントありがとうございます。
なるほど、VBA・・・そこまでやれますか。ちょっと勉強してみます。

>94
writeで書き出してます。ＣＧＩやＳＳＩは良く知らないのですが、恐らく同じような形でやってるような気がします。
ただ、問題は同一ファイル名で書き出した場合に既に存在しているファイルが後から書き出されるファイルより
サイズが大きいときに前のファイルのゴミが残ってしまいます。
それで前のファイルを消去してから書き出すようにはしています・・・。

初めて書き込みます。よろしくお願いします。
現在、ACCESS2000でを使って報告書のデータを保存するテーブルを作成
しているのですが、保存できるレコード数の制限はどれくらいなのでしょうか？
オートナンバー型のカラム（報告書のIDとして用いる）を設けているのですが、
このカラムのデータ型（フィールドサイズ？）によって制限されると考えていいのでしょうか？

>99
ごめん。write だと書き出した内容がcsv形式(?)になってしまうので
整形フォーマットで生のまま、書き出すんだったら print を使った方
がいいです。

あと、テーブルからハイパーリンク型のフィールドを読み出すと
データの内容が www.hoge.co.jp#http://www.hoge.co.jp# の
形式になっているんで、分離する必要があります。

AccessからHTMLファイルを吐き出すゴミなサンプル
テーブル Turl (id, url, memo)
[id,数値型][url,ハイパーリンク型][memo,テキスト]
url項目には「www.hogehoge.xx.jp」の形式でデータを格納

フォームのボタンを押すとC:\にtest.htmlを書き出すVBAコード
Dim db As Database
Dim rs As Recordset
Dim Sql_rd As String
Dim Header, Footer, LineFeed, Out_Str As String
Dim sep_val, cp_len As Integer

Set db = CurrentDb

LineFeed = Chr$(13) + Chr$(10)
Header = "<html>" + LineFeed + "<body>" + LineFeed
Footer = "</body>" + LineFeed + "</html>" + LineFeed

Open "c:\test.html" For Output As #1
Print #1, Header

Sql_rd = "select * from Turl;"
Set rs = db.OpenRecordset(Sql_rd)
Do Until rs.EOF
sep_val = InStr(rs![url], "#")
cp_len = Len(rs![url]) - (sep_val + 1)
Out_Str = "<a href = " + Chr$(34)
Out_Str = Out_Str & Mid(rs![url], sep_val + 1, cp_len) + Chr$(34) + ">"
Out_Str = Out_Str & Left(rs![url], sep_val - 1) + "</a><br>" + LineFeed
Print #1, Out_Str
rs.MoveNext
Loop
rs.Close

Print #1, Footer
Close #1

これで、アンカーを含む最低限のhtmlファイルを吐き出せる
ので、あとは必要に応じて膨らませていくだけ。。。

>97

>ODEでランタイム版のデータベースを作って、そのフォルダの中にある
>Msaccess.exeで他のmdbを開くのってどうなんでしょうか？
それは問題ないのでは？

system.mdwのエラーは、開こうとしているmdbファイルが置かれている
ディレクトリ(フォルダ)にsystem.mdwファイルを置いてみては？
自分は、こうして逃げてますけど。

batファイルで
c:\program files\app\msaccess.exe d:\db\xxx.mdb /runtime /compact
なんてのを動かす際に、「mdwが見つからない」ってエラーが出たので
d:\dbにsystem.mdwをc:\program files\appからコピーして、更に
batファイルのプロパティ->作業フォルダの項目にd:\dbを指定したら
おさまりました。

続き。

system.mdwは、それに登録されているユーザと、そのユーザ毎に
設定されたオブジェクト(フォーム、レポート、テーブル etc.)の
使用権限を管理しているだけでしょ。
個別にユーザ登録したり、権限を設定していない場合は、そのmdw
ファイルが対象とするmdbファイルの作成者のデフォルトが適用
されるんじゃないですかね？

んで、mdbファイルが開かれている時のアクセス制御(排他制御?)は
mdwファイルではなくて、ldbファイルの方で見ていると。。。

mdbファイルの破損とmdwファイルの存在有無が、直接に結びつく
ようには感じられないんですな。

で、ここらへんに目を通してます？
「Microsoft Jetデータベースエンジン プログラマ−ズガイド」
セカンドエディション Jet3.5対応 アスキー出版局 \8,500-

これにも、ODE添付のAccess97開発者向けマニュアルにも、
mdbファイルを共有環境下で使用する場合は、mdbをプログラム用と
データ用に分けるように推奨しているんですが、その様にしても
駄目なんですかね。

>100
当方、Access97ですがヘルプで「Accessの定義」をキーワードに
検索かけるとデータベース、テーブルの仕様が確認できたんですが、
2000には、そのような項目ありませんか？

レコード数に関しては無制限のような気がしますが。。。
mdbの総容量=< 1Gbyteの範囲内ならば、いくらでもってとこですか。

ちなみにオートナンバー型はLongで換算すると約42憶。

103殿、いろいろありがとうございます。

怒らないで聞いてください
破損は全く別の原因でした。ユーザーがランタイム環境で修復/最適化をするバッチファイルを実行していたからでした。
まだしばらく様子を見てみないとなんともいえないのですが。
ごめんなさい。

mdwファイルについてありがとうございました。
とりあえず、必ずショートカットから起動させるようにして、
ローカルのmdwがあるフォルダをショートカットの作業フォルダに指定しました。

＞mdbをプログラム用と データ用に分けるように推奨しているんですが、
これもやったんです最初に
でも、検索とかのパフォーマンスが悪かったので仕方なくファイル共有にしています。
私が作ったものではないので必要以上にいじると作り直しということになってしまう。
バグ取りだけこそこそとやっています。

＞「Microsoft Jetデータベースエンジン プログラマ−ズガイド」
今度探してみます。
どうもありがとうございました。

>>106
補足っす。
ACESS2000はmdbの最大サイズは2GBです。
もっともUNICODE対応した関係で倍になっただけで、格納できるデータ量はかわりませんが。

書式が決まっているExcelシートに、Accessのデータを
流し込むことができずに苦労しています。

たとえば、元々存在するC:\hoge\hoge.xlsの中の
hoge1というワークシートの特定のセルに、
クエリーの値を埋め込む、というのは可能なのでしょうか？
アドバイスをお願いします！

>>94でHTML出力について質問した者です。
>>99 >>101 >>102 でもコメントいただいて本当にありがとうございました。
102 のコードを参考にファイル出力できるようになりました。
すっかり VBA コーディングがおもしろくて、どっぷりはまりこんでいます。
凝れば、どんな HTML コンテンツでも Access だけで管理するなんてことが
できそうですね。そこまでやるのだったら、2000 で XML 対応になった
SQL Server を検討した方がいい気もしますけど。

>>109
VBA(OLEオートメーション)使わなきゃ無理ですね。
以下を参考にしとくれ。

http://www.microsoft.com/JAPAN/support/kb/articles/j022/3/52.htm

>>111
どうもありがとうございます。
参考にさせていただきます。

質問です。会社のPC(Office2000 Premium)でAccess2000の関数EDATE,EOMONTHを
使おうとしたらその部分の機能がインストールされていないとのメッセージが出現。
何の疑いも無くOfficeの該当部分（というか残り全部）を追加インストール。
で、Excelはツール→アドイン→分析ツール を追加して問題なく使用できたのですが、
Access2000の方は#Name?エラーが出てしまいます。どうしたら使えるようになりますか？
初歩的な質問で板を汚してしまい、申し訳ありません。宜しくお願いします。

> Access2000の関数EDATE,EOMONTHを使おうとしたら

そんな関数ないと思う。ExcelにあるからといってAccessにもある
というわけではない。

114さんに同意。
つぅか、EDATE,EOMONTHでヘルプひくとワークシート関数って
表示されてません？

>114さん,115さん
ご回答、感謝します！！
なるほど、そもそもAccessでは使えないというわけですか。
ヘルプを見ても何だか的を射ないことばかりで、「何故使えないのか」その理由は
得られず仕舞いでした。（もっとも、コマンドリファレンスなんだから当然と言えば
当然なのでしょうけど）
つまり、ワークシート関数とは文字通りExcel用の関数であり、Accessには適用されない、
と理解して宜しいのですね？

＞116さん
ExcelとAccessの関数は全く別物と考えた方がこの先幸せになるだろうと思う。
DayとかMonthなどのように同一の働きをするものもあるけれど、それはたまた
まそうなんだと考えよう。

EDATE、EMONTHはAccessではDateAddかな。

あげ

VBAのメニューで「ツール」→「参照設定」で、Microsoft Excel 9.0 Object Libraryにチェックすると、
Excel.Application.[なんかの関数] ってぐあいにexcelの一部の関数が使えるようになる。
edate、emonthなんかは、evaluateを活用してもだめみたい。

質問です。お願いします。
今フォームを作っているのですが、コンボボックスで、複数の値から選択する
ようにできますよね。それを、複数の値から複数を選択できるように
したいのです。チェックボックスか何かで。
教本にもヘルプにも載っていませんでしたが、できるのでしょうか？
ファイルメーカーだと、コンボボックスとほぼ同じ作り方で、
値一覧を作って、それぞれの値にチェックボックスをつけてできるんですけど。
で、１つのフィールドに、コンマ区切りか何かで選択したものが全部入ります。
わかりにくくてすいません。

自分は特許庁のweb電子図書館から特許情報を検索する仕事を任されたの
ですが、あまりに膨大な量なのでデータベースで管理したいと思ってます。

そこで、アクセスで特許情報を管理するための、サードパーティ製の
アドオンソフトや、マクロ集、コンポーネント集みたいな物は存在しますか？

実はアクセスをこれから購入する段階なので、自前で構築するには習熟する
時間がありません。もしアクセス用でそのような製品があれば知りたいです。

もし無かった場合は特許情報専用のデータベースソフトを探すしかないです。
（そのような物があるかどうかわからないのですが、、）

もしそれも無かった場合は、、、結局アクセスで自前で構築するしかないと
思うので、あらためてアドバイスいただきたいと思います。。。

＞121
とりあえず、Googleとかで「特許情報 ソフト Windows」ぐらいで
探してみたら。色々でてくるよ。もしお望みのソフトがなくて自前
構築になるにしても、Accessを使うかどうかと云うのは仕様次第で
しょ。まずAccessありきという発想は捨てたほうがよくないかな。

＞１２１
あくまでもWEBから得た情報だけをデータベース化するんだよね？（この部分大事）
---------------------------------------------
【公開番号】特開平１１−２３５２００
【公開日】平成１１年（１９９９）８月３１日
【発明の名称】スクロースをベースとした疎水性生成
---------------------------------------------
こんなんだな
なら１０分くらいで雛形は作れるんじゃないか？
前に似たような仕事したことあるから息抜きに作ってみようか？
まぁAccessが入ってるのが前提だけど会社のどっかにころがってるでしょ
興味があればメールを
カネはいらないよ

>>122
>>123
お返事どうもです。

実は自分が整理すべき特許情報は、見出しだけではなく、
出願者・権利者、要約と請求の範囲、詳細な内容とそれに付随する図まで、
全ての情報をHD上に多数蓄積して、その時々で分野別、業務別、登録日別
などに分類、整列、HD内検索などをするというかなり複雑なものです。

ただそれら全ての情報は、特許庁のページからHTML化された状態で
入手できるので（古い時代のは紙書類をスキャンしたままですが・・）
HTMLファイルのデータベース化とも考えられます。

また、アクセスでできないかと思ったのは、MSオフィスの新しい
バージョンを購入する前なので、どうせならプロ版にして、それに
付いてるアクセスを利用しようと思ったからです。特許情報専用の
データベースを別で購入するなら、スタンダード版にしときます。。

ただ、アクセスにしとけば、後で他のデータベースも構築したい時、
色々情報や文献などが豊富なので、便利かなあと。

一応、特許情報専用のソフトは色々あるようなのでそちらを調べて
みますが、アクセス用で何か良いのがありましたら、教えていただけ
れば幸いです。

ACCESS の MDB ファイルで 20 列 3,000 行程度の商品テーブルを管理しています。常時 3 〜 4 人でデータの入力を行っているのですが、一日に数回壊れてしまうそうで、強制的に修復させられるそうです。入力には ACCESS でテーブルを指定して「開く」をクリックした際の画面をインターフェイスとして用いています。

MSDE の利用も考えましたが、83 で質問させて頂いた点をはじめとし、MDB の方が便利なことが多いため、現在は MDB によりシステムを運用しています。

知り合いの技術者に聞いたところ、ACCESS を複数の人で使うとよく壊れるそうなのですが、そのようなものなのでしょうか？解決策等ありましたらご教示下さい。

＞125
ひとつのMDBファイルを複数人で同時に共有さすなて
どうしても複数のオペレータが同時に編集する必要があるなら
MDBではムリやて

テーブルをそのままいじってるってこと？
それは危なすぎ
せめて、そのテーブルをもとにフォームを作って、
フォームから入力するようにする。
その際、フォームの連結フォームをローカルのmdbのテーブルに指定しておいて、
フォームの登録ボタンを押したタイミングでローカルmdbから共有mdbに書き込みに行くようにする感じ
これも結構問題あるけど、今みたいな状況よりはましかと
すげエ簡単に書いたので、分からなかったらまたレスくれ
と、ここまで書いて83に「フォームを使わずに」って書いてあるな、、、U2山車

>125
そもそもJetエンジン自体がC/S向きではないからどーしようもないですね。
というのは、全部クライアントサイトで処理するから。

例えば3000件のデータから任意のデータを1件抽出させる作業を行った場合、
Jetはサーバー上の3000件の全データをクライアントに取り込み、クライアント側で抽出の処理をさせる。
こんな処理をマルチユーザで行えば、ネットワークのトラフィックはおのずと上がるし、
データ取り込み中にネットワークにトラブル起きたら、それこそ簡単に破損してしまう。

それに比べ、例えばMSDE+ADPにすれば、抽出処理などは全部サーバー側で行うことができる。
ネットワークに流れるのは抽出された1件だけ。
これだけみても、どっちがC/Sに向いているかわかるでしょ。

質問です。
フォーム上にレコードの検索ボックス(？)みたいなのを
設置したいのですが・・・できますか？？よろしくお願いいたします

>129
大抵のことはできるけど、あなたには無理そう。。。
質問が厨房すぎるもの。

そうですよ。この板の人達から見たら僕はまだまだ厨房です。
認めます。検索ボックス、やればできないこともないんですね？？

>>130
口が悪い。もっと言い様があるでしょ

>>129
既にフォーム作ってるなら、デザインモードでコンボボックス
あたり貼り付けて。やってみれば結構簡単。

じゃあ少し親切に逝こうか？

まず>>129の言う検索ボックスって具体的にどんなイメージ？
フォームに検索条件を入力して、その条件を使ってテーブルから
レコードを抽出するなら、
　�@フォームにデザインモードでテキストボックスとボタンを配置
　�Aテキストボックスの内容を抽出条件に、テーブルからレコードを
　　抽出するパラメータクエリーを作成
　�Bフォーム上のボタンの「クリック時」のイベントに�Aのクエリー
　　を実行するマクロかプロシージャを割り当てる

さらに、予め選択肢のリストを用意しておいて、そのリストの中から
検索条件を選択することも出来るよ。
やり方は、上記�@でテキストボックスの代わりにリストボックスか
コンボボックスを配置する。選択肢のリストは、予めテーブルor
クエリーで用意しておいても良いし、プロパティで設定することも
出来る。
簡単なのはリストボックスorコンボボックスのウィザードに従って
設定する方法だけど、アクセスの標準インストールではヘルプや利用
頻度の低いウィザードがインストールされないので、その場合は追加
インストールが必要。

また、検索条件入力用のボックスは、定型入力や入力規則のプロパ
ティを設定して、変な入力が出来ないようにする方が親切。

最後に、お薦めの本を２冊紹介
『ACCESSVBA初級プログラミング』『ACCESSVBA応用プログラミング』
谷尻かおり　技術評論社　各\2,780

がんばってね>>129

おーい、129どこ行った。
煽りには反応するのにマジレスしたらシカト？

初心者の質問ですみません。
例えば、現在のフォームの中で「住所」という名前のフィールドにアクセスする
場合は
　　Me.住所 = "東京都新宿区…"
で行けますよね。
では、
　　Dim field As String
　　field = "住所"
となっていた場合、変数「field」を使ってどのように目的のフィールドに
アクセスすれば良いのでしょうか？

お騒がせしてすみません。
自分で解決してしまいました。
　Me(field) = "東京都新宿区…"
で良かったです。

>>135-136
フィールド名とコントロール名は別にしておいた方がいいよ。
エラー発生時の原因追求が楽になるから。

>>137
アドバイスありがとうございます。

SELECT hoge FROM table WHERE column="あいうえお";

というクエリーで column="アイウエオ"　の時はヒットしないようにしたいのですが
どのようなＳＱＬにすれば良いのでしょうか？

sage

age

ソートする順番を任意に設定できる方法はありませんか？
たとえば、
「経営、情報、システム、工学、福祉、ビジネス」
という６つのデータがあったとしてそれを
「情報、工学、システム、経営、福祉、ビジネス」
というような任意の順番に自動的に並べ変えたいのですがどうしたらいいでしょうか？

>>142
フィールド1　フィールド2
1　　　　　　　情報
2　　　　　　　工学
3　　　　　　　システム
4　　　　　　　経営

5　　　　　　　福祉
6　　　　　　　ビジネス

というテーブルを作って、フィールド2でリレーションして、
フィールド1でソートすればいいのでは？

へんな改行は無視してください。意味ないです。

もうちょい詳しくお願いします。ある程度の意味は分かったのですが、リレーションをしてからどうやってソートするかが分かりません。(リレーションシップの定義後テーブルをソートしても今までどおり何の変化もありません)

>>145
クエリーで、上で新たに作ったテーブルのフィールド1を表示させてます？

Access2000のVBAで、文字列操作の動きがデタラメで
困っています。（Excelは問題ない）

　?Replace("ァィゥェォャュョッ", "ッ", "ツ")
　ァツゥェォャュョツ

　?Replace("ァィゥェォャュョッ", "ィ", "イ")
　ァイゥェォャュョイ

　?iif("ィ"="ッ","同じ","違う")
　同じ

（最後の例はADPの現象でMDBでは問題ない）

ボクのマシンが変なのかな？

選択クエリーでやるんだと思って話してました。
選択クエリーのデザインの画面で、フィールド1の"並び替え"のところを
昇順か降順にしておけば自動的にソートされるので、このときは
フィールド1を表示させなくても良くなります。

難しいこと分からないです。中途半端に話に乗ってすみません。

>>147
Replace()関数の第６引数をHelpで調べてみな。

＞１４９

どれを使っても期待通りにはなりません。

　?Replace("ァィゥェォャュョッ", "ィ", "イ", , vbUseCompareOption)
　ァィゥェォャュョッ
　?Replace("ァィゥェォャュョッ", "ィ", "イ", , vbBinaryCompare)
　ァィゥェォャュョッ
　?Replace("ァィゥェォャュョッ", "ィ", "イ", , vbTextCompare)
　ァイゥェォャュョッ
　?Replace("ァィゥェォャュョッ", "ィ", "イ", , vbDatabaseCompare)
　ァイゥェォャュョイ

　?Replace("ァィゥェォャュョッ", "ッ", "ツ", , vbUseCompareOption)
　ァィゥェォャュョッ
　?Replace("ァィゥェォャュョッ", "ッ", "ツ", , vbBinaryCompare)
　ァィゥェォャュョッ
　?Replace("ァィゥェォャュョッ", "ッ", "ツ", , vbTextCompare)
　ァツゥェォャュョッ
　?Replace("ァィゥェォャュョッ", "ッ", "ツ", , vbDatabaseCompare)
　ァツゥェォャュョツ

＞１４９

すみません。
カンマの数が間違っていました。
お陰様でこの件は解決しました。
有り難うございます。

?Replace("ァィゥェォャュョッ", "ィ", "イ",,, vbTextCompare)
ァイゥェォャュョッ
?Replace("ァィゥェォャュョッ", "ッ", "ツ",,, vbTextCompare)
ァィゥェォャュョツ

すいません、どなたか教えてください。
アクセス97（お客様希望）で簡単なデータベースをつくり、
CD-Rに焼く、までの仕事なんですけど
CDに焼くとプロパティが絶対「読みとり専用」になりますよね。
CDから起動するとそれでエラーになってフリーズしてしまうのです。
ハードディスクにコピーして…と思っていたのですが
それは絶対だめといわれてしまいまして…困りました。
CDのほうはメーカーに聞いたところプロパティはいじれないそうで
アクセスでエラーにならない方法しか残っていません。
なにか打開策ありますか？
助けてください。

>>152
無理。

Accessはmdbを読みに言ってデータ書き換えなくても
検索とかするだけでファイルは更新されている。
CD-R上にあったら何もできないでしょ。

お客の要望をよく聞いてネットワークやら他のリムーバブルメディアでの
代替案を提示すべし。

それが出来なきゃビジネスやる資格無し。

やはりそうですか…
説得できない理由は間に1社はさまっているからなんです。
今の所は自己解凍形式でCDに焼くくらいしか方法思いつかないので
鬱です。

Win98環境でAccess2000を使って顧客情報を登録する簡単なシステムを作成し、
その中で顧客データ入力用のフォームがあります。
フォーム上にコマンドボタンウィザードで、ボタンの動作が次のレコードへ移動
するように設定したボタン等があります。(進む、戻る、新規作成等のボタンあり)

Win98,Win98SEでは問題無く動作しているのですが、WinME上で動作させると
レコード移動等のボタンを２回続けて押すと、Access自体が終了してしまい
ます。(特にメッセージは表示されません)

何か考えられる原因は、ありますでしょうか？

>154
153の言っていることが正論。
ひとつ補足しておくと、プロパティうんぬんの前に、LDBファイルが作成できないんだから、
CD-Rなどの書き込み不能メディアからの起動は、どうあがいても絶対に無理！！

155ですが、どうやらAccess自体の挙動がおかしかったです。

空のMDBファイルを作成して、ウインドウサイズを変更しようとしたり、
フォームをデザインで開こうとしたり、Ctrlキーを２回押したり等など、
するだけでAccessが終了する。

？？？

155ですが、解決しました。

あれから調べてみると、他のOffice製品も挙動が変(FrontPage等も同じ現象発生)
だったので、Office2000 Premiumを再インストールしても駄目。

よくよく見てみると、元々Office2000 Peasonal SR-1がインストールして
あり、その上に更にOffice2000 Premiumをインストールしていた為に
挙動がおかしかった様です。
よって、Peasonal SR-1でインストールされているWordやExcelは全然問題
なくて、PremiumでインストールされたAccess等が挙動が変になっていました。

両方ともアンインストールした上で、Premiumだけインストールすると
正常に戻りました。

どうも、お騒がせしました。

>>152
OracleだかSQL Serverだかで、そんなことができた気がする。
高いけど。

Access2000でDBFファイルをリンクさせたいのですが
INDEXが複数設定してあります。
MDXファイルを設定しても、テーブルを開くと
INDEXがありません。というエラーが発生し、
開くことができません。
またMDXファイル設定後、固有レコード識別
の選択が表示され、フィールド名が表示されるのですが、
１フィールドしか選択できません。
INFファイルの記述の変更とか必要なので
しょうか？

皆さん初めまして。ACCESS2000を勉強中の
学生です。

初心者的質問なので恐縮なのですが…
例えば、PC販売の代理店で、
１、PC購入者のデータ(住所氏名連絡方法備考など)
２、１の購入したPCのスペック(細かく)
３、１の購入した周辺機器の一覧(細かく)
４、分割払いの場合のローンの詳細

顧客1人あたり大きく分けて↑の4つ、細かく分けて
数十項目のデータを扱うとします。
(住所、氏名などの欄、テキストボックスを
数十個作るという意味です。)

そして、この数十個の項目を1人分全て1ページに表示して
印刷したかったのですが、重くて表示すらままなりません。

私の取った方法は、フォームプロパティでデザインから入り
ひたすらテキストボックスを詰め込んでいき、あとからテーブル
プロパティをいじって完成させました。
テーブルは１個だけで、クエリはまだ使用してません。

何が悪いのかが分からないので弱っています。
どなたか、御教授下さいませんか。

yy/mm/ddのままのデータだと2001年をクエリーに抽出するときにおかしくなるので
mm/dd/yyに変換したいのですがやり方がわからないです。
おしえてください。

Format$ を使う。>>162

設計が悪い。
RDBの考え方だったら、少なくとも１，２＋３，４は別々のテーブルにして、
リレーションでつなぐ。>>161
例えば１が複数PCを購入したら２のレコードが複数になって、でも１の
住所が同じだったらその分重複データができて無駄だし重くなる。

>>161
>そして、この数十個の項目を1人分全て1ページに表示して
>印刷したかったのですが、重くて表示すらままなりません。

テーブルを細かく分けたとしても、どっちにしろ一つのフォームに
数十個も入れたら重くなるんじゃあ？

つーか印刷したいんだったらレポート作ろうよ。

>>161
まず、「正規化」について勉強しなさい。

こんにちは。Ａｃｃｅｓｓの勉強を始めた学生です。
ひとつ引っかかっているところがあるので教えてください。
現在選択しているレコードナンバーを引数として得る方法を知りたいのですが、
極力簡単な方法をお願いします。

一覧表示されているデータがあって、そこから単票形式のフォームを表示
させるようにしているのですが、単票フォームにも「レコードの移動」ボタンを
つけて移動できるようにしたいのです。

どなたかお力を貸してください。

私はそういう場合は主キーなどのレコードが一意で識別できるフィー
ルドの値を利用する。もし主キーがないとしたら、テーブル設計がお
かしいと考えた方がよいかもしれない。

ところで、単票フォームのレコード移動ボタンでレコードナンバーを
どのように使うのだろうか。単票フォーム自体にもレコード一覧を用
意するのかな？　だったら上に述べた通り主キーで代用できる。単に
前後へ移動したいなら Docmd.GoToRecord でよいと思う。移動後に
また戻ってきたいという場合は Bookmark というのを使うと聞いた
ことがある（が、私は使ったことがないので説明できない）。

主キーをオートナンバー型にしています。
そのまま利用していれば主キーをレコードＮｏとして利用できますが、
一度でもレコードの削除をするとオートナンバーに欠番ができますよね。
そうすると、主キーをレコード番号とすると狂ってきちゃいます。
主キーを検索してそのレコードに移動してもいいんですが、それだと
処理が重くなってしまう気もしますし、スマートでない気がします。

オートナンバー使うからいかんのですかね（＾＾；
どんどん新規に追加していくようなテーブルの場合、どうやって
ＩＤ決めますか？オートナンバー以外でいい方法があれば教えてください（＾＾；

>主キーを検索してそのレコードに移動してもいいんですが、それだと
>処理が重くなってしまう気もしますし、スマートでない気がします。

一覧からの移動の場合はこれが普通じゃないのかな。特に重くはな
いと思う。検索って言っても、リストボックスやコンボボックスで
の一覧なら列幅＝０で主キーもリストに潜ませておけばいいんだし、
サブフォームなら主キー用のコントロールを非表示にしておけばい
いし。

ＩＤの決定法、私は採番テーブルを用意する。新規レコード追加時
に（１）採番テーブルを読んでその値を新規レコードのＩＤに設定
（２）採番テーブルの値を＋１、という方法。DMax+1やDCount+1
という人もいるね。仕様によって使えないこともあるけども。

レコードナンバーを使う方法が普通なのかな（私は使ったこ
とがない…）。他の人の意見も聞きたい！

>>170
絶対的なレコード番号をあてにするのは初心者だよ。
Access のようなタイプのデータベースの場合、並べ替えやレコード削除などで
いくらだって変わり得る。
レコード番号なんて概念は忘れて、何でもいいからユニークなフィールドで
ひきなさい。
フィールドの設定で「重複なし」ってのができるから、ユニークに
するのは簡単。オートナンバーはそうなってると思うぞ。

>>170
絶対的なレコード番号をあてにするのは初心者だよ。
Access のようなタイプのデータベースの場合、並べ替えやレコード削除などで
いくらだって変わり得る。
レコード番号なんて概念は忘れて、何でもいいからユニークなフィールドでひきなさい。
フィールドの設定で「重複なし」ってのができるから、ユニークに
するのは簡単。オートナンバーはそうなってると思うぞ。

痛い所を衝かれてしまいましたね（＾＾；

要するに、一覧表示から詳細画面を作るときなんかに詳細画面から
また一覧に戻るのが大変なので詳細から「次レコードへ」移動する
処理をつけようと思ったのです。
オートナンバーがユニークなフィールドということは知ってます。
でも欠番があるのは困るんです（＾＾；
リレーションを組んでいるのでナンバー振り直すわけにもいかんし。
処理も１系統じゃないから、そういった処理用にテーブルを設ける
ようなこともできませんしね。

あと、レコード番号を知りたいのはこれを元にすべてを処理するという
ことじゃなくて、単に一覧から詳細に移る際に該当する詳細画面を
スマートに出す方法として知りたかったんですが・・・

172=173ではないけど....

つまり、詳細画面を開くときは...
一覧画面から、詳細画面を起動し、一覧画面を閉じる。
一覧画面に戻るときは...
詳細画面から、一覧画面を起動し、詳細画面を閉じる。
という操作そしているわけ？

一覧画面を起動したタイミングでは先頭レコードなので、
「レコードの移動」アクションでオフセット値を指定させるために「レコード番号」を取得したいってことかな。

もし、そうだとしたら、その処理自体がおかしい。
通常172=173さんが指摘しているとおり、ユニークな列でレコードを識別させるのが筋。
一覧画面は RecordsetClone + Bookmark　の組み合わせでレコード移動させる。
そもそも詳細画面を開いたとき、一覧画面を閉じないのが一番楽だけど。
表示させたくないのならフォームのVisibleプロパティを操作する。

Accessは奥が深いので、小手先だけ見て作ると後で痛い目に遭うよ。
テーブルや主キーとかの設計はなおさら。

それでも、なおかつレコード番号を取得したいのなら、「CurrentRecord」プロパティを紹介する。
このプロパティは現在表示されているフォームのレコード番号を返す。
では。

なるほど・・・勉強になります。
ただ、今回やりたい内容とは若干違うみたいです。
詳細から一覧に戻るときに元のレコード番号に戻りたいのではなくて、
詳細画面から次のＮｏの詳細画面に移動させたいんです。
いちいち一覧に戻って次のレコードを選択してまた詳細、というのが
大変なので、直接次のレコードへ移動できないかと・・・
設計からすれば一覧に一度戻らせるのがスマートですし簡単ですが、
次のＮｏの内容を続けて編集するケースが多いんですよね・・・

この場合にいいアイディアがありましたら教えてください。
CurrentRecordプロパティを使う以外の良い方法があればお願いします。
なんだか根本的に考え方が間違ってる気もしますし（＾＾；

一覧から詳細（単票フォーム）を開くときはどういう方法を
使ってるの？

現段階では、一意なレコード（オートナンバーによるＩＤ）で
全レコードから絞込みすることで一件だけ表示させています。
この方法では簡単に前後のＩＤに移動できないように思うので、
（ＩＤに欠番ができる可能性があるし・・・）
全レコードで詳細を表示してその該当レコードに移動する、という
方法をとろうかと思っています。
その場合に現在選択されているレコード番号を取得することができれば
簡単に該当レコードを指定できるのではないかと思いまして（＾＾；

> 全レコードで詳細を表示してその該当レコードに移動する、という
> 方法をとろうかと思っています

単票フォームで前後へ移動したい以上はその方法が妥当だと思います。その場
合、単票フォーム上での移動は DoCmd.GoToRecord で間に合うでしょう。帳票
フォームから単票フォームを開いたときの目的レコードへの移動は
DoCmd.FindRecord でしょうか。単票フォーム側に主キーを格納するコントロ
ールを用意しておく必要がありますが。

あとは帳票フォームから単票フォームを開くときに OpenArgs で主キーの値を
単票フォームに渡したりすればできるでしょう。開いた後に目的のレコードを
検索して移動、という手順を踏むことになります。

> 帳票フォームから単票フォームを開いたときの目的レコードへの移動は

CurrentRecord でカレントレコードのレコードナンバーを取得して、
Docmd.GoToRecord ... acGoTo で offset にその値を指定してやれば
えーんでないのかいという気がする。

なるほど・・・やはりそういうことになりますよね。
あとは移動の方法としてユニークなテーブルを利用してFindRecordするか、
CurrentRecordで移動するかという方法の違いみたいですね。
レコード番号を採用しようとした理由は「サーチするのは処理が大変なのでは
ないか」と思ってたからです。こういう関数があるのであれば楽チンですね。
ありがとうございました。ひとつ肩の荷が下りました（＾＾；

Access2000でランタイムを使う方法を教えてください。
Office2000のデベロが必要ということで用意してもらったのですが、
そこからパッケージの作り方が分かりません。ヘルプにはアドインで
作るようなことが書いてありましたけど、できれば詳しい方法を
教えてくだされ。
また、そのときの注意点なども併せて。

「ランタイムなんて不安定だからやめとけ」というのは聞き飽きました。

最後の一文の書き方が気に食わないので教えなーい

Set wsp = DBEngine.Workspaces(0)
wsp.BeginTrans
DoCmd.RunSQL "insert XXXX"
wsp.Rollback
してもロールバックできなんやけど，rollback って Docmd.Runsql で
使えないんでしょうか？
sql をロールバックする方法教えてください．

>>185
Docmd.Runsqlはトランザクションの管理下には入れられないよ。
DatabaseオブジェクトのExecuteメソッドでSQLを実行する必要あり。

CurrentDb.Execute "insert XXXX"

ありがとう >186

期待あげ！

現在AC97を使っている者です
これからAC2000も始めようと思っているんですが
AC97の知識があればAC2000もスムーズに入っていけるものなんでしょうか？
例えばイベントプロシージャの書き方とか使うプログラムとかに大きな違いってあるんでしょうか。

漠然とした質問ですがAC97とAC2000の両方使ったことある方々
使ってみた感想等を教えて下さいませんか。m(__)m

>189
ＡＣＣＥＳＳ２０００になって、標準のデータベースの参照方式が
「ＤＡＯ」から「ＡＤＯ」に変わりました。
この２つは相互に互換性がない為、９７で書いた

　SET DB = CURRENTDB
　SET RS = DB.OpenRecordset〜

というような記述はそのままでは使えません。但し、追加セットアップ
でちゃんとＤＡＯもサポートさせる事ができるので、心配はいりません。
私は今更ＡＤＯ覚えるのがメンドクサイのでＤＡＯのまま。。。

ADOとDAOの参照設定の優先順位に注意せよ。下位のほうには
DAO.とかADO.とかの接頭語をつける必要があるじょ。

>191
ADOの場合は、ADODB.　だよね。

190さん191さん192さん　レスありがとうございます。

ADOとDAOの違いはよく分からないので,今NETで色々検索して見ています。

両方使ってみたらやはり上位バージョンだけあって
「これからはAC97よりAC2000だよなっ！」って感じに思えるんでしょうか。
思えたらいいんですが。。

使うときは両方を共有させて使うつもりなんですが、HDDの残りが少ないため
HDD増設＆ACCESS2000購入(どうせならデベロッパーを買ってみたいと思ってます)
等で出費がかなり掛かりそうで(´ヘ｀)な気分なんですが
とりあえずもう少ししたら始めようと思います。
どうもありがとう。

両方共有はドツボにはまるかも…

ACCESS2000で顧客データベースを作成中です。

顧客情報が１人あたり60項目位あって、それを４グループの
テーブルに分けて(正規化)して作り始めています。

それを、フォームを作ってしまって入力の際にフォームから入力するように
したいのですが、その設計の段階で疑問があります。

入力・印刷の際に出来れば一人分の情報をまとめて一画面に表示させ、
他の項目を参照しつつ入力していきたいのでフォームを１人分まとめて
１ページ６０項目で作ってしまいたいのです。

一度勘違いしてテーブルをひとつのままで６０項目作った際には
恐ろしく重くなりましたので４つに分けました。その際に正規化という概念を
知りましたし抽出・重複回避を考えて分ける意味は分かっているのですが、
フォームもテーブルと同じようにいくつかに分けて作るべきなのでしょうか？
でないと何か不都合があるのでしょうか。
どなたか教えて下さい。

一番使いやすく作るのが正解

複数のテーブルからひとつのフォームに入れるの？

済みません、判り辛くなってしまったので書き直します。

一人当たり60項目ある情報のデータベースを作りたい
→テーブルは抽出・並べ替えのために4つに分けた
→色々と使い道はあるけど、そのうちの一つとして…
　　⇒一人分の60項目を一遍に表示させたい。

以上です。
最後の行の目的は、
１、入力の際にやり易い
２、一人分の情報を参照する用途がある
というものです。

どなたか教えてくださいませんか？
宜しくお願い致します。

４つにテーブルを分けたのがいいか悪いかは別にして
すべての項目があるクエリーを作ってそれでフォームを作ればいいんでない？

ACCESS97だけがインストールされているマシンで
ACCESS2000で作ったランタイム版のデータベースを
使うことは出来るんでしょうか？

ACCESS2000はインストール出来ないパソコン(ACCESS97インストール済み)で
ACCESS97で作ったデータベースとACCESS2000で作ったデータベースの両方を
使用したいためなんですが。
どなたかご教授下さい。

正規化の概念を知ってテーブルを４つに分けた・・・とあるが、
その４つのテーブルが実際にどうなってるのかが知りたい。

ひとつは顧客コードをユニークキーにしてる顧客マスター的な
テーブルであろうことは想像できるが・・・

こんにちは、ひとつ教えてください。
フォーム上の操作でフォントを変更して印刷することを考えています。
たとえば、あるフォーム（フォント名選択フォーム）で指定したフォント名を
あるテーブル（フォント選択テーブル）に格納しているのですが、
これをどのように利用してフォント名として利用すべきか迷っています。
不可視の状態で常に開いているメインフォームの一部に（フォント選択テーブル）を
サブフォームとして埋め込んでおき、そこから参照させてプロパティの
フォント部に入れようとしたのですが、うまくいきません。
メモリエラーとか、一般保護違反が出てしまいます。
もしくはテーブルに保存してあるデータを引き出すにはよりよい方法が
あるのでしょうか。モジュールから呼び出して設定すべき、とか・・・
これを利用していろいろな書体で印刷できるようにしたいのです。
よろしくお願いします。

いろんな書体で印刷できる必然性がどれだけあるのかをよく考
えた方がよいと思う。投入する作業時間にみあうメリットはあ
るのかしら。ワードに吐き出して後は手作業とか、まえもって
書体別にレポートを用意しておいて印刷時に選ぶとか、代替案
もあるだろうし。

ちなみにサブフォーム以外にdlookupを使う方法も試したのですが
やはりうまくいきませんです。

問題は一つずつ切り分けよう。サブフォームとかDLookupの前に、
そもそもフォントの変更はできるのか？　モジュールで直接フォ
ントを入れてみるとどうなる？
コントロール.FontName = "ＭＳ明朝" とか。これができたらサ
ブフォームなりなんなりから目的のフォント名を取得できるかど
うかを確認。これができたら両者を組み合わせる。

へぇー、いいスレじゃん！

Ｐ明朝とかＰゴシックとかが切り替え可能だったとして、
特定帳票の特定項目で特定フォント使用時に
印字幅が足りなくなったりとか・・・

出来る出来ない以前に、いろいろと副次的な問題を
招きやすい設計だと思うぞ。

なるほど・・・確かにフォントによって幅が違いますから
印刷物の保証が難しくなりますよね・・・
そりゃそうです（笑

システムを考え直すことにします。

便乗でもう一つ質問なんですが・・・
1999/02/10、のような日付のフィールドがあって、クエリーで
このフィールドに抽出条件をつけようとしています。
あるフォームに開始、終了日付を入力させるフォームをつくり、
その非連結のテキストボックスを参照してBetweenで範囲指定するように
考えているんですが、うまくいきません。０個の抽出になってしまいます。
ちなみにBetweenに直接日付を指定するとうまくいきます（あたりまえか）

参照方法も間違ってないと思うんですが・・・
ひとつ気になっているのは、テキストボックスに日付型のデータを
どうやって入力させるか、ということです。
入力規則を日付型にして、既定値に「1999/01/01」としてみたら、
表示されるものが「1999/__/__」となってしまいます。
どうやら既定値を割り算してしまっているようです。
どのように指定すべきなんでしょうか。教えて下さい。

・書式を「日付(S)」にして
・規定値を「="1999/01/01"」もしくは「=#1999/01/01#」にして
・入力規則に何も入れない

もし日付の入力範囲が限定できるならば
・書式は無しで
・規定値を「="1999/01/01"」もしくは「=#1999/01/01#」にして
・入力規則を「>=#1998/01/01# And <#2000/01/01#」とかにする

はじめまして。ちょっとスレの趣旨と違うかもしれませんが、質問させてください。
今学生で、ACCESSを勉強しようと思っているのですが、
友人から絶対ファイルメーカーの方がいい、と、進められました。
ちょっと調べただけなのですが、簡単そうなスクリプトエディタ(のようなもの)や、
ネットワーク上での利用の柔軟(っぽい)なところから、ファイルメーカーのほうが
使いやすそう、とっつきやすそうな気がしてきました。
で、実際両方使ってみた方がいましたら、違いはどうか、使い心地、
実際にこれから学んでおくならどちらを進めるかなど(あいまいですいません）
教えていただけませんでしょうか。
また、やはり企業内での使用率は圧倒的にACCESSなのでしょうか
（ORACLE、SQL Serverはおいといて)

長文失礼。

>>210
個人的に必要で FileMaker 4 と Access 97 両方評価したことが
あるんですが、僕の用途では次の点が大きな違いでした。
・FileMaker: １ファイル１テーブル
・Access: １ファイルで複数テーブル管理
データの性質上たくさんテーブルを作ってりレーションをかける
必要があったので、ファイル名を変えたりするとリレーションが
切れる可能性のある FileMaker より Access の方がいいかもと
選びました。
最新バージョンでも同じだと思うけど。
こういう選択もあるってことで。

>>210
業務上 二つともさわったことがあるけれど、
Access95・97・2000を先に使っていたので
FileMaker 4 がどーも 不便で使いにくくて・・・・
どこが？と聞かれてもちゃんとは答えられない程
FileMakerはあまりさわったことが無いのですけれどもね。

企業内の使用率は、勝手にAccessの方が高いと思っていますが、
業界・職場にもよるのではないでしょうか。
先にFileMakerを使っていた人にしてみれば、自分とは逆に
Accessが使いにくいってことで、FileMakerでDBを構築して
運用しているかもしれない。
（両方ある 恵まれた？職場で、実際にそういう人はいた。）
そんな部署に行ったら、カスタマイズするのも参考にするのも
FileMakerになってしまうかもしれない。

ぐたぐた書いてしまいましたが、結論としては やっぱりAccessを
お勧めします。
理由：シェアが高いと思われる。
Accessの方が「できること」が多かったような気がする。

ありがとうございます。書式設定せなあかんかったんですね（＾＾；
そして、規定値には”もしくは＃ですか・・・勉強になります。
ところで、西暦４桁表示をさせたいのですがうまくいきません。
書式の中に西暦できちんと表示できるものないですよね・・・
手で入力するときにはちゃんと上二桁が認識されていると思うんですが
規定値で４桁をいれたときにどうもうまく認識できていないようでした。

あと、各テキストボックス毎に「年」「月」「日」というような
分割入力をしようかとも考えているんですが、そういう場合には
どのように範囲指定をすればよいのでしょうか。

書式は yyyy/mm/dd ではどうですか（""とかで括らない）。
「書式(S)」とかはコントロールパネルでの設定値に左右さ
れたような気がします。

「年」「月」「日」のテキストボックスから合成した日付を
格納する非表示のテキストボックスを用意しておき、クエリ
ではそちらを参照するとか。クエリ実行の前に日付として正
当かどうかをチェックする必要がありますが。

>>211,212
ありがとうございます。参考になります。
とりあえず、ACCESSをはじめることにしようと思いますが、
もうひとつだけ質問させてください。
ＦＭに、リストからコマンドを選んでスクリプトを間単に作成できる機能がありますが、
ACCESSでも同じような機能は装備されているんでしょうか。
それとも、VBＳで書いていくことになるんでしょうか。
VBの経験がないので、ちょっと不安なんですが・・・

>>210
ＦＭでは、スクリプトまでは作成したことが無いので
そっちの方はわからないけど、
Accessでは、ある程度のものなら
「マクロ」でプルダウンリストから選択しながら自動処理の作成はできます。
ちょっと凝ったものになると、モジュール（VB）。
自分は、モジュールめったに使った事が無いので、
初級者向け本に書いてあることしかできないけど、
「マクロ」だけでも、それなりにいろんなことが出来るよ。

216 で、 ＞210をいれちゃったけど、
見てわかるとは思いますが
210宛てへの、215への返信です。

Accessでマクロを使うならFileMakerのスクリプトの方がいい
しテーブルの設定が簡単
素人に間口が広いのはFileMaker
VBAを使うならAccess

>>216,218
結局、とっつきやすいのがファイルメーカー、
いろいろやりだすと使えるのはＡＣＣＥＳＳ、
って感じでしょうか。
まだしばらく時間もあることですし、ＡＣＣＥＳＳはじめることにします。
同時進行でＶＢもやってみます。
ありがとうございました。

VBとVBAは似てるけど違うじょ。Accessさえ使えればいいというので
あれば、VBAだけやればいいと思うじょ。コントロール名とコントロ
ールソース名を明確に区別するのがコツだじょ。

アクセス97で終了時に最適化するには、
マクロどう組めばいいですか？
モジュールのほうがいいですか？
スマートでいい方法があれば教えてください。
それと、フォームのデザインでfor nextとか使って
グラデーションを書きたいけどいい方法ありますか？
あとグラデーションをtimerとかで伸ばすにはどう書けばいいでしょうか？
本体の機能とは関係ないけど、見た目がいいと楽しいから…

起動時にはAUTOEXECマクロがありますが
終了時には・・・なんかありましたっけ？

というか「スマートでいい方法」を求めるなら
2000にバージョンアップ、の一択だと思います。

１．マクロで最適化は不可能（だと思う）。モジュールでは可能だけど
　　面倒だよ。有名どころの掲示板で過去ログを探せば必ず出てくる。
　　僕もバージョンアップが一番いいと思う。
２．終了時はフォームを閉じるときのイベントで代用するしかないかな。
３．グラデーションって具体的に何をどうしたいの。

たびたびお世話になってます（＾＾
いつもアイディアを戴いて心強く思っています。

今回は、必要条件の表示について、なのですが・・・
例えば、ある商品があります。
この商品にはオプション品が付けられることになっています。
買う人はオプションを指定して購入します。
国内で販売する場合には「このオプションが必要！」と義務付けられているものが
あります。
商品は輸入物なので、国内販売する場合にはオプションが国内対応かどうか
チェックする必要があります。
これらの条件を元に、見積書を作りたいと思います。

問題はオプションの必要条件をどうチェックするかです。
プラン１：商品の型番を指定したときに必須オプションを先に表示してしまう。
これにより、入力する側が入力用紙を見ながらチェック＆入力を行う。
プラン２：型番指定後、オプションリストの型番をすべて入力すると、
「国内販売に必要な***が装備されていません！！」と警告が出る。

仕組みを考えるとプラン１は簡単だと思います。
ただ、先方のイメージにはプラン２があるようで、これを実現させるとしたら
どのような形でチェックをすればよいのでしょうか・・・想像つきません。
データ入力後に「必要条件リストをひとつずつ参照し、それと同じオプションが
ついているかチェックする」というシーケンスを動かすんですよね？
こういうのはモジュールで行うんでしょうか。
スマートな方法、よく使われている方法を教えてください。

よく考えたら不一致クエリ使えばいいんですね（＾＾；

>>223
グラデーションはフォームの背景とかにしようと…
それをtimerで動かしたりしたら見た目面白いと思ったからです。
変な質問ですんません。

フォームは単色か画像貼付かどちらかしかできないはず。だから、
グラデーション画像を用意しておいてそれをタイマーで貼りかえ
ていくか、ボックスをいくつも貼り付けておいて色を変えていく
ということになるかな。他のテキストボックスとかとの兼ね合い
を考えると前者がいいかな。

すごく初心者的な質問です｡

テーブルを2つ作ったとして、重複する項目(例えば顧客ＩＤなど)
を設けた場合、一つ目のテーブルにデータを入力すれば
二つ目の方にも自動的に同じデータが入るようにするには
どうすれば良いのでしょうか｡

■□注意■□注意■□注意■□注意■□注意■□注意■□注意■□

▲無知だった人間が無知な人間に対しての知らせ▲
後から書き込む人は隠れた過去ログを読んでノリではなく良く考え
てから[E-mail]の空欄をsageと半角で入れてから書き込みましょう。

このスレッドはすでに価値のある情報がありません。
私のように無責任な人がヤジを入れて真面目な議論にならないから
別のスレッドを作ってください。ここで問われている真面目な議論
についてですが、別のスレッドを立てて話し合ったほうがいいです。

■□注意■□注意■□注意■□注意■□注意■□注意■□注意■□

相談のって

のってあげる

どうしてもoならが臭いんです。

ACCESS初心者です。
えと、日付の範囲を指定してデータを抽出する
クエリを使用し、そのデータに関する金額の合計を
表にしたレポートを作成しているのですが、
レポート作成時に指定した日付の範囲を、そのレポートに
表示したいのです（2001/2/21〜2001/3/20という風に）。

つまり、クエリで指定する
>=[いつから] And <=[いつまで]
をレポートに表示するにはどうしたらよいですか？

どなたか、ご回答をよろしくお願いいたします。

>>233
ちょっと待って

>>234
いつまで待たせんだｺﾞﾙｧ!

>>235
あ、今出ました〜

>233
範囲指定する場合に値を直接書き込むのではなく、たとえばフォームの
非連結コントロールなどからデータを読み出すようにしておいたらいかがでしょうか。

>>237
なるほど、ありがとうございます。

あ

レポートで印刷する時、負のデータを「-1,234」ではなく、「Δ1,234」としたいのですが、
どうやればできるのでしょうか？書式をいろいろ試して見ましたが「-Δ1,234」となって
しまいました。どなたか、私に愛の手を！！

>>240
例えば
#,##0;"△"#,##0;0;"-"
とすると、
正の数＝ 1,234
負の数＝ △1,234
０＝ 0
Null(数字なし)= -
と表示できるはずですが・・・

ちなみに、
#,##0;"△"#,##0;0;"-"
はテキストボックスの「書式」プロパティに設定します。

>>241-242
なるほろ、テキストは""で囲むのね。ありがとうございました。
あなたの愛をひしひしと感じております。(*^o^*)

単票形式のレポートをツールバーの印刷ボタンで印刷すると、全部のレコードが印刷されます。
特定のレポートのみ印刷したい場合、ファイルメニューの印刷からレコード番号（ページ番号）
を指定して印刷してやる必要があるのですが、プレビュー画面で見ているレコードのみ簡単に
印刷できるようにするには、どうすればいいのでしょうか？

テーブルのデータ型をルックアップウィザードの「値をここで指定する」にして
たとえば「男」「女」と２項目設定しました。テーブルでデータを入力しようと
するとセルの右端に▼が出て、「男」「女」を選べるのですが、フォームにした
時、▼が出てきません。フォームでどのように設定するとテーブルで指定した値が
選択できるようになりますか？

>>245
コンボボックスを使ってみては？

>>246
コンボボックスの使い方も分からない初心者なので、もっと勉強してきます。

コード 　氏名
001 A
002 B

コード 　名前
001 A
003 C

2つのテーブルがあり、その中で名前が一致するレコードを抽出したいのです。

コード 　名前
001 A

テーブルでフィールド名が氏名と名前になっていますが統一したほうが良いですか？
不一致クエリの反対ができませんか？

>>248
単純にクエリー作って、等結合すればいいような気がするが。

すみません、教えてください。
レコードセットにクエリーをかける時、ＶＢＡでどのようにＳＱＬを書けばよいのでしょうか。

テーブル１にＡ、Ｂ、Ｃというフィールドがあり、レコードセットの名前をrsとした場合、
rs.open "･･･Where((A=100) and (b=50))･･･",cn,adOpenStatic と記述し、
RecordCountが１以上だったらrsの中から (c=25) であるものを取り出したいのです。
よろしくお願いします。

すみません。質問を間違えました。
RecordCountが１以上だったら rs の中から Ｃの最大値を取り出したいのです。
Ｄｍａｘ関数を使うことも考えたのですが、フィールド名・ドメイン名を
ＶＢＡの中でどう記述すればいいのかわからないのです。
どなたかご教授ください。お願いします。

>>249
回答ありがとう。

等結合は同じテーブルを1つのクエリで使いますよね？
2つのテーブルから等結合できますか？

DLookup関数って、テーブルやクエリーから抽出条件指定して抽出できるのです
が、その時の抽出条件指定は１つの項目しか指定できないのでしょうか？

例）DLookup("NAME","USER","NAME ='鈴木'")　○
　　DLookup("NAME","USER","NAME ='鈴木' and AGE = 18")　×？

>>253

○

すいません。この仕事について日が浅いので教えて下さい。
ＡＣＣＥＳＳのテーブルにファイルをインポートしたいのです。
しかし、ファイルはいつも同じディレクトリから拾ってこないんです。
Ｃドライブだったり、Ａドライブだったりするわけです。
で、私アクティブＸでファイル選択できるようにしたのですが、
客先のＰＣではＸをインストールしてないので使用不可でした･･･。
アクティブＸつかわないで、ファイル選択できるようになるものなのでしょうか？

手抜き
Option Compare Database
Option Explicit

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Public Function Openfile() As String
Dim ofn As OPENFILENAME
Dim rtn As Long

With ofn
.lStructSize = Len(ofn)
.hwndOwner = Application.hWndAccessApp
.lpstrFilter = "テキスト ファイル(*.txt)" & Chr(0) & "*.txt" & Chr(0) & "全てのファイル(*.*)" & Chr(0) & "*.*"
.nFilterIndex = 2&
.lpstrFile = "lpstrFile" & Chr(0) & Space$(246)
.nMaxFile = 255&
.lpstrFileTitle = Space$(256)
.nMaxFileTitle = 255&
.lpstrInitialDir = "C:\"
.lpstrTitle = "ファイルを開く"
.flags = OFN_EXPLORER
End With
rtn = GetOpenFileName(ofn)
If rtn = 0 Then
Openfile = ""
Else
Openfile = ofn.lpstrFile
End If
End Function

>>253
DLookUp("NAME","USER","NAME = 'ひろゆき' AND AGE = 26")
これでうちのPCじゃ全然問題ないけど。

私がよくやるのはクエリで表示されてないテーブルのデータを読み出すタイプだが、
今、デザインモードで表示しているテーブルを"HITO"とし
"HITO"には［namae］［toshi］というフィールドがあるとする。
で、表示されていないUSERテーブルのNAMEフィールドを取り出したい場合
DLookup("NAME","USER","NAME=' & [namae] & " AND AGE=" & [toshi])　とする。

ちなみにVBAでは
str = DLookup("[NAME]", "[USER]", "[NAME] = " & [namae] & " AND [AGE] = " & [toshi])

>>251
ワークテーブル作ったほうが早い。
作業的にも、処理時間的にも。

>>257
本当ですか？！
まさしくそれをしたかったのですが、フォームがあってフォーム上にクエリー
(テーブルに対して抽出をかけたもの)が張りついており、そのクエリーに
対して２つの項目指定でVBAでDLookup関数で抽出した所、エラーが出て
上手くできませんでした。

もう一度、やってみます！！

>256
２５６様。ソースまで書いて頂いてありがとうございました。
お礼が遅くなり、申し訳ありません。
無事取り込むことができました。感動です･･･

>>259
ヘルプでいいサンプルがあった。
VBA側でヘルプを開き「DCount 関数の使用例」というのを見てくれ。
フォームを使った事例も載ってる。

248です。

結合を３種類ためしてみたのですが

全ての組み合わせで巨大になっていきます。

>>248
のテーブルがあると
コード 　氏名
001 A
001 A
002 B
002 B
となってしまいます。簡単な解決方法を教えてください。

>>257
あれから再チャレンジしてみた所、問題無く出来ました！

自分の中では同じ様にやっていたつもりなのですが、やっぱり
どこかコーディングミスをしていたんだと思います。
（今となっては分かりませんが．．．。）

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

>>244ですが、どなたかレスいただけないでしょうか・・・

>>244
レポートプロパティのFILTERを使う
もしくはレポートのレコードソースをクエリにして
抽出条件をつける

>>262
おいおい、それくらいはどんな本にも載ってるだろう。
クエリプロパティを開いて、[固有の値]ってやつを「はい」にするだけだ。

248です。

[固有の値]
[固有のレコード]
どちらも「はい」にしてみましたが。
グループ化で同じデータが表示されるのはなくなりましたが、結果は同じでした。

REPLACE関数が使えないんですけど、考えられる理由は？？？

実行すると、未定義関数となってしまいます。

>>268
クエリー内部で使ってないか？

>> 269

はい。おしゃるとおりで・・・クエリー内部だとダメなんですね。
勉強不足でした。

　

>>248
複雑なことやりすぎてませんか？
単純に新規デザインビューで二つのテーブルを、

　コード　−−　コード（用途によってこの結合は不要ですが）
　氏名　−−　名前

とすればとりあえず、

>コード 　名前
>001 A

となります。

>>271
248です。
メモ型または OLE オブジェクト型 (<名前>) のフィールドを結合することはできません。(Error 3118)

メモ型になっていました。
メモ型からtext型に変換できますか？
それとも最初からtext型でテーブル作ったほうが速いですか？

>>272
>メモ型からtext型に変換できますか？
テーブルのデザインでデータ型を変更すればよい。
保存時に警告が出るけど桁数がオーバーしなければ
正しく変換されると思う。
念のためMDBをバックアップしてからやってね。

クエリを実行すると
「レコードに検索キーが見つかりませんでした」
ってメッセージが出るんだけど原因はなんでしょうか？
データシートビューで見るとちゃんとデータは
抽出されているんですが・・・・。

いいスレですね。

>274
何をどうしたいかもう少し詳しく。

　　　　　　　　　　　rr二二二二二ニニﾆ--__、
　　　　　　　　　r/r/l l r二二二二二二二二ニﾆ--_、
　　　　　,'ﾆ三| | l 川川r二三三三三二＝＝＝＝=ヽ、
　　　 ,'二三三二川川川川川三三二二二＝＝＝＝=ヽ
　　　',二三;r':::::::::　　　　　　　　　　　｀￣::::::ヽ二三三二=ヽ,
　　　,'三=;/::::::::::　　　　　　　　　　　　　　　::::::::`、二三三=ヽ,
　　　;三=;;l::::::::::　　　　　　　　　　　　　　　　　:::::l三三三三ﾆ=ヽ
　　 ;二三:|:::::::,,,,,,　　　　　　　　　　　...,,,,,,,,,,,　　::::l三三三三ニ=;
　　　;三=;|::..kkkkkiiiiiis::..　　 ..::wlllffffffffffffffs　::::|三三三二
　　　;//;l:::: il'　　　　　 `　　　 ''　　　　　　 `ヾ、 :::ヾ三三三二ﾆ;;
　　　l l l|::　　_, -r｡- 、　:::　 :::　,- r｡--　、_　　　　::::l三三三二;
　　　l:l: l:　￣ー ￣￣_'.:r　　ヽ　` ￣￣　ー￣　　 ::::|ヾヾヾ=r￣ヽ
　　　 l l|::　　　　　 ￣:/　　　 ヽ　　｀￣　　　　　　::::::|j'j'j'ヾ=f　`l |
　　　 `ll:　　　　　　　:|　　　　　ヽ　　　　　　　　　 　::::|jjj:::`=f　ｒノ
　　　　.| 　　　　,r---(　　　　　　_)ー　、　　　　　　:::::::::::::::::〉ゝ r'
　　　　|　　　　|::::.:::::::::｀⌒:ー:⌒'　:::::::::::::.ヽ　　　　　　:::::::::::::l、_,|
　　　　.|　　　 |:::::::::::::- ― --――　、..::::::::l　　　　　　:;:::::::::::::::|
　　　　ヽ　　 ヽ ::::::く rtT_T T TｺTt、ヽ::::::::|　　　　　　.:::::::::::::::| 　　ACCESS好き好き！
　　　　　ヽ　　 ヽ::::::`、＿｀´ ｀´＿＿／::::::ﾉ　　　　　　　:::::::::::ﾉ
　　　　　　ヽ、　:::::::::::_:::::::￣￣:::::::::::::;_::::::　　　　　　　　 ,:::::::::|
　　　　　　　 ヽ、::::::::::::::::::::::::::::::::::::::::::::::::,　　　　　　ノ　..::::::;;;;:|
　　　　　　　　　ヽ 、::::::::::::::::::::::::::::::::::::::　　................　　:::;;;;;;;;;;::|
　　　　　　　　　　　l　ー――――--　　'　　　　　　;;;;;;;::::::::::::|

得意先テーブル、明細テーブルがあり、得意先IDでつなげています。
毎月得意先１件に明細が１レコードのみ必要なのです。
そこでフォーム等で一覧表示したときには最初から
得意先の件数分、明細レコードが追加されて欲しいのですが
初めからクエリでそういうことは出来るのでしょうか？
それとも他のやり方がありますか？

>>277
得意先と明細でつなげて(LEFT JOIN等ね)つなげられなかった
データを作成するクエリを元に(IS NULL を条件にして)
明細テーブルへINSERTしてあげれば出来なくないとは思う
このクエリー遅そうだなぁ VBA使えば楽勝だと思うけどなぁ

こんにちは。
最近仕事にAccessを導入しはじめたばかりです。
入力フォーム、レポートを作成しましたが、
レポートを印刷する際、入力フォームで新しく作成したレコードのみを
印刷したいのですがどうしたらいいのでしょうか？
入力フォームに印刷ボタンを配置したところ、
全部のレコードが印刷されてしまいました。
いまは仕方なくレポートを開いて、
該当レポートを一回一回指定してやっています。
もしおわかりでしたら教えてください。

>>279
重複しないコードかナンバーを振っておいてから（仮に[コード]とすると）
1.クエリーを作る
2.クエリーデザインで[コード]に抽出条件を入れる
例：[Forms]![フォーム名].[コード]
3.レポートのレコードソースをこのクエリーにする

他にもいろいろあるけど、これが楽かも？

>>279
テーブルに印刷するしないの項目を作っておいて
新規作成したときには「True」を入れておき印刷終了時に
「False」を入れてあげるような処理を作れば済む問題じゃん

業務アプリ開発者なら知ってて当然な処理なんだけどな（＾＾；

印刷について質問したところ、
とても早いアドバイスありがとうございました。
早速実践してみます。

Access97を使用しています。初心な者で本当に基本的な質問で
申し訳ないのですが、教えてください。
定型入力の書式を変更するにはどうしたら良いですか？
（ちなみにテーブルウィザードで作成しています）
例えば、郵便番号や電話（東京）はいいのですが
それ以外の市外局番や携帯電話の時の書式を変えたいのです。
（東京がデフォルトになってしまっています）
どうぞよろしくお願いします。

目的のテーブルをデザインで開き、フィールド
プロパティにある定型入力を電話番号の設定に

283です。
284さん、「設定に」の後は何ですか？
というか、その設定をどうしたらいいのかわからないんです。
￥999”999・・・とかいうのをいじれってことですよね？
スミマセン、もっと詳しく教えてください。

!\(9999")-"9999\-9999;0;_

286さん。283ですが、それって「電話（一般）」の書式（？）ですよね？
でも、いざフォームに移り携帯番号を入力しようとすると
（）−　−のようなフォームが出てきてしまいます。
全然変わってないじゃん、って（笑
ちなみにこれで入力をしようとしても（）の部分には2桁しか入りません。

質問です。
レコードを前後させると最後に空白のレコードが出てきますよね？
この空白のレコードを表示させたくないのですが・・・
レコード移動ボタンに
「移動先が空であるかどうか」のチェックをさせなければならないんで
しょうか。もう少し簡単な方法があれば教えてください。

>288
(ﾟДﾟ)ﾊｧ?　基本的には何かを入力しなくちゃ
空白のレコードなんて出てこないぞ
新規レコード用の場所の事か？
それならフォームの新規の許可を「いいえ」にするか
Me.NewRecord で現在の状態を調べろ！

<<195
超遅レスですが誰も答えてないようなんで・・・

ユニオンクエリーで結合すれば良いんじゃない。
横にずらずら伸びた項目を一覧表示させたいわけでしょ？

60の項目を１項目ごとに分解して（つまり60個の選択クエリー
を作る）それをユニオンクエリーで結合させてやれば項目が
縦に一本にまとまります。それで表形式フォームを作りサブフォーム
として入れてやれば一覧で見る事が出来ます。

↑>>195だ。ヴぁかだねぇ〜

↑>>195だ。ヴぁかだねぇ〜>オレ

>>278
とりあえず追加クエリで変数、処理年月で全件追加するようにしました。
他の処理と相まって１０件位しか得意先入れてないのに遅いです。
もう少し勉強したらVBA使ってみたいと思います。ありがとう。

初めて質問させてもらいます
集計クエリーを使用して月ごとの商品別売上を集計する場合、
まったく売上げのない商品も”0”と表示できますか？
例えば次のような場合です。

テーブルA
ID　　月　　　商品名
--------------------
1　　 4月　　　A
2 　　4月　　　B
3　　 5月　　　A
4　　 6月　　　B
5　　 6月　　　A

この時5月はAが一件だけですが、次のように表示させたいのです。
　A　1件
　B　0件

最終的にはユーザーから任意の月を入力させてその月の集計結果のみを
レポートに表示させたいので、クロス集計のように全部の月の結果は
出す必要ありません。

どなたかよい方法をご存知の方、お力貸していただければ有り難いです。

>>294
基本的にはそういったクエリーの作成は不可能
計算結果を別のテーブルに書き込んで足りないレコードは
自分で足してあげればいいと思う

単月しか集計しない、商品マスタがあるならば
商品マスタにテーブルＡのクエリーをつないであげて
件数がNULLのところにNZ関数で０を入れてあげれば
とりあえず出来なくは無いと思う
但し、動作スピードに問題が出そうだから最初に書いた
方法でやったほうが良いと思う

（・∀・）／じゃーねー

>>294
商品マスタが無くて、とにかく売上データだけで何とかしたいということを
前提に書きます。

クエリを３つ作ればよいと思います。

＜クエリ1＞
　集計クエリにて売上データ内の全商品名を抽出する。
＜クエリ2＞
　集計クエリにて5月の売上データを集計する。
＜クエリ3＞
　クエリ1の全レコードとクエリ2を結合する。（実行用のクエリ）

参考に各クエリのＳＱＬ文を載せます。
（クエリデザインでＳＱＬビューに張り付ければ再現できます）

＜クエリ1＞
SELECT テーブルA.商品名
FROM テーブルA
GROUP BY テーブルA.商品名;

＜クエリ2＞
SELECT テーブルＡ.商品名, Count(テーブルＡ.商品名) AS 商品名のカウント
FROM テーブルＡ
GROUP BY テーブルＡ.商品名, テーブルＡ.月
HAVING (((テーブルＡ.月)=5));

＜クエリ3＞
SELECT クエリ1.商品名, IIf(IsNull([商品名のカウント]),0,[商品名のカウント]) AS 件数
FROM クエリ1 LEFT JOIN クエリ2 ON クエリ1.商品名 = クエリ2.商品名
ORDER BY クエリ1.商品名;

次に、
>最終的にはユーザーから任意の月を入力させてその月の集計結果のみを
の件ですが、クエリ実行（又はレポート印刷等）のためのフォームを
作成すればと思います。

　・フォームのテキストボックスに対象月を入力させる。
　・クエリ2はフォームから対象月を取得して抽出条件とする。

尚、データ件数が多い場合、テーブルAの商品名を重複インデックスに設定すれば
処理スピードが向上します。

>>296
ちょっち気になるので一言付け加え
前提の一つに「売上データの中には全ての商品が必ず入っている」
という事が必要になるんじゃないかと思う。
過去に一度も売っていない商品の場合はやっぱり出てこないので
商品毎の集計表の場合は問題になると思うよ
（これがネックになるのでこのクエリーは提案しなかった）

よそから移動です。
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=983679298&st=469%20&to=469%20&nofirst=true

Accessのtextboxってウインドウハンドル取得できないですよね？
accessのtextboxで入力バイト数を制限する方法の常道はどんなの
でしょう？

>ヒントだけ書いておくと、
（略）

textchangeイベントでstrconvしろって事ですよね。

できればvbみたくsendmessageで済ませたいんですけど、強引に
hWndもらう方法はないんですか？

強引にhWndもらう方法というか、

強引な方法と常道な方法と、今夜のご注文がどっち？なのかよくわからんので
とりあえず常道な方のヒントだけ書いておくと・・・

�@テキストボックスのBeforeUpdateイベントで長さによりCancel=True
�A手っ取り早く、連結フィールド。

このあたりがAccess的には常道なのかなと思ってます。

294です。
295さん、296さん早速有難うございます。

296さんが書かれているとおりに試してみると、なるほどきちんと表示されました。
あまりにあっさり出来たので感激です。

295さんが指摘した現象は確かにそのとおりでした（長期だと問題ないですが）
出来ればこちらも解決したいのですが、295さんのやり方は集計結果格納用の
テーブルを別途作って、そちらにクエリーの集計結果を書き込むということですか？
この場合、書き込むタイミングや、集計結果が更新されたときの処理がいまいち
解りません・・・。

>>300
あんまり難しく考えなくても良い方法

296さんの＜クエリ1＞の部分をテーブルＡではなくて
「商品マスタ」等のテーブルに置き換えるだけでＯＫ
（商品マスタには当然ながら全商品を登録しておく）
（・∀・）／じゃーねー

2001年5月2日の1番目のデータ＝01050201という形式のIDを自動で振れるように
したいと考えています。イベントで、日付を更新したとき数字が入る、というふうに
したくて、year関数やmonth関数に桁数を掛ける式を作りましたが、なかなか上手く
動きません。Dmax関数やDcount関数を

その日2個目以降のデータを入れたときに、または日付をさかのぼって9個目や10個目
のデータを入れたときに、自動的に適切な値が代入されるようにするにはどのような
式を組めばいいでしょうか。ご存知の方、教えてください。

> Accessのtextboxってウインドウハンドル取得できないですよね？
accessのtextboxで入力バイト数を制限する方法の常道はどんなの
でしょう？

>ヒントだけ書いておくと、
> （略）
>
> textchangeイベントでstrconvしろって事ですよね。

そうではなくて、KeyPress イベントでやります。
ただし、クリップボード上の文字列をペーストされた場合は
KeyPress イベントは通らないので、AfterUpdate イベント
でチェックする必要があります。

・・・別にWindowハンドルは要らないと思いますが・・・？？

今までmdbで構築したＤＢをadpに移行しようとしています。
ところがインポートやらエクスポートやら使って
テーブルやフォームを全部新規作成したadpファイルに移動すると、
何故かどれもこれも新規書き込みが出来なくなってしまいます。
やり方が間違っているのでしょうか？
厨房な質問で申し訳ないです。よろしくお願いします。

アクセスから、特定のエクセルやワードのファイルが起動するように
するには、どうしたらいいですか？

>>304
それは、主キーがついてないじゃないかな。

>>305
Shellで呼ぶか、ShellExecute(API)で関連づけ起動してみるか。

>307
ありがとうございます。
でも、どうやっていいのかわからないっす（＾＾；

>>308
そのくらい探せって。
http://www.google.com/search?q=ShellExecute+VB&btnG=Google+%8C%9F%8D%F5&hl=ja&lr=lang_ja
初心者の自覚あるなら努力せい。ちゅうか、VBA書けるのか？

>>308
最低限、そのくらい自分で調べてみろ！！
何もしないで「教えて君」はやめようね

この情報(>>307)で分からないなら、
やり方を教えてやっても、絶対に出来ないだろうな

>>288-289
で、289の
>新規レコード用の場所の事か？
>それならフォームの新規の許可を「いいえ」にするか
>Me.NewRecord で現在の状態を調べろ！
「フォームの新規の許可」ってAc97でもその機能ある？2000だけ？
と思ったらスナップショットにすればいいのか　sagetoku

みなさんこういう現象に出くわしたことはありませんか？

・最適化／修復するとレポートの用紙設定がリセットされる
・レポートを編集・保存しただけでMDBのサイズが十数倍になる
・ちゃんと定義してある関数なのにときどき「関数が定義されてません」と言われる
・使えば使うほど動作が重く、不安定になる

鬱だ．．．

>>312
SR-1をあててない
レコード単位のロックをしている
参照設定が氏んでいる、Win2000で開いて保存した
Access2000だから

に思い当たるフシは？

>>313
レスありがとうございます。

Win2K + Access2000です。まさかダメなのか、この組み合わせ？
最初Access97で作ってて2000に変換後、いまいち調子悪いんで
2000で最初から作った空MDBで総インポートしたものです。
そういえばインポート前はよく出ていたクエリーでの関数未定義エラー
がインポート後は出なくなった。（そのかわりMDB肥大化が激しくなった）

レコード単位のロックはしていません。
参照設定は大丈夫だと思うけど（DAOを追加した）
今、手元に無いんで確認できないけど、SR-1当ててないかも．．．
まずはSR-1でしょうね。SP-2は必要ないのかな？

>>312
最適化するとレポートの用紙設定がリセットされる件はSR-1で直る。
それはMS技術情報にがいしゅつ。
あと安定性のためにはWin2000側にもSP-1が必要。
双方のSP-2はリリースノートをよく確認してみるとよいかと。

>>315
>最適化するとレポートの用紙設定がリセットされる件はSR-1で直る。
>それはMS技術情報にがいしゅつ。
ああっ本当だ、KBに載ってる！
「名前の自動修正」がオンだと起きるって、こんなもんがデフォで
オンになってるのか．．．知らなかった。
いや、お恥ずかしい。もっとよく調べてから質問するようにします
どうもありがとうございました。早速試してみます。

アクセス超初心者です。
VBAの中で今日は休日かどうかの判断をしたいのですが、
これは祭日テーブルを作成した上でいちいちチェックしないと
いけないのでしょうか？もし便利な方法があるのであれば教えて下さい！

>>317
未来の「休日関連法案改正」、「大喪の礼」とか「即位の礼」とか予言できるか？
そういう意味でも、休日テーブルもっとけ。
そうすればメンテをユーザに任せられるだろ？

>>317
休日がすべて規則性のあるものなら関数を書くこともできますが、
春分の日、秋分の日は毎年変わります。規則性もありません。
よって休日テーブルは必須。

アクセスに画像を取り込みたいのですが、OLEオブジェクトにJPEGファイルを
取り込んでもアイコン表示しかされません｡
BMPだと画像表示するのですが…
どこを変えればいいのでしょうか？

>>320
操作は間違ってなさそうですね。
恐らくjpegのOLEサーバーが無いのでしょう。
officeをインストールするとPhoto Editorがサーバーになります。
（Wordだけでいいのかも）
探せば他にも対応ソフトがあるかもしれません。

>>321
ありがとう。
PhotoEditorをインストールしなければいけないのですね。
インストールしてみます。
でもなんで標準でインストールされてないんだろう。

>310
わたしは、ユーザーなの、ドキュソなプログラマーと一緒にしないで！！！
VBAなんてかけませんよ。だから質問してるんじゃない。
けんかごしなのは、君がうだつのあがらないPGだからね。。。

>>323
色々と方法はあると思いますが、マクロを使ってみてはいかがでしょうか。

マクロのデザインで、アクションを［アプリケーションの実行］に
設定し、コマンドラインに下記の様なコマンドを書いてみて下さい。
（"C:\test.xls"の部分は開きたいファイルのフルパス）

＜エクセル＞
excel "C:\test.xls"

＜ワード＞
winword "C:\test.doc"

作成したマクロはダブルクリックで実行できますし、フォームから実行
したいのであればコマンドボタン等のイベントに指定して下さい。

324 >
こんな相手に説明してやる気によくなりますね。
よほど人間ができているのか、それともお人よしなのか・・・。

>>325
女性名騙ればレスがつくというネタじゃないのか？
放置プレイが適切かと思われ。

お世話になります。
ACCESS97を使っています。
次のようなクエリーは可能なのでしょうか？

　品　　　数
--------------
みかん　　５
みかん　　３
りんご　　１
なし　　　４

というテーブル「Ａ」に対して、クエリー式
select 品,sum(数)as total from Ａ group by 品
によって,

品 total
--------------
みかん ８
りんご　　１
なし　　　４

というクエリーが得られるはずです。

さて、ある理由があって、このクエリーの中に品の種類数を各行に記入したいのですが、
どのようなクエリー式を書けばいいのでしょう？
すなわち、

　品　　　total　種類
-----------------------
みかん　　８　　　３
りんご　　１　　　３
なし　　　４　　　３

のような形にしたいのです。（品物の種類は３種類ですので）

しかし,

SELECT 品, Sum(数) AS total, (select count(select distinct s.品 from Ａ s)) AS 種類
FROM Ａ
GROUP BY 品;

のような式とかいろいろやってみたのですがうまくいかず,
結局,

品
-------
みかん
りんご
なし

のようなテーブル「Ｂ｣をselect distinct で作って,
SELECT 品, Sum(数) AS total, (select count(s.品) from Ｂ s) AS 種類
FROM Ａ
GROUP BY 品;

のような式を作ってやりすごしました.

別テーブルを作らずにスマートな一つのＳＱＬ式にできないものでしょうか?
初心者なのでよろしくお願いします.

>>327
>別テーブルを作らずにスマートな一つのＳＱＬ式にできないものでしょうか?
ＡＣＣＥＳＳ９７ではクエリが２つになってしまうんですかね。

＜クエリー1＞
SELECT 品
FROM Ａ
GROUP BY 品

＜クエリー2＞
SELECT 品, Sum(数) AS total, (SELECT Count(品) FROM (クエリー1)) AS 種類
FROM Ａ
GROUP BY 品

ＡＣＣＥＳＳ２０００では、

SELECT 品, Sum(数) AS total,(SELECT Count(品)
FROM (SELECT 品 FROM Ａ GROUP BY 品)) AS 種類
FROM Ａ
GROUP BY 品

でいけます。

３２８さんへ

レス有難うございました。
97では、FROM句の中にサブクエリーを書き込むとエラーになって
しまうようです。

後で気づいたのですが、294の方が同様の質問をなされています。
あの質問では、「５月」の件数の出し方だったようですが、
それに留まらず、たとえば１月〜12月、さらには数年にわたる月別の件数を
一度にクエリーで出すにはどうすればいいのか、疑問に感じました。

この種の計算はこれまでエクセルマクロを使っていましたが、
アクセスでもVBAで解決するしかないのでしょうか……

>>329

クエリの中にDCountを書いてあげれば1文になるかもな。
＃邪道だが。

基本的な質問ですみません。
Access2000でできるだけファイルサイズを少なくするにはどうすればよいでしょうか。
やはりフォーム・レポート・テーブル・モジュールなどを少なくすることなのでしょうが、
他に注意点はありますでしょうか？

>>331
データの正規化を行って冗長性を排除する。
使ってるうちにどうしても肥大化するから最適化を定期的に行う。

で、どのくらいのサイズのファイルをどのくらいケチりたいの？

フィールドの値によって動的に変化するコンボボックスを作成することは
出来ないでしょうか？
例えばフィールド1の値が東京都だとしたら、フィールド2には
東京都の区だけが表示するように・・

ついでに、コピーソフトを手軽にミスすることなく作成することは
出来ないでしょうか？
例えばフィールド1の値が東京都だとしたら、フィールド2には
東京都の区だけが表示するように・・

>>333

フィールドの値によって動的にRowSourceを書き換えるだけ。
フィールド1の値を参照するクエリーをRowSourceにしてもよい。
つまんないこと訊くなよ。

>>334

（笑）

>>333
そんなのフィールド２の集合値ソースのクエリーに
フィールド１で範囲指定を入れておいて、フィールド１の
更新後処理にフィールド２のリクエリーを書いておけば
ＯＫじゃんか〜　問題なっしんぐぅ〜♪

コピーソフトってなんでしょ？　ヽ（´∀｀）ノ

こちらも基本的ですいません。
テーブルを作成しているんですが、主キーを１０桁の数字にしました。
（例、6030000336。続き番号ではありません。）
で、保存しようとすると、「一部のデータが失われる可能性があります。
フィールドサイズプロパティの設定が小さな値に変更されました。」
と出て保存できなくなります。また、「主キーには、Ｎｕｌｌ値を使用
できません。」とも出てきてしまいます。
バラバラの数字を主キーにしようとしているのが間違いなのでしょうか？

>>337
データ型、フィールドサイズプロパティが間違ってるのでしょう。
ちなみに数値型のデフォルトは長整数型で、
-2,147,483,648 〜 2,147,483,647
です。
ヘルプでデータ型、フィールドサイズを調べて下さい。
テキスト型で充分では・・・。

>>338
テキスト型はデータ食うし、検索も遅いから不可！
単精度、倍精度浮動小数点型を使うといいよ〜

単精度、倍精度浮動小数点型はどこで指定するのでしょうか？
基本的ですみません｡

>>337
キーを9桁にすればOKOK。
何もいじらなくてよい。

>>340
「データ型」を「数値型」にして
「フィールドプロパティ」の「フィールドサイズ」を変更する

>>339
単精度はまずいでしょう。

337です。色々ご指導ありがとうございました。おかげさまで解決しました。
もう一つ教えてください。
３３７５６９５８７という、９桁の数字を０３３７５６９５８７と表示
したいのですが、方法が分かりません。電話番号なので０３−３３７５−９５８７
と表示できればなお良いのですが・・。定型入力ウィザードを使ってみたのですが、
うまくいきませんでした。よろしくお願いします。

>>344
電話番号だったらテキストで保持した方がよいだろうな。

337です。定型入力を"0"000\-00\-0000;;_としたら出来てしまいました。
お騒がせしました。

贅沢かもしれませんが、フォーム作成時等に選択するフォントの順番を
変える事は出来ないのでしょうか？使うのはだいたい決まってまして・・。

標準にしとけばいいじゃん

>>348
オプションのデータシートの所を変えてはいるのですが、フォームで
ラベルを作るともとのフォントに戻ってしまうんです。
標準とは、オプションの変更の事ではないのですか？
また、ラベル作成時の背景も白でないんです。ウィザードで作っている
からでしょうか？茶色ですごく見にくんです。

>茶色ですごく見にくんです。
茶色ですごく見にくいんです。
の間違いです。失礼しました。

アクセスを検討中なのですが、DOS時代のソフトのように
マウスを使わないフルキーオペレーションのデータベースは
作れますか？
ファンクションキーとテンキー操作だけでほとんど事足りるような
奴です。
例えば入力フィールドにきたら自動的に候補のウィンドウが開き
そこからテンキーで番号を選択するだけで入力できるという感じ。
調べてみてポップアップウィンドウが使用可能なのはわかったのですが
それだとマウスが必要なので。
極力マウスオペレーションを減らしたいのです。

>>351
素直にDOSを使いなさい。

不可能ではないけど手間ばかり掛かるよ。
そのぶん金と時間をちゃんともらえ。

そもそも、そういうこというユーザは氏んでよい。

>>351
とりあえずコンボボックス使ってみ
キーボードの「F4」もしくは「ALT＋下矢印」でリストが開ける
上下キーで選択して「ENTER」で決定できる
５００件ぐらいまでのリストならそれなりに動くし簡単だよ

漏れは別フォームをポップアップさせ、そこから選択させてるけど
352さんの言うとおりにかなり手間かかってるよ

チェックボックスの、オン・オフの入力データを−１・０以外に
定義するにはどうしたらよいのでしょうか？

>>354
たぶん出来ないと思うよ
基本的にチェックBOXはYes/No以外は必要ないはず

どうしても、違う値で保存したいならチェックBOXを非連結で
定義しておいて、フォームの更新後処理あたりで値を変換して
本来の項目に保存するようにすればいいかも

>>355
ありがとうございました。アプローチだとチェックボタンの定義って
あってオン・オフ時の入力データを簡単に変えることが出来るんです
けどね。そういう機能は無いということですね。残念。

通常ＹＥＳ／ＮＯの所に既に有／無というデータが入っていまして、
そのデータを生かしてチェックボックスにしたいんです。
無理なのでしょうか。有／無を−１／０にするのは大変そうなので・・。

>>356
アプローチのチェックボタンなるコントロールがどんなものか知らないのですが
つまりＵＩをチェックボックスに限定する必要もないという事ですよね。

ならばオプショングループなどの使用も考えられてはいかがでしょうか。
この場合、グループ内にボタンが2つ（有ボタンと無ボタン）できあがってしまいますが
それぞれ個別に任意な値を割り当てられますので･･･

>有／無を−１／０にするのは大変そうなので・

をいをい。そんなの更新クエリーで一撃じゃん。
頭使えよ。

>>358
更新クエリーですか・・。う〜ん　勉強します・・。

以前のバージョンを持っていないのですが、
Access2000アップグレードのインストール方法を教えてください。

>>360
以前のバージョンなきゃできない。

>>359
更新クエリーわかんなけりゃ、データシートで一括置換。
ただ、更新クエリーはデータベースの基本中の基本。

>>360
それライセンス違反だってば（＾＾；

ちなみにアクセスのアップグレード版を使うと
前のバージョンのライセンスは消滅するらしい
（それぞれ動くように出切るけど）

クラスモジュールの書き方、使い方、使うタイミングなど
とにかくクラスモジュールってのが何者なのかよく判らないんです。
標準モジュールは色んなモジュールから使用できるっていうか
一番グローバルなものだってのは判るんですが。
（というか標準モジュール結構使ってます。）
どなたか教えてくださいませんか？

サブデータシートを含むデータシートを印刷するときに、
サブデータシートが展開された状態で印刷することはできるのでしょうか。
データシートビューでテーブルを開き、
書式→サブデータシート→すべて展開
の状態で印刷してもサブデータシートが印刷されません。

アクセス毛が生えた初心者です。

アクセスのマクロで「アプリケーションを起動する」というのがあります。

パスでエクセル本体を指定するとエクセルは起動します。
でも、エクセルのファイルを指定しても、エクセルは起動せずファイルは開きません。

アクセスのマクロで、エクセルのファイルを開かせる方法はないでしょうか？

初歩的な質問で恐縮しますが、お教えください。
お願いいたします。

>>366

　>>324でいかがでしょう

>>367さん
ありがとうございます！
心から感謝申し上げます！！！

ＸＰはどうでしょう？

フィールド１
北海道
青森
岩手

フィールド２
小学生
中学生
高校生

といった項目をチェックボックスで選択し、
適合したレコードのみを宛名ラベル印刷するような
フォームを作りたいのですが、どうしたらいいでしょうか？

元データ（テーブル）からクエリーでデータを抽出して、それを元に
レポートで宛名ラベルの全件表示＆印刷、
それにアドインから「メニュー用フォーム」で
簡単な表紙を作ることまではできました。

詳しい方、ぜひ教えてください。

>>370

関数を使った方がいいのでは？
あまりいい例とは言えませんが、とりあえず書いてみます。

１．モジュールを作成する（下記はその内容）

Option Compare Database
Option Explicit

Public Function 関数(フィールド1, フィールド2) As Boolean

Dim X As Boolean

Select Case フィールド1
Case "北海道"
X = Forms.フォーム1.北海道
Case "青森"
X = Forms.フォーム1.青森
Case "岩手"
X = Forms.フォーム1.岩手
Case Else
X = False
End Select

If X = True Then
Select Case フィールド2
Case "小学生"
X = Forms.フォーム1.小学生
Case "中学生"
X = Forms.フォーム1.中学生
Case "高校生"
X = Forms.フォーム1.高校生
Case Else
X = False
End Select
End If

関数 = X

End Function

２．クエリに下記のようなフィールドを追加する

＜フィールド＞
式1: 関数([フィールド１],[フィールド２])
＜抽出条件＞
True

うおー、>>371さん、ありがとうございます！
ワンタッチで検索＆印刷ができるよう、
検索フォームを作りたかったんです。

また、よい方法があったら教えてください。

いま、アクセスVBAを勉強してます。
今度質問させてもらいマース

Dim DB As Database
Dim d1 As Recordset
Set d1 = DB.OpenRecordset("SELECT * FROM ユーザー情報 " & _
"WHERE (ユーザーID=Me.[ユーザーID]);")


とやると「パラメータが少なすぎます。１を指定して下さい。」エラー３０６１
と出ます。これってどうやって処理したら良いのですか？

IDが数値型なら

Set d1 = DB.OpenRecordset("SELECT * FROM ユーザー情報 " & _
"WHERE (ユーザーID=" & Me.[ユーザーID] & ");")

IDが文字列だったら

Set d1 = DB.OpenRecordset("SELECT * FROM ユーザー情報 " & _
"WHERE (ユーザーID='" & Me.[ユーザーID] & "');")

でどうよ

>>375

できましたー。ありがとうございます。感謝。

374です。
ちなみにオートナンバー型だったらどうやるのですか？
たびたびすみません。

>>377
オートナンバー型は長整数型とおなじです。
（新規レコード追加時に値が自動インクリメントされる点を除いて）

自分で調べる & 考える習慣を身に付けないと進歩しないと思いますよ。
(初心者にはむずかしいとは思いますが・・・)

>>378

大変ありがとうございます。

教えて君ですみませんでした。

早速出ございますが、先日購入いたしましたofficeXPより・・・
Access2002のクエリーをWord2002の差込のデータにしようとしたかった
のですが、クエリー条件に"*"を使うと、データを呼んでくれません！
2000のときはそんなことなかったのに！
いったいどうゆう訳？？？

>>380

"*" の代わりに "%" かな
ADOならそうなる

ありがとうございます。MSサポートに電話したところ同じ回答でした。
しかし2000のほうが使いやすかったですよね！
・・即レスに感謝・・

クエリーに連番を振る方法はありますでしょうか？
きっと何かの本を見れば書いてあると思うのですが、田舎なもので
近所の本屋には置いておらず、取り寄せなければならなくて…。

また、お勧めの入門書等ありましたら、教えてくださいませ。

>>383
インプレスから出てる「できるAccess2000」っていうのがあるんだけど
結構わかりやすいよ。

以下のようにフィールド２つの
単純な帳票形式のレポートを印刷するとき

ｆ１　　ｆ２
１　　　伊東
２　　　加藤
３　　　足立
４　　　田村
５　　　飯塚
・
・
・
１００　鬼瓦

というふうにやると
何ページも使ってしまうので

１　　　伊東　　　３１　　丸胃　　　６１　小松
２　　　加藤　　　３２　　ペレ　　　６２　・・　
３　　　足立　　　３３　　・・　　　　・
４　　　田村　　　３４　　・・　　　　・
５　　　飯塚　　　３５　　・・　　　　・
・　　　　　　　　　・
・　　　　　　　　　・
・　　　　　　　　　・
３０　　鈴木　　　６０　　青木

のように横に並べて１ページに収めたいのですが
いろいろやったけどわかりません。
ビギナーのアホな質問で悪いかと思いますが
プロパティいじるだけで簡単にできるんでしょうか？
誰かお答えくださいませ。

>>385
ページ設定のレイアウトで列数・印刷方向等を設定すれば
何とかなります。

はじめまして。お聞きしたいことがあるのですが、アクセスって
一般的に独学でどれくらいで使いこなせるようになるものなのですか？
わたしはプログラミングはやったことのない初心者です。

さいきん、お店の出納帳というかデータベースをつくる仕事を
出来る人がいないか相談されたのですが、知り合いにそういう
人物がいなくって、自分でやってみるかと思ったのですが、なかなか
難しそうです。本当に、へんてこな質問してすみません。

>>387
出納帳の成り立ちというか、そういうお金の流れについての業務知識
があれば、泥縄式でもそれなりのものはつくれると思うよ。

「Accessを使いこなす」≠「出納帳を作れる」
ってことは自明。

>386
どうもありがとう
そんな簡単だったのね。

高度な内容のこのスレに、こんな質問で恐縮です。
Access97をノートパソコンで動かしています。CPUが近くにあるためか、
パームレストが、飲み頃のお茶ぐらいの熱さになります。
フォームの作り方などで、CPU負荷を低くする方法が有りましたら
お教え願います。

>>390
CPUに冷えピタでも貼っとけ。

て優香、
[AC97]Access の CPU 使用率がアイドル時間に 100%になる

最終更新日: 2000/12/26
文書番号: J057154
http://www.microsoft.com/JAPAN/support/kb/articles/J057/1/54.htm?LN=JA&SD=SO&FR=0
が関係するなら、Access2000か2002でもつかってみ。

>>391
早速のレスありがとうございます。
Access2000以降にしないと難しいようですね。
システムの入換と、CPUの冷えピタもできないので
断熱材を探して、パームレストに貼ってみます。

>>387

まずは手頃な市販ソフトを探すべし。
「業務に合わない」「難しそう」などと言われても、ACCESSでプログラム開発
するのは最後の手段ね。
市販ソフトがたとえ数万円したとしても、それをどっかのソフトハウスに頼んだ
場合１０倍以上かかるから、結局はお得よ。

>>392
断熱材貼るとパームレストから熱が逃げにくくなってまずいのでは？

アルミの板にでも載せて下から冷やしましょう。
週刊アスキーに載ってたノート用冷却台バカ高。

388.393>
早速のレスありがとうございました。大変参考になります。
この仕事、２ヶ月間程の猶予があって、バイト料が３０万なんです。
そして、市販のを使うというわけにはいかないんです。ちょこちょこっと
使いやすいように改造する必要があるわけですが、それが難しくて。

やはり自分でやるにはすこし難しすぎるようです。とりあえず、自分でもも
やっては見ますが、だれかできる人を探すことにします。

>>394
パームレスト以上に底面が熱いので、こちらの方が効きそうですね。
場違いな質問にレスしていただいて、ありがとうございました。

下がっちゃいかん。

97の事なのですが教えて下さい。

テーブルの中身を固定長のCSVにエクスポートしたいのですが
どうやるのかヒントを下さい。

すみません、教えてください。

フィールドAの値がBのときにフィールドCに
連番を付けていきたいのですが、どのように書けばよいのでしょうか。
素人なりに思い付く限りのことはやってみたのですが
どれもうまくできずにいます…。
もしよろしければ、ご教示くださいませ。

>>399
> 思い付く限りのことはやってみたのですが
> どれもうまくできずにいます…。
「何を」(What)思い付いて、「どう」(How)うまくできないのか、まったく記述されていない。Accessのバージョンも書いていない。
質問の書き方としては零点ですね。(辛口)
DAOなら、下記の要領。インデントが潰れていて読みにくいと思いますが、頑張って( ×嗅いどく　　×買い得　　○解読 )してくださいな。
（もちろん、変数／プロシージャ名、エラーメッセージ等はてきとーに変更すること）
Sub ItteYoshi
Dim i As Long
Dim strSql As String
Dim strSMG As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
i = 1 '初期化。
strSql = "SELECT *
strSql = strSql & " FROM
strSql = strSql & " [Table]
strSql = strSql & " WHERE
strSql = strSql & " [A] = B
strSql = strSql & " ORDER BY 条件"
Set db = CurrentDb
DoCmd.Hourglass True
Set rs = db.OpenRecordset(strSql,DbOpenDynaset)
On Error Goto SAGE
DbEngine.WorkSpaces(0).BegineTrans
With rs
Do Until .EOF
.Edit
.Fields("C").Value = i
.Update
i = i + 1
.MoveNext
Loop
DbEngine.WorkSpaces(0).CommitTrans
.Close
End With
db.close
DoCmd.Hourglass False
ExitLine:
Set rs = Nothing
Set db = Nothing
Exit Sub
SAGE:
DbEngine.WorkSpaces(0).Rollback
DoCmd.Hourglass False
Beep
strSMG = Cstr(Err.Number) & " : " & vbCrLf
strSMG = strMsg & Cstr(Err.Description)
strSMG = strMsg & vbCrLf & vbCrLf & "逝ってよし！(Help読めや、ゴルァ！)"
strSMG = strMsg & vbCrLf & vbCrLf & "SMGはサイテーです！"
Call SMGBox(strSMG,vbCritical,"SAGE")
Resume ExitLine
End Sub

>>440
ダメな質問に答えてくださってありがとうございます。
バージョンは2000で、if…であれこれとこねくり回しておりました。
こんなに難しそうなことやらなきゃダメだったのですね。
解読できるかどうか、かなり不安ですが頑張ってみます…。

>>400の人はAccess97(DAO)前提で書いています。
細かいところまで配慮した、プロが書いたと思われるコードです。
しかし、このままではAccess2000(ADO)では使えません。
いろいろなところをADO用に直さなければいけません。

次からはバージョンを書くようにしましょう。

ADOはVBからしか触ったことがないので
間違ってたら誰かツッコミ求む。

>>402-403
Access2000でもDAOは使えます。だから、既存のPGなら、無理に
ADOに移行する必要はありません。
ただ、DAOは(枯れてはいるが)将来性がないので、新規PGを作成
するなら、ADOの方がよいとは思います。

>>398
エクスポートするファイルフォーマットを定義して、
DoCmd.TransferText
でよいけど。

で、　固定長のCSV って何のことだい？

ヒントとしては、
CSVというのは、何の略か知ってイマスカ？

カンマで
セパレートされた
バリュー？

昨日>>399で質問させて頂いた者です。

せっかく>>400で教えて頂いたのですが、
昨日の時点で、DAOって何？という状態だった私には
今日１日かけてなんとなくわかってはきましたが、
ちゃんと解読するには、かなり時間がかかりそうです。

取り敢えずその場しのぎで、

テーブルＤからテーブル作成クエリを使って
フィールドＡがＣの抽出条件でテーブルＤ’を作り、
フォームのマクロでそのクエリを実行させて

Private Sub Form_BeforeInsert(Cancel As Integer)
If DCount("*", "Ｄ’") = 0 Then
A = 1
Else
Ａ = DMax("Ａ", "Ｄ") + 1
End If
End Sub

としてみました。
が、連番は自動挿入されるのですが、レポートに新しいデータが入らず、
また、一度終了させてしまうとフォーム上から入力しているものより
前のレコードを見れなくなってしまいました。
（それ以前に入力したものは普通に見られます）
ちなみに、フォームはフィールドＡがＣの抽出条件の選択クエリ経由で、
テーブルＤに入力しています。

フォーム上からレコードを参照できるようにするにはどうしたらいいのか、
また、どこに問題があるのか、もしよろしければご教示ください。

お助けください。２０００でも、９７でもよいですが、
コード 内容
1 aaa
2 bbb
3 ccc

というテーブルで、別の単票フォームの非連結のテキストボックスに「1」を
いれておいて、選択クエリを開くと、「1 aaa 」が表示され、単票フォームが、
空欄のまま、クエリを開くと、「1 aaa , 2 bbb , 3 ccc 」が表示させたい
のですが、思うようにいきません。

選択クエリの抽出条件には、
IIf([Forms]![フォーム]![コード]="",Like "*",[Forms]![フォーム]![コード])
としています。
If文は、機能してるのですが、Likeが機能してないようです。・・・・・なんで？

>>408
抽出条件でそのような式が書けるのかどうか分かりませんが、
下記のようなフィールドを追加すればできます。

＜フィールド＞
式1: IIf(IsNull([Forms]![フォーム]![コード]) Or [Forms]![フォーム]![コード]=[フィールド1],True,False)

＜抽出条件＞
True

私の環境では、

　[Forms]![フォーム]![コード]=""

という式ではうまく動作しませんでしたので、

　IsNull([Forms]![フォーム]![コード])

としています。

>>409
ありがとうございました。
とりあえず、これでしのぐことが、できそうです。
でも、なぜ、うまくいかないんだろう？

>>410
確かに、「とりあえず・・・」ですね。
書いた後で気付きましたが、>>409では全てのレコードを評価することとなり、
パフォーマンス的に問題有りですね。（思ってるよりACCESSは賢いかも知れませんが）

IIf([Forms]![フォーム]![コード]="",Like "*",[Forms]![フォーム]![コード]) >>408

の様に、抽出条件を演算子無しで書いた式の値はＳＱＬでは、

　WHERE フィールド1 = 値

であり、値が1の場合、

　WHERE フィールド1 = 1

で問題有りませんが、空白の場合、

　WHERE フィールド1 = Like "*"

とあいまいな評価をされるのかもしれません。
（本来は　WHERE フィールド1 Like "*"　ですよね）
それをふまえて抽出条件を書いてみますと、

Like IIf(IsNull([Forms]![フォーム]![コード]),"*",[Forms]![フォーム]![コード])

と書けます。
とりあえずパフォーマンス的に問題ないと思いますが、 ・・・Likeを評価したことないもので

>= IIf(IsNull([Forms]![フォーム]![コード]),0,[Forms]![フォーム]![コード])
And
<= IIf(IsNull([Forms]![フォーム]![コード]),999,[Forms]![フォーム]![コード])

と書く方がいいのかもしれません。
（999はそのフィールドの最大値）

色々と勉強させていただき、有り難うございました。

完璧です。ありがとうございました。
Likeを前に出せばよかったんですね。
なんとお礼をいったらいいか。重ね重ねありがとうございました。

そう言えば、パラメータクエリのウインドウに、一生懸命 「Like "*"」
って、入力してダメだった時も、Like の後ろに[message]をつけて解決
してたことを、今、思い出しました。

最近物忘れが激しく、アクセスもちょっと離れると、さっぱり忘れて
しまって、苦労しますわ。・・・・・・・では、また。

■Windows板 ローカルルール案 ■
--------------------------------------------------------
レイアウト見本　以下の案のどちらか賛成のほうを教えて

Win板のローカルルールを作ろう
http://yasai.2ch.net/test/read.cgi?bbs=win&key=986162000

422案
http://logdanyan.virtualave.net/up/image/1728.htm
482案
http://logdanyan.virtualave.net/up/image/1729.htm

どっちもいやだったら
http://logdanyan.virtualave.net/up/upload.cgi
にでもアップしてくれってことで

期限は 06/27 24:00 まで
知らなかったとか、んなことを後から言わないように。
--------------------------------------------------------
ローカルルールに入れてほしいルールがあれば箇条書きにして、
要望を出して下さい。

例）

マルチポストに関して　←ここは、内容ではない。

同一の質問を複数のスレッドにするときは、必ず、その旨を書き、
他のスレッドで解決した場合には、責任をもって結果を報告するように。
--------------------------------------------------------
コピペWindows板内自由　期限06/27 24:00まで

選択肢から複数選択可の場合、別にマスターテーブルを設けるのでなく
選択肢そのものをフィールドにしてデータ型をYes/No型にし、
チェックボックス化するのってやはり邪道ですか？
入力がラクなのでチェックボックス使いたいんですが･･･
よい方法はないでしょうか。同じような状況にあった人おられますか？

>>414
状況によりだよね。
さすがに選択肢としてチェックボックスが150個くらい並ぶと、
キモいとおもう（藁）
フォームウィザードみたいに、リストボックス2個並べて、
矢印ボタンで選択／非選択／全選択／全非選択とかって方法もある。

>>415
選択項目を後から追加する際ちと面倒ですが
当面自分以外は触らないし多分項目も増やさなくていいから
チェックボックスでいきます。
なるほど、リストボックスって結構使い道あるんですね。
試してみます。ありがとうございました。

97の事なのですが、
レコードセットをサブフォームのレコードソースにしたい場合はどうするのですか？

Set Me!フォーム名.Form.Recordset = レコードセット

では駄目なのですか？

>>417
それで動いたのか？
動くのならそれで良しだが。

Set Me!フォーム名.Form.RecordSource = レコードセットの元になってるテーブルorクエリーorSQL文
じゃないのか？

こんにちは。
NyukoSumの値が0より上ならNyukoSumの値を、それ以外（NULLも含め）なら0を
テキストボックスへ入れたいのですが、

=IIf([倉庫入庫フォーム].[Form]![NyukoSum]>0,[倉庫入庫フォーム].[Form]![NyukoSum],0)

だと、間延びしてスマートじゃないように思うのですが、
もっとすっきり書く方法はないでしょうか。

>>419
0に見せるだけでよいなら書式プロパティを設定すればよいかも。
正の値;負;0のとき;Nullのとき
だっけ？ヘルプ見てくれ。

ACCESSでアプリケーションを作るとき、
住所入力を補助するような機能（郵便番号から入力・地名から等）
を付けたいような場合どうしてます？

自作しようか迷ってます^^;

>>421
IMEの郵便番号→住所変換機能をONにして使わせてる。
ACCESSにもその機能があることは承知してるけど･･･

>>422
それじゃユーザーは納得しないでしょ^^;

>>423
手作りなら追加料金10万円、IMEの機能ならタダ
って言ってやれば、たいていの客はIMEで納得すると思われ。

ちゅうか、Accessのアドインだか標準機能なんだか、
そういうの無かったか？

>>420
出来ました。「0;0;0;0」って書きました。
すっきりしたよ。よかったー。
ありがとうございました。

>>424　>>425
郵便番号がある住所が少ないのよ
どっかに、よさげなもの落ちてないかのぉ。

がいしゅつスマソ
http://www.postal.mpt.go.jp/newnumber/down.htm

>>428
情報感謝・・・でも。。。すでに知ってるんだよなぁ・・^^;
作れってこと。。(^^?

>>429
金もらえるなら作れ
ってことでお互いはっぴいOKOK.

これ使えば。昔同じこと考えて探して見つけた。

ZIPJIS 郵便番号簿と市区町村コード他データベース
http://www.vector.co.jp/soft/data/personal/se021368.html

>>430
ちょびっとだけね（涙）
>>431
電話番号かぁ。。。一瞬をを。。っと思ったが、
東京だと2000件もあるし死ぬ(^^;
それに、どの道つくらなあかん....

うーむ・・・

サーバー上のデータを利用してグラフを５種類くらい表示するやつで、
クエリーとフォームをそれぞれ２つか３つ作ればできそうなんだけど、
いくらぐらい貰えばいいの教えてください。
３日あればできそうだけど、安すぎて、次々注文がきても嫌だし、
取引先なので、不当に高額も請求しにくいです。

Access2000を勉強中なのですが､
ﾃｰﾌﾞﾙの作成中にデータ型のところで他のﾃｰﾌﾞﾙを参照しようとして
ルックアップウィザードを使おうとすると

”複数のルックアップウィザードのインスタンスを
同時に実行することはできません。”

というエラーメッセージが出てしまいます。
今までは、普通につかえてたのにどういう事なのでしょうか？
また、インスタンスとは何の事なのでしょうか？

よろしくご教授ください。

DAOプログラム使って、レコードセットにデータを取りこむ時に
フィールドが数値型だと、Null値(空白)を受け付けてもらえず
エラーになってしまいます。
なぜこうなってしまうのか？
フィールドを数値型にしたままNull値を取りこむ方法はあるんでしょうか？

大雑把過ぎて説明が足りないかもしれませんが、分かる方
おられましたらお願いします。

客先個人別管理のデータベースを作って、お中元・お歳暮や年賀状の
管理をしています。
お中元の配送先を会社か自宅かリストボックスで選択し、レポートには
選択されたほうの住所が出力されるようになっているのですが、
会社と自宅両方に送る場合、ひとつのレコードを会社送付用と自宅送付
用のふたつにするにはどうしたらいいでしょうか？
具体的には、送付先のリストボックスに「会社と自宅」という値を増やし、
それを選んだ場合は、レポートに会社の住所が表示されるレコードと
自宅の住所が表示されるレコードを続けて出力したいのですが。
現在は会社送付用と自宅送付用とレコードをふたつ作っているのですが
個人のレコードがふたつあると何かと面倒なので、あくまでもテーブル上
のレコードはひとつにしたいのです。

いまちょっと思いついたのは、レポートにまったく同じコントロールを
２行配置し、「会社と自宅」の値があったときのみ、上の行に会社住所、
下の行に自宅住所が出力されるようにすればいいのかな？
それ以外の値のときは、下の行のコントロールはすべてnullにして
データが空のコントロールは印刷しないプロパティ（名前失念）を
設定しておけばうまくいくかも？

考えかたとしてはこれで合っているでしょうか？
それとも他に良いやりかたがあればご教授ください。
長文でごめんなさい。

会社住所と自宅住所それぞれに対応した Yes/No フィールドを作って、
リストボックスと関連づけるのでも何でもいいからそれにチェックを
つけるようにして、その有無で配送を判別すればいい気がするけど。

437 さん、ありがとうございます。

しかし、今日会社でテーブルをよく見てみたら、会社と自宅
両方に送る場合はそれぞれ送る品が違っているので、ひとつの
レコードに収めようと思ったら品物のフィールドをもうひとつ
作らねばならないことに気がつきました・・・。
もうそこまでやると煩雑なんできっぱりあきらめようかと
（現時点ですでにフォーム上のコントロールもいっぱいあって
　わけわからなくなりそうだし(ToT)）

#関係ないけど、ワタクシ一介の事務OLなんで中元も歳暮も
縁がないのですが、自宅と会社両方に送る場合もあるの^^;？

>>435

> DAOプログラム使って、レコードセットにデータを取りこむ時に
> フィールドが数値型だと、Null値(空白)を受け付けてもらえず
> エラーになってしまいます。

その前に入力画面のチェックに問題がないか検討しなおすのがスジ。
Nullが入って都合が悪い項目には最初からNullが入り得ない設計に
しないと、開発（デバッグ、保守）に余計な負荷が掛かります。

>>435
初期値を0にしといて、0をNull代わりにすれば？

プログラムのいたるところにIsNullカマシまくらないとならなくなるから、
プログラム内にはNullは持ち込まないほうが良いと思う。

クエリーを作り、その中で演算フィールドを作ることがありますが、
その作ったフィールドのデータ型はどうやって決まるのでしょうか。

例えば、[費用]と言うフィールドを通貨型として[予算]テーブルで規定しておき
以下のようなフィールドを含むクエリーを作ります。
[費用] [予算]テーブル
[消費税] 式：Int(費用*0.05)
[合計] 式：[費用]+[消費税]

これをクエリーのデータシートビューで見ると
費用 消費税 合計
　 \1,000 50 \1,050

となります。同じ演算フィールドで片方は数値型、もう片方は通貨型に
なってるように見えるのですが・・・。

ちなみに単純に、[費用]/1000とやると1（数値型？）で表示されます。
Why???

除算と式に小数があれば結果の値に小数が含まれる可能性があります。
したがって自動的に数値型にしてしまいます。たぶん！
加算・乗算葉その心配が無いのでその中に通貨型があればつうかがたとします。たぶん！！
通貨型を数値がたの特別な場合と考えるとわかりやすいのではないですか。

>>441
[消費税] 式：Int(費用*0.05)
INTすれば数値になるに決まってんじゃん！
あと、消費税5％で将来固定かどうかも怪しいし。。
端数処理は？

くだらないこと考えるよりやることありそだな。

[消費税] 式：CCur(Int(費用*0.05) )
だとどうなるかな。

>>444
>[消費税] 式：CCur(Int(費用*0.05) )
>だとどうなるかな。
何の意味があるんだ・・・(--?
だいたい、通貨型と数値型の違いわかっているのか？

>>445
>何の意味があるんだ・・・(--?

さあ？
質問者の意図が「消費税にも￥がついて欲しい」かと思ったんだが。

教えてくださいませ。

氏名　　希望理由　順位
----------------------
ヤマダ　＊＊＊　 　1
ヤマダ　●●●　　 2
サトウ　＋＋＋　　 1
サトウ　＠＠＠　　 2
サトウ　＆＆＆　　 3
　・　　　・　　 　・
　・　　　・　　　 ・
　・　　　・　　　 ・

こういう感じのテーブルを

氏名　　　1　　　　2　　　3
------------------------------
ヤマダ　＊＊＊　●●●
サトウ　＋＋＋　＠＠＠　＆＆＆
　・　　　・　　　・
　・　　　・　　　・
　・　　　・　　　・

こういうふうにしたくてクロス集計クエリーで試しているのですが
よい方法はありませんか？よろしくお願いします。

>>447
クロスをデザインで開いて、「値」のところを最大値とでもしてみ
テーブル設計も厨房だが、ここではふれないでおこう（笑）

>>448
出来たっ。ばかだなあこんなのも分からないなんて。
レスありがとうございました。

>テーブル設計も厨房だが、ここではふれないでおこう（笑）

上のテーブルですか？
表示したいフィールドしか書かなかったんですけど・・・
テーブル設計はどうすれば上手くなりますか？

>>449
氏名Tと希望の順位Tは分けるべきだな。
理由も重複する理由が出るなら希望理由Tを作って3っつだな。。

>テーブル設計はどうすれば上手くなりますか？
重複するものはクエリー（SQL）で表示することを心がけ、
（すべてではないところが難しい(^^;）修練あるのみじゃ！

>>449
> テーブル設計はどうすれば上手くなりますか？

「正規化」をキーワードに調べましょう。

　テキストボックスに入力したファイル名をすべてのドライブから検索して、
存在すれメッセージボックスでそのフルパスを表示させたいのですが、やりかた
がわかりません。ありがちな質問かも知れませんが、教えてください。

Accessの顧客管理テーブルをデータファイルとして、
Wordの差込印刷機能を使って顧客の宛名を大量に印刷したいのですが、
郵便番号の処理が上手くいきません。

郵便番号の「-(ハイフォン)」が無視されるのです。

ハイフォンを表示させる方法ないのでしょうか？

質問
Accessって何のソフト？
つか、Office XP Pro持ってるんだけど全然使わない
PowerPoint,Outlook,AccessアンドFrontpageはただの付録と化している

>>454
データベースソフトだよ。
まぁ、パーソナルユースじゃたいして大量のデータベースを扱う
必要もないから、住所録なんかはExcelとWordの差し込み印刷
機能で充分事足りるかも。

データベースって何？　という質問なら、自分で調べてね^^;

PowerPointも同じく。
個人でプレゼンテーションなんかしないもんね。
個人的には、むしろWordより自由度の高い文書が作れると思う
けれども。

>>455
＞PowerPointも同じく。
＞個人でプレゼンテーションなんかしないもんね。
＞個人的には、むしろWordより自由度の高い文書が作れると思う
＞けれども。

そうかぁ？
自由度が高い文章なら、エクセルで書くに決まっておろう。
かなりいるものだぞ（笑）

>>455
でもAccessって「大量のデータベースを扱う」には、貧弱ではなかろうか？
ネットワーク環境下で複数ユーザーの同時使用に耐えられないし、パフォーマンスも低いし．．.

>>456
>>455はレイアウトの事いってるんだろうよ。
なんにしても、ワードは使えないってことか。

>>457
そういう使い方をしたい人には SQL Server ってことでしょ。
Access は個人用 & マルチユーザーのデータベースサーバーのフロントエンド。
想定されていない機能を要求してもとんちんかんなだけ。

>>457
激しく同意!!
ファイルメーカーの方がレコード数もユーザー数も耐えられるらしいね

MSDEはどうよ？

MSDE は SQL Server へそのまま移行するのに使えるってだけでしょ。
Access だけで使い続けるなら Jet と変わりない。

>>462　>>457
厨房が多いな・・
MSDEとSQL鯖はほとんど同じものだぞ。

JETもマトモに知らない厨房が、DBを語るんじゃない！

あんたがアホ。
内部はともかく、ユーザーから使える機能が SQL Server 並になるわけじゃないだろう？
MS のセールストークに踊らされてんじゃねえよ。

>>464
使ったこと有るのか？
厨房

どっちもどっちだ

>>464
お馬鹿な厨房ども、ここを見ろ
http://akizuki.adsp.or.jp/book/msde-sql.htm

オラクルにしろよ。サンまではいらないだろ。
オラクルまでいらない厨房にはファイルメーカーでいいだろうよ。

>>468
ACCESS＆oo4o＆oraで使ってるぞ
VBみたいに妙なDLLバラまかずにすむ分、
個人的には、こちら推奨しているがな

>>467
知ったかぶり厨房どもは、全て消えたな（笑）

JetとMSDEの区別もできない厨房は置いといて．．．
やっぱEnterpriseManager抜きのSQLServerは使いづらいね。
開発はSQLServerでやって、客に配布するときはMSDEでもいいな。

フォームのテキストボックスで条件付書式の設定というのがありますが、
その条件により８通りの色分けをしたいと思ってます。
でもこの条件付書式設定では４通りの設定しかできません。
それで困っているのですがモジュールかなんかで８通りの色分けを
できないのでしょうか？
どなたかお願いします。

>>472
8個も分けてどーするんだ？
まず、お馬鹿な設計見直しなさい（藁

OLEオブジェクトにBMPファイルを取り込んだのですが
その画像にモザイクがかかった様な状態でしか表示され
ません。 何が原因なのでしょうか？
その画像は画像ソフトなどで観ると何ら問題無く表示
されるのですが。

レポートで明細書を印刷したいのですが
１ページずつ３分割にして写しを作る方法ってありますか？
明細セクションは１回しか使えないし、
サブレポートは上手く改ページしてくれないし。（レコードの多い１件を複数ページにしてくれなかったり）
ＶＢＡでも何でもかまわないので。
説明がわかりづらいかもしれませんが…

>>475
work使えばできるよ、チト面倒だけどね。

>475
お馬鹿な設計とはいかに？
とにかくそーする必要があるので、やり方知ってる人教えて欲しい。

>>474

> モザイクがかかった様な状態

Ｈ画像ですか？ (違

サブフォームのソースオブジェクトは
プロジージャで書き換えられないのデスカー(ToT)？

↑サブフォームじゃなくてサブレポートでシター(ToT)

>>477
お馬鹿な設計とは、
目立たせる必要があるものは、4個までで十分
仕様上4っつしかできないのに、こだわる。

まぁ、他の方法ないこともないガナ。

>>479-480

できます。（経験あり）
ただし、開く（Report_Open）回数の多い帳票処理の場合、レスポンスに
影響する可能性があります。
１回の印刷／プレビュー処理あたりのOpenイベントが１〜数回（1ケタ）
程度なら、レスポンスの悪化はまったく問題にならない（実用に耐える）
と思います。

>>432
住所つけるやつ、これどうよ
http://www.vector.co.jp/soft/win95/personal/se201246.html

質問です
2つのフィールドを組み合わせて､ユニークなキーを持つテーブルを作成することは可能でしょうか?

例えば､ID,Dateを組み合わせてユニークなキーを作り､
ID, Date,
01, 01/01/01
01, 01/02/01
01, 01/03//1
…
02, 01/01/01
…

のようなデータがあるとします｡ここに､01,01/03/01 のデータを作成しようとするとワーニングがでるといったようにです｡

helpで自己解決
これがほんとの自作自演

>>484-485

ぷら伊万里キーが単独でないケースなど、珍しくもなんともないのでは？
申し訳ないが、この程度で喜んでいるようなら、かなり寒いです。
（辛口）

>481
嫌な奴だな。
目立つのは４通りで十分なんて誰が決めたんだ？
だいたい目立たせるためのものじゃないんだよ。
とにかく８通りの色が必要なんだ。そういうことなんだよ。
８通りの色と言うと、気がつく人は気がつくかもしれんね。

2002の質問もいいですか？
Word2002の差込機能でAccess2002のクエリのDataを挿入しようと
すると読み込めません。
どうやらDatafile形式を変えてやらなければならないらしいのですが
どこから設定の画面にいけるのでしょう？
マジレスお願いします・・・

>481
嫌な奴だな。
>目立つのは４通りで十分なんて誰が決めたんだ？
>だいたい目立たせるためのものじゃないんだよ。
>とにかく８通りの色が必要なんだ。そういうことなんだよ。
>８通りの色と言うと、気がつく人は気がつくかもしれんね。
素直じゃないなぁ
こうやって目的あいまいに書くから、レスする気にもならな
いということを理解しなさい。

>489
了解。答えれないんだね。

>了解。答えれないんだね。
今度は、煽りか（苦笑）

>>486
データベースの設計が私の仕事ではないんで､別に何をいわれようと…

>>492

それなら、専門家に依頼（OOP用語では、"委譲"）するのもひとつの手ですよ。
（確かに、>>486はちょっと言い過ぎかもしれませんが）
自分ひとりで苦しんでいても、生産性はなかなか上がるものではないし・・・。

ソリューションの一つとして､私のスキルがやり玉に挙がったにすぎないので､まだプレゼンの段階なんですよ
って説明してどうする>>俺

ああ、そうだったんですか。

>>494

条件付書式は4種類ってのは仕様だから、貴殿のスキルとは別次元の話だ。

単票だったらいくらでも変えられるけど、
データシートだと無理なんで、どんなフォームを作っているのか
という情報がないと回答得られにくいんじゃないかな？
とりあえず、
ttp://www.ruriplus.com/msaccess/index.asp
でもみてみそ。

>496
おかげで問題解決できたのでありがとうございました。

フォームの複数のテキストボックスを条件として、レコードを
AND検索するようにしたいのですがどうすればいいんでしょうか？

やりたいことは
1.無効な条件だったら、ダイアログを表示して警告
2.もしテキストボックスが空欄だったら、そこだけ無視する
3.全部空欄だったら、1と同じくダイアログで警告

特に2番目ができなくて困ってます。
当たり前なんだけど、空欄もAND演算しちゃうんだよね。
たぶんVBA使うと思うんだけど・・・

>>498
たとえばこんな感じでどうでしょう
（ボタンのクリックにより、ＳＱＬ文作ってレコードソースに入れる）

Private Sub ぼたん_Click()

Dim W_Sql As String

If IsNull(てきすとＡ) And IsNull(てきすとＢ) And IsNull(てきすとＣ) Then
MsgBox "全部空白はいかん！！"
Exit Sub
ElseIf IsNull(てきすとＡ) Then
MsgBox "てきすとＡの空白はいかん！！"
Exit Sub
End If

W_Sql = "SELECT * FROM てーぶる "
W_Sql = W_Sql & "WHERE "
W_Sql = W_Sql & "ふぃーるどＡ = '" & てきすとＡ & "'"
If Not IsNull(てきすとＢ) Then W_Sql = W_Sql & " AND ふぃーるどＢ = '" & てきすとＢ & "'"
If Not IsNull(てきすとＣ) Then W_Sql = W_Sql & " AND ふぃーるどＣ = '" & てきすとＣ & "'"
W_Sql = W_Sql & " ORDER BY ふぃーるどＡ,ふぃーるどB,ふぃーるどＣ"

Me.RecordSource = W_Sql

End Sub

７／１８（水）　ジョンロブ・パリのフィリップ（ダークブラウン）

今日は、休み前の出勤でやるべき仕事のボリュームがかなりあり、気を引き締めて片付けるために、ジョンロブ・パリのフィリップをセレクトしました。
フィリップを履いた効果か、何とかそれほど時間がかからずに全てこなすことができたので、明日から心置きなくバカンスに行けます。
このダークオークと呼ばれるダークブラウンは、黒よりもアンティークな感じにまとまり、少々華やいだ雰囲気になります。
基本的にエレガントな靴なのですが、黒よりもあまり畏まらないで履けると思います。
この靴の個体の革は、色艶が結構あって、品質の高さが誰にでもわかる感じです。
クリームをつけずに軽く磨くだけで光るほどです。
牛１頭から１足のみが造られるとのことですが、それほどは目立たない光沢の黒の個体の革とは味わいが異なるのもおもしろいです。
レザーソールの靴で、色違いを２足持っているのは、このフィリップとマッタだけです。
ジョンロブ・パリの既製靴のトップレンジだけあって、革質といい、シルエットといい、魅せられているからです。
でも、一番の理由は、シームレスな踵にまいっているからです。
収納してある靴の中で、シームレスな踵はとても悩ましくて、他の靴よりも目立つのです。
とにかく、エレガントな極みの靴を黒以上に普通に履ける、とても魅力的な靴です。

>>499
相手のレベルで、レスしないと。。。^^;
ウケ狙いのマジレスも理解できないと思う（笑）

>>497
最初の方に煽られて普通にレス書けないのは分かるけど
どうやって解決したかぐらい書くもんだぞ。

>>497
http://www.geocities.co.jp/SiliconValley-Cupertino/3302/

個人スキルのプレゼンを人に頼るな

にたような名前の商材が大量にあります。
コンボボックス等でスクロールしながら選択するには無理がある量なので、
「オートコンプリート」の様な処理ができないかなぁと思っているのですが、
良い方法があったら、教えてください。

>505
>にたような名前の商材が大量にあります。
似てるって？

コンボボックスの値を参照して検索するようにしてるんだけど、
そこで選択した値と、実際に検索する値を別にするにはどうすればいいの？

コンボボックスのプロパティの
"コントロールソース","値集合ソース","連結列"あたりが
ひっじょーにｸｻｲような気はしてるんだけど・・・むぅ。

>>507
コンボボックスの「Column」プロパティを使え。
値集合ソース中の別フィールドの値を参照できるぞ。

>>505
なにも設定しなくてもできないか?

顧客管理必要なんですが、各人にデータ数がたくさん関連してます。
氏名１つ１つに３０から４０の項目作ってデータベースを作るものなんでしょうか
分割して関連がすぐわかるものなのでしょうか
・・・
自分の考え方レベルが幼稚な気がします。
考える以前の問題のような気がしてなりません。
何かアクセスに限らずでーたベースソフトのデータ管理の考え方、
データベースの作成の概念とかといった良い本をご存じありませんか？

>>510
各人がどんな商品を購入したとか、どんなお中元を贈ったとか、全員にあるとは
限らない、または一人で複数あるかもしれない項目は別テーブルに入れて、
顧客ごとのユニークキーで必要なときにひっぱってくるのが定石かと。
なんでもかんでもテーブルは分けたほうがいいとは一概にはいえないけど、
なるべく空白の欄を少なくしたほうがDB全体のサイズを抑えられるみたいだよ。

>>511
ううむむありがとうです。
正直よくわからない。でも、けっこうな割合でチェックがつく
項目とたまにしか付かない項目は分けた方がいいというような
感じですか。
もっと勉強しまっす。

>>512
うーんちょっと違うんだけど。
たとえば名簿のようなものを作るとして、資格のデータを入れたいとき、一人で
いくつも資格持ってる人もいれば、まったく持ってない人もいそうだよね。
そういう場合、大元のテーブルに資格１、資格２、資格３、・・・　って項目作るよりは、

山田なにがし　資格1
山田なにがし　資格2
山田なにがし　資格3
高橋だれそれ　資格1
佐藤なんとか　資格1
佐藤なんとか　資格2

って資格テーブルを別に作って、この場合は名前で大元のテーブルとjoin
させるのが効率的なのだ。こういうのを「テーブルの正規化」というらしいよ。

効率的なテーブル設計のコツは、やっぱり慣れだと思うんだけど、最初は
なかなかテーブル分割の見極めってむずかしいと思う。
ネットでも充分Accessの勉強ってできると思うので、がんばってください。

>>513
人に教えるレベルではないな（笑
>>512
とりあえず、ベクターから住所・顧客・ACCESSなどで検索して
DLしてみ、
それと、目的や、作ったテーブル具体的に付けなければマトモなレスはつかんぞ

>>513
テーブルの正規化・・
こういう考え方が有るって情報が得られただけでも感謝感激です。
本気で３８項目だーっと横に並べて予備で２項目空けておくとか
考えてました。

>>514
ですね
質問アバウトすぎでした。
でも、いろいろサンプル落として見てみてます。
むずいけど、、。指針、サンクスでした

みなさん、毎回お世話になってます。

レポートの表紙になる物をレポートヘッダーに作っています。
ここは単なる注釈等が書かれるので、DBでレコードを持つような内容は
なく、かつ罫線などはユーザーに自由に変えられるようにしておくため
、Wordで作ったファイルをOLEでリンクさせてます。

必要な時は（ユーザーで）Wordを立ち上げて変更・保存後、ACCESSで印刷すれば
OK・・・のはずが、WORDを立ち上げたまま起動した場合しか更新が反映
されないようです。
もちろんタイプはリンク、更新設定は自動にしてるんですが・・・、
毎回レポート読み込み時にリンクを更新するようコード書いてやらない
いけないんでしょうか。

昔DBをApproachでつくりWordの文書を貼り付けるなどとへんちくりんな
（そうせざるを得なかった）事をしてたときよりましかと思えば、
所詮MSの連携なんてこんな物なんでしょうか？

>>516
通常wordの差し込み印刷を使います。

こんながいしゅつのものに文句ゆうまえに勉強しなさい。

>>517
差込印刷等と誤解されないよう、
>ここは単なる注釈等が書かれるので、DBでレコードを持つような内容はなく、
と書いてましたが、分かりにかったみたいです。

一ページ目　　=レコードと関連性なし（単なる表紙）。
二ページ目以降=レコードの一覧を出力

表紙が全く変わらなければ、レポートヘッダーにAccessでそのまま作りますが，
罫線や網掛けの有無が時々変わり、Accessを知らない人間でもそれを変更できる
のがメインの目的。
変更させるためのパラメータをテーブルにあまり規則性も無いので。
やっぱりOLEサーバーが立ち上がってないと駄目な気がしてきた・・・。

>>518の下から二行目、訳わからん。
変更させるためのパラメータをテーブルに持たせようにも、
規則性もあまり無いので。
・・・が正解
反省

OLEでWORD使うといろいろ問題の出ることが、
がいしゅであると書いたつもりなのだが（苦笑）

>罫線や網掛けの有無が時々変わり、
>Accessを知らない人間でもそれを変更できる
んなもん、word何ぞ使わず、VBAぐるぐる回すもんじゃぁ

XPにしたら又、組治さなくてはならなくないですか？

フォームのレイアウトがとてもやり難い．．．
どっかにツール落ちてない？

↓でもよんでみればぁ？

[ACC2002] データベースの正規化の基礎
最終更新日: 2001/03/30
文書番号: JP283878
http://www.microsoft.com/japan/support/kb/articles/JP283/8/78.htm

初歩的な質問ですみません。。。。
フォームの入力について質問です。コース欄（コンボボックス）で
Aコースを選ぶと金額欄に自動的に3000円と入り、
Bコースを選ぶと金額欄に自動的に6000円と入るようにするには
どうすればいいでしょうか？
ヘルプのどこを見ればいいのかだけでもいいので。。。どなたかご教授ください。

Access97を使っているのですが、最適化を頻繁にするのが
おすすめなのはいいとして、修復は最適化の前にいつもかけて
いてはいけないのでしょうか。
http://www.microsoft.com/JAPAN/support/kb/articles/J056/2/23.htm
を見ると、必要なときにしか修復をしてはいけないと書いてあるので、
ちょっと心配です。
（2年間ほぼ安定して運用していたmdbデータファイルが、ここ
数週間で2回もシステムテーブルクラッシュの目にあっています）

>>524
非連結フォーム（コントロールにデータ元が設定されていない）
なら、

Select Case Me!コース欄
　　Case "Aコース"
　　　　Me!金額欄 = "3000円"
　　Case "Bコース"
　　　　Me!金額欄 = "6000円"
　　Case Else
　　　　'その他の値の場合の処理をここに書く
End Select

かなぁ。VBAの入門書を読んで勉強してみたらいいのでは？

あ、上のは「コース欄」のAfterUpdateイベントに書いてね。

>>525
修復は指示されたときだけ。
トドメを刺す結果にもなりかねないので
無闇にやらないほうがよい。

大事なのは「バックアップ」

>>528
うぎゃーやはりそうですか。
毎日データファイルmdbのバックアップをとっているのですが、
　修復→最適化→バックアップ
をここ数ヶ月行っていました。Access2000だと、「修復/最適化」
ってくっついたコマンドになっていたので、こりゃセットでやれば
いいのかと思い込んでいました。ありがとうございます。

>>526さん、ありがとうございました。うまくいきました。
VBAを知らないことにはどうにもならないですよね。。。勉強します。

>>523
ありがとう。でも、、
むじぃ〜
こんなのもしかして基本なの？；；

>>531
RDBMSを利用したシステムでのテーブル設計の局面では、
基礎というか常識というか原則というか。
無論、それが守られていないシステムも多いのだけどね。
「なによこのテーブル設計(--;　あんたヴァカぁ？」
みたいなの。

個人レベルでちまちまとAccessいじってる場合でも、
第1正規形（横に同じ項目を並べない）だけでも守っておくと、
クエリーがシンプルになったり等のご利益があると思われ。

>>532
テーブル設計は、設計者によっても違うからね・・

個人的にはユニークキーは必ず1つというポリシーを持ってます（笑）
複数でユニークというのは、SQLが複雑になるから強引にでも作ります（笑）

質問があります。

Dim DB As Database
Dim QDEF As QueryDef


Set DB = CurrentDb
Set QDEF = DB.QueryDefs("Q_顧客台帳")
QDEF.Parameters!口座番号 = Me!口座番号
Set 選択顧客 = QDEF.OpenRecordset

534続き
Access97では上記の書き方で選択してオープンしていました。

Access2000のADOではどのようにすればいいのでしょうか？

どもです。
MicroSoft 2000です。
BDE(Borland Database Engine)で MSACCESSありますよね？
そのなかにいくつかテーブルがあるんですが、
Database Explorer　で『SQLの入力』をします。
それで、select (???) from 〜　とデータを抽出してるんですが、
例えば、この(???)の所を、SUM(数量) とします。このとき、
データを抽出してる元はMSACCESSなので、フィールド名が『数量』では
無くて、『Expr1000』となります。
ＳＱＬやＯＲＡＣＬＥのように、数量 = SUM(数量)とかSUM(数量)CONPUTE数量
といった感じで入力するとエラーが出て抽出できません。
フィールド名を出来るだけ『数量』に近づけたいです。分かる方お願いします！

あともう一つ。同じくMSACCESSで　ワイルドカードは使用できないのでしょうか？
SQLSERVER6.5なら、like演算子がありますが、あれの代わりみたいなのが
あれば教えてください。

>>536
SELECT SUM(数量) AS 数量
にしてみ。
あとLikeも使えるよ。

>>537
SELECT SUM(数量) AS 数量 from〜
うぅ〜成功しません。(泣)いろいろ半角スペースとかひっつけたりとか
試してみたんですが、
〔一般ＳＱＬエラーです
　Circular reference caused by alias '数量' in query
definition's SELECT list〕
と出ます。
環境はBorland DelphiのDatabase Explorer(SQL Explorer)のMSACCESS
なんですが、一応ＳＱＬの方で試したら As 数量 とおりましたっ！

あと、Likeなんですが、記述の仕方は　from 〜 where コード like "A%"
でいいのでしょうか？

>>534
' ADOのオブジェクト変数を宣言する
Dim cnn As New ADODB.Connection
Dim rec As New ADODB.Recordset

' 接続を確立する
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\My Documents\db1.mdb;"

' SQLを指定してレコードセットを作成する
rec.Open "SELECT * FROM ○ WHERE ぱらめーた", cnn, adOpenKeyset, adLockReadOnly

Access2000でもDAOを山椒設定して今まで通りに使っても委員じゃないかな。

>539
有り難うございます。
SQL文を直接使うしか無いみたいですね。
後は、普通にテーブルをOPENして、フィルターを使うかですよね。

有り難うございました。

ヤマセイ経理Ａを試してみて下さい。
ヤマセイ経理Ａは手作り版で２００００円で販売しています。会計・原価管理（プロジェクト管理）はできます。給与は入っていません。ＡＣＣＥＳＳ９７で稼動するソフトです。（作者より）
ＵＲＬ　http://www.interq.or.jp/earth/yamasei/

FAQとは思いますが､クリスタルレポートとはなんですか?

>>542
某ドキュソ会社グループの悪事を糾弾する告発文書のこと。

>>542

某県知事が書いた報告書。
「なんとなく・・・」

ポップアッププロパティ="はい"にしているフォームから
レポートを呼び出すと、フォームの裏に開いちゃう。
これを最前面に開くようにしたいっす。

>>545
>これを最前面に開くようにしたいっす。
すれば？

>>545
ポップアップって、そういうものなのでは？
何か理由があってポップアップ使ってるのかもしれないけど、
作業ウィンドウ固定プロパティじゃダメなの？

ポップアップされたフォームの前にレポートを開くのは無理だと思う
フォームを閉じてからレポート（の印刷プレビューでしょ？）を
開くマクロを作りな

アクセスって縦書き時の組数字できるんですか?

dBASE IV形式でデータをはき出したいんですけど
マクロのエクスポートでうまくいきません

Windows Me で Excel2000を使っております。

・セルを入力する際、例えば
　半角の１を入力したら、「はい」と
　半角の２を入力したら、「いいえ」などと
　表示を自動的に置き換えることはできませんでし
　ょうか。

過去ログや解説書など心当たりのものは一通り見回
し、友人にもあたってみたのですが、どうしてもわ
かりませんでした。
稚拙な質問で恐縮ですが、みなさまのお知恵をお借
りできれば幸いです。

最後の頼りが２チャンネルです。
どうぞよろしくお願いいたします。

コンタクトを外していたので、
スレをまちがえてしまいました。
申し訳ございませんでした。
読み捨ててくださいませ。

任意のファイルをすべてのドライブから検索したいんですけど、どうやったらいい
のかわかりません。ひとつのドライブならできるのですが。

Driveオブジェクトとかでドライブを列挙すればいいだろ。
応用が利かないね。

ひとつのドライブ内で全フォルダ階層を再帰的に検索するロジックのほうが
よっぽど難しそうな気もするが･･･

>>553
FindFirstFileというAPI関数を使えばいい
サンプルコードはMSDNOnlineかVB系のサイトに転がっているかもね

>>556
つーか、それでドライブが跨げないんだがって質問じゃないの（−−？

サンプルは今売ってるVBマガジンにもあるよ。

ACCESS初心者です。

ACCESS Ver.7 で出来たアプリを使用してます。
（現在、２箇所。データ数は1万件程度、検索、更新は微々たるもの）
それを１箇所にまとめ、ネット経由で検索するようにしたい。
（更新はネット経由でなくてもよい）

PostgreSQLへの完全移行はバーコードの印刷、読み取りなどもあり
大変そうです。

通常はACCESS のアプリでデータ管理をし、１日の終りに ODBC により
PostgreSQL の手動更新をし、 でWeb から検索できるようにしようとしたら、
ODBC でのテーブル更新は速度が遅く使えそうにありません。

MS SQL や ACCESS2000( Web から見れる機能があるらしい) では
どうでしょうか？

よろしくお願いします。

◆綺麗なおねぇさんは好きですか？◆
http://www.futomomo.com/netidol/sister/megu/
◆アイドル画像秘宝館◆
http://www.futomomo.com/netidol/idolhappy/maki/

ddssssc

９７でVBAを使って自動的に最適化はできますか？

>>560
DBEngine.CompactDatabase

>>558

どうかと聞かれても答えようがないのだが、
まず、貴殿の環境でミニマムなテスト環境を作って試してみては？

データアクセスページだと事実上イントラでしか使えない。
Internetへ公開するならASPで作り直しになるかもね。

ＡｃｔｉｖｅＸコントロールのコモンダイアログボックスを
フォームに貼り付けようとしたら
『このＡｃｔｉｖｅＸコントロールを使用するライセンスが
　ありません』
とあったのですが、ユーザー登録しなくちゃいけないのでしょうか？
ユーザー登録すれば使えるようになるのでしょうか？
パッケージは
『ｏｆｆｉｃｅ　２０００Ｐｒｅｍｉｕｍ』なんですけど。

>>563
コモンダイアログを使うにはdeveloper版を購入する
必要があります。
基本的にAccessではactiveXは使わないことが基本です。
APIでコモンダイアログを呼び出しましょう。

MSDEで、２つのテーブルを作ってデータを入れてあって
このテーブルをUNIONして新しいテーブルを作ったのですが、
このときに主キーフィールドが無くなってしまいました。

デザインからオートナンバのフィールドを追加したいのですが処理がタイムアウトに
なります。　どうやったらこのフィールドを追加できるでしょうか？

>>562
購入して使い物にならないと悲惨なので
MSSQL などを購入する判断材料にしたかったのですが・・・。

もう少しMSのサイトを調べてみます。

>>566

SQLServer2000の評価版ならVBマガジンの付録にもあるよ。

Access2000を一つ買えばMSDEがついてくるから、それでも評価は可能。
そのくらい経費でなんとかなるんじゃないの？

>>567

ＶＢマガジンとＡｃｃｅｓｓ2000ですね。
いろいろと情報ありがとうございます。

>>564
回答ありがとうございます。
APIでコモンダイアログを呼び出すというのが
よくわからないのですがどんなコードを書けば
いいのでしょうか？

すみません質問です。

テーブルで
"受注日""受注商品"というデータがあるとします。
例として
8月1日---商品1
8月3日---商品2
8月10日---商品3

とあるとします。


これを
8月1日----商品1
8月2日----なし
8月3日----商品2
8月4日----なし
8月5日----なし
省略
8月10日----商品3

という様に表示したいのですが
良い方法はありますか？
「なし」の表現方法は何でも良く
空白でも構いませんが、日にちが
欲しいのですが･･･

無理ですか？

>>569
考える暇ないので。
http://www.kojima.nu/kb/kb.cgi?b=function&c=e&id=76

>>570
通常日付テーブルを別にもってそれとリンク

>>569
↓のコモンダイアログ・クラス使ったら？
ttp://plaza5.mbn.or.jp/~heropa/cdemo01.htm

素朴な疑問なのですが・・・データベースをエクスプローラで削除したあとも
「既存のデータベース」にファイル名だけ残ってしまっています。（もちろん
開けない）　　どうしたら名前を消すことが出来ますか？

>>574
レジストリいじればできるけど、やめた方が無難だね
仕様と思ってあきらめなさい（藁

>>574
レジストリ
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings下の
MRU1〜MRU？（？はリストに登録されてる数）
を削除すれば消えるけど、もっとスマートな方法があるのかも。

ありがとうございました。とっても参考になりました。＞575,576

>>571
>>573
ありがとうございます。これから試してみます。

Win板から移動してきました。
http://yasai.2ch.net/test/read.cgi?bbs=win&key=997965332&st=506&to=506&nofirst=true
↑は、どうすればよいでしょうか？

知ってる方教えてください
薬局で使う在庫管理システムをACCESS2000で作ってたのですが、新規店舗に新たに導入するたびAccessを購入する必要がありました。
XPはランタイムごとファイルを作成してAccessが入ってない端末でもファイルを使うことができるようになったと聞きました。
使用感や規制など詳しい方教えてください。

>>580
Office2000のDeveloperEditionを買えば、
ランタイム版のAccess2000を配布できたんだが．．．．

XPも同じような製品構成かと思われ。
違ってたら訂正して。

>>579
うちではそんな現象に遭ったこと無いです。
貴殿のコードを見直してみては？
どんなことをやってるのか書いた方が、よい回答が得られるかも。

>>579
壊れる前兆だな。。
新規mdbにすべてインポート、最適化

アクセスの入力画面で新しいレコード画面へ移動出来なくなってしまい
ました。　どうすれば新規の入力画面へ移動出来る様に戻るのでしょうか？
過去に入力レコードなら自由に行き来出来るのですが。

>>584

フォームのプロパティ「追加の許可」
を誤って「いいえ」にしたというオチかと思われ。

http://www7.big.or.jp/~pinball/discus/access/index.html

>>586
漏れもそこを推薦する。
一部の腐れ常連は嫌いだがな。

くれぐれも言葉遣いは丁寧にな（わ）

>>585さんありがとうございます。

>フォームのプロパティ「追加の許可」
>を誤って「いいえ」にしたというオチかと思われ。

いま行ってみましたが全て「はい」のままでした。

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

>>581
ありがとうございます
ランタイム付きではどの程度まで作業可能なのでしょうか？
例えばクエリの抽出条件を変えたりすることは可能でしょうか？

>>584
フォームでの作業中のことだと思うんだけど。。
元になってるクエリ、ちと見てみそ
妙なリレーション組んでない？

>>582-583
コードなんか書いていないのに出るんですよ…
普通の、といったら語弊があるかもしれないけど、
ただのOracleのリンクテーブルを開いているだけなんです。
会社では同じ現象にあっている人が数人いるので、
そんなに珍しいことではないと思うんですが…

>>591
>Oracleのリンクテーブル
最初から書け！
ODBCリンクなんぞ不具合の宝庫じゃ。。気にいらんかったらドライバを
へんこうせい！

いきなり質問です。

コピペした時にコピペ元ではなく、セルの書式を優先させるには、どうしたらいいんでしょうか？

例

セルの書式ゴシック９ポイント赤文字、背景水色。
そこへ、テキストとかワードとかからコピペすると、書式がコピペ元のを採用されてしまい
それを又、元に戻すのがめんどいんですが、何とかなりますか？

あっすいません、エクセルと間違えましたです。失礼。

>>590
デザインモードが使えないだけ。
クエリの抽出条件の変更なら大丈夫。

>>591

http://www.microsoft.com/JAPAN/support/kb/articles/J055/0/26.htm
あたりが絡んでる可能性もある。

＜質問＞
フォームのデザインビューでフォームの大きさを
指定したのに（灰色の部分）、フォームビューにすると
その大きさを無視して、デザインビューのウィンドウと
同じ大きさになってしまうのはなぜですか？

どうしたらデザインビューの灰色のフォームの大きさに
できるのでしょうか。

>>595
ありがとうございます

現在、アクセス2000 で商品マスター検索を作ろうと勉強中です。
検索コマンド？に seek と findfirst があるのですが、どちらを使った方がいいでしょうか？

先日、茶（ウェストンブラウン）のプレーントゥを青山で購入しました。
だいぶ前になりますが、ＭＮさん、ＷＥＳＴＯＮファンさん、
いろいろとアドバイス
ありがとうございました。
この木型はとても僕に合っているようで、ウェストンにしては最初から
あまりキツさを感じません。
（僕がウェストンのキツさに慣れてしまっているのかもしれませんが・・・）
まさに自分にぴったりの靴、という感じで、とても満足しています。
この茶も、始めは派手すぎるかなと心配しましたが、
最近はホントにウェストンらしいとてもいい色だとおもっています。
今後の変化が楽しみです。

[755] 漢の夢？？
naoco さん 2001/08/25(Sat) 23:21
[n56cc-04p25.ppp11.odn.ad.jp] Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
1m47cmのザクです。
http://www.bandai.co.jp/press/press_P00138.html

家に飾ります？(ぉ

　アクセスの「候補キー」「キー」ってなんですか？

質問があります。

運動会のような大会があるとして、種目ごとにグループ分けを行い、
データに順位をつけて（タイムの速い順）、その順位を元に得点を
計算し集計したいのですが、アクセスにはエクセルの"RANK関数"の
ような順位づけを簡単に行うことのできる関数がありません。

このような集計作業はエクセルのほうが適しているでしょうか。

それともアクセスでできる何かいい方法があるでしょうか。

初歩的な質問だと思いますが、よろしくお願いいたします。

>>603

>このような集計作業はエクセルのほうが適しているでしょうか。

文面よりの推察だが、
貴殿のスキルなら、Excelの方が適していると思われ。

すんません
また教えてくだされ

ＭＤＥファイルっつうのを作ろうと思うんですが、何故か上手くいきませぬ
他のファイルでは普通にできるんですがの
これって作るのになんか条件あるんですかね？

>>605

どううまくいかないの？
＃と2chじゃなくても訊かれると思ふ

結果だけ
“ＭＤＥファイルを作成することができませんでした。”ってメッセージがでて終わりです。
どっかで既出のネタ？

>>607
http://www.microsoft.com/JAPAN/developer/library/off2000/vbaac/acconaboutmdeadefiles.htm
http://www.microsoft.com/JAPAN/support/kb/articles/JP202/3/04.htm
この辺は？

ありがとうございます
参考になりました

まったくの無知で申し訳ない。
schema.iniの書き方、書式などが載っているＨＰがあったら
教えてください。

http://www.hoops.ne.jp/~donec2000/index2.html

初心者で申し訳ないですが、
クエリーで並べ替えを行い、並べた結果に順番を割り振りたいと考えています。
そこで考えたのがＲｏｗ関数ですが、
クエリーの列でＲｏｗ（）関数を単独でつかうことはできないのでしょうか？

>クエリーで並べ替えを行い、並べた結果に順番を割り振りたいと考えています。

http://www.ruriplus.com/msaccess/tch/tch_idx.html
参考になるでしょ

おお！
ありがとうございます
（わしこればっかやな・・）

>>610

をれも無知だが、
Accessのヘルプやdao35.hlpに書いてあるよ。

>>613
thanks alot

すいません、質問です。
帳票フォームにおいてなんですが、コントロールにカーソルが移動した時に
そのコントロールのレコード全体が前景色あるいは背景色等が変わり
周りのレコードから容易に区別でき、見分ける事が出来るようにしたいのです。

例えば、あるコントロールのフォーカス取得時イベント等で
forms![請求明細]![金額].Forecolor=255
などという具合に横一列に並ぶそれぞれのコントロールのプロパティを
変えてやってもカーソル位置のレコード横一列だけが変わるのではなく
上下左右皆変わってしまいます。

インターネット上で検索をかけてはいるのですがなかなか良いキーワード
が無い様で見つからないのです。

帳票フォーム、選択、反転表示等のキーワードで調べたのですが．．．。

皆様よろしくお願い致します。

>>617
フォーカスのあるフィールドの色を変えるのであれば簡単にできる。
いわゆる「条件付書式」の条件に、「フォーカスのあるフィールド」を使う。

ただし、レコード全体となるとやっかいだな。
できないことはないが、ちょっと工夫が必要。
やはり「条件付書式」を使うことになるが、条件に使うための
カレントレコードのマーキング用のYes/No型の、フラグフィールドが必要になる。
ちょっと、初心者さんには難しいかもね。

>>618
ありがとうございます、出来ました。

フラグフィールドをテーブルに追加。

追加したフラグフィールドをテキストボックスとしてフォームに貼り付け。

そのフラグフィールドの条件書式設定、True（-1）の時に
前景色、背景色を周囲から強調される色にする。
通常は前景色、背景色、共に白にする

他のフィールドのコントロールをフラグフィールドより後に貼り付けて
背景スタイルは透明にする。（フラグフィールドが下に敷かれる。）

詳細の背景は白

カーソルが移動するコントロールボックスの
GetFocus( ) Me.フラグフィールド=True
LostFocus( ) Me.フラグフィールド=False

という具合にしました。

うまく働いているようです。

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

>>619
ご名答！
あれだけのヒントで、ここまで完璧に組めるとは、あんた初心者じゃないよ。

>>620
お褒め頂き？ありがとうございます。

フラグフィールドの追加でピン！と来て一気に氷解しました。
本当に助かりました。

これからは中級者としてカキコします。（笑）

レポート出力したものをクリップするため表は右側、
裏は左側によせて出力したいのですが、

レポートを２種類作り、交互に選択する方法が良いですか？

はじめまして。どうか先輩方のお知恵お貸しください。
初心者ですが住所録を作りました。そのフォームに関する質問です。
郵便番号のフィールドから住所を自動的に入力されるようにしたのですが、
入力後住所のフィールドに自動的に移動させたときに選択された状態になってしまうのを、
入力された住所の右側でカーソルを待機させたいのですがどうすれば良いのでしょうか。
＊＊区＊＊というような住所のあとに番地を入れるのにいちいち選択解除するのが面倒です。

>>623

住所登録フィールドは1つでなければいけないのでしょうか？

私ならば郵便番号から自動的に住所が入るフィールドと
手入力で入力するフィールドに分けます、住所１（自動入力）、住所2（手入力）と。
後は自動入力のテキストボックスのタブストップを「いいえ」にして
郵便番号のテキストボックスから手入力のテキストボックスに飛びます。

また一つのフィールドでないといけない場合には
郵便番号で自動入力される非連結のテキストボックスを作り
住所に番地だけ入力後、その住所テキストボックスに注目がカーソルが離れた後
に非連結テキストボックスと住所の内容を連結して再代入するように
コードを書きます。

>>623
フォーカス取得時に
Me!テキスト1.SelStart = 1000
とかすれば

>>625

これ良いですね、勉強になりました。

みなさん、ありがとうございます。
>623 のコードはどういう意味でしょうか？

>627 自己レスですみません。本当にありがとうございました。

SelLength,SelStart,SelText,SelLengthB,SelStartB プロパティ(実行時専用)

関連項目 対象


構文

object. SelLength [= number]
object. SelStart [= number]
object. SelLengthB [= number]
object. SelStartB [= number]
object. SelText [= string]


SelLength,SelStart, SelLengthB,SelStartB プロパティの構文の指定項目は次のとおりです。


指定項目 内容

object
「対象」一覧内のいずれかのオブジェクトを指すオブジェクト式です。

number
選択文字数、選択開始位置を設定します。



SelText プロパティの構文の指定項目は次のとおりです。


指定項目 内容

object
「対象」一覧内のいずれかのオブジェクトを指すオブジェクト式です。

string
選択文字列が設定されます。



データ型

SelLength,SelStart, SelLengthB,SelStartB : 整数型
SelText : 文字列型


解説

テキスト(Textプロパティ)の選択文字数(SelLength)/選択文字(バイト単位)数(SelLengthB)、選択開始位置(SelStart)/選択開始(バイト単位)位置(SelStartB)、選択テキスト(SelText)を設定／取得します。

データ型＝数値型　書式設定＝パーセント　で設定したフィールドに「１０％」と
表示させたいのですが…
１０と入力すると１０００％、0.1と入力すると０％になってしまいます

数値を漢数字にへんかんしたいんですが？たとえばフォームから12,000ていれて
なかで演算させて八千弐百円とか出力させたいんですが。いろんな本みてものってなくって
どなたか教えて下さい。

>>629
フィールドサイズが「整数型」/「長整数型」になっていない？
小数点を扱えない型を指定していれば、当然そうなる。

また、フィールドサイズが「整数型」/「長整数型」でも書式を
#% と打てば、同じ結果が得られる。

>>630
無理。
自分で関数つくれ。

数値を表示する際に漢数字に変換する関数はどこかでみたことがある。
どこで見たかは忘れた。

>>630

ttp://www8.pekori.to/~zoma/tech/t017.html
かい？

>>630
もうひとつみつけた。
ttp://www.ruriplus.com/msaccess/faq/faq_030.html

フォームに置いた非連結のリストボックスに値を自由に追加するには
どうすればよいのでしょうか？

リスト1.Column(0) = 1

とやってもエラーになってしまいまして…

SQLサーバーで可変長やNULL許可は使わない方がいいと聞きました。
でもフォームのテキストコントロールに挿入されるスペースがウザイです。
RTRIMかけようと思うのですがどの段階でやるのが最良でしょうか？
１．ビューのSQL文
２．レコードセットのデータ→テキストコントロール挿入時
３．その他
４．RTRIMは普通使わない

質問します。
1234-5678-9と1234- 5678-9を同一の値として、読みとらせるにはどうしたら
良いのでしょうか？リレーションしてみたんですが、同一と考えてくれないのです。
よろしくお願いします。

>>637
漏れなら、NULL不許可で可変長は使う。
それが一番楽だと思う。

可変長を使わないほうがイイってのは20年前の話ぢゃないかい？

>>638
replace関数を使えば？

replace("1234- 5678-9"," ","") の結果は、1234-5678-9、となる。

ただし、replace関数はクエリの演算フィールドには使えないから注意。
プロシージャを仲介する必要がある。
あとは自分で考えてくれ。

DeveloperのAccessランタイムってどれ？
InstallShieldでパックしようと思ってるんだけどさ…
入ってるのは確認したが、使い方が分からず…
ど〜すりゃいいのでしょう？
板違い？

モロ、無修正画像サイト発見！

http://www.sex-jp.net/dh/01/
http://www.sex-jp.net/dh/02/
http://www.sex-jp.net/dh/03/
http://www.sex-jp.net/dh/04/

DeveloperのSetupウイザードでSetupふぁいる作ってから
パックするんじゃないのかい？

Setupウイザード以外で配布してライセンス違反にならないの？

>>643
あ〜それです！！
有難う御座います。
InstallShieldで、アプリとランタイムを同梱したいって
書いた方が、良かったですね…
そのランタイムをどうすれば良いのか分からなくて…
有難う御座います。

わからないいんで、どうかおしえてください。
単票形式に、表形式を乗っけて、登録して
次のレコードに移動するんですが、
表形式の部分が、入れた分だけのレコードが残ってて、
＃ＤＥＬ　って出るんですが、
それをひとつに戻したいんです。

Ａ１
Ｂ１
Ｃ１

をいれて、登録して新規レコードへ行くと

＃ＤＥＬ
＃ＤＥＬ
＃ＤＥＬ

って出るんで、

[ ]

ひとつだけを出したいんですが。
どうすればよいのでしょう？

説明が下手すぎてすみません。

Me.Recalc
で、いけました。
お騒がせしてすみませんでした。

フォームの画面からコマンドボタンを押して、
２レコードを同一テーブルに追加したいのですが、
イベント プロシージャの書き方を教えてください。

IDはオートナンバー型
名前はテキスト型
回数は数値型

テーブル（回数テーブル）
ID、名前、回数

フォーム（データ入力）
名前入力１、回数入力１
名前入力２、回数入力２

コマンドボタン（登録）
クリック時-イベントプロシージャ

お願いします。

>>647
今度からは、何がわからないのか？
自分ではどうしようとしたのか、何につまずいたのかぐらい書いてねん。
コーディングお願いします→わかりました,というほど世の中甘くない。

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("回数テーブル")
rs.AddNew
rs![名前]=Me![名前入力１]
rs![回数]=Me![回数入力１]
rs.Update
rs.AddNew
rs![名前]=Me![名前入力２]
rs![回数]=Me![回数入力２]
rs.Update
rs.Close

大サービスさん　有難う御座います。

＞今度からは、何がわからないのか？
＞自分ではどうしようとしたのか、何につまずいたのかぐらい書いてねん。
ヘルプ見てオープンとクローズだけ出来て、追加されていませんでした。

rs.AddNew
rs.Update
を理解していませんでした。

648の方法で動作しました。有難う御座います。

コンボボックスに表示させたいんですが、
どういうふうにすればいいんでしょうか？

Ｔ＿ｍａｉｎ
ＮＯ
詳細

Ｔ＿名前
ＮＯ
名前

Ｔ＿ｍａｉｎで、ウィザードから表形式で作ったんですが、
その中に複数個あるおなじＮＯのＴ＿名前を
コンボボックスで表示したいのです。

ＮＯ　　詳細　　名前▼

こんな感じで。（＾＾；
よく分からない説明かもしれませんが、よろしくお願いします。

初心者で恐れ入ります。

アクセス２０００で　簡単なプログラミングを
していたんですが、突然とんでしまい。
その後、フォームの移動をしようとすると、モジュールが有りません。
というメッセージが表示され、動かなくなってしまいました。
Ｆ９で、ブレークをかけても止まりません。

どなたか、教えてください。どうしたら直るのでしょうか？

http://www.microsoft.com/JAPAN/support/kb/articles/J055/8/78.htm
だとしたらご愁傷様。
バックアップをとってないなら地獄へ逝ってよし。

すみません、どなたか教えてください。
表形式でコンボボックスをとってるのに、
２データ目、３データ目になっても
コンボボックスの中身が、１データ目のままなんですが。
どうすればいいんでしょう？

>>653

もしかして非連結？

えっと、６５０と同じで
NOからデータを照合させて、
名前を引っ張ってきてるんですけど・・・

>>655
レコード移動する度にコンボの内容を変えたいんだね？解釈あってる？
で、現状はどんなコーディングなの？

コントロールソースにＮＯ入れて、
値集合ソースに
Ｔ＿名前　のＮＯの抽出条件で
[forms]![今開いてるフォーム名]![名前]
って感じです。

コーディングって
こんなんでいいんですか？
すみません。よくわからないもんで

>>657
コントロールソースに「名前」
値集合ソースに
Ｔ＿名前　のＮＯの抽出条件で
[forms]![今開いてるフォーム名]![ＮＯ]
ぢゃないかしら？

No「ノー」と紛らわしいから、ちゃんと命名した方がいいかもね。

すみません。
説明が稚拙で。
Ｔ＿ｍａｉｎを使ってウィザードでフォームを作ったんで
コントロールソースに"名前"が、でてこないんで、
"ＮＯ"でとって
[forms]![今開いてるフォーム名]![名前]
を、抽出条件にして出します。
で、２番目のレコードを見ても
１番目のレコードの中身がコンボボックスで出るんですよ。
で、どうすればいいのかなぁと。
すみません。
よろしくお願いします。
ｍ（＿　＿）ｍ　

フォームやレポートのデザインを開く時、
開くまでに異常に時間がかかる（5分くらい）ことがあります。
これはなんなんでしょう？

質問です
Ａｃｃｅｓｓ２０００ですが、端末のＯＳをＮＴから２０００に変更したところ
他の人が同じテーブルを開いていると、保存できないという問題が
発生しました、アドバイスをお願いします。

その「他の人」にテーブルを閉じてもらう。

acwzmain.mdeって何ですか？
切断された参照とエラーが出ます。
使った覚えないぞー！！

>>663
ウィザードかな？
アドインとして読み込もうとしてるときにエラー出してるかも。
Officeの修復セットアップでも試してみたらどうかな？

>>664
レスありがとうございますｍ(＿＿)ｍ
あぁ、説明不足でした。自分のパソコンでだったら正常に動くんです。
ランタイムでパッケージしたものを他のPCで起動するとこういうエラーが・・・

というかAccess2002でした。板違いでした。

つい昨日Accessを使い始めた者です。本を３冊買ってきて必死で勉強しています。
そこでひとつだけわからないことがあるのですが、

テーブルやクエリを参照しながら、その中で選択したレコードのフォームを
さっと開くことはできないのでしょうか。
今まで使ってきたLotusApproachではそのあたりの感覚が一目瞭然だったのですが
Accessではいろいろ試してもできず困り果てています。

どなたかご存知の方、ご教唆お願いいたします。

すみません　よろしくお願いします！！　m(ｕ＿ｕ）m

やりたいことは333と同じなのですが、環境が・・・
MSDEを使い、Access2000で作っているadpファイルなのですが。

親フォームにあるフィールド１の内容によって　サブフォームにあるコンボボックスに表示される内容を搾りこみたいのですが、
どうしたら良いのかわかりません。
mdbファイルなら「値集合ソース」のところに
SELECT文を直接書いて　WHERE句に
テーブル項目１が　親フォームのフィールド１と同じ物だけ持ってきなさいって事で

[テーブル項目１]=[Forms]![親フォーム]![フィールド１]

と記述で良いと思うのですが、これが　adpファイルだと
エラーになってしまいます。
フォームが判別できないように思います。

ストアドを使うのかと思ったのですが　フィールド1の内容をパラメータで渡す場所が解りません。
レポートの方には「入力パラメーター」というのがあって、ストアドに渡せるようですが、フォームには無いですよね？
いろいろ調べたのですが　どうしても解らないのです。

どなたかご存知の方　教えてください、よろしくお願いします。

>>597
フォームの書式、サイズ自動修正は「はい」になってますか？
んで、保存して閉じて、開きなおしたら指定したサイズになってないでしょうか。

>>599
検索をどのようにして、検索結果をどう使いたい？それによって変わってくると思います。
僕は商品検索に非連結のテキストボックス[検索条件]、ボタン[検索実行]を置いてクリック時のイベントプロシージャで
If Forms![商品検索]![検索条件] <> "" then 'If文取ったら検索条件に何も要れずに実行すると全商品かな？
Forms![商品検索結果].Form.RecordSource = "SELECT T商品.* FROM T商品 WHERE (T商品.商品名) Like '*" & Forms![商品検索]![検索条件] & "*';"
End If
こんな感じで作ることが多いです。

>>650
コンボボックスの　コントロールソースを「ＮＯ」、値集合ソースを「Ｔ＿名前」、
列数を「2」、列幅を「0cm;3cm」とかでどうでしょう。

初めてこのスレ来ましたが良スレなので、僕にわかるとこだけですが。
いつか聞きにくるかもしれませんが、その際はよろしく。

>>667 SQL文の最後の；がいらないのでは。

>>667
ストアドプロシージャの引数名を、フォームのコントロール名と同じにすればＯＫ。
あとはストアドの引数を使ってレコードを絞り込めばいい。

フォームをまたがって参照したい場合は、この方法が直接使えないので、
サブフォーム上にメインフォームのデータを表示させとく隠しテキスト
ボックスを付けておいた方がいいかもしれない。

>>668 さん
レスありがとうございます。
しかし、ＡＣＣＥＳＳを知ってる人に聞いたところ、
「コンボボックスは、その中から何かを選ぶという処理なんで
　検索表示には向かないから無理じゃないか？」
といわれて、あきらめて回避してしまいました。
すみません。
一応、こんな感じにしたかったんです

ＮＯ　　詳細　　名前▼
０１　　ＡＡＡ　　ＢＢＢ▼
０２　　ＣＣＣ　　ＤＤＤ▼

で、カーソルが最初０１の部分になって
ＢＢＢは表示されるんですが、ＤＤＤの部分が空白になって
０２にあわせるとＤＤＤの部分は表示されるんですが
ＢＢＢの部分が消える、という状況でした。
どうにかできそうだったら、誰かお願いします。ｍ（_　_）ｍ　

667です！！！

レスありがとうございます。＞669-670

>>669
いえ、それは　最初にやりました、「なんかゴミがついてるぞ」って思って・・・

>>670
ありがとうございました！！
できました！！！　（~▽~喜）わーい
フォームのフィールドとストアドのパラメータ名を同じにすれば渡してくれるんですね！？
も〜〜〜　3ヶ月来の（はまってたのはこれだけじゃないですが…）問題がやっと解決しましたっ！！！
本当にありがとうございました！！　m(ｕ＿ｕ）m

>>650,>>671
どのようにされたいのかわからなくなってしまいました。

>650 その中に複数個あるおなじＮＯの
>Ｔ＿名前をコンボボックスで表示したいのです。

>655 NOからデータを照合させて、名前を引っ張ってきてるんですけど・・・

>671 「検索表示には向かないから無理じゃないか？」

とのことなのでＴ＿名前は
ＮＯ　名前
１　　鈴木
１　　田中
２　　斉藤
３　　佐藤
３　　伊藤
となっていてＴ＿ｍａｉｎのＮＯが１だった場合、鈴木か田中が選択できる様に
したいとのことでしょうか？
かつ、Ｔ＿ｍａｉｎには名前を保存するフィールドが無いのでしょうか？
さしつかえなければＴ＿ｍａｉｎとＴ＿名前のテーブルになんと言うフィールド
があって、主キーがどれに設定されているかとデータ型を教えてくださいませ。

ちなみに、僕が上記に似たようにしたいときは
T_Main
MainID 数値型かオートナンバー 主キー
詳細　 テキスト型
種別　 数値型
名前ID 数値型

T_名前
名前ID 数値型かオートナンバー 主キー
名前　 テキスト型
種別　 数値型

で、T_mainをレコードソースにしたフォームF_Mainは
MainID　詳細　種別　名前ID▼

コンボボックス「名前ID▼」は>>668と同じでコントロールソースを名前IDに。
名前ID▼のイベント-フォーカス取得時のイベントプロシージャに
Private Sub 種別_AfterUpdate()
Me![名前ID].RowSource = "SELECT [T_名前].* FROM T_名前 WHERE ((([T_名前].[種別])=Me![種別])); "
End Sub
これを置きます。Me![名前〜Me![種別])); "のところは改行なしで。
これで、種別に数字を入力すると、名前IDのコンボボックスが絞り込まれます。

なお種別を入力後、保存をするとコンボボックス「名前ID▼」の値集合ソースを
SELECT [T_名前].* FROM〜に書き換えてしまい、開きなおしたときに
名前ID▼に名前が表示されないレコードがでます。やってしまった場合は
値集合ソースを「T_名前」に戻してくださいね。

こんな感じにすると思います。長文になり失礼いたしました。

Private Sub 種別_AfterUpdate()
Me![名前ID].RowSource = "SELECT [T_名前].* FROM T_名前 WHERE ((([T_名前].[種別])=Me![種別])); "
End Sub
は
Private Sub 名前ID_Enter()
Me![名前ID].RowSource = "SELECT [T_名前].* FROM T_名前 WHERE ((([T_名前].[種別])=[Forms]![F_Main]![種別])); "
End Sub
の間違いです。最初上記のように種別の更新時に置いていたのですが、
既に種別が入力されているレコードの名前ID▼を変更しようとしたとき
不都合が出たので直した際、上記の記述を修正し忘れていました。
申し訳ないです。

>>667
あなたの言うとおり、SQL文を組み立ててやればよいのだ。
ただしそのときにSQL文中で直接フォームのコントロール
を参照するのでなく、いったん
"SELECT...WHERE [テーブル項目１] = " _
& [Forms]![親フォーム]![フィールド１].Value _
& " ORDER BY ..."
といった文字列を組み立ててやる必要がある。

コンボボックスの絞り込みのためにわざわざストアド
作るのも面倒でしょ。

あと、Accessを使うならフィールド名とコントロール
名は明確に分けておいたほうがよいと思いまっす。

このサイトはみなさんのインターネット環境の
スピードを計ってくれます。また、遅いと思う
人は設定を少し変えることによって無料で
スピードを早くすることができます。
お金を出す前に一度試してみては
いかがでしょうか。上がりの計測も可能です。

http://cym10262.omosiro.com/

VBでADOを使用してAccessに接続し、SQLを送信して結果を得るために
・connectionObj.Open
・ConnectionObj.Execute
がありますが具体的にどういった使い分けをするんでしょうか？
またエンジンの種類や接続オブジェクトによって速さに関係してきますか？

初心者のつまらん質問なんですがご教授お願い致します。

↑すみません。
・RecordsetObj.Open SQLstr,dbObj,*,*
・Set RecordsetObj.Execute(SQLstr)
に訂正です。

>668さん
レスありがとうございます！

で、テーブルは

T_main
記事NO　数値型　　　　　　主キー
ＨＴＴＰ　　ハイパーリンク
媒体名　テキスト
日付　　　日付型

Ｔ_会社名
記事ＮＯ　数値型
会社名　　テキスト

です。

値集合ソースが
[FORMS]![F_検索]![会社名]
で、フォームの会社名に引っ張ってきて

記事ＮＯ　日付　媒体名　ＨＴＴＰ　会社名▼

が一つの記事で、会社名だけが複数あるという感じです。
一つの記事に対して会社名がいくつかあって
会社名が違うだけで同じ記事に対していくつも出るのが嫌だったので
コンボボックスで見れないかなぁ、と思ったんですが、

記事ＮＯ　日付　媒体名　ＨＴＴＰ　会社名▼
記事ＮＯ　日付　媒体名　ＨＴＴＰ　　　　　▼
記事ＮＯ　日付　媒体名　ＨＴＴＰ　　　　　▼

こんな感じになってフォーカスのあったところしか
会社名が出なかったんですよ。
今も出ないですけど。( ｉ＿ｉ）

すみません長々と・・・

Win2kSP2で、Access97使ってます。
ここの、"Threads"=dword:00000003
の値を増やすとスレッドが増えてDUALCPUにした時などに
計算速度の向上が見込めますか？

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Jet 3.5]
"PageTimeout"=dword:00001388
"LockRetry"=dword:00000014
"MaxBufferSize"=dword:00000000
"Threads"=dword:00000003
"ExclusiveAsyncDelay"=dword:000007d0
"SharedAsyncDelay"=dword:00000032
"FlushTransactionTimeout"=dword:000001f4
"MaxLocksPerFile"=dword:0007a120
"LockDelay"=dword:00000064
"RecycleLVs"=dword:00000000
"UserCommitSync"="yes"
"ImplicitCommitSync"="no"

やっとなにをされたいのか理解できました。
>>673 >>674 のちょっとした変更で出来ました。
「会社名▼」のコントロールソースに「記事ＮＯ」、
値集合ソースを「T_会社名」、列数「2」、列幅「0cm;3cm」にして、
フォーカス取得時のイベントプロシージャに
Private Sub 会社名_Enter()
Me![会社名].RowSource = "SELECT T_会社名.* FROM T_会社名 WHERE (((T_会社名.記事NO)=" & Me![記事NO] & "));"
End Sub
これを書いてください。
何度も書くようですが、「会社名▼」をクリックすると値集合ソースを
「SELECT T_会社名.* F〜」に書き換えてしまうので、フォームを保存するとき
「T_会社」に戻すことを忘れずに。(他を直すときなど)
あ、フォームを開く時に「Me![会社名].RowSource = "T_会社名"」で
解決しますね。
Private Sub Form_Open(Cancel As Integer)
Me![会社名].RowSource = "T_会社名"
End Sub
こんな感じでいかがでしょう？

書き込んだ後、チェックしていたらクリックすると消えていってしまう
ことに気付きました。
そこで、新しく「会社名２」と言う名前でテキストボックスを作ってください。
コンボボックスじゃなくてテキストボックスです。
で、コントロールソースを
=DLookUp("会社名","T_会社名","記事No = T_Main!記事No")
とします。これをコンボボックス「会社名」の前面に重ねて置いてください。

おお！！
すごいです。
そんな方法気づきもしませんでした。
ありがとうございます。
これで、.安心して夜を迎えれます。
助かりました。
ｍ(_　_)ｍ　

>>675 様
667です。

レスありがとうございます！！

>コンボボックスの絞り込みのためにわざわざストアド
>作るのも面倒でしょ。

できれば　そうしたいです。


えっと・・・(汗

[テーブル項目１]=[Forms]![親フォーム]![フィールド１]
じゃなく
[テーブル項目１]=[Forms]![親フォーム]![フィールド１].Value
にすれば　いいのでしょうか？
それを　「値集合ソース」に入れれば良いのでしょうか？？
それだと「!の付近にエラーがあります」というエラーが出てしまいますのできっと違いますよね？

申し訳ないです　もう少し詳しく教えていただけますか？
よろしくお願いします。m(ｕ＿ｕ）m

>>678
・RecordsetObj.Open → 1レコードごと処理したい場合
・Set RecordsetObj.Execute → 一括処理した場合

SQLServerはクライアント側のフォームのコントロールなんて見えないん
じゃないのかね。たぶん。

自フォームにTextbox1というテキストボックスがあるとしよう。中身は数値だ。
このとき、
"SELECT * FROM テーブル WHERE フィールド = Me.Textbox1.Value"
と
"SELECT * FROM テーブル WHERE フィールド = " & Me.Textbox1.Value
とはちがうんだ。

675様

>SQLServerはクライアント側のフォームのコントロールなんて見えないん
>じゃないのかね。たぶん。

はい、そんな感じがします。

この二つは違うんですね？！
( ﾟoﾟ)ﾊｯ　なんか・・・　あれ？？
やってみます！！

えっと・・・会社行けないのでMSDEの設定から自分でやってみるので時間かかると
思いますが　やってみます！！！p(^^)q
また来ます！！

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