ACCESS総合相談所 その１６ 【桐にしとけ】

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


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

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

前スレ
ACCESS総合相談所　その１５
http://pc8.2ch.net/test/read.cgi/bsoft/1142586697/

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

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

･関連スレ
【まだまだ】Microsoft Access クエリ3【使える】
http://pc8.2ch.net/test/read.cgi/db/1120779000/
VBプログラマ質問スレ（6.0以前） Part47
http://pc8.2ch.net/test/read.cgi/tech/1141320612/

管理情報を使用する
-------------------------------------------------------------------------------
改善された新しいユーザー インターフェイス、便利なテンプレート
さらに強化された並べ替え機能とフィルタ処理機能、レイアウト ビュー、集合形式レイアウトと表形式レイアウト
自動日付選択カレンダー、メモ型フィールドでのリッチ テキスト形式
[挿入] タブによって強化された簡易作成機能
改善されたデータシート ビューを使用してテーブルをすばやく作成する
データシートの [集計] 行、新しいフィールドの追加のためのフィールド テンプレート
[フィールド リスト] 作業ウィンドウ、分割フォーム、複数値フィールド
画像、グラフィック、Office ファイル、その他の種類のファイルを保存するための添付ファイル データ型
代替の背景色を使用する、ナビゲーション ウィンドウ、埋め込みマクロ、改善されたヘルプ ビューア

管理された情報を他のユーザーと効果的に共有する
--------------------------------------------------------------------------------
Microsoft Office Outlook 2007 を使用してデータを収集および更新する
SharePoint サイトにデータベースを移動する、SharePoint ワークフローとの統合
SharePoint リストにリンクされたテーブルのパフォーマンスの向上
Windows SharePoint Services データ型との一対一マッピング、SharePoint リストを Access でオフラインで使用する
インポートおよびエクスポートの操作性の向上

レポートを作成してビジネス ニーズに適合させる
--------------------------------------------------------------------------------
レポート ビューとレイアウト ビュー
グループ化、並べ替え、および集計機能
自動的に作成されたレポートの改善された外観

情報を管理および監査する
--------------------------------------------------------------------------------
強化されたセキュリティ
Windows SharePoint Services による改訂の管理、権限の設定、ごみ箱から復元する
Windows SharePoint Services から Access フォームおよびレポートを開く
メモ型フィールドによる履歴管理

リンク追加

ACCESS総合相談所　その１４　【桐にしとけ】
http://pc8.2ch.net/test/read.cgi/bsoft/1128486351/

VBA総合質問スレッド
http://pc8.2ch.net/test/read.cgi/tech/1151412015/

おつんつん

>>1
乙カレー

>>1
2007上げ

Access 2007 からは ADP が作成できなくなって、
そのかわりにリンクテーブルが強化されるみたいだけど、どう思う？

リンクテーブル強化って何よ？
そんなの気付かなかったぞ

http://blogs.msdn.com/access/ によると、

Access project files, also called ADPs or .adp files,
provide an alternative to using the Access database
engine by allowing an Access application to connect
directly to the tables in a SQL Server database. ADPs
will continue to be supported in Office Access 2007. To
take maximum advantage of the new features in Office
Access 2007, Microsoft recommends the use of linked
tables to connect to SQL Server data.

さらに「2007 Office リソースキット Beta 2計画とアーキテクチャ」
http://www.microsoft.com/japan/technet/prodtechnol/office/beta.mspx
によると、

Office Access 2007 では、SQL Server データへの接続に関し
て 2つの方法が採用されています。それは、SQL Server へリン
クする方法と Access Data Project (ADP) へリンクする方法で
す。
SQL Server への接続に適した手段として、MDB または ACCDB
ファイル内で SQL Server へリンクする方法があります。この方
法を使用すると、ローカル テーブルやローカル クエリについて高
い柔軟性が発揮され、SQL Server のすべての機能を活用できま
す。さらに、MDB ファイルおよび ACCDB ファイルは、複数の
SQL Server や他のさまざまなデータ ソースへリンクすることが
できます。Office Access 2007 には、MDB ファイルと ACCDB
 ファイルの両方で使用できる多くの新機能が含まれていますが、
ADP で使用できるのは、これらの機能のサブセットのみです。

Office Access 2007 では、MDB ファイルや ACCDB ファイル
を基にして、SQL Server のテーブルやビューに対する読み取り/
書き込み用のリンク テーブルを作成できます。Jet は、SQL パス
スルー クエリと呼ばれる特別なクエリもサポートします。このク
エリでは、すべての SQL コマンドを SQL Server に直接送信でき
ます。

ODBCとは違うの？

>11の引用文を見る限り、「ADP が作成できなくなっ」たという記述は
どこにも見当たらない。むしろ、2007 でも引き続きサポートされる、
という、逆にも読める記述ならあるが。

ADP ではなく DAP が無くなったという話なら、聞いた。

既存のADPが動くのと、新規ADPが作成できない、のとは両立するんだが

ADP が作成できなくなったとは書いていないけど、
β版では作成できなかった。

それとも見落としてるだけで作成できるのかな…

例えば、
既存のMDWはサポートされるが、新規作成できないぞ

>>15
同意。
だから、逆「にも」読めると書いた。
>11の引用文では、どっちにも読めるので、結局
ADP が作成できない典拠にも、引き続き作成できる
典拠にも、どっちにもなってない。
にもかかわらず>9の発言との関連で引用されていたので、
いったいどうつながるのか分からなくて、疑問提起した。

自分自身はβ版も使っていないので、情報提供自体は
ありがたいと思って読んでいる。不思議に思ったらツッコム
かもしれんが、その辺は興味あればこそと理解してくれ。

【 システム環境　 . 】 WindowsXP SP2, AccessXP(2002)
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
ACCESSのＶＢＡアプリケーションをエクスプローラから開くと、内部で使用しているフォームの
Form_Error イベントが発生するのですが、他のＥＸＣＥＬなどから開くと Form_Error イベントが
発生しない現象で困っています。
Form_Error イベントが発生しない場合の起動方法は以下のような感じです。

　　　'Accessオブジェクトの取得
　　　Set objAccess = GetObject(strFilePath)

　　　'Accessウインドウの最大化(ACCESS内の最大化が効かないため)
　　　objAccess.DoCmd.RunCommand acCmdAppMaximize

Form_Error イベント内で入力規則違反があった場合などのエラーメッセージを表示しているのですが
Form_Error イベントが発生しない場合はメッセージなどは表示されず、フォーカスがレコード内から
移動しない状態になってしまいます。

Form_Errorって、そのFormで何らかのアクションをした場合だろ。
開くタイミング・方法しか書いてないから、何が言いたいのか・や
りたいのか、良くわからん。

ついで、入力規則違反だって必ずForm_Errorイベントが
発生する訳じゃない。各コントロールの更新前・後や、
Formの更新までVBAでチェックしたり等となるだろ。

>>20,21
回答ありがとうございます。
問題のポイントはエクスプローラで開くと Form_Error イベントが発生するのに
例示した開き方では発生しない、というところです。
なぜ動きが違うのかご存知の方がいらっしゃいましたら是非おしえてください。

OLEだから。

>>23
回答ありがとうございます。
ShellExecute で起動することにしました。

> ACCESS総合相談所　その１５
> http://pc8.2ch.net/test/read.cgi/bsoft/1142586697/995
>
> インポート時にAccess側で区切る、という設定は可能でしょうか？

インポートにそんな設定無いだろ
それも解らないなら、桐にしとけよ

>>25
固定長csv？
Access2003でテストしたところ
ファイル→外部データの取り込み→インポートを開く
ファイルをインポートするダイアログでインポートを選ぶとウィザードが起動する

固定長にチェックが入っていることを「次へ」をクリック

区切りたい場所をクリックすれば区切り線が入る
ダブルクリックで区切り線が消えるので区切り線を指定

あとはわかるよな？

【 システム環境　 】 Windows2000, Access2002
【 VBAが使えるか 】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】ACCESS バーコード 印刷品質
過去ログなどを検索しても該当の不具合などが確認できなかったので、ご存知の方助けてください。

ActiveXコントロール（Microsoft BarCode Control 9.0）を配置したレポートを作成し、
プレビューにて、バーコードが正しいことを確認後、いざ印刷。するとバーコード自体が
印刷されない。このコントロールをExcelにコピー＆ペーストしたものは、
意図通りに印刷される。

そこで、プリンタの印刷品質を「標準」から「きれい」にすると、Accessの
レポートでも印刷できた。

自分は印刷できたんだからそれでいいと思うのだが、上司が「ランニングコストが
あがるようなことは、許可しない」とのこと。

同じバーコードの印刷でも、AccessとExcelでは内部で何か違うのだろうか。
ちなみにプリンタは、ビジネスインクジェットプリンタで、
メーカーサポコンの回答は「APの問題です」とのこと。

ついでにバーコード以外のコントロールのコピー＆ペーストは、AccessからExcelに
できないのでしょうか？

OS：XP
ACCESS：2000
VBA：可能です。

顧客のヨミカタで
性と名を分けてテーブルは作成しています。
テーブルには顧客ヨミカタ性と顧客ヨミカタ名があります。

例えばフォームでヤマダタロウを検索する場合、
テキストボックス文字1には顧客ヨミカタ性　"ヤ"
テキストボックス文字2には顧客ヨミカタ名　"タ"

下記VBAで検索ボタン実行
DoCmd.ApplyFilter , "left(顧客ヨミカタ性,1) ='" & 文字1 & "'"
DoCmd.ApplyFilter , "left(顧客ヨミカタ名,1) ='" & 文字2 & "'"
するのですが、
性に"ヤ"がなくても、名に"タ"がつく顧客が検出されていまいます。
正確に"ヤ"と"タ"で抽出するにはいかがしたらよろしいでしょうか？

>>27
自分はバーコード自体使わないから知らないけど、一応
Office XP SP-3 が当たってるかどうかは書いといた方がいいよ。
SP-2 から SP-3 のあいだで、別件だけどバーコードコントロールの
バグフィックスが入っているので。

> 自分は印刷できたんだからそれでいいと思うのだが、上司が「ランニングコストが
> あがるようなことは、許可しない」とのこと。

バーコードの印刷は、紙質やプリンタの印字品質等によって、リーダーでの
読み取り精度が大きく落ちるという話を聞いたことがあります（具体的に
どのていどか知りませんが）。
自分が上司なら、肝腎のバーコードが読み取りエラーで意味を成さない
リスクこそ最も許可できないはずなので、それくらいならむしろ最高品質で
印刷かけさせると思いますが…。

> 同じバーコードの印刷でも、AccessとExcelでは内部で何か違うのだろうか。

知らない。MS にきいて。

> ついでにバーコード以外のコントロールのコピー＆ペーストは、AccessからExcelに
> できないのでしょうか？

バーコード以外の「何」をコピペしたいのかによるでしょう。
ま、やって出来ないんなら出来ないんだろうとは思いますが。

>>27
バーコード小さ過ぎってことない？

>>28
Like 演算子でいいじゃんとか、Filter プロパティの方が好きとか、
そういうベタな感想はさておき。
元コードを極力生かすなら、試してないけど、

DoCmd.ApplyFilter , "left(顧客ヨミカタ性,1) ='" & 文字1 & "' And " & _
　　　　　　　　　　"left(顧客ヨミカタ名,1) ='" & 文字2 & "'"

とか。

ところで、「姓」じゃなくて「性」ですか…？

初心者質問ですがよろしくお願いします。
会社で利用している顧客管理データを、近時の市町村合併にあわせて変更
してくれと頼まれたのですが、数万件あるデータを手作業で打ち直すのはぞっとします・・・

なにかいい方法はありますか？みなさんはどのように対応されてるんでしょうか？
ちなみにバージョンは未確認ですが２００２だったと思います。（週明け確認します）

ググったら
ttp://www.geocities.jp/access119room/tips_f/sonota.htm#14
てのがあったんですがこの方法はすでに出来ているデータベースにも有用ですか？
この方法だと１万件程度の訂正でどの程度の時間がかかるものでしょうか？
この方法がベストと考えてよいのでしょうか？

自宅PCにアクセスが入っていない上、正直機能、操作とかよくわかってなくてすみません・・・。

> ttp://www.geocities.jp/access119room/tips_f/sonota.htm#14
> てのがあったんですがこの方法はすでに出来ているデータベースにも有用ですか？
これから入力するデータに対しては有効ですが、入力済みデータが勝手に
最新になってくれたりはしないでしょう。辞書ですから、最新にしとくに越した
ことはありませんが。

…ふつうに一括置換すれば？

>>31様
ありがとうございます。
できました！
姓はガチで性と勘違いしてました。

検索の際に、文字1に"イ"文字2に"シ"と入力して、検索を行い抽出結果を"シ"でも"ジ"でも検索できるようにしたいのですが、
("シュンイチ"、でも"ジュンジ"でも抽出する意味です。)
姓に"イ"がなくても、名に"シ"and"ジ"がつく顧客が検出されていまいます。
正確に"イ"と"シ"and"ジ"で抽出するにはいかがしたらよろしいでし
あとガントチャートを勉強しているのですが、いいサイトがあったらお教え願えますでしょうか？DoCmd.ApplyFilter , "left(顧客ヨミカタ姓,1) ='" & 文字1 & "' and " & "left(顧客ヨミカタ名,1) ='" & 文字2 & "'"


If 文字1 = "シ" Then
DoCmd.ApplyFilter "", "[顧客ヨミカタ姓] Like ""[シ-ジ]*"""
End If

If 文字2 = "シ" Then
DoCmd.ApplyFilter "", "[顧客ヨミカタ名] Like ""[シ-ジ]*"""
End If

>>34
あのさ、フォームにフィルタはひとつしか使えないんだよ。
2つ目を実行した時点で1つ目は無効になる。

それと、フィルタに指定する文字列は、SQLのSELECT文のWHERE句と同じものを指定する。
いったいどこ見てやってるのか知らないけど、ちゃんとヘルプみたほうが早いよ。
Access2000のSQLは正規表現なんて使えないから。

んだ、フィルタを次々に重ねて行いたいなら、桐にしとけ
255レベルまで簡単にできるぞ

>>35
最後の一行の意図がよく分からない…。
ツッコミの勢いあまって誤爆？

いや、普通に [シ-ジ]* の部分に対するツッコミじゃないの？

明らかに正規表現で検索可能という前提で書かれてるとしか思えないし、
仮にできたとして [シ-ジ] で探すのはいくらなんでも無茶すぎるw

>>29-30 アドバイスありがとうございます。（バーコードの件です）
思い切って、ＭＳに問い合わせてみます。
結果は、後日ご報告いたします。

>>38
どうもです。

> 明らかに正規表現で検索可能という前提で書かれてるとしか思えないし、

そこがちょっと引っ掛かってまして。
質問者はこれを「正規表現」とは別に言っていないので、
Like演算子によるパターンマッチングと捉えれば、特に
問題ないような気もします。Jet SQLのヘルプにもちゃんと
載ってますし。

もちろん手法として適切かどうかはまた別の話ですが、
そういう意味の指摘としても読みづらかったので、ちょっと
意図を図りかねてました。

それとも、何か私の方が勘違いしてるのかな？？

【 システム環境　 . 】 WindowsXP XP2, Access2000
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 ACCESS2000　起動しない　セキュリティ警告

先日、HPの新規PCを導入して（XP SP2インストール済み）
当方で使っているACCESS2000のシステムを起動したのですが、
以下の現象が出てしまい困っています。
ちなみにこのシステム、LAN上のファイルサーバに入れて、5人ぐらいで共有して使っているシステムです。
解決策ご存知の方、よろしくお願い致します

１．単独（他の人が起動していない状態）で起動すると、
　「セキュリティ警告」なるウィンドウが出る。
　既存の端末（XPや2000）ではこのようなウィンドウは出なかった

２．複数人で共有使用している場合、
　システム（ACCESS2000で作られているもの）をダブルクリックしても、
　何も起きない（メッセージウィンドウも、警告も出ない）
　（以前は、競合があっても、「（コンピュータ名）が使用中です」みたいなメッセージが出たのですが。）

以上、よろしくお願いします。


※というか、ACCESSというより、XP SP2の問題のような気がしないでもないです・・・・
※レジストリは正直弄りたくありません。

インターネットからダウンロードしたファイルを実行したときに表示されるセキュリティの警告画面と、警告の解除方法
http://support.microsoft.com/kb/884237/JA/

とか？

>>40
正規表現とは言ってないけど、どうみても正規表現を使おうとしてるように見えるじゃん。
もしそのあたりを勘違いしてるならためになるアドバイスだと思うけど。

テーブルでテキスト型のフィールドに「空文字列の許可」っていうのがあります。
これはデフォルトで「いいえ」になっているのですが、すべての項目の空文字列を許可すると
なにか不都合はあるんでしょうか？

nullだと比較するときに「a = null」という風に使えないので不便だと思うのですが、
デフォルトでわざわざ「いいえ」にしてるということは、「はい」にしてあると
なにか不都合なことがあるということかなと思いました。

nullと空文字列は厳密に言うと違うという理屈はわかるのですが、運用上それを区別して
利用することってあまりないような気がします。

a is null or a = "" って書くのがいやだから

>>44
主キーにできんだろ。

【 システム環境　 . 】 Windows98 ACCESS97
【 VBAが使えるか　 .】 はい
【 VBAでの回答の可否】 可

【質問】
5つのテキストボックスの値を1つのテキストとして合体させ、間に半角の
空白を１つ入れたい。ただし、１、２、４番目のテキストボックスが空白の
場合があり、その時は前に詰める形で表示したい。

【現在の状態】テキストボックスＺのコントロールソースに

[ﾃｷｽﾄﾎﾞｯｸｽA] & " " & [B] & " " & [C] & " " & [D] & " " & [E]

わかる方がいらっしゃったらよろしくお願いします。

結合演算子

結合演算子は、2 つのテキスト値を 1 つに結合するときに使用します。

演算子 使用例 説明
& 文字列 1 & 文字列 2 2 つの文字列を結合して 1 つの文字列にします。
+ 文字列 1 + 文字列 2 2 つの文字列を結合して 1 つの文字列にします (Null 値は伝播される)。

【 システム環境　 . 】 Windows??, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 access アクセス制限　ユーザ

ローカルネットワークを使用してアクセスファイルを多人数で使用したいのですが、
同時に入出力することは可能なのでしょうか？もし可能であれば複数のライセンスの
購入を検討したいです。
なお、入力に関してはフォーム・レポートは共有し、テーブルについては各ユーザごとに作成
するようにします。

また、立ち上げの際にユーザIDとパスワードを入力してもらいそれによってテーブルを
指定するようにします。

1ファイルでこれらのことが可能なのかご教授お願いいたします。

mdbぶっ壊れてもいいならどうぞ

>>50
つまりは出来ないっていうことなのでしょうか？

若干理解力に欠けるようなので、以下の質問に置き換えて理解してください。

　Q. 信号が赤ですけど、渡ることは可能でしょうか。
　A. 渡れることもありますし、死ぬこともあります。

【日本語β版】2007 Microsoft Office【無料配布】
http://pc8.2ch.net/test/read.cgi/bsoft/1148421824/840-846

【 システム環境　 . 】 XP Access2000
【 VBAが使えるか　 .】 いいえ
【 VBAでの回答の可否】 いいえ

【質問】
フォームで本日日付を表示させるには「規定値」に　Date()
と入力しますが、昨日を表示させる方法はあるのか教えてください

あるよ。

date()-1でダメなら俺はあの子をあきらめる

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 Access フォーム作成 オブジェクト作成 new create
コードでフォーム上にオブジェクトを作成できませんか？
dim XXX as new textbox()
Controls.Add(XXX)
みたいにやりたいです。

フォーム上にオブジェクトを新規で生成することがないからわからないけど、
もしある条件下でオブジェクトが必要ならVisibleプロパティで可視管理すれば
いいんじゃないかな？

WinXP&Access2002です。
上司に「フォームに作ったVBA（コマンドボタンクリック時のアクション）を、
長くなったので標準モジュールに移しといて」と言われました。
いろいろ検索して立ち読みして、
そのままコピペでは動かないであろうことはわかったのですが、
具体的にどの辺に気を付ければ良いでしょうか？
上司が今週いっぱい出張なんですが、
時間が空いたので居ないうちに解決させたくて伺いました。
どなたか宜しくお願いします。

Me!

>>58
レスありがとうございます。
できることはできるんですね。
Visibleを真にしてもでなかったんですが、どこか間違ってたようです。
ソースを見直します。
オブジェクトを生成するのはAccessを使いこなせていないだけです・・・orz

>>60
おそらく私宛だと思うのですが、Me!は使ってるのでそこをForms!〜に直して、
あとはコピペでおっけーということでしょうか？
それだけで良かったのか…書き方が違うのかと思ってました。
やってみます。ありがとうございました。

>>57
例えばオプションボタンを押したときにテキストボックスを表示させる場合

Private Sub フレーム_Click()
　　If オプション1 = True Then テキスト.Visible = True Else テキスト.Visible = False
End Sub

のようにすればよいと思います。



>>59
コマンドボタンには

Private Sub コマンド_Click()
　 Molule1.Test
End Sub

の様に記述して、標準モジュールに

Sub Test ()
　　Msgbox("テスト")
End Sub

にすれば良いかと。ただ、コマンドボタンを押す時にフォーム上のオブジェクト等を変更する場合は

Forms.フォーム名.オブジェクト名 の様に指定すればフォーム上のオブジェクト等を変更することが出来ます。

>>63
フォーム上のテキストボックス（非連結）から値を持ってきたりしてるので、
そこをフォーム名まで指定してやれば、あとはコピペでいいんですね。
ありがとうございます！

>>63
具体例ありがとうございます。
書き直してきます！

【 システム環境 . 】 Windows2000, Access97
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可

【質問】 表形式のフォーム画面で背景色を奇数行と偶数行を別の色にしたいのですが
わかる方がいらっしゃったらよろしくお願いします

そんなくだらないことに時間を費やすのはお勧めできない。

表形式のフォーム？それってサブフォームを使ってってことなのかな？

>>66
Access2007は最初からそういう設定があるお！
MS サイトから郵送でベータ版入手できるお！

それまで待てなければ、桐にしとけ
簡単に出来るぞ

条件書式って、AC2000からの追加機能だっけ?

説明が足りませんでした。
>>68が言われたようにメイン／サブフォームで、メインのコンボボックスで選択された項目を
クエリーで選択した値をサブフォームに一覧として表示する形になります。
色の設定はRGB関数のBackcolorを使うということはわかったのですが、交互に色を設定する
するのがどのように記述したらいいのかわかりません。
また、1画面に8行までのレコードを表示し、それ以上は 「<<」｢>>｣みたいなボタンでページを
移動したいのですがこちらも上手くいかなく、、、

とりあえず帰りにでもACCESSの本を買って勉強しなおしてきます.

>>66
方法はいくつかあります。
ギヒョウの850でも読んでみてください。

>>71
Access97じゃ無理だってアドバイス受けてるだろ、バカ！

結局Access97では無理だったような。。。
無理やりやれば擬似的にできるんだけど，そんなことまでして，交互に
色設定する必要性があるかを良く考えた方がいいくらい無理矢理な方法だしな。

アクセスでクエリの練習問題をやっているのですが、どうも上手くいきません。
このサンプルファイル（ttp://deaikei.biz/up/up/2229.zip.html　パス；1111）を元に

１）店（STORE）をアルファベット順に並び替え、
EMPLOYEE（従業員）の名字（EMP_LNAME）と名前（EMP_FNAME）も一緒に表示されるようにせよ。
※店名はA〜Zの順に並び替える事が出来たのですが、従業員が5名しか表示されません。
EMPLOYEEテーブルにあるSTORE_CODEを元に従業員21人全員をそれぞれ表示されるようにしたいです。

2)更に、年間売り上げ$1,000,000,00以上の店のみアルファベット順に表示されるようにし、
EMPLOYEE（従業員）の名字（EMP_LNAME）と名前（EMP_FNAME）も一緒に表示されるようにせよ。

3)東と西（REGIONテーブル）にあるそれぞれのお店の総合売り上げを表示せよ。
※REGION_CODEの1と2のお店の総合売り上げを足して出力するみたいなのですが、
どのようにすれば良いのでしょうか？

>>75
いきなりファイルをうｐしてどうやっやるの〜？じゃぁ、見てくれる人いないんじゃないか？
１はファイル（クエリ）見てないから不明だが、問３についてはREGION_CODEでグループ化して
売上高を合計にすればいいんじゃないのか？（集計）

>>76
レスありがとうございます。
>いきなりファイルをうｐしてどうやっやるの〜？じゃぁ、見てくれる人いないんじゃないか？

それもそうですね…。少し焦っていて、自分中心に考えていました。

現在の状態ですが、1はどうにか出来ました。
3は76さんの通りにやったら出来ました。
2で$1,000,000,00以下の売り上げのお店を表示させないようにする所で未だに苦戦中です。

問２についてもクエリの抽出条件の欄に
>1000000000
って入力すれば$1,000,000,00以上の店のみ抽出
することが可能です。もしSQLで記述する場合は、
WHERE テーブル.売上高>100
を最後の行に記述すればおｋ

訂正：WHERE テーブル.売上高>1000000000
ですね（＾-＾；）

>>66
擬似的に行毎の背景色のコントロールは可能。
ただし、背景色そのものであるBackcolorはAccess97では行毎に切り替えるのは困難。

フォーム上にオブジェクトは重ねて配置できるので、最背面に色オブジェクトを配置すれば
背景色のように使用できる。
フォームのオブジェクトにはOLEオブジェクトが指定できるし、テーブル上のフィールドとしても
OLEオブジェクトは保存でき、フォーム上の連結オブジェクトフレームには、コントロールソースに
テーブルのレコードでも関数でも指定が出来る。

つまりはアタマを捻れば、フォーム上の明細行毎に背景色（もどき）を変化させるのは
どんなパターンでも説明可能な規則性があれば可能。

メンドクサイと思ったかな？

だとすればそれはおそらく、フォームの明細行毎に背景色を変える必然性は存在しなかったという事だ。
フォームの明細行色を変えたいというリクエストは割りと珍しくないが、その殆どは、
「色が変わると見栄えが良い 気・が・す・る 」といった程度のもので、一部特殊な用途を除けば
殆どの場合は作りこむ価値がない。

もう一度よく仕様を検討したほうが良いぞ！

>>80
日本語で頼む、つーか、それ重くてスクロールできん、使えん、無意味

Access2000で質問です。OSはXPです。

ボタン類やサブフォームが配置されたとあるフォームがあるのですが、
通常は問題なく動作しているのですが、サブフォームに貼り付けてあるクエリの
実行結果が「０件」になっている時だけ、そのサブフォームやラベル、周囲のボタン類が
全て見えなくなってしまいます。

また、フォームヘッダーやフッターはいつでもちゃんと表示されています・・・
「詳細」エリアだけが一切見えなくなってしまいます。何故でしょうか；；

>>82

データがないからでしょ。
連結フォームだとそうなるね。
実行結果が0件だった場合の処理入れたら?

>>83
そういうものなのですね・・・サブフォームと関係の無い外側のラベル類まで
一切消えてしまうので悩んでました。
クエリの実行結果が１件以上の場合のみサブフォームを表示させるようにすれば良いのかな・・・
ありがとうございました。

>>84
変更・追加が可能なサブフォームにする。変更・追加されたくなかったら、
VBAで抑制。例えば、追加なら挿入前でCancel=Trueにするとか。
見た目はあまりよろしくないが、サブフォームが消えたり出てきたりより
はいいかも。まだ、他にも方法はあるぞ。

>>81
連結オブジェクトフレームに貼り付ける画像は点を１ヶとかにして、OLEサイズプロパティを
「ストレッチ」にすれば、それ程重くはない。というか解釈しだいだと思うが、
1000レコード程度のしょぼいＤＢをMMXペンチのこれまたしょぼいノートで動かしているが
その範囲では全然問題ない。

背景は単色じゃなくて萌え画像で、とか言われたら使い物にならないだろうが…


何百万レコードで使うとか言われたらどうなるかしらないが、Accessでやるのは諦めてもらうとか
ものすごく高速なＰＣつかうとか。

ためしに10万件のレコードを4色分けで試してみたら別に問題無いな。マシンはpen3 1Ghz

テーブルに保存した色オブジェクトをDlookupで指定した条件で読込んでみると、
フォーム上の処理は、画面上で表示されるレコードしか色オブジェクトを読込んでこないし
色読込よりデータ表示をフォームからのエントリーが優先される。

フォームに表示できる行数を増やすを程、色が変わるタイミングに遅れがくるが。
（ページをどんどんめくると、移動中には色が変わらず、ページめくりが終わった時点で止まった
レコードの分のみ、パラっと色が変わる感じ）

昔、ノートＰＣでやった時には、
サブフォームじゃなく表形式フォームだけど、スクロール重くて使い物にならなかった

Acc2000だけど面白そうなんでやってみた
特に重いってほどでもない
つか、俺自身、画像そのもので似たようなことをやった経験があるので大体想像はついてた

そもそも>>80は、このやり方でいけと言っているわけじゃないだろ
どうしてもAc97でやりたいなら、たとえば、って話をしてるだけだろ
そんなに喧嘩腰になるようなことじゃないと思う

youth：少年犯罪［重要削除］
http://qb5.2ch.net/test/read.cgi/saku2ch/1145982539/172

172 名前：石川一郎[[email protected]] 投稿日：06/09/27 16:26 HOST:nttkyo188170.tkyo.nt.adsl.ppp.infoweb.ne.jp
対象区分：［個人・三種］優先削除あり
削除対象アドレス：
http://tmp6.2ch.net/test/read.cgi/youth/1157036753/360+363
http://tmp6.2ch.net/test/read.cgi/youth/1157128862/36+38
削除理由・詳細・その他：

今回弁護士法人ひびや綜合法律事務所の
石川一郎が　少年時に殺人事件を
起こしたとする書き込みがされていますが、
まったくの人違いです。
削除をしても、しつこく、同様の書き込みが
され、故意の業務妨害と判断せざるを得ませんので、
現在、警察に捜査を依頼すべく、準備中です。
弁護士法人ひびや綜合法律事務所
弁護士石川一郎

メインフォームの中のサブフォームの「帳票フォーム」で作成しています。

このサブフォームで表示させるデータの列数が２０列ほどあり、右にスクロール
すると当然左側の列が隠れてしまいます。

この左側の列（列１〜列３）を固定にして常に表示させたいのですが、
方法はありますでしょうか？

サブフォーム２つにすりゃいいんじゃね？

そうすっとスクロールの同期問題が出てこね？
すなおにデータシート形式にすりゃ列の固定で済むんだけど。

>>91
そういうのは桐にしとくのが良いよ

アクセス使えるようになりたいんだけど
本とか見ても商品管理とか住所録ばっかりで
自分の生活で使わなそうだし興味も沸かないので
勉強続けられる自信が無い。
本やＣＤの管理とかにも使えるかな。
他にいい使い道あったら教えてください。

俺自身は純粋にDBとしての使い道に迫られておぼえたんだが
敢えて逆の道をすすめてみる
完全に逆の道を進めてみる

データベースなんてどうでもいい
クエリなんて使わなくていい
テーブルさえ使わなくていい
フォームとモジュールだけに目を向けろ
VBか、使い方によってはそれ以上のプログラミングができるぞ
まずは電卓あたりからつくってみろ
スロットマシン、ラーメンタイマーなんてのもいい

>>95
本はごく一般的な題材だからうまく読み替えればいいと思いますけど？

私は自分の本の管理に使ってたりするよ。
CDの方が固有番号がはっきりしていて簡単かもね
I

>>95
目指せアクセスでゲームクリエイター
http://www.happy2-island.com/paradise/

>>96-98
ありがとうございます。
頭が固いせいか、本の内容を自分の使えそうなものに
置き換えて考えるのが難しかったんですが
とりあえずＣＤの管理表？を作って操作覚えてみます。

【 システム環境　 . 】 Win2003SV/Win2000Pro Access2003 Runtime
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 Access 2003 Runtime SP2 MSP グループポリシー ソフトウェアインストール

　Access2003 Runtime (AC2003RT) とシステムを GPO でユーザに割り当てて
展開してインストールはできたのですが、SP2 なしではスペースが入力
できないなどひどいありさまなので SP2 を適用しようとしています。

　Administrator でログオンして SP2 のフルファイルを実行しましたが、
Adinistrator には AC2003RT が割り当てられていないためか適用に
失敗してしまいました。
　AC2003RT を割り当てられているユーザで SP2 を実行すると、当然ながら
管理者権限がないため実行が中断されてしまいます。
　管理者インストールポイントを作ってそれに MSP を適用しようとしましたが、
msiexec /a AccessRT.msi としても何事も無かったかのように終了してしまい
管理者インストールポイントを作成できませんでした。
　グループポリシーにアップグレード用のパッケージを作ろうとしましたが、
MSP ファイルではパッケージを作ることができず、既存のパッケージになんとか
追加しようとしましたが該当する項目は見つかりませんでした。

　GPO でインストール済みの AC2003RT に SP2 を適用するか、SP2 適用済みの
AC2003RT を配布できるようにしたいのですが、何かよい方法はありませんでしょうか。

【 システム環境　 . 】 Windows XP, Access 2000
【 VBAが使えるか .】 微妙
【 VBAでの回答　　】 可
【 検索キーワード　】 ACCESS グループ化 罫線
はじめまして。早速ですが質問させて頂きます。
得意先の索引（フリガナ）を50音順にした一覧レポートを作っています。
フリガナをグループ化してア行、カ行・・・といったように改ページして、1ページに3列にわけるようにしているのですが、空データの部分にも罫線を出したいと思っています。
サイトを参考にして作ったりしたのですがうまくいきません↓（複数列でなければ出来るのですが）
http://www.mahoutsukaino.com/ac/ac2002/vba/vba12/v12.htm
明日までが締切で焦っています。宜しくお願いします(=ＴェＴ=)

>>101
プロパティ操作をしようとせず、ダミーで空データ分レコードを作る。
ってことなので、ダミーのテーブルが必要になるなぁ。

>101
先に罫線のみ印刷済みの紙を用意しておいて、レポートは データのみ印刷 を使うとか。

レスありがとうございます！！
＞102
追加クエリを使用するとゆうことでしょうか？
＞103
それが一番効率いいですよね。頭の堅い上司なんでどうも・・・(;´Д`A

>104
　今後の仕事の効率を考えると、上司の頭をやわらかくするか、別のところに
行きたくなる呪いをかけておくとより良くなるかも知れません。
　残念ながらそんな魔法をアドバイスするにはあと数年待たねばなりませんので、
代わりに >102 氏のアイディアをもう少し形にしたものを貼り付けていきますね。

1. レポートのレコードソースをテーブル作成クエリにして一時テーブルを作る。
2. 一時テーブルの Recordset を Keyset で開く。
3. Recordset の行数とレポートのページあたりの行数の MOD をとる。
4. 3. で得られた不足行数分、Recordset に空行を Addnew する。
5. レポートで一時テーブルを開いて印刷。
6. 一時テーブルを削除。

【 システム環境　 . 】 Windows2000, Access97,Excel97
【 VBAが使えるか .】 ExcelマクロはわかるけどAccessは勉強始めた初心者です
【 VBAでの回答　　】 可
【 検索キーワード　】 excel97 access97 連携 検索 更新
これまで excel97 のマクロで処理していたデータが6万件を超えて
しまったので、
データだけ、access97 に30万件のデータテーブルを作り格納しま
した。
このデータを、 excel97 で使用していたマクロから検索・更新した
いのですが、どう設定すればできるのでしょうか。

書店の書籍をみるとADOが載っていましたが、
ADOという機能が導入されたのは access2000 からのようですし、
調べているのですがよくわかりません。

アドバイスいただけると幸いです。
よろしくお願いいたします。

>>106
Access97を使っているなら、「ADO」ではなく「DAO」でググろう！

>>107
ぐぐってみます。ありがとうございます。

【 システム環境　 . 】 Windows2000 , Excel97, Access97
【 VBAが使えるか .】 Excelはわかるけど Accessは初心者
【 VBAでの回答　　】 可
【 検索キーワード　】 DOA excel97 access97 オブジェクトが必要です
今日初めて Access97 でテーブルを作成して、
エクセル97のマクロから下記のコードを実行したのですが、

'テーブルのオープン（レコードセットの作成）
⇒ Set daoRS = db.OpenRecordset("EURUSD_2004", dbOpenTable)
で、

実行時ｴﾗｰ　424
オブジェクトが必要です

とでてしまいます。

DBは、フィールドにオートナンバーと日付と時刻と気温というデータが
30万件あるテーブルがひとつあるだけのものです。
DOA 3.5 と、DOA 3.6　でも実行してみたのですが同じです。
どこがおかしいのかわからず悩んでいます。
なにかアドバイスいただけると幸いです。
よろしくお願いいたします。

コード
-------
Sub prc97()

Dim daoDB As Database
Dim daoRS As Recordset

'データベースのオープン（データベースオブジェクトの作成）
Set daoDB = OpenDatabase("H:\AccessDB\T_KION_2004.mdb")
'テーブルのオープン（レコードセットの作成）
Set daoRS = db.OpenRecordset("KION_2004", dbOpenTable)

'最終レコードまで順読み込みを行う
Do Until daoRS.EOF = True

'レコードの順読み
daoRS.MoveNext
Loop

'テーブルのクローズ
daoRS.Close
'データベースのクローズ
daoDB.Close

End Sub
-------

> Set daoRS = db.OpenRecordset("KION_2004", dbOpenTable)

関係ないかもしれないが、どこにも「db」なんてオブジェクト変数 宣言してないだろ。

Set daoRS = daoDB.OpenRecordset("KION_2004", dbOpenTable)

にすると、どうよ？

>>105
代わりにありがとう！！
あとは、レポートでのグループ化・昇順・降順に注意しましょう。
ダミーで追加した空行が先頭に来ちゃったりしたら、かっちょ
悪いし。

>>111
うまくいきました　ありがとうございます
アクセスへのマクロの定義を、今日初めて記述したもので
よくわかっていませんでした（汗　ありがとう

エクセル97のマクロからDOAを介して Access97 のテーブルを検索するロジック
についてなのですが、

例えば、

　１行目のレコードの会社名とマッチする社名を、同じテーブルの２行目以降から
検索して１００行目でマッチした。
　次に、２行目のレコードの会社名とマッチする社名を３行目以降から検索する
ような処理を記述する場合、

エクセルの表であればそのままＬＯＯＰですが、アクセスの場合は
　For 文と　MovePrevious　の組合せで２行目に戻してから再検索させるのでしょ
うか？
初心者質問ですみません。よろしくお願いします。

誰か突っ込んでやれよ。

DOAじゃね〜よ。って。

>>114
2行目とか3行目とか言ってる意味が良くわからんが、
絞り込みならSQLのSELECT文つかえ。
Accessでいう「選択クエリ」だ。

>>114
何行目って話が出るってことは、先頭からループ回して1つずつ
調べる気だな。SQL以外でやるんだったら、FindFirst, FindNext
を使え。

>>117
その通りです。
エクセルのマクロから実行しなければならないので。
FindFirst, FindNextですね。調べてみます。ありがとうございます！

エクセルだって参照設定すりゃDAO使えるだろが。。

>>119
>>109

【 システム環境　 . 】 Windows2000 , Excel97, Access97, DAO3.5
【 VBAが使えるか .】 Excelはわかるけど Accessは初心者
【 VBAでの回答　　】 可
【 検索キーワード　】 DAO excel access select

今までエクセル９７の表計算で下記のように処理していたのを、
表のデータをアクセス９７に移してDAO3.5で処理しようとしています。

エクセルでは下記↓のように記述していました。

'順次検索更新処理
Do While gyo = gyoEnd '･･･�@

If Cells(gyo, 1) = 1 Then
If Cells(gyo, 2) = (gyo, 3) Then
Cells(gyo, 3).Interior.ColorIndex = 6
Else
'gyo以降を順次検索更新
idx = gyo + 1
Do While idx = gyoEnd
If Cells(gyo, 2)　= (idx, 3) Then
Cells(idx, 3).Interior.ColorIndex = 6 '･･･�A
Exit Do
End If
idx = idx + 1
Loop
idx = 0
End If
End If

gyo = gyo + 1
Loop

これをそのまま２つのLoop文の前にそれぞれ RS.MoveNext でレコー
ドの順次読み込みを行うと、
�Aの　 'gyo以降を順次検索更新　が終了した時点
でテーブルのカレントレコードの位置が、 gyo に idx を加算した行
にいる状態になります。

その場合、次のLoopで �@( つまり gyo+1）から再検索するには
テーブルのカレントレコードの位置を gyo+1 に戻す必要があると思う
のですが、

私が思いつけるのは、For 文と　MovePrevious　の組合せなのですが、
（例えば、�Aの後に、For 文と　MovePrevious　の組合せでカレント
レコードを ｇｙｏ にまで戻す記述をする）

それは一般的なやり方なのでしょうか？
もっと効率的なやり方はあるのでしょうか。
よろしくお願いいたします。

スレだと空白が消えてしまうので、_を入れたのもアップしておきます。

___'順次検索更新処理
___Do While gyo = gyoEnd　･･･�@

_______If Cells(gyo, 1) = 1 Then
_____________If Cells(gyo, 2) = (gyo, 3) Then
__________________Cells(gyo, 3).Interior.ColorIndex = 6
_____________Else
__________________'gyo以降を順次検索更新
__________________idx = gyo + 1
__________________Do While idx = gyoEnd
_______________________If Cells(idx, 2) = (idx, 3) Then
____________________________Cells(idx, 3).Interior.ColorIndex = 6　　･･･�A
____________________________Exit Do
_______________________End If
_______________________idx = idx + 1
__________________Loop
__________________idx = 0
_____________End If
______End If

______gyo = gyo + 1
___Loop

Accessでは全レコードを順次検索更新処理ってゆーのがまずあり得ない。
つーか、最後の手段。

Excelでのロジックを捨てる覚悟がいると思うけど。長い文章読みたくないから、
どのような処理をして結果何をしたいのかを考えれば、SQLで済んでしまうか
もしれない。検索していく過程で2番目に戻る・3番目に戻るってのがあるから、
MovePreviousを使うって考えてるなら、処理対象のテーブルをオープンしたら、
そのレコードセットのクローンを用意して、同じテーブルに対して2つのレコード
セットを用意すりゃいいじゃん。

>>109
>>122 からエスパーすると
現状エクセルで2列目と3列目の値が同じ場合、3列目に色付けしているけど
テーブルから同条件でレコードを抽出してワークシートに取得したいってことか？

【 システム環境　 】 Windows2000, Access2003
【 VBAが使えるか 】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】種類が一致しません 実行時エラー　(80020005)

【症状】　ADOを用いてExcel上のデータをAccessテーブル追加する際
Accessテーブルの数値型フィールドに空白を移行しようとすると、
「実行エラー-2147352571　種類が一致しません]となる。

{Excel:Book1:Sheet1}
ABCDEF
1生徒ID名前出欠国語数学英語
21阿部0704080
32伊藤0725083
43上野1
54遠藤0756082

{Excel:Book1:Sheet2}
ABC
1生徒ID名前点数
2=Sheet1!A2=Sheet1!B2=IF(Sheet1!C2=1,"",SUM(Sheet1!D2:F2))
32伊藤205
43上野
54遠藤217


[ACCESS:myDB:成績(テーブル)]
フィールド名データ型
生徒ID数値型(倍精度浮動小数点型,少数点以下自動),値要求(Y),index(YY)
名前テキスト型
点数数値型(倍精度浮動小数点型,少数点以下自動),値要求(N),index(N)

[Excel:VB]
Sub レコードの追加1()
Dim myCon As New ADODB.Connection
Dim myRS As New ADODB.Recordset
Dim myFile As String
Dim myTbl As String
Dim myRng As Range
Dim i As Integer

myFile = ThisWorkbook.Path & "\myDB.mdb"
myTbl = "成績"
Set myRng = ThisWorkbook.Worksheets("Sheet2").Range("A1").CurrentRegion
With myCon
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open myFile
End With

myRS.Open myTbl, myCon, adOpenStatic, adLockPessimistic, adCmdTableDirect
myRS.Index = "生徒ID"
For i = 2 To myRng.Rows.Count
myRS.Seek myRng(i, 1).Value
If myRS.EOF Then
myRS.AddNew
For j = 1 To myRng.Columns.Count
myRS.Fields(myRng(1, j).Value).Value = myRng(i, j).Value
Next
End If
Next

myRS.Update
myRS.Close
Set myRS = Nothing
myCon.Close
Set myCon = Nothing
End Sub

欠席者の点数を空白にしたいのですがどのようにすればいいでしょうか？
手動で、コピーしテーブルへの追加貼り付けは問題なく出来ます。
お知恵を貸してください宜しくお願いします。

すみません
エクセルの部分が見にくいので張りなおします。

{Excel:Book1:Sheet1}
A　　　B　　　C　　　D　　　E　　　F
1　生徒ID名前出欠国語数学英語
2　1　　阿部　　　0　　70　　40　　80
3　2　　伊藤　　　0　　72　　50　　83
4　3　　上野　　　1
5　4　　遠藤　　　0　　75　　60　　82

{Excel:Book1:Sheet2}
A　　　　　　　B　　　　　　　　C
1　生徒ID　　　　名前　　　　　点数
2　=Sheet1!A2　=Sheet1!B2　=IF(Sheet1!C2=1,"",SUM(Sheet1!D2:F2))
3　2　　　伊藤　　　205
4　3　　　上野
5　4　　　遠藤　　　217

どっちも！！
NULL

>>125>>126
もともとエクセルで６万行を越えてしまったのでアクセスをエクセルの表の代わり
にしようと思ったのと、私自身DBの知識がないので、一般的なアクセスの使い方
とは異なっているのかもしれません。

要は、
エクセルのマクロのループ文が入れ子式に二重になっているので、中のループ
で先に進んだカレントレコードの位置を元のループの再スタート位置に戻す必要が
あるので、そこをどう記述すればいいのだろう、という疑問なのですが、
そもそもそういう使い方が一般的ではなさそうですね・・・。

>>127
失礼しました。
実際には色を塗り替える命令文の下に、塗り替えたセルの数値を取得する処理
が入ります。
それを入れると長くなってしまうので、処理の流れを判り易くするために例からは
外しました。
しかし、色を塗り替えるのはエクセルではともかく、アクセスではありえない処理
ですから例としては不適切でした。すみません。
実際には参照比較してテーブルの元の行のフィールドを一部を更新します。

>>116>>126
MoveNextしか知らず、エクセルマクロでSQLをどう記述したらテーブルから
データを取得してこれるのかわからないレベルなので、レスの意味がわかり
ませんでした。多分SELECT文の使い方がわかれば出来るのだろうと思います。
すみません。

>>109

で、具体的には何をやりたいの?
ExcelVBA解らんから言葉で箇条書きしてくれ。

>>133
>実際には参照比較してテーブルの元の行のフィールドを一部を更新します。

>>1嫁
★ 質問内容は具体的に書いてください。
　　・何がしたいのか
　　・どんな処理を試したか
　　・動作状況など駄目な理由
　　テーブル/フォームの構成、クエリ、VBAの内容など差し支えない
　範囲で詳しく書くと、早く回答が得られるかもしれません。

>>109
情報が少ない今の段階でも、アナタのやりたいことはオレのレス通り
同じテーブルで2つのレコードセットを利用すればでできるだろ。
1つを、最初→次→3番目→・・・って使い方をして、もう1つを検索専用
にすれば。
1つで済ませたいなら、BookMarkを使えば即戻れる。これが何かぐら
いは自分で調べなさい。
ただし、例えAccessだとしても6万件になるレコードをシーケンス的な
方法で処理をするのはおかしい。時間がかかってもいいなら、どうぞ。

>>132
すみません、どこをＮｕｌｌにすればいいのですか？

>>138
オマエはアホか！！
> Accessテーブルの数値型フィールドに空白を移行しようとすると、 「実行エラー-2147352571
> 種類が一致しません]となる。
と聞いてきたんだろ。空白というのは、マジで" "か空文字列の""を入れようとしてるんだろ。
数値型に文字列データ入れようとしてるんだから、そのエラーになる当たり前じゃん。それに
対してNULLって教えてるんだから、該当の数値型フィールドにNULLを入れるに決まってるだろ。

>139
Excel側で空文字列でなく、Ｎｕｌｌを代入することは出来ますか？

=IF(Sheet1!C2=1,"",SUM(Sheet1!D2:F2))
の部分を変更することで対応できますか？

>>137
>2つのレコードセットを利用する
2つのレコードセットを利用することができるとは思いもよらず、
意味がわかっていませんでした。
レコードセットを2つ利用するにはどうやって記述すればいいのでしょうか。
レコードセットを別々の名前で書けばいいのでしょうか。
どこか参考になるサイトはありますでしょうか。

>>137
レスの内容から想像すると、多分、そのやり方が私のエクセルマクロの処理に
近いイメージです。とりあえず処理結果が必要なので、シーケンス的な方法で処
理して、後でアクセスの知識をつけてからちゃんとしたやり方を考えたいです。

>>109
ExcelVBAは基本命令さえ知ればロジックをうんうん唸って考えればどうにでも組めるけどExcelVBAからテーブルを扱うのはいちいち記述の仕方を調べないとできないですよ

>>135>>136
・DAO3.6でアクセス９７のテーブルで、
指定したRS!行数から検索して、
ある価格より小さなRS!価格を探し、
一番最初にヒットしたRS!価格を取得してエクセルの表に書き出す。
そういうSQL文を、
ExelVBAでどう記述すればいいのか？

これが自分の「具体的に何がしたいのか」だとわかりました。

×一番最初にヒットしたRS!価格
○より小さなRS!価格でRS!日付、RS!時間の一番近いもの

でした。

�@
エクセル
日付　　　　　時刻　値段　値段２
2004/1/1　17:18 980


�A
アクセスのテーブル
行数　日付　　　　　時刻　値段
1　　　2004/1/1　09:18 980
2　　　2004/1/2　10:12 2000
3　　　2004/1/3　13:11 153


�@より後で日付時刻が一番近くてより値段の小さい
3　　　2004/1/3　13:11 153
のデータを取得して値段２に入れる。

>>109
アンタ、自分で調べるってことをしてる？サイトだけじゃなくて、ヘルプを読む力を
付ける。
rs1 = OpenRecordset（〜)とrs2 = OpenRecordset（〜)でも充分。実際に2つ開か
なくても、rs2 = rs1.RecordsetClone でもOK。引数や正確な書き方は、自分で
調べる！！
本当に値段だけが欲しいいなら、日付と時刻が分かれてるから面倒だけど(文字
列の設定とすると)、Excelの方を値固定でSQLを表すと、MIN([値段])を使ったの
を教えようと思ったが、ダメだな。「日付時刻が一番近くてより値段の小さい 」って
条件、何を優先にするのかも含めて曖昧でわからん。

行数　日付　　　　　時刻　値段
1　　　2004/1/1　09:18 980
2　　　2004/1/2　10:12 2000
3　　　2004/1/2　13:12 200
4　　　2004/1/3　13:11 153
5　　　2004/1/3　13:11 150
6　　　2004/1/3　10:45 190

このデータの時、どれが求めたい値段2なんだよ。それと、Accessのテーブルで
何行目という表現は不確かな要素が大きすぎる。この説明のように使う分には、
いたしかたないと思うが・・・、何か、面倒になってきた。アドバイス、誰かにタッチ
しようかな。

>>147
ﾍﾙﾌﾟを使える以前のアクセスでなにがどうあるべきかイメージが掴めない真っ白
な状態でして、「シーケンス的な使い方はDBでは普通しない」という指摘もやっと
わかってきた状態なので、トンチンカンな使い方を尋ねてしまってるのだろうとは
思うのですが・・・、すみません。

> 本当に値段だけが欲しいいなら、日付と時刻が分かれてるから面倒だけど(文字
> 列の設定とすると)
文字列にするのが普通なのですか。テーブルはｄａｔｅ（ｓ）とｔｉｍｅ（ｓ）で設定してる
のですがエクセルに落すと日付が変になることがあるのでそうした方がいいので
しょうか。

>「日付時刻が一番近くてより値段の小さい 」って
> 条件、何を優先にするのかも含めて曖昧でわからん。

> 行数　日付　　　　　時刻　値段
> 1　　　2004/1/1　09:18 980
> 2　　　2004/1/2　10:12 2000
> 3　　　2004/1/2　13:12 200
> 4　　　2004/1/3　13:11 153
> 5　　　2004/1/3　13:11 150
> 6　　　2004/1/3　10:45 190
>
> このデータの時、どれが求めたい値段2なんだよ。

3行目のレコードの値段です。

まず、エクセルの方の日付けより未来のデータが検索対象となり、
次に検索目標がエクセルの値段より小さい値段、
という順番になります。
お手数をかけてすみません。

ちなみにヘルプもググったサイトと交互に読んでいます（難解ですが・・・

>>109
>>144-145 に関して答えるならこんな感じか。先頭データだけが必要ならループはいらんが･･･
SQLクエリは Jet SQL リファレンス、関連書籍やサイト見るなりしてがんばれ。

lngID = 指定行数
varBase = 基準価格

strSQL = "SELECT テーブル.* " _
& "FROM テーブル " _
& "WHERE ((テーブル.行数>=" & lngID & ") AND (テーブル.価格<" & varBase & ")) " _
& "ORDER BY テーブル.日付 DESC, テーブル.時刻 DESC"

Set rst = db.OpenRecordset(strSQL)

Do Until rst.EOF
{EXCEL処理}
rst.MoveNext
Loop

rst.Close

>>150
指定行数はこういう風に記述すればいいのですね！
strSQLは上でDｉｍで宣言すればいいのですよね。
記述例があると進み方が全然違います。ありがとうございます。
> それと、Accessのテーブルで
> 何行目という表現は不確かな要素が大きすぎる。
この意味もようやくわかりました。日付と時刻をあわせて主キーに
するべきだったのですね。

普通は、日付時刻型の1フィールドに日付も時刻もセットする。
>>151 のSQLは、行数というフィールドがあって初めて使えるかも？って
いうもの。まぁ、行数の代わりに連番でもいいけど。

>>109 が説明のためだけに行数を出したのなら、使えないSQLだね。
ついでに、複数の処理をしたいんだろうから、151のやり方だと基準が
変わるたびにSQL作成してOpenRecordsetの繰り返しになる。
現実的には、109が頭をひねって考える必要がある。ここまで、ヒントを
出して下さったんだから、ありがたいと思わないと。
簡単なオレからのアドバイス。151のSQLで、同一日時で価格が下回る
複数のデータがあった場合、どれがヒットするかわからない。一番安価
なのって条件があるなら、ORDER BYに価格も含めるべき。

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 OpenDatabase DAO odbc
上記環境にて、ファイル→外部テーブルからodbcで
OracleDBをリンクしています。
また、環境によってはリンクを外す場合があり、
フォームのオープンプロシージャでテーブルがリンクされていたら、
接続しデータ検索を行う処理を追記したいのですが、
方法がわかる方がいらっしゃいましたらよろしくお願い致します。

>>158
マクロなら、メニュー使って手作業でリンクするのと大差なく作れるでしょ。
その後、VBAに変換とやれば基本的なものはできるよ。

158 がその釣りに気付いてくれることを祈るよ。

>>154
本当に有難うございました。

>>154
(^∇^)アハハハハ!
153でしたね。

>>152>>154
頭をひっております。ありがとうございます。

【 システム環境　 . 】 WindowsXP , Access2000
【 VBAが使えるか .】 かすかに
【 VBAでの回答　　】 可　）調べます。
フォーム上で、ボタンをクリックすると
決まったフィールドの値をコピー出来るようにしたくて
マクロにて
フォーカスの移動（フィールド名）
キー送信　（^C）

などとしたのですが・・
何故か、たまに失敗します。なので二回クリックしたりしてます。
どういう場合にコピーしてくれないのでしょうか？

オプション、キーボード、フィールド移動時の操作、はどうなってる？

>>159
マクロでやるなら、オプションは大事だな。オプションのキーボードタブ、
フィールド移動時の動作は全体を選択だな。
これだったら今のままでもうまくいくはずだが、あえて突っ込めば、キー
送信を使わずに[コマンドの実行]でコピーを使おう。
で、本当にクリップボードに送るだけなのか？？？
どこかフィールドにペーストまでやるなら、VBAの方が楽だぞ。

【 システム環境　 . 】 Windows2000 , Excel97, Access97
【 VBAが使えるか .】 Excelのみ
【 VBAでの回答　　】 可
【 検索キーワード　】DAO Excel Accsess エクセル アクセス 数字 変換

カンマ区切りのテキストデータの数値をアクセス97に
インポートして、DOAを介して、エクセル97のマクロで
セルに入れると余計な数字が付加されています。

�@
.txt
1.2565

�A
アクセス
1.2565

単精度浮動小数点型
小数点以下桁数　：　4
既定値　：　0

�B
エクセル
1.25650000572204

エクセルでのマクロの記述はただ単に
Cells(1, 4) = RS!数値
です。

エクセルでデバッグしてみると RS!数値はテキストのまま
の数値が 表示されますが、
Cells(1, 4)にカーソルを移すと　1.25650000572204　と
表示されるのでエクセル側の問題だと思うのですが。

エクセルでセルに直接入れないで、Ａｓ　Ｓｉｎｇｌｅ　の変数
に一度入れてからセルに入れても同じ結果でした。
どのようにしたらいいでしょうか？
よろしくお願いします

>>163
Cells(1, 4) = CCur(RS!数値)

とするとどう？

>>164
実行時エラー424
オブジェクトが必要です

になりました。CSng　でも同じです。

>>164
Dim　〜　As　Currency　で定義した変数に突っ込んでみたら
余計な数字がカットされました。
これはどういうことなのでしょう。怖いです。

エクセルスレでエクセルの演算誤差の問題だという指摘を頂きましたので調べます。。
とりあえず処理は>>164さんのアドバイスで対応できます。ありがとうございました。

>>160さん
診断ありがとうございます。
なるほど、テキストが選択されているように見えていたのですが
実際は移動しましたけど？な状態と理解してよいのかな・・
>>161さん
加えて丁寧な回答感謝です。
突っ込みのとおりコマンドの実行で出来そうですが。
実は、他のアプリへ貼っつけるのでクリップボードへ保存するしかない！
と・"思い込みました"
現状維持して、勉強いたします。

だから、桐にしとけってば

▼━質問━━━━━━━━━━━━━━━━━━━━
mdbを実行した時から30分程度で自動的にACCESS自体を終了させたいです。
これによる弊害などは気にしなくて構いません。

▼━質問テンプレ━━━━━━━━━━━━
【 システム環境　 . 】 WindowsXP SP2, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】ACCESS VBA 閉じる タイマー

>>170
Timerイベント
TimerInterval
Application.Quit

仕事で郵便番号検索するため郵政の番号一覧をダウンロードしたけど
表示オーバーで全国の郵便番号が表示できない。
これってアクセスだと全て表示できて検索できたりする？

>>172
Access データベース (.accdb) ファイルのサイズ
2 GB からシステム オブジェクトに必要な領域のサイズを引いた値

ちょっと難しいんですが・・。
ダウンロードの容量が１１７３０ＫＢということは、無理ってこと？
ごめん・・・。

>>174
Accessなめてるなｗ

郵便番号なんて、たかが10万件程度だ
インデックス張れば、瞬時に検索できる。

>>172

Excelで開いたと思われるので、2007ならば問題なし。来年まで待たれよ。
Accessも使い慣れれば、Excelより便利な場合もあるけどね。

ほとんど重複データだから正規化せずにはいられないよね、アレ。

>>177
使うなら、県・市・町のテーブルに分割すればいいだけだ。
データベースをおもちゃにするならとてもよいサンプルかもしれないｗ

>>174
> ダウンロードの容量が１１７３０ＫＢということは、無理ってこと？

１１７３０ＫＢ ≒ １１．７MB ≒ ０．０１２GB ＜＜＜＜ ２GB

みなさん、ありがとございます。

例えばCドライブの直下にPDF_TEST.pdfというファイルがあり、アクセスでボタンを押すと
そのファイルがアクロバットリーダーで開かれるというような処理を書きたいのですがどう
すればよいでしょうか？

>>181
START.EXE

>>182 START.EXE を起動するにはどう書けばよいでしょうか？

>>181

1.フォームを作る
2.フォーム上にボタンを作る
3.ボタンのプロパティを表示する
4.ハイパーリンクアドレスの項目を選択し、右側の「…」を押す
5.リンク先のファイル/ＵＲＬ　の右側の「参照」を押す
6.ファイルの種類を「すべてのファイル」にする
7.C:\PDF_TEST.pdf を選択して「ＯＫ」ボタンをクリックする
8.フォームを「フォームビュー」にしてボタンを押す。

>>183
Shell

フォームを作っているのですが、

windows付属のフリーセルのように、
横幅を固定し、縦のみ大きさを変更したいのです。

方法はありますか？

>>186
ある。

>>186
フォームのサイズ変更時に

DoCmd.MoveSize , , hogehｏge

と記述。hogehogeは固定する横のサイズ

>>188
有難うございました。
一発でうまくいきました。

ここには>187みたいな、基地外しかいないかと
相手にしたくないので諦めかけていたところでした。

>>189
おれ、１８７じゃないけど、１８７に教えて貰ってその態度は無いだろ
二度と来るなよ

>>190
ﾊｧ?
教えて頂いたのは188様です。

>187はタダのゴミくず

>>191
退場を命じる

>187>192>190
喪前は、どうしようもない屑だな・・・・

ACCESSで作ったアプリ（mdbファイル）があります。フォームやレポートをVBAで
使いやすくした程度ですが、これってACCESSのインストールされたPCでないと
使えないものですか？EXCELL、WORD2003のみ搭載のお手軽OfficePCで
使うことは出来ないものでしょうか？
何かのDLLがあれば使えるとか、条件次第で出来るのならあとは自分で調べてみます。

環境は混在してますがとりあえずWindowsXP、Office2003ってことで。
VBAもなんとかわかります。

>>194
Access か Access Runtime がインストールされていないと使えませんです。
ただし、データのみ（フォームやレポートは不可）なら、Excel からでも接続できます。

>>194
Office XP Developer 買え。

>>195
サンクス、runtimeとやらを調べてみます。

>>196
だったらExcell側で作り直したほうが、、、

500円でランタイム化してやるよとか言う商売したら
ライセンスに抵触するのかな。

下記の様なソースコードがあります。BLOBを使ってOracleからデータを取得し、それをC:\
に書き出して、アクロバットリーダーで表示させています。
ところが、このコード普通に書いてしまうと、アクロバットリーダが起動しません、なぜなら
ファイルにロックがかかっており、アクロバットリーダーは編集モードで通常開こうとする
ためです。BLOBから取得してきたデータのファイルロックをはずす方法などご存知のか
た、いらっしゃいませんでしょうか？

Private Sub cmd表示_Click()
Dim objOraBlb As OraBlob
Dim varRetval As Variant

m_strOldItemCode = Master品目サブフォーム![品目コード]

'BLOB列を含むSELECT文
strSQL = "SELECT IMAGE_FILE FROM T_M_ITEM WHERE ITEM_CODE = '" & Trim(m_strOldItemCode) & "'"
'ダイナセットの設定
Set OraDynaset = OraDatabase.CreateDynaset(strSQL, ORADYN_DEFAULT)
'BLOB型にデータがあるか??
If IsNull(OraDynaset.Fields(0).Value) = True Then
'データが無い!!
MsgBox ("このデータに画像は登録されていません")
Exit Sub

Else
'BLOB型のオブジェクトを設定
Set objOraBlb = OraDynaset.Fields(0).Value
'ファイルへの書込み(LHA圧縮の元ファイルが日本語名を使えないためC:\直下に格納
objOraBlb.CopyToFile "C:\Genesiss_tmp.pdf"
'BLOB型のオブジェクトを解放
Set objOraBlb = Nothing

'ファイルにロックがかかってるのでしかたなくやっている---↓
varRetval = Shell("CMD.EXE /c copy Genesiss_tmp.pdf Genesiss_tmp2.pdf", 1)
varRetval = Shell("CMD.EXE /c start c:\Genesiss_tmp2.pdf", 1)
'ファイルにロックがかかってるのでしかたなくやっている---↑

End If
'ダイナセットの解放
Set OraDynaset = Nothing
'正常戻り

【 システム環境　 . 】 WindowsXp, Access2000
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 Access 人事 テンプレート

まったくAccess使ったこと無いのですが人事管理のデータベースを作ること
になりました。
お手本になり改変可能なテンプレートや、作り方を紹介したサイトなどがあ
れば教えてください。
フリーソフトは幾つか見つかったのですが、改変できないものばかりなので
後から自分で手を加えられるものが欲しいんです。
よろしくお願いします。

>>203
まともにAccessつかったことも無いやつが人事管理みたいなもん
作れる訳が無かろう

エクセルスレで聞いてエクセルでやれ。

>>200
知らないが、oo4o の問題なら Access は無関係だから、
Oracle できいた方が早い希ガス。

>>186
「方法はありますか」と尋ねたのだから、>>187 の「ある」が最も妥当な回答。
「実現する方法を知りたい」なら、そのように質問するべきだった。

妥当な回答をくれた相手を基地外だの屑だのと呼ばわる>>186の方が
きちがいでありごみくず。

うん、>>186 は質問の前にまず的確な日本語をマスターすべきだよ
でないと人並の社会生活営めないぞ

>>205 Oracleサポートに問い合わせてみました。
追って報告します。

accessベースのソフトを使っていて、顧客の領収書を発行するのに8回ボタンをクリックしないといけない仕様です。
すべてのボタンのイベントプロシージャを連続して作動させる方法ってありますか。待ち時間も適当に設定して連続させたいのですが・・

ある

社員名簿のシステムを作っています。
テーブルに・社員名簿と・退職者名簿を作ろうと思っているのですが
現在、社員から退職者が出た場合、名簿の移動をするときに手入力で移動させています。
何か簡単に移動させる方法はないでしょうか？
フィールドはほぼ同じで、退職者名簿のみ「退職日」「退職理由」のフィールドが追加されています。

退職した社員が出た場合

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【 システム環境　 . 】 WindowsXP, Access2000
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 名簿　Access クエリ

>187>192>190

追加
>206>207
喪前は、まだやってるのかｗ
社会で相手にされてないからって、これぐらいにしておけよｗｗｗｗ

>>211
>フィールドはほぼ同じで、
社員テーブルに、在職・退職のフラグを追加し、本当は全く同じにした方がいいな。
復職しないともかぎらんし、

退職時は、社員テーブルのフラグをチェックし退職者テーブルに追加

オラクルサポートに聞いたところ、
Set OraDynaset = Nothing
してないのが原因のようでした。

>>214

ちょっと前にcloseとかnothingが必要か否かっていうやり取りがあったけど、
やっぱりおまじないはしておいた方がよさ気ですね。

>>213
ありがとうございます、できました。社員テーブルも同じにしました。

もうひとつやり方がわからないことがあるのですが
勤続年数、年齢をクエリ上で求めたいと思っています。
今日現在の年齢（○○才）の表示はできるのですが
○○才○○ヶ月というふうに表示させるのはどうやればいいでしょうか？
また、指定の日付け時点の年齢を表示させるにはどのようにすればいいですか？
指定の日付はそのつど入力したいと思っています。

>>216
DateDiff 関数

>>215
でも、CurrentDbに対してCloseやNothingはいらないと思うぞ。

>>210
もう少しヒントをいただけるとうれしいです・・・読むべき本でもいいです。

>>209

accessベースのソフトと言う一文が気になるのだが、
各イベントプロシージャをcallすればいいんじゃね?
もちろん拡張子が、mdeとかじゃないよね?

>>209
>>220さんの言うように呼び出しをすればおｋ！それか各ボタンごとにプロシージャを
書き込むのではなくてモジュールを作成し、そこから読み込むのもあり

表示させることはできました。ありがとうございました。
ただ、書式設定がうまくいってないのか
03年9ヶ月のように一桁の年数の場合は0が入ってしまいます。
この0を取りたいのですが、どうやればいいでしょうか。
書式はyy年mヶ月としています。

ある

フォームをつくっています。
入力時、空白のページを表示させたいのですがどうすればいいですか？
開くとテーブルの最初のデータが表示されてこまっています。

>>220
市販ソフトなんですけど、accessそのものです。変な表現ですみません。
>>221
ありがとうございます。試して見ますね。また、報告しますね。

>>222
iif関数 Switch 関数

漏れならこんなもの自前のfunctionでやるが。。。

>>224
ふぉーむ開くときに

DoCmd.GoToRecord , "", acNewRec

【 システム環境　 . 】 WindowsＸＰ, Access２０００
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 処理速度の高速化

現在、測定データが約５千万件ほどあります、フイールド数は１０ヶ程度
Accessで集計・抽出していますが、遅いです。
もっと早く集計させるにはどうすればいいですか？

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 可

下記のソフトのような事をアクセスで一括してできないでしょうか？
http://webseeder.net/bp/bptran0.9m/readme-bptran0.9m.html
リンク先より：
「CSV形式のデータファイルから読み込んだ情報を、テンプレート用HTMLファイル（デザイン自由）の指定位置に書き込むことで、同じデザインのホームページを大量に自動生成できます。
ホームページに掲載するための情報をデータベース等で管理している場合、テンプレートとなるHTMLファイルさえ作れば、もうコピー＆ペーストの必要はありません！ 」

つまりデータベースとHTMLテンプレートから、複数のHTMLファイルを産出するというものです。
ACCESSなら出来ると思うのですが、方法が全く思いつきません。
調べたのですが、出てきませんでした。

どなたかよろしくお願い致します。

【 システム環境　 . 】 WindowsＸＰ, Access２０００
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 不可
【 検索キーワード　】 追加クエリ　サブフォーム

「職員情報マスタ」というテーブルと「職員履歴」というテーブルがあります。
それぞれのテーブルには「職員番号」というフィールドがあります。
「職員情報マスタ」テーブルに職員番号を入力すると、同じ値が「職員履歴」テーブルに自動入力される
方法があれば教えていただきたいと思います。
フォームを使った方法でも構いません。
よろしくお願いします。

マスタって何のために使ってるの

>>227
早く回答をもらうにはテーブルの構造と問題のクエリを晒したほうが良いです。

>>229
検索キーワードに "サブフォーム" があるのお見ると
「職人情報マスタ」をレコードソースとするフォームに
「職員履歴」をレコードソースとしたサブフォームを配置してみたけど
うまくいかなかったってこと？

>>227
ヒントつ: CPU, RAM, 用意できる金額

>>227
あとインデックスの有無も。つか、張ってなかったら張れ。
張ってそれなら、Access の限界かも。

>>228
VBA を駆使すればどうにでもなるけど、あるていどの
カスタマイズは必須になるから、ちょっと厳しいかな。
最悪、CSV で吐いてそのソフト使うんじゃダメかい？

>>227
おそらく、設計が糞に1000カサノッサ

>>232

同じ処理をセレ（256MB）とP4(2GB)でやったことあるけど、
RAMはあまり関係なさそうだよ。
CPUクロックほぼ同等で1.5倍ぐらいP4マシーンが早かったから
自作板で言われているCPU性能差そのまんま。
ただ、メモリつんでいる方が起動と終了が早いくらい。

>>RAM
俺も漠然とだがそれは感じていた

それにしても・・・5000万件か
何か夢のような、というか悪夢のような数字だな

処理の速い遅いは別にしてAccessでもやればできちゃうのか

>>227
50,000,000件のレコードでフィールド数10個くらいってファイルサイズどうなってんだ？
ACC2000の制限が2GBだったと思うがインデックスも作る余地ないんじゃないか、、、

227です。　みなさんご教示ありがとう。
５千万件でも、１Ｇ超える程度です。もちろんインデックスつけてます
測定データなので、そんな容量は変動ないです。
フィールド数が10個ですが、最小限の予約サイズにしてます。
測定データ（ロガー）の分析にAccessですが、これって無理がありますか？

設計が糞なんでしょうが・・・・せめてヒントだけでも。

227です　追記です。
テーブルはそのままでは５Ｇぐらいいっちゃうので、分けてます。
後だしでごめんなさい。

で、１つのテーブルが１Ｇ程度です。

ＣＰＵ速度が、敏感に影響するとのご教示なので、試してみます。
３０分が１５分になれば、だいぶ違います。
ありがとうございます

>>238
データのみの5000ﾏﾝレコードなら、無理なレコード数でもない。

データの変動分だけ演算し、演算結果を別テーブルに保存するように
すればよいだけ。

既にAccessなんてケチなデスクトップDBもどきを使うような
データ量じゃないと思うけど。

>>227
条件適当だけど興味本位でやってみた。
CPUはPentiumM 2.0GHz(FSB 400MHz)、メモリ1GB。

フィールド数: 6 （すべてバイト型、インデックスなし）
レコード数: 54,868,086
ファイルサイズ: 840MB
クエリ: 6つのフィールドの合計し、値をグループ化、カウント。
所要時間: 6分30秒くらい

フォームAの新規レコードのフィールドaにフォームBの最新レコードのフィールドbの内容をコピーしたいです。
フォームBの最新レコードを参照する方法が分かりません。
御教授を御願いします。

フォームに登録ボタンを配置して
そのボタンを押さない限り新規登録や変更の確定ができないように
したいのですが、可能でしょうか。可能なら方法を教えてください。
お願いします。

>>244

非連結フォームにするとか。

>>244
フラグ使えばぁ。非連結も手だけど、連結の便利さを捨てることになるから、
だったらVB/VCでデータだけMDBにすればって思うぐらい不親切なAccess
になるよ。
open時にフラグをFalse。フォームの更新前で、そのフラグを判定しFalseな
らCancel=Trueで終わる。登録ボタンを押されたら、フラグをTrueにして更新
する。更新は、DoCmd使ってもいいけどSendkeysでshift+Enterが楽かも。
あと、細かい制御は割愛。この方法にするなら、自分で考えて下さい。

もしかして、フィールドに無関係に最新レコードを指定する方法がないのでしょうか？
レコード作成日時のようなフィールドを作ったりして指定するのでしょうか？

ない。フィールドに依存しない「最新」という概念自体がない。
オートナンバーがあれば、それの最大とか、作成日時があれば
それの最大という指定が必要。それすら無いなら設計し直す。

ちなみに、入力が確定していないレコードは、たとえフォーム上に
入力中のデータが見えていたとしても、テーブルに落ちていない
ので指定できない。初心者がよくハマるので注意。

DLastという関数
かつて無節操に愛用したことがある
今は後悔し(ry

後悔した理由も書かないと、出来るもんだと勘違いして愛用しだすぞ。w

>>248
> ない。フィールドに依存しない「最新」という概念自体がない。

ありがとう御座います。。どうりで検索しても見つからない訳でした。これですっきりしました。

243が考えてる最新の定義が何かによるな。
確定してなくてもフォームに見えてるなら、他のフォームから
Foms〜でとってこれるし。

>>252
顧客一人につき、月に2枚報告書を作ります。フォームAの内容の一部をフォームBで使えるので、手動でコピペしていました。
フォームAの報告書を作った後で、フォームBを作るときに自動的に最新の内容がコピペされてればいいなと思いまして質問した次第です。

>>253
そんなもん、１つのフォームでやれよ・・・・

>>254
全く別物の2種類の書類を作成します。その一部を流用可能という意味です。
ある顧客の一案件についての報告を2つの部署に提出する必要がありまして、それぞれの部署の書式が異なっています。
でも同じ案件を扱うので流用可能な部分がある、という状況です。

>>255
1案件で必ず2つの報告書が必要で流用可能があるなら、1つのフォームで
両方の項目を全て網羅してしまえばいいだろうってことだよ。
テーブルまで分ける必要があるかどうかは知らないけど、印刷物なら簡単
に2つに分けて印刷できるだろ。

で、いまだにアンタの「最新の内容」の定義がわからん。フォームA,Bの両
方が開いてる状態で、欲しいデータが出てる状態なの？
でも、フォームAの報告書を作った後でっていうからには登録して閉じた後
のような気もするし。
こういうものって何かしら資料番号とかあるんじゃねぇのか。それがユニー
クキーになるんなら、何とでも作れそうだけど。

>>256
実は市販のソフトなんですよ。そのまんまaccessなんですけどね。
それが書類Aと書類Bを別のフォームで作成するように出来ているのですフォームAとBは同時に開けないようになっています。。
実はすべての案件について2枚書類が発生する訳ではないので、そのように別れていると思われます。
私がやりたいのは、ある顧客について10月分の書類Aを作った後に10月分の書類Bを作るのですが、書類Aのあるフィールドを書類Bにコピペして
楽をしたいだけです。
私は作成時期が最新のレコードを指定する方法があるのかと思って調べたのですが、>>248さんの仰るとおり何らかのフィールド内容を使用して
指定するしか方法がないことが分かりました。なので、作成年月日で参照して代入するようにしてみようと思います。
いろいろと御教授いただきありがとう御座います。実験してみてまた御報告しますね。

質問している奴が後から、
「実は＊＊＊なんですよ」、って何だよ。

>>258
舌足らずで申し訳ありませんでした。

> 書類Aのあるフィールドを書類Bにコピペして
データソース(tbl)が一緒なら別のフォームを同時に開けないでしょ

ちなみに、桐なら簡単にできるよ

>>260
仰るとおり、同時は開けません。
桐を使いたくても、大枚はたいて買ったソフトですから。
初年度30万円、以後毎年15万円払い続けてますので。。。

Access 製のそういう市販のソフトがあるんですか。へえ。

…ひょっとして、Ｄ○○○○○○Ｓ？

>>262
備後ーwww

【 システム環境　 . 】 WindowsXP ACCESS2003
【 VBAが使えるか　 .】 はい
【 VBAでの回答の可否】 可
現在クエリから新規のテーブルを作成する際に以下のように作成しているのですが、
その際に確認ボタンをでなくするようにしたいのですがどのようにしたらいいのでしょうか？
宜しくお願いします。

Sub　テスト()
SQL = "SELECT * INTO T_コピー先 FROM Q_コピー元; "
DoCmd.RunSQL SQL
End Sub

つDoCmd.SetWarnings False

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 Access グラフ Null、Access グラフ N/A

アクセスのフォーム／レポートに表示する折れ線グラフで、Excelのように「未定義(N/A)の場合はプロット対象から外す」とするにはどうしたらいいのでしょうか？
Nullの部分は無視して、そのまま線を繋げて描写して欲しいのですが……。

>>265
私のような若輩が口を出すのはナンですが、一つ念のため(^^;
実行した後、DoCmd.SetWarnings Trueするのをお忘れなく。

コードを例示されたところで何も調べずに嬉々としてコピペで完結するするようでは
一度痛い目にあったほうがいいんでないの？

>>266
Nullの場合はx軸から除外するってこと？

>>266
Microsoft Graph グラフ（MSGraph.Chart）のことかね？
だとしたら、デザインビューで非連結オブジェクトフレームを
ダブルクリックすればインプレースアクティベートするから、
[ツール]-[オプション]-[グラフ]タブ-[空白セルのプロット方法]
あたりに目的のオプションがあるかどうか調べてみたら？
有ればそれを選べばいいし、無ければ無いんでしょうよ。

最近、アクセスがリンクテーブルのデータを全部クライアント側に
渡して、クライアントが処理しているというため、ネットワークＤＢと
してはアホだということを、やっと理解しました。
どおりでモッサリな訳だorz..

ＭＳさん、アクセスサーバー作ってくれよ。素人ですがいまさらＳＱＬ
サーバーとか覚える気力は、ありません。

>>269
どもっした。おっしゃるとおり
[ツール]-[オプション]-[グラフ]タブ-[空白セルのプロット方法] で、
「補完してプロットする」でOKでした。ありがとうございました（拝）

>>270
デスクトップDBの位置づけですから、アクセスサーバーは無理っぽ。
Accessと同じ使い方ぐらいなら、覚える必要なくSQL Serverでいける
よ。ただ、Accessと同じSQL関数ってのは無理なので覚える必要が
あるけど。

【 システム環境　 . 】 WindowsXP ACCESS2003
【 VBAが使えるか　 .】 いいえ
【 VBAでの回答の可否】 否

テーブルに日付を入れたいんだけど、日付でひとつのフィールドにするか
それとも年、月、日で分けたほうがいいのか、悩ましいです

普通は前者なんだよね？
メリット、デメリットを教えてくれっ！

WHERE (年月日 = #10/20/2006#)
WHERE (年 = 2006) AND (月 = 10) AND (日 = 20)

WHERE (年月日 <= #10/20/2006#)
WHERE (年 <= 2005) OR ((年 <= 2006) AND ((月 <= 9) OR (月 <= 10) AND (日 <= 20)))

>>273
日付で格納したほうがいいと思うよ
日付はクエリで簡単に年、月、日と分割できるし

>>275
クエリだから分割できる訳じゃない。それを言うなら、フィールド分けたって
クエリで日付型にできるよ(DateSerialやCDateで)って言えるだろ。

>>273
桐にしたら良いよ
簡単に年月日の分割や結合できるから、どっちでも同じだよ

>>273
前者は複数の関数の組み合わせや自前のVBA関数によるチェックなしで
0月99日とか2月30日とかありえない日付の登録を100％防止できる。
これが最大のメリット。

デメリットは強いてあげるなら・・・
地球以外の惑星で使うから13月や14月が登録できないと困るんです！（＞＜；）
とかいう要件には使えないこと。

ひとつ教えていただきたいのですが、
レポートの基になるデータの変更は
可能でしょうか？

テーブルのデータを基にレポートを
作ってみたのですが、これをコピーして
別のクエリで利用出来ればと考えています。

不可能

>>274-278
どうもありがとうございます
もやもや悩んでたのが解決してすっきりしました



>>278
accessで金星日記つけるのでヤバイです
1年より1日の方が長いよ！

VBAによるチェック機能はやはりつけておいたほう良いと思うのです

6/100とか
56/9とか
33/11とか
こういった悪ふざけのデタラメ入力も日付としては通ってしまうわけで

たとえばキーボードによる入力は不可にするぐらいの用心深さはあってもよいのではないかと

いずれにせよ個人的には日付型に一票

桐にしとけに一票

Access2007から年月日のフォームフィルタが超簡単便利になったから、
年月日データを分割して持つメリットは無くなった

テーブルにフィールドを追加したんですが
フィールドリストにはでてるんですが、VBAではエラーになります
分かる方お願いします

いい質問だ、誰か答えてやってくれ

どうでもいいけど最近Windows遅くないか、シャットダウンの時

>>285

問題なければ、フィールド名晒せ。
一文字目が全角数字だとエラーになるときがある。

日付を分けて格納するのはどうかと思うが、日付型もちょっと嫌だな。
日付型って空に出来ないでしょ。
だから、2006/11/05という文字列で格納するのに１票。
入力チェックはどうぜフォームやVBAでやるし、簡単に日付として扱うことも出来る。

>>288
COBOLerの匂いがする

> 日付型って空に出来ないでしょ。

( ゜Д゜)ﾎﾟｶｰﾝ

むしろ、"0000/00/00"なんてデータがくると嫌だ。
DBによっては日付のフィールドにNullは許されないのか?

何だかよく分かりませんが
少なくともmdbはNull許してるでしょ
あくまで個人的な趣味好みとして、Nullってのは何か落ち着かないので、うちの
名簿の生年月日フィールドでは#1901/1/1#をNullの替わりにしてるけど

105歳の人、実はいたりして

何が落ち着かないのか解りませんが、少しは大人になって下さい。

If 条件式 Then
　処理1
Else
　処理2
End If


例えばVBAで↑のような処理をする時、処理1もしくは処理2のどちらか片方は必ず実行されるはず・・・
と考えてるレベルの入門者にとってはNullは安心して使えない、>>292が言うところの
「何か落ち着かない」ものに感じられるんだろうな。

Null値の特性を理解できてないうちは無理して使わないのも選択肢の一つ。

そのためのIsNull関数だろう。
だいだい、「Null値」とか表現するからあたかもNullという値があるように思うのでは？
Nullという状態と考えれば解りやすい。

ACCESS97をインストールするとデータベースウインドウが文字化けして○や□で表示される｡
テーブル内のデータなどは問題なく表示される｡ 再インストールしても同じ状態｡
コンパネの地域は日本で言語も日本語｡
OSはMeです｡
どなたかお願いします｡

ACCESS97 と WindowsMe のサポートは終了しますた

規制は？？？

やっと解除された。
>>294
辻褄が合わないのだが・・・Nullの場合は必ずFalseって覚えればいいだけ
だから、別にNullでも片方は必ず実行されるよ。
Thenのはずと思ってたのにElseだった、は有り得るけど。

帳票型フォームの縦の集計では、たとえNullがあっても
=Sum([])
はちゃんとやってくれるんですよね
まずはこれでだまされちゃう

Null + 3 = 3
ではない
ここで痛い目にあい虎馬になってしまったりするわけです

たとえば
[textbox3]=[textbox1] & [textbox2]
で、

textbox1がNullでも
[textbox3]=[textbox2]
となるのが、どうしても信じられない、罠だと思えてしまう

If Isnull([textbox1]) then
[textbox3]=[textbox2]
else
[textbox3]=[textbox1] & [textbox2]
end if

どうしてもこんな書き方をしてしまう、傷つきやすい人間もいたりするわけです

何つか、やっぱり語感だろ
人がこつこつ真面目につくってるときにさ、
とつぜん Null とか IsNull とか
おまえはウナギかと
バナナの皮かと
生真面目なだけが取り柄の俺をバカにしに来たのかと
あとはMe! ね
なめとんかいﾜﾘｬ

アホらし。低次元な悩み話するなよ。

>>300

[textbox3]=[textbox1] & [textbox2]

↑ここのところを

[textbox3]=[textbox1] + [textbox2]

にすればご希望通り（？）、textbox3はNullになるよ。

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 Access Excel セル 読み込み

Accessのフォーム画面で入力した内容をExcelの指定のセルに読書きしたいのですが、
個々のセルに指定して書き込み等できますでしょうか？
テーブルのインポートなどはメニューからできると思いますが・・・。
例えば、フォームAのテキストA・テキストB・テキストCに入ってる
データ（テーブルとは非連結です。）を、
テキストAはC3セルに、テキストBはD7〜D10が結合されたセルに、
テキストCはF1セルに書き込みという感じです。
読み込みの方も同様な感じになります。

分かる方、したこと在る方、お願いします。

>>304
CreateObject
Excel.Application
参照設定

回答のテンプレート
以後、お使いください

　『こっちから聞き直さなきゃ分からんような質問は馬鹿丸出しだからするな。』

【 システム環境　 . 】 Windows2000, Access2000
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 vba textbox lavel 関連づけ コントロール

フォームにテキストボックスとラベルがあり、テキストボックスとラベルはひも付いています。
(編集でテキストボックスを動かすとラベルも付いてくる状態)

ここでテキストボックスのイベントが発生したときなどに、自分に関連付いたラベルのコントロールを
取得することは可能でしょうか？

実際のプログラムではフォーム上に沢山テキストボックスとラベルの組み合わせがあるので、
ラベルに対する処理を1つにまとめたいと考えています。

よろしくお願いいたします。

テキストボックスとラベルは同じ名前にしてる？

ひも付きラベルのあつかいには実のところ全く興味はないんだが
というか
あれはウザいだけで何か使い道があるのか、ぐらいにしか考えていなかったんだが

TEXT1 に対する LABEL1
TEXT2 に対する LABEL2

みたいな名前の付け方をすればいいんじゃないのか

Dim i As Integer
Forms!フォーム名("TEXT" & i) に対する Forms!フォーム名("LABEL" & i)
な書き方でいいわけで

そういう話とは違うのか
意味取り違えてたらごめんなさいだ

ん、308とかぶったか?

テキスト1に関連付けられたラベルは、
テキスト1.Controls(0)
で取得できる。
関連付けられたラベルの有無は、
テキスト1.Controls.Count
で分かる。

With テキスト1.Controls
　　If .Count Then
　　　　.Item(0).ForeColor = vbRed
　　　　MsgBox .Item(0).Name & "の前景色を赤にしてみた。"
　　End If
End With

>>308-311
こんなに早くレスを付けていただきありがとうございます。
遣りたかったことは、テキスト1.Controls(0)で実現できました！

なぜラベルを関連づけて使っているかは、
フォームをデータシートで表示した場合、関連づけのラベルがあると
ヘッダの表示をラベルの内容にしてくれるからです。
(関連づけのラベルが無いとテキストボックスの名前になってしまう)

>Forms!フォーム名("TEXT" & i) に対する Forms!フォーム名("LABEL" & i)
この書き方の方が楽な気もしますね。。。
私個人のPGの書き方で、なんとなくコントロール(インスタンス)を持っていたいので、
..Controls(0)で進もうと思います。

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

【 システム環境　 . 】 Windows98+AccessVer7.0 と Windows2000+Access2003
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 Access バージョン違い

Win98/Access7のデータを別のDBに移行したいと考えています。
そこで、OLEとRubyを使ってスクリプトを書いてました。
しかし、スクリプトから"select * from テーブル名"しても一部のレコードが出てこないのです。
確認してみると、明らかにレコード数が違っていました。

そこで、Win2000/Access2003 で変換して開いたのですが、
これでもやはり同じレコードが抜けています。

これは何が原因なのでしょうか？


ちなみにAccess2003での変換時に以下のエラーがでていました
オブジェクトの種類オブジェクト名エラーの説明
データベースファイル 'MSJETSQL.TLB' への VBA 参照がないかまたは壊れています。
データベースファイル 'dao2532.tlb' への VBA 参照がないかまたは壊れています。
データベースファイル 'STARFAX.OCX' への VBA 参照がないかまたは壊れています。
フォーム業者発注フォームまたはレポート '業者発注' の ActiveX コントロール 'STARFAX1' の読み込みエラーです。
モジュール"データベースの変換または復元をしているときにコンパイル エラーが発生しました。@これは、現在はサポートされていない、古い DAO 構文によるものと思われます。
コードの修正方法の例を参照するには [ヘルプ] をクリックしてください。@@2@611705@1"
モジュールこのデータベースを変換または有効にするときにコンパイル エラーが発生しました。

日本語が伝わらない

クエリの結果、本来得られるはずのレコード2000件だとすると、
1900件ほどしか帰ってこないというようなことなんですが・・

＞＞306

> 確認してみると、明らかにレコード数が違っていました。
何と何を比較したのかハッキリと。テーブルを直で開いたのと、select * 〜の
全件数が違うって言ってるのか？・・・絶対有り得ないだろう。
参照設定も含めいろいろ面倒だから、チェックするだけならテーブルをAc2003
にリンクだけすればいいじゃん。で、クエリでselect * 〜やってみ。

それでもNGなら、具体的にどういうレコードがNGになるのか共通項を調べると
か、いくつか例をあげて質問するとか。

>>302
ごめんなさい

>>304
ほんとうにありがとうございました

アクセス初心者です。本職はPGなのでRDBとかはわかります。
次のことをしたいのですがヒントをください。
【テーブル構成】
顧客情報：ID(主キー）、顧客タイプID(顧客タイプテーブルのキー)、年齢、住所
顧客タイプ：ID(主キー)、名称、プライス
入退出情報：顧客ID(顧客情報テーブルの主キー)、入室時間、退出時間、プライス
【やりたいこと】
１．顧客情報をフォームで入れる際、顧客タイプIDの入力部分で顧客タイプ名称だけ出してコンボで選択させたい。
２．入退出情報を入れる際に顧客タイプのプライスに基づき、時間に応じてプライスを計算したい。

１．をする際、ルックアップテーブルとかフォームの設定が絡んでると思うのですが、どこら辺をいじるのかよくわかっていません。
２．をする際、IDをもとに顧客タイププライスをひっぱって計算するのは式だけでいけるのかVBAをかかないといけないのか。
アクセスのオブジェクトの関係がいまいちわかっていないのでピンときていません。

ここを見ろ、ここを調べろのヒントだけでも助かりますのでよろしくお願いします。

1.については、きっとウィザードでもできるような話だと思うので省略するとして

入退出情報テーブルの"プライス"というフィールドが邪魔に見えてしょうがない


SELECT 入退出テーブル.顧客ID, 入退出テーブル.入室時, 入退出テーブル.退出時, 顧客タイプテーブル.プライス　
FROM (顧客テーブル
INNER JOIN 顧客タイプテーブル
ON 顧客テーブル.顧客タイプID = 顧客タイプテーブル.顧客タイプID)
INNER JOIN 入退出テーブル
ON 顧客テーブル.顧客ID = 入退出テーブル.顧客ID

こういうこととは違うのか
違うならごめんなさいだ

>>320
すいません。同じフィールド名にしたので紛らわしかったです。
顧客タイプテーブルのプライスは算出基準のプライスで、入退出テーブルのプライスはそれを元に時間をかけて計算したものです。

＞1.については、きっとウィザードでもできるような話だと思うので省略するとして
省略しないでください･･･いまいちアクセスのオブジェクトの関係がわかってないのでピンときてないです。

>>321
http://www.google.co.jp/search?hl=ja&q=Access+%E3%82%B3%E3%83%B3%E3%83%9C%E3%83%9C%E3%83%83%E3%82%AF%E3%82%B9

計算基準の「プライス」でも、掛け算の結果の「プライス」でも同じことじゃないのかな


SELECT 入退出テーブル.顧客ID, 入退出テーブル.入室時, 入退出テーブル.退出時, 顧客タイプテーブル.プライス

↓
これがこうなるだけでしょ
↓
SELECT 入退出テーブル.顧客ID, 入退出テーブル.入室時, 入退出テーブル.退出時, [基準プライス]*時間差

やっぱり勘違い?
だったらごめんなさいだ

本職PGというなら、この程度は自分で調べられるはず。

>>324　相変わらずこういうやついるが、どんなことだって調べりゃできるでしょ?
そこでお互い助け合うための相談すれじゃないの?
全部事細かに教える必要はないけれど、方向性だけざっくりとでも教えてあげればいいのに。
何つーかけつの穴が本当に小さい。

自分で調べるのマンドクセーから聞いて見ただけだボゲア！

>>325
326 みたいなのが多いと思うよ。
本人かどうかは別にして。

はいはい、ここは相談所なので、釣りはスルーでよろ。

フォームに貼り付けられる、RecordSetの中身をそのまま表示して選択行のRecordを引っ張ってこられるコントロールってありますか?

＞＞306

何がわからないのかわかりません。
レコードセットそのまま表示できるリストみたいなもんでしょ？あるのかはしらん。

>>329
っサブフォーム コントロール

Access2007ではVBAいらねえな。マクロだけで全部済んじゃうしな。

こんばんは。
Access2000を使用してWindows2000/XPで動くシステムを構築中です。

選択クエリで、あるテーブルのフィールドAの条件を、
フォームBのテキストボックスCの値と一致するものにしたいのですが、
ここで抽出条件に使うフォームBの名前を、
テーブルD内の先頭の文字列型のフィールドに格納しています。

VBAの場合はフォーム名をテーブルDから取り出すことは出来たのです
（　Forms(DFirst("フォーム名","設定テーブル"))!テキストボックス名
という風にして　）が、選択クエリの抽出条件にこれを設定することが出来ません
（!演算子の使い方が正しくないと出ます）。

VBAでの
Forms(DFirst("フォーム名","設定テーブル"))!テキストボックス名
と同じようなこと（フォーム名を、テーブルから取り出して使う）を、
クエリの抽出条件で使う方法はありませんでしょうか？
もしご存知であれば教えて頂ければ幸いです。

>>334
何をやってるのかサッパリわからん。テーブルDの存在意義って何？？？
クエリの抽出条件に、Forms![フォームB]![テキストボックスC]ってやれば
いいだけでしょ。

>>335
ありがとうございます。
何故こんな面倒なことをしているのかというと、
フォームBはサブフォームとして動かす予定でして、その場合
別のフォームからフォームBを操作したいとき、Forms!フォーム名の部分を
変更しなくてはならないと思いますので、
フォーム名をどこか一箇所に設定して変更が容易に出来るようにしておきたい
と思っているのです。

まわりくどいことをせずにおとなしくサブフォーム名を
決めて作ってしまうべきでしょうか？

何をやっているのかサッパリわからんのは同様として
ついでにDFirst関数を使うのが妥当かどうかの議論は抜きにして

!のかわりに.(ドット)じゃダメかな

>>337
ありがとうございます。
.では出来ませんでした。

DFirst関数に関しては、最初のレコードを取り出すという程度の動作かと
思って使っています。具体的な動作は調べたことがありません。すみません。

メインフォームの担当の者と話して、サブフォーム名を決定して
作ることに落ち着きました。
わかりづらい質問で失礼致しました。ありがとうございました。

>>339
設計的に、その方がベストでしょ。でも、名称違っててもサブフォームなら
Forms![メイン]![サブ].Form![サブのコントロール]みたいな表現でOKな訳
で、この「サブ」のところの名称が取れればいいんでしょ。
今、操作対象としてる親のコントロールをForEachとか使ってチェックして、
属性がSUBFORMってのを探せばいいだけでさ、確実にテーブルDは不要
だよな。

ACCESSのレコードのデータを、WEBサイトのフォームに自動入力する方法

上記のヒントありましたら御教示おねがいします。

to SharePointService

そろそろ会社に2007正規版来てるよね。

>>342
申し訳ないです。WEBサイトとは自分が運営のサイトではなく、他のサイトです。

ローカルのACCESSのデータをコピペでWEBサイトのフォームに入れてるんですが、
ACCESSでIEを開きブラウジングして、HTMLフォームにデータ補完する方法です。

振替なしが確認されているお店
・Leishell (http://leishell.com/i/)
・TityGirls (http://www.titygirls.com/i/)
振替なしが確認されているお店
プラスNN店
・Will(http://www.undernavi.com/tk/will/i/)
・Shine (http://www.shine-dh.com/m/)

・レイ生情報
ＮＮの部：くるみ 、ゆか、みやび(元シャインＮＮ嬢)
ＮＳの部：みお（元シャインＮＮ嬢）
・ティティ生情報
ＮＮの部：？
ＮＳの部：あきな 、あのん

・ウィルＳ着情報
・・・？
・社員Ｓ着情報
・・・？
補完よろ、完成したらテンプレにしよう

すみません。
WizHookのOpenFileでファイル名を初期表示
（例.book1.xls)
みたいのをしたいのですが、
どのように、すればよろしいのでしょうか。

ACCESS2007試したいんですが、雑誌にはついてないんですか？

βで良ければ ny とか Share とかに流れてるよ

>>346
少なくともAccess 2003までのWizHookにOpenFileなんてメソッドは無いけど。
いったい何の話をしてる？

Access2003で、フォームのボタンからクエリの新規作成画面に飛びたいのですが、
これって可能でしょうか？
既存のクエリの編集はマクロから出来ると思いますが、あれの新規作成版みたいな感じです。

はい。

>>351
了解です。
ありがとうございました

http://est00.web.fc2.com/pc-sale.html

Access2003ですが、VB上からフォームで定義したフォームを表示するにはどうしたらいいんでしょう・・・(´・ω・｀)

その日本語がよく分かりません。
具体的なコードでも示してもらえると分かるかもしれませんが。

>>354

Docmd.OpenForm "開きたいフォーム名"

ということ?
VBAではなく、本当のVBだったら知らん。

紛らわしくてごめんなさい。
"受注フォーム”をフォームオブジェクトとして作成した場合に、その”受注フォーム”をVBから表示させる方法を知りたいのです。

DoCmd.OpenForm("フォーム名")でひらけますた(´・ω・｀)

この掲示板ではないかもしれませんが、Access2000のVBAで質問です。
(例)
Dim x As String
(記述)
x = "Hello World!"
とするとき、(記述)としては
x = "Hello "
x &= "World!"
という形で記述したいのですが、これに代わる記述はあるでしょうか？
(⇒実際やるとコンパイルエラーになります)

別に、x = "Hello " & "World!" と書けばいいんですが、あればいいなぁ
程度の話ですので、無視してくださって結構です。。すみません。

無視します

>>359
x = "Hello"
x = x & "World"

361さん
ありがとうございました。問題なくできました。
なんと簡単なことだったかと、反省しきりです。

まあ、気持ちは分かる。
VB.NET で実現したが、VBA にもその演算子があれば少し便利だったろうとは思う。

DB板にあったAccessスレ、なくなった?

ふだんC# つかってるんだけど・・・ほんとうにVB使い図来。つうかよくわからん・・・(´・ω・｀)

359の質問で何がしたいのか分からなかったが
361の答で意味が分かった

Access2007 ｲｲﾖ--
VBA ｲﾗﾈ
ﾏｸﾛ だけで全部出来ちゃうもんね
Share point service も簡単に連携できるもんね

マクロの中の一部をコメントアウトできたらいいなぁ
そうか、中をジャンプできるでもいい

今(2000ですが)は、古い記述を最下部に追いやって、コメント部先頭に[マクロの中止]
アクションで動かんようにしてる
※古いシステムのメンテで使用してます。現在はＶＢＡを使ってるが

２００７にシステム変更中でVBAで「SUB 商品・単価表示」のように
「・」がある名前のサブルーチンでエラーでまくりで泣きたい・・・
「・」をはずすと正常に動くんだけどね
２００３ではＯＫだったのに！！

【 システム環境　 . 】 WindowsXP, Access2002
【 VBAが使えるか .】 多少
【 VBAでの回答　　】 可

顧客情報テーブル[顧客ＩＤ][住所（例：北海道札幌市中央区旭ケ丘××）]
対応部署テーブル[担当部署][担当地域（例：札幌市、北見市][ＴＥＬ]

上記のようなテーブルが二つあります。
パラメータクエリで顧客ＩＤを入力して顧客住所とその住所に対応する担当部署とＴＥＬ番号を
抽出したいのですがまるでわかりません。

※担当部署は県によっては一つの場合もあります（沖縄県は全て沖縄担当）
※エクセルファイルを読み込んでいるので住所フィールドの県や市を分ける事が出来ません。

データーベース、プログラミング初心者です。
申し訳ありませんが誰か教えてください。

テーブルそのものも困った形っぽいけど、入力されてるデータのカタチも何か面白いぐらい不安を誘う

担当地域
札幌市
北見市
網走市
帯広市

の形で並んでいるのか

札幌市と北見市
稚内と島々
旭川市(動物園も含む)
釧路市とか
沖縄県(基地は除外)

みたいな形で並んでいるのか

それをはっきりさせてくれるだけでも困らせ具合はだいぶ違ってくると思う

>>371

担当地域
札幌市
北見市
網走市
帯広市

の形で並んでます。
よろしくお願いします。

>>371
分かり難くてすいません。

対応部署テーブルは更新される事は無いので作り変えれます。

現状は担当部署Ａはa市、b市、c市、d市を受け持ち

>>371
分かり難くてすいません。

対応部署テーブルは更新される事は無いので作り変えれます。

現状は担当部署Ａはa市、b市、c市、d市を受け持つ
　　　　　担当部署Ｂはe市、f市、g市、h市を受け持つ　という感じです。

>>374
全然わからんわ。文章通り、素直に受け取るべきか？

担当部署　地域(1フィールドに複数)
　　Ａ　　　　a市、b市、c市、d市・・・・・・これで1レコード

これはテーブルを変えるべき。
> エクセルファイルを読み込んでいるので住所フィールドの県や市を分ける事が出来ません
できます。都,道,府,県,市,区,町,村,郡などの文字を区切りにすればよい。もし、郵便番号付き
ならもっと簡単。総務省から郵便番号辞書CSVなどをDLし、利用すれば郵便番号から住所
を分けられる。

何々部署が○市と×市と△市、って考えるんじゃなくてさ

1市 A
2市 A
3市 B
4町 A
5市 C
6町 D
7市 B
8市 A
9市 D

な感じで全国13万市町村を相手に表つくったりとか、そういうのは嫌?
郵便番号辞書だったら簡単にダウンロードできるよ

ttp://www.post.japanpost.jp/zipcode/download.html

>>375
郵便番号辞書の存在は知ってますが現状のデータに郵便番号はありません。

>都,道,府,県,市,区,町,村,郡などの文字を区切りにすればよい。
顧客情報テーブルの住所フィールドを都,道,府,県,市,区に区切ってみます。


>>376
>何々部署が○市と×市と△市、って考えるんじゃなくてさ
自分のスキル不足です。メリットがわかりません。

>全国13万市町村を相手に表つくったりとか、そういうのは嫌?
いぃ嫌ですw


エクセルファイル（顧客情報テーブル）が頻繁に更新されるので出来れば
そのまま使いたかったのですが難しいようなので住所を区切ってみます。
どうもお手数かけました。

>>374

一旦Excelに落として、郵便変換ウィザードを利用する。
Excel標準の機能ではないが、MSのサイトから無料でDLできる。
その際は郵便辞書の更新も忘れずに。
これで郵便番号を振ることが可能。

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 可能
【 VBAでの回答　　】 可能
【したいこと　　　　　】 予定表の作成

アクセスで予定表を作成したいのですが、画面に本日の予定を表示させたいです。
特定の日付（例：2006/11/29）は簡単に作成できるのですが、毎月、毎週、特定曜日などを基準にした
曜日の設定のうまいやり方が思いつきません。

同じフィールド名でクエリを作成し、ﾕﾆｵﾝクエリで結合する方法しか思いつきませんでした。これだとクエリの数
が多くなるとユニオンクエリも多くなってしまい、また、非常にクエリ数が多くなってしまいます。ｌ

なにかいい方法はありませんでしょうか？ここのサイトとかにあるっていう誘導でかまいませんので宜しくお願いします

>>379
テーブルの日付が例えば2006/11/29、2006/11/30になっていて、今日なら11/29のものを表示したいということでしょうか？
関数Date()を使えば今日を表示することは可能。
特定日はDateSerial関数を使えばよいかと。
何がしたいのかイマイチつかめてないので、こんな解答ですが・・・

>>380
最終的にしたいこととしてはメイン画面上にリストボックスに本日の予定を載せたいです。

毎月【5日】であるとか毎週【木曜日】の様な基準がそれぞれに
違う予定表を作成するためには【毎月】や【毎週】であるような別個のテーブルを作成しないといけないのかなっと、、、

その後に該当になる（当日）になるクエリを作成してユニオンで結合してそれをリストボックスのデータソースに
する方法しか思いつきません、、、

>>379

月、水、金･･･生ゴミ　火、木･･･プラスチック
第２、４木曜･･･資源ゴミ　第３土曜･･･粗大ゴミ

上記のような予定を該当日（今日だと、水曜なので生ゴミ）にメイン画面上に表示したいってことですかね？

>>382
まさにその通りです！！！自分の考えた方法だとテーブルとクエリが大量に必要になり
なんとかすっきりと作ることができないかと・・・

宜しくお願いします＞＜

>>379
簡単に考えかただけ

日付（１日や１３日など）ごとのイベントを入力する月テ−ブル
曜日ごとのイベントを入力するテーブル、週テーブル

週テーブルには毎週、１、２、３、４の第何週かのフィールドを用意
それぞれにイベントを入力
例だとこんな感じ↓
ttp://up.mugitya.com/img/Lv.1_up65140.jpg

あとは今日の日付から、該当日の月テーブルのイベントを表示、今日の日付から第何週の何曜日かを求めて、週テーブルの該当フィールドを表示するとすればよいかと。

>>384

イベントとイベントの実施日パターンは
それぞれテーブルでもった方がよくないか?
そうすればリレーションできるし。

>>385
おお！そうですね！
とりあえず作ってしまってからいろいろまとめるもので･･･ありがとうございます。

>>376
一応ツッコんでおくが、市町村は13万もないだろw

>>377
手作業ならいいがプログラム組む時は気を付けて。
都,道,府,県,市,区,町,村の文字で区切るとしても、見つけていく
順番や判定の仕方でとんでもないことになります。
極端だが、都で探して京都が見つかってしまったら。本当は、
府でマッチしなきゃいけないのに。というように、名称にその
区切り文字がある場合を考慮しないと。

表示参考価格は 1 ライセンスあたりの参考価格です。
●Access 2007 新規購入ライセンス　\26,300
●ライセンス & ソフトウェア アシュアランス　\41,500


桐V9-2006 ノーマル版
ビギナーからプロまで幅広くお使いいただける標準パッケージです。
CD-ROM，ライセンス証書，登録葉書，マニュアルＡセットが入っています。
●定価：オープン　●税込価格： 39,900円

桐V9-2006 アップグレード版
●定価：オープン　●税込価格：15,750円

桐V9-2006 学割版
●定価：オープン　●税込価格： 31,500円

桐V9-2006 追加ライセンス版
２本目以降の桐９-2006としてご購入いただくときのライセンスパッケージです。１本，５本セット，１０本セットがあります。
商品にはライセンス証書，登録葉書が入っています。（CD-ROM，マニュアルは入っていません）
●定価：オープン ●税込価格： 27,300円 ( 1本)
●税込価格： 133,350円 ( 5本)
●税込価格： 262,500円 (10本)

桐V9-2006 アカデミック追加ライセンス版
教育機関限定の桐９-2006ライセンスパッケージです。１０本セットのみの販売となっています。
商品にはライセンス証書，登録葉書が入っています。（CD-ROM，マニュアルは入っていません）
●定価：オープン　●税込価格： 241,500円

AccessのSQLで質問があるのですが、
一度に二つ以上のデータを追加する場合、どのようなコマンドを使うのでしょうか？

一度に13個くらい追加したいのですが、現在は

INSERT INTO MEIBO
VALUES (55,'TARO YAMADA');

INSERT INTO MEIBO
VALUES (56,'MASAMI IWAKI');

INSERT INTO MEIBO
VALUES (57,'KAZUTO TONOMA');

という風にひとつひとつクエリーを作っています。

テンプレ無視していました。テンプレを使用します。

【 システム環境 】 WindowsXP Professional SP2, Access2003 SP2
【 VBAが使えるか】 いいえ
【 VBAでの回答　】 否
【 検索キーワード　】 Access SQL INSERT
【 質問内容 】

AccessのSQLで質問があるのですが、
一度に二つ以上のデータを追加する場合、どのようなコマンドを使うのでしょうか？

一度に13個くらい追加したいのですが、現在は

INSERT INTO MEIBO
VALUES (55,'TARO YAMADA');

INSERT INTO MEIBO
VALUES (56,'MASAMI IWAKI');

INSERT INTO MEIBO
VALUES (57,'KAZUTO TONOMA');

という風にひとつひとつクエリーを作っています。

>>391

どういう状況で使っているの?
普通は態々一件ずつinsert文を発行しないでしょ（動作的にはそうかもしれないけど）。
フォームで手入力だったら更新後処理でやればいいし、
出来合いのデータだったら、一括でinsertできるでしょ。

>>378
ありがとうございます。
今回、郵便番号は必要なさそうですが
落ち着いたら試してみようとおもいます。

>>388
ありがとうございます。
ttp://www.accessclub.jp/samplefile/samplefile_95.htm
上記サイトを参考にして上手くいきました。

【 システム環境 】 Windows98　Access2.0
【 VBAが使えるか】 少し
【 VBAでの回答　】 可
【 質問内容 】
どうしても2.0を使用しないといけない環境なので、AccessBASICでの回答をお願いします。
新規レコードにフォーカスを移動するのはなんと書けばよいのでしょうか？
VBAだと
DoCmd.GoToRecord , , acNewRec
だと思うのですが。
よろしくお願いします。

>>394
ほぼ同じ。ヘルプ見れば。あれっ、マクロからに変換する機能は、
2.0になかったっけ？？？。
でも、環境的に終わってる環境だぞ、それ。

>>374

377で「都」の例が出たけど、全国が対象だったら
「市・町」の扱いに気をつけてね。
市川市、市原市、四日市市、町田市…　etc
とかあるから（俺は挫折したけど）。

>>396
その程度で挫折しちゃダメじゃん。

>>397

Excel、VBAは使用せずで。

>>398
じゃ、桐にしとけ

>>396
ふふふ、俺は郵便番号データから都道府県と市区町村フィールドと、
それぞれの文字数を出して、グループ化して、テーブルを作って。
それを元住所テーブルから作ったクエリでleft(住所,文字数の和)が一致
したら新しく作ったフィールドに出力したことがある。

俺のスキルはその程度orz...

上みたいな日本語を書くから、改造するより、作り直した方が
早い、ボロアプリになるんだがなorz....

【 システム環境　 . 】 WindowsXP, Access2003,(EXCEL2003)
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 組み込みダイアログボックス ほかいろいろ
やりたいこと　・レポートの印刷色を任意の色で設定したい

得意先からの注文(CSVデータ)を取り込むときに、ファイル名を指定する方法として
以下のコードで実行しています。
On Error Resume Next
Set xlApp = GetObject(, "excel.application")
If Err.Number <> 0 Then 'EXCELLが起動されていない
Set xlApp = CreateObject("excel.application")
End If
FNAME = xlApp.Dialogs(xlDialogPatterns).Show 'ファイルを開くダイアログボックスでファイルを指定
If FNAME = False Then
Exit Sub
xlApp.DisplayAlerts = False
xlApp.Quit ' 処理終了後、Quit メソッドでアプリケーションを終了し、
End If
FNAME = xlApp.ActiveWorkbook.FullName 'ファイル名をフルパスで取得

これを、上記の目的のために、以下の変更をしたら
ダイアログボックス自体が表示されないのですが、
わかる方がいたら教えていただけませんか。

改行が多すぎる出るので、レスを分割します

以下が、改変したコードです

On Error Resume Next
Set xlApp = GetObject(, "excel.application")
If Err.Number <> 0 Then 'EXCELLが起動されていない
Set xlApp = CreateObject("excel.application")
End If
'Sheets(1).Select
'Range("a1").Select

FNAME = xlApp.Dialogs(xlDialogPatterns).Show
If FNAME = False Then
xlApp.DisplayAlerts = False
xlApp.Quit ' 処理終了後、Quit メソッドでアプリケーションを終了し、
Exit Sub
End If
印刷色 = Range("a1").Interior.ColorIndex
MsgBox 印刷色
xlApp.DisplayAlerts = False
xlApp.Quit ' 処理終了後、Quit メソッドでアプリケーションを終了し、

回答じゃなくて悪いけど、Access 2003でしょ？
なんでAccessに組み込まれてるApplication.FileDialog使わないで、
わざわざExcelに外注に出すような面倒なことしてんの？
Access 2000環境にでも配布するのか？

>>404
>なんでAccessに組み込まれてるApplication.FileDialog使わないで、
>わざわざExcelに外注に出すような面倒なことしてんの？
>Access 2000環境にでも配布するのか？

個人的な状況を言うと
・学校でプログラミングをなっらていない。
・ＡＣＣＥＳＳは自分と子に仕事のため独学
・ＨＥＬＰでは、組み込みダイアログボックスについて
　ＥＸＣＥＬのように発見できなかった。
・ＧＯＯＧＬＥでもＥＸＣＥＬのダイアログボックスの
　使い方は発見できたが、ＡＣＣＥＳＥはヒットしなかった

ということで402のコードになっています。
ＨＥＬＰなり、ＧＯＯＧＬＥの検索キーワードでもよいので教えてもらえますか。

ヘルプはVBEの方でかけているんだろうね?
Accessのヘルプじゃ出ないと思うよ。

ダイアログ

これでで検索かければヒットすると思うが。

>>404

>Access 2000環境にでも配布するのか？

そうだったらAPIでやるんじゃね?

>>406

とりあえず、ありがとうございました。
ダイアログで検索したら、確かにFileDialogはでますね。
今動いているものを、いちいち直すのも面倒なので
次回機会があったら、使ってみたいと思います。

でも、その中には、今回の質問
>やりたいこと　・レポートの印刷色を任意の色で設定したい
に必要な項目は、見当たらないと思いますが?

>>407

ForeColor、BackColorでVBEのヘルプで調べてみ。

ACCESS初めて使い出して　２００７が初試用なんですが、
Excelもよかったけど　ACCESS使えるとマジでいろいろできますね。

すんごく使いやすい！　たのすぃー！　

>>408

ありがとうございます。

最初の質問(組み込みダイアログボックスをいかに使うか）
とはずれますが、次の方法で自己解決とすることにしました。

実際使用する色は、6色ほどなので
1.フォームにオプショングループのトグルボタンを配置する。
2.トグルボタンの標題を■にし
3.それぞれの■の色を印刷したい色にする。

トグルボタンやコマンドボタン自体の色変更は、だめみたいですね

>>410

そう、できない。
なので、ラベルとかを代用しているらしい。
中にはコントロールを重ねてそれっぽくしている人もいるらしいが
あまりお勧めはしない。

スレ違いでしたら誘導して下さい。

Access2000にて、
モジュールに、下記のようなプログラムを書きました。

Public Function Func_A(B As Variant)
　　On Error Resume Next
　　Err.Raise(53)
End Function

通常、この関数を実行しても何も起きないはずですが、
エラーが発生してしまいます。

複数のPCである1台だけ発生します。
何か環境に問題があると思うのですが、
どこをチェックすればよろしいでしょうか？


尚、異常があるPCの環境は以下のとおり。

WindowsXP Pro
Microsoft Access2000 (Office SP3適用済み)

VBA:
Microsoft Visual Basic 6.0
Version 9972
VBA : Retail 6.4.9972
Forms3 : 2.01

>>412
なんてエラーがでるの？

>>412
> 通常、この関数を実行しても何も起きないはずですが
> エラーが発生してしまいます。

いや、コンパイルエラーが発生したらアウトだろ。
参照設定は大丈夫なのか？

>>413

エラーの内容は、
On Error Resume Next
が無いときに
Err.Raise(53)
で出るエラー、

「実行時エラー'53':
　ファイルが見つかりません。
　終了(E)　デバッグ(D) ヘルプ(H)」

です。

>>414

上記エラーなので、参照設定等の問題では無いと考えます。

>>414
関係ないと思うが、"()"はいらないよ。
一応、参照設定されてるものと、その順番をチェックしてみたら？
見落としてるちょっとしたミスだと思うが、どうしてもわからないな
らAccessをフルで再インストール(アンインストールしてから)し、
本当にAccessに関しては同じにしたって言える状態にして試す。

>>416
>>415は参照設定の意味を勘違いしているんじゃまいか。

>>415
テーブルのリンクでなくて、VBAの参照設定のことだよ。
そんなのわかってたらごめんして。
でも、俺も参照設定をチェックするべきだと思うよ。

415です。

>>416
>>417

参照設定でチェックしているのは下記の順序で4モジュールのみ。
しかも、これは複数のPC全て同じ設定でした。

Visual Basic For Applications
場所：　C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VB
言語：　英語/標準

Microsoft Access 9.0 Object Library
場所：　C:\Program Files\Microsoft Office\Office\MSACC9.OLB
言語：　標準

OLE Automation
場所：　C:\WINDOWS\system32\stdole2.tlb
言語：　標準

Microsoft ActiveX Data Objects 2.1 Library
場所：　C:\Program Files\Common Files\System\ado\msado21.tlb
言語：　標準

再インストールはしてみたけれども同じだったので、
416さんの言うように、一旦削除してから
再インストールしてみようと思います。

ん〜、あとは失礼な指摘になるかもだけど、ここに書き込む際に
大幅省略しちゃってて、実は省略した方に問題点が埋もれてると
か…今、わかる情報で第3者が考えられるのって、こんなもん。
見た限り、絶対有り得ない現象だし。

>>419

そうですよね。。。もう少し考えてみます。

根本解決には至っていませんが、
とりあえず、上手く動く環境で使ってもらえることになりましたので、
仕事はまわるようになりました。

お付き合いいただきありがとうございました。

>>420
上手く動く環境ってのは、つまりはエラーになるPCでは動かさな
いってことか？
そういえばさ、デバッグでステップ毎に実行してみたの？
これで「どこで・何で」エラーになるのかわかれば見当がつきそう
なもんだが。マシンが遠隔地で自分が出来ないなら、ファイルに
情報を書き込むようなデバッグ用の出力文を入れてユーザーに
動かしてもらうとか。

ACCESS自体を知らない上司だと遊んでると思われて、
ACCESSは知っているが、使い方がわからない上司だと、放置される。

もうすぐ転職しますが、どうか理解してくれますよーに。。

>415
その内容からすると、Vsiual Basic Editorのオプション設定の問題じゃないか?

オプションの全般の所で、「エラー処理対象外のエラーで中断」ではなく
「エラー発生時に中断」になっていないか?
普通はデバッグの時にしか使わない設定だが、エラートラップを無視した動作を
しているようだから、これが一番可能性が高い。

>>423
なるほど。おまい良いこと言った。

415です。

>>423

ありがとうございます！
おしゃるとおり、Visual Basic Editorのオプション設定でした。
こんな設定があるなんて知りませんでした。勉強になります。

これですっきり安心して運用できます。
ありがとうございました。

>>423
参ったぁ。

つうか、415！！
再インストールまでしてキレイにAccessの環境を同じに
したんじゃねぇのかぁ。

>>423
でかした！また来てね。

自分の場合、客先に出すことを考えたら、動作に影響を与えるような
オプションはVBAで設定することにしてる。AutoExecマクロからプロ
シージャをコールです。
415のようなミスは絶対に有り得ません。

>>428
できれば閉じるときに元に戻してほしいです。

いや久々にいいネタ来たコレ。

>>426
再インスコだと一部レジストリ設定が残るってのは聞いたことがあるけど、
これがその一部ってことなんだろうね。

>>429
これよく考えると難しいよ。
元々の環境がオプションXだったとするじゃない。
それをA.mdb開いたときにオプションYに変えられたとするわな。
さらにB.mdbを開いたときにそのオプションを元設定として退避すると、
本来は元設定はXなんだけど、Yの方を元設定だと思って退避しちまう
可能性がないか。
A.mdbを閉じる時に元のオプションXに戻しても、その後B.mdbを
閉じる時にオプションYにひっくり返されてアボーン、みたいな。

SetOptionが実行時だけ有効だったら問題ないけど、永続的変更だった
ような気がするしなー。この辺ちょっと記憶だけで書いてるんで、
杞憂だったらスマン。

え〜とですね、自然とこのオプションで使うだろうってところを変更します。
矢印キーで次のコントロールではなく次の文字とか、もちろん話題になった
エラー発生のやつとか。
複数起動はないので430がいう状況はないですが、まずユーザーがこっち
が作ったシステムと関係なくAccessを使うことがないので、元に戻す必要
性が見つかりません。
もしあるなら、元設定を共通にReadするファイルに保存するようにし、430が
指摘する状況に陥らないよう対処するつもりですが、限りなく0%に近い確率
でやらないと思う。

415です。

>>426
>>430

コンパネ＞プログラムの追加と削除＞MS-Office 変更＞Officeの修復＞Officeを再インストールします
での再インストールは実施しました。
一旦削除してからの再インストールは実施していません。
この状態では設定が残っていたということでしょうか。


>>428

VBAでオプションの設定もできるんですね。
またまた勉強になりました。

教えてもらってばかりでは申し訳ないので、
SetOptionの有効範囲が実行時のみか否か、
テストしてみようと思います。
(まずはSetOptionの使い方から勉強しなくては。)

415です。

>>430

テストしてみました。

オプションの全般の所で、「エラー処理対象外のエラーで中断」から、
「エラー発生時に中断」に変更したあと、

Application.SetOption "Error Trapping", 2

を組み込んだモジュールを実行します。
実行後、再度オプションの全般の所で確認すると、
「エラー処理対象外のエラーで中断」に変わったままでした。
実行時のみの影響ではなく、実行後にも影響を与えていると思われます。

元の設定を保持していて最後に元に戻すように仕組んだとしても、
途中でコケて元に戻すステップが実行されなければ、
変更されたままなんですよね？

結構、根が深い問題だと思います。

AccessのVistaへの対応についての情報ってもう出てますかね？
探したけど見つからなかった。
Access2000についてはとりあえず動いてる感じだけど・・・。

http:／／アドレス／定数.html

と続くアドレスがあるのですが、テキストボックスからの値を取得して
定数にブラウザのURLを自動的に記入させ
起動する記述が上手くいきません。
過去ログではローカルにあるファイル名を指定する方法はあったのですが・・
ご教授お願いします。

　　Dim stAppName As String
Dim id As String
Dim hp As String
id = idtxt'入力テキストボックス名
stAppName = "C:\Program Files\Internet Explorer\iexplore.exe"
hp = "http://www.アドレス/" & id & ".html"
stAppName = stAppName & hp
Call Shell(stAppName, 1)

こんな感じでテキストボックス1個とボタン1個のフォームなのですが・・。

>>435
上手くいかないじゃなくて、現象やエラーメッセージを書こうよ。
とりあえず、VBAを見た限りでは、exeと引数(アドレスね)の間に
空白がない。

>>436
申し訳在りません。
スペースを入れてみましたが
「ファイルがありません」と言われ上手く挙動しません。

hp = "http://www.アドレス/" & id & ".html"
stAppName = stAppName & hp

を削除すればIEは起動するのですが。。

最終的に
http:／／アドレス／id（テキストボックスに入力した数値）.html
例：http:／／docomo.co.jp／2000.html
みたいになれば良いのですが。。
重ね重ね申し訳在りません。

exeのパスに空白があるから、そこでわかれてしまう。Programが
実行ファイルと解釈されてる。「"」でかこむのだ。ってことで、
"\"C:\Program Files〜\iexplore.exe\""
で、もちろん次に指定するURLとの間には、先ほどの空白を忘れずに。

Access2007でフォームを作成すると
タブに組み込まれた形でしか表示できません。

2003までのように表示するにはどうすればいいのでしょうか。

to オプション→カレントデータベース

2003のフォームで
DateAddを使って求めた日付をデータベースに保存したいのですが
方法はあるのでしょうか？

>>438
おいおい、VBAだぞ。

>>441
あるよ
でも普通は計算値はテーブルに書き込まない

>>442
あっ、指摘ありがとう。

>>437
ごめんなさい。今、自分がやってる仕事とゴッチャになってしまい
ました。\"の部分は、""に置き換えてください。
ただ、君の説明からすると、これでもNGのような気がする。URL指
定なしだと、IEだけちゃんと起動するって本当？

>>443
ありますか？
例えば「日付」と「更新周期」と「次回更新日付」があって
DateAdd("yyyy",[更新周期],[日付])
見たいな感じで「次回更新日」を求めてるんですけど
どういう方法で保存するんですか？

[次回更新日]のフィールドを作る
計算結果を手入力かマクロかVBかで入力する
イベントで自動入力にしたら？

つーか、計算値をテーブルに持つのは無意味だぞ
桐では普通に行うけど

おまいのレスのそもそもの目的は桐をバカにすることなのかと

つーか桐使ったことないからよくわからんけど

桐だと簡単にできるよ
開発期間は Access の1/5
データ入力もバコバコ・ビュンビュンできる

2007のメモ型フィールドの履歴管理って SharePoint 併用しないと機能しないの？

>>444
重ね重ねレスを頂き有難う御座います。
IE起動は出来るのです。

stAppName = "C:\program Files\Internet Explorer\iexplore.exe"
Call Shell(stAppName, 1)

この2行で起動できました。
ただこの後URLを指定する事が出来ないかなと思いまして。。
更にURLが指定出来るなら、
http:／／abc.com／（ここがテキストボックスの値）.html
に出来ないかなと思いまして。。

>>450

Dim stAppName As String
Dim hp As String

stAppName = "C:\program Files\Internet Explorer\iexplore.exe"
hp = " http://www.google.com"
Call Shell(stAppName & hp, 1)

俺はこれでgoogleが開いたぞ？
本当にスペース入れたか？

なんかgoogleのURLの末尾が変になったがダブルクォーテーションな

hp = " http://www.google.com "

最初のダブルクォーテーションと「http」の間に半角スペースね。

436を見逃してるな。変数がらみでうまくいかない時は、まずdebug.printを使え。

皆様有難う御座いました。
お陰で出来ました。

"の後にスペースを入れたり入れなかったりのミスでした。

stAppName = "C:\program Files\Internet Explorer\iexplore.exe"
hp = " http:／／アドレス／" & Me.テキストボックス名 & ".html"


Call Shell(stAppName & hp, 1)

で動きました。

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

>>454
C:\program.exe という名の悪意のあるプログラムもあるから注意すべし。

2007で右クリックショートカットメニューはどうやって編集するの？

>>454
入れたり入れなかったりって何だよぉ〜。オレが最初にコメントしてて
それで解決だったのに、ダメだったいったじゃん。アホ！！！！

>>453
ありがとう。ちょっとは救われたよ。

・・・c:\〜を「"」で囲めよな。Winのお作法だぞ。

テーブルA(Table.csv)のなかに部品Bが使われている製品を全て抽出し、
さらにそこからその製品が使われている部品を全て抽出したいのですが構文が思いつきません･･･

SELECT 部品,製品 from Table.csv where 製品 = (SELECT 製品 FROM table.csv Where 部品 = '部品B')

結果：
製品　｜部品
製品A | 部品B

こんな感じでやってみたのですが、部品番号が使われている製品しかリストに出無いらしく、
エラーが返ってきて1レコードしか抽出できないと言われました。
実際には以下のような感じになって欲しいのですがなかなかうまく行きません。

製品　｜部品
製品A | 部品A
製品A | 部品B
製品A | 部品D
製品C | 部品B

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 SQL Access 抽出

どなたかよろしくお願いします。

>>459
どんなテーブル(フィールド構成とか文字型なのかとか)かも含め、情報が
少ない。
「こんな感じでやってみたのですが、部品番号が使われている製品しかリ
ストに出無いらしく、 エラーが返ってきて1レコードしか抽出できないと言わ
れました。 」
この日本語の意味がわからない。
部品"番号"なんて、今までの文章にもSQLにもない。

ここはエスパーのオレ様の出番だな。素人は怪我しないように下がってな。

オプションの全般の所で、「エラー処理対象外のエラーで中断」ではなく
「エラー発生時に中断」になっていないか?




という冗談はさておき、

SELECT T1.*
FROM T部品 AS T1
INNER JOIN
[SELECT DISTINCT 製品 FROM T部品 WHERE 部品="部品B"]. AS T2
ON T1.製品 = T2.製品;

か

>>452
JaneStyle or JnaeLovely のバグだよ
他の専ブラや普通のブラウザで見れば >>451 の " は、化けないよ

2007はナビゲーションウインドウ出なくしても、右クリックでテーブルやクエルやフォーム構造改編出来ちゃうんだけど、
xmlで記述して右クリックメニュー作らないと、他人に入力させるアプリ組めないのか？

超初心者的質問ですがフォーム表示の際
右と下の余白を消せないのでしょうか？
何か特別なオブジェクトやらは無いのに
フォームビューではやたら大きい画面で鬱です。
デザインビューではちゃんと小さく纏まってるのですが・・・。

>>464
フォーム？レポートじゃなくて？

フォームヘッダー、フッターが表示されてるのかな。
メニューの表示のヘッダーとフッターのチェックをはずしてみれ

>>459
複数レコードが返されるselectなのに、単なる=の比較になってるから
だよ。In((select〜))で動くと思う。

461のやり方もええなぁ。クエリにクエリを使うやり方でもいいなら、
副selectの方だけでクエリにして、製品、部品を出すクエリで使って
もいいんでないか。クエリ使わずに、sqlって話なら余計なことだな。

テキストボックス１に001を入力すると
テキストボックス２に別テーブルのテキストボックス１（001）と一致する
レコードの別フィールドが表示されるようにしたいのです。

例
テーブル１
001　りんご

テーブル２
001　500円

表示

[001]テキストボックス１（手動で入力）

[りんご]テキストボックス２（ここが自動表示出来ない）

[500円]テキストボックス３

ご教授お願いします。

>>467
テーブル1とテーブル2の「001」のフィールドを連結しておけばよい。

VBAを使うなら、テキストボックス1の更新後処理のところに、
Me.テキストボックス2 = DLookup("りんごのフィールド名","テーブル1","001のフィールド名 = '" & Me.テキストボックス1 & "'")

2007になっても痒い所に手が届かない感じ
やっぱ桐だなぁ

仕事で使ってるmdbファルを開けようとするとオブジェクト'C\Documents and Settings\・・・・'が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。

と出て開けません。データ吸い出し用のファイルを使用しても、問題のファイルを指定すると同じダイアログが出て吸い出せません。
この場合の解決策てあるのでしょうか？方法も含めて御教授いただけましたら幸いです。

>>470
データ吸い出し用が何を言ってるのかさっぱりわからん。
とにかく開きたいなら、データベースWindowが表示されるまでShiftキー
を押しながら開く。その先は、勝手にどうぞ。

>>470
ちゃんとテンプレに沿って質問しろよ。

オブジェクト'C\Documents and Settings\・・・・
ここの・・・部分は？

吸い出しってなんのことだよ。

なんかよくわからんけど、テーブルのリンク先が違うんじゃないの？

AccessでMicrosoft Date Time Picker Controlを使いたいのですが、
何が必要なのか解りません。
どなたか使えた方教えて頂けないでしょうか？

>>473

ttp://www.friendlysw.com/knowhow/Forms_Expert_004.asp

OS　WinXP　PRO
ACCESS　Ver.2003
VB等　研修で習った程度
質問
はじめまして。
私は、今までﾒｰｶｰに外注して
大型汎用機の開発をしていたのですが、
今回中小企業でACCESSで開発することになりました。
分からないことがたくさんなのですが、
一番分からないのは、
ﾊﾞｯﾁ処理のような作業（月次処理）などをする場合
何で処理を作成するのが一番ﾍﾞｽﾄかということです。
例えば、
営業所別　担当者別　売上げ推移を
指定された期間で求めることができるようにする場合です。
あとは、データ登録の担当者情報を各データに持たせて
入力日付も持たせ、更新者の担当者情報も各データに持たせて
更新日付も持たせる場合の、テーブルへの日付の編集方法も
いまひとつ分かりません。。。
どなたかご教授いただける方いらっしゃいませんでしょうか

>>475
＞＞306

設計的な見地から書いたのでだめなのでしょうか。。。
今までの通常の開発では、ＤＢに付属する機能がほとんどないため
全てプログラミングしましたが、
ＡＣＣＥＳＳでは、付属する機能が多岐にわたると認識しています。
どこからプログラミングするかという切りわけで
一番良いと思われる部分を開発経験者の方々に教えていただきたいと
思っております。
例えば、
ここまでの機能は、マクロで十分
ここまでの機能は、クエリで十分
めんどうなら全部プログラミングで統一すべき
などです。
開発工数の見地からや、
処理効率の見地からなど、見地を変えてのご意見も聞けたら助かります。

>>477
VBAで習った程度で、すべてVBAでできるの？
なんかさ、書き込み見る限り、『どれがベストか』って書いてあるけど、
『ベストな方法を一から教えてくれ』って感じをうけるよ。
全く自分で調べない初心者の感じをうける。
少しでもAccess知ってるなら

>>例えば、
ここまでの機能は、マクロで十分
ここまでの機能は、クエリで十分
めんどうなら全部プログラミングで統一すべき

なんて例え使わんよ。
面倒だから、マクロとかクエリを使ってるんだから。
VBAですべて書けるなら、それに越したことないんじゃない？

>>475を見る限りじゃ、なにを聞きたいのかわからん。

漏れも初心者だけど、
基礎情報を持つテーブルをその項目ごとに作って、
売り上げテーブルに入力日付、更新日付、その担当者、金額とか持たせればいいんじゃないか。
テーブルへの日付の編集方法がわからないって意味わからんよ。
なにがわからんのか。。。

あぁ、漏れも酒呑みながらだから意味わからなくなってきたｗ

>>477
>>478 と同意見ですが、まぁいくつか答えてみましょうか。
前提として、マクロはダメ。実行時エラーが発生した場合の処理が出来ないから。
習った程度のVBAってのも怖いけど、VBAを使うべし。

>付属する機能が多岐にわたると認識しています。
ではなくて、どういう機能があるかを最低でも勉強してから質問するもんじゃないか。

日時指定の自動バッチ処理の考えは、Accessにはほぼありません。Winのタスク
スケジューラを絡めれば、できなくはないけど。
月次処理なんて、締めや月末にメニューから月次処理ボタンを選んで処理してく
ださいね、で終わりじゃん。月次処理が締め処理だとするならね。

>営業所別　担当者別　売上げ推移を指定された期間で求めることができるように
>する場合です。
そういう指定が出来るフォームを用意。実行ボタンなんか付けて、同フォーム・別
フォーム、もしくはレポートで結果をみせてあげればよい。

登録日付は、テーブルの登録日フィールドの既定値に=Date()とすればいい。時間
まで入れるなら、=Now()だね。これは最初のキー入力時の日時になるので、厳密
に登録時の日時なら、フォームの更新前処理でMe![登録日] = Now() (or Date())
です。更新日付も同じでしょ。

と、回答書いてて思ったけどさ、全くと言っていいぐらいAccessの勉強してないん
じゃねぇの。

>>471
あ、おいら>>470の言ってることがわかる。

ついこないだ、LAN組んでる仕事場で、
自分のPCで単独のAccessﾌｧｲﾙ作成して仕事してたら、
前の席のおねーちゃんが電気ｽﾄｰﾌﾞのｽｲｯﾁ入れて、ﾌﾞﾚｰｶｰが落ちた。

で、再起動してﾌｧｲﾙを開けようと思ったら、同じﾀﾞｲｱﾛｰｸﾞでだめ。
ldpﾌｧｲﾙがそばに転がってない？
ﾌｧｲﾙが壊れちまったのよ。

Microsoftのｻﾎﾟｰﾄｾﾝﾀｰで技術情報漁ってみ？
壊れAccessからﾃﾞｰﾀｲﾝﾎﾟｰﾄしようとする時に、ﾌｫﾙﾀﾞを変えるってのも、肝の一つみたいだお。
Excel使ってやってみろっつーのもあったな。
まあ、やってみても、だめなｹｰｽがほとんどだけどな。

おいらはむかついたけど、またいちからやり直したよ。
1日前くらいから始めた仕事だったから、あきらめた。
仕事が忙しいのに、丸1日損したわ。

で、他の何ヶ月も使ってるAccessﾌｧｲﾙには、開けた時点でとりあえずﾊﾞｯｸｱｯﾌﾟをとる
ﾓｼﾞｭｰﾙを組み込みますた。もうこれからは全てそうする。

>>480
そこまで壊れるのって、よほど運が悪かったんだね。
Accessは結構壊れるけど、割と修復で直ることが多い壊れ方が
ほとんどだから。

>>481
ん、だな。
いままではなんとかテーブルデータは救えたり、
フォームを作り直すくらいで済んでたんだけど、
今回はまるでパー。
そのねーちゃん悪気はないけどデストロイヤー体質。

継続的に使うファイルはなにげにコピーしてバックアップしてあったけど、
それは一時的にデータを修正したりする作業に作ったヤツだったから、
その日の午前には終わる予定の仕事が、
翌日一杯かかって、スケジュールが押せ押せですよ。泣けてくるよ。

バックアップモジュール作って貼り付けとくべし、ですな。

データシートでの各項目の表示列幅の規定値を設定・保存・再設定する方法はありますか？
他人に操作させているのですが、触って表示列幅が変わってしまうのを当初通りに戻したい。

×　データシートでの各項目の表示列幅の規定値を設定・保存・再設定する方法はありますか？

○　データシートでの各項目それぞれの表示列幅の既定値を設定・保存・再設定する方法はありますか？

それはColumnWidthプロパティをヘルプで調べた上での狼藉か？

ColumnWidth
2003では確かそんなのがヘルプにあったな
2007では出てこない orz

失礼しました。
私は、プログラマではないので、ソフト・言語問わず開発は行います。
ざくっとした開発方針は、決める必要があるので、質問してみました。
あとは、独学の中でいまひとつ分からなかった事も追加してあります。
事実上、開発効率、処理効率の見地から検証してみた方はいらっしゃらないのかな？
検証された経験のある方がいらっしゃり、その他の意見がありましたら、
また教えていただけると助かります。
とりあえずは、下手なオブジェクトはあまり利用しないで、
プログラミングしていく方針で行こうかと思います。

じゃあ、桐で開発すると良いよ。
困難の殆どが容易に解決するから。
でも、高いよ。

何か論点が違う気がします。
プログラマは優秀ですから、安心してください。

こいつバカ過ぎるな

要するに、
「マクロやクエリはバグが多すぎて使い物にならないから
VBAでこつこつと書いた方がいいよ」
みたいに誰かが言ってくれたら迷わずに「VBAだけでやれ」と
指示出来て楽だなぁってことでしょ？

っていうか、>>479がとりあえず答えてくれてるんだから
それに対する返答くらいしろよ。

南ちゃ〜ん、ざくっとした開発方針を考えるにあたり、自分で調査はしないの？
安心できるほど優秀なPGなら、調査もさせて一緒に考えればぁ。設計の見地
じゃなく、Accessを使う際のオタクの社内規則だと思うが。マクロは極力
使うな、ビジュアルツールなんだからクエリ中心にしろとか、その程度でしょ。
あとは、仕様書があれば優秀なPGなら適切な選択で使い分けるだろうし、
Accessで無理な仕様、難しい処理は相談にくるんじゃないのかな。

スタートアップフォームを表示するようにしたんですが、Accessの画面は出さないようにすることが出来るんでしょうか?
それともお客さんのところにAccessがあるときは必ず開いてしまうものなのでしょうか?

>>493
メニューやツールバーやデータベースウィンドウを隠すことはできる。

で、お客さんのところにAccessがないときはどーやっても開かないんじゃね？

ここでの意見調査も調査のうちではないでしょうか？
ん〜ＳＥレベルで答えてくれる人が少ないようですね・・・
設計は、開発工数から処理効率、保守に関することまで
考えながらするものだと思います。
とりあえず、動けばいいものを作るのは素人ですから・・・
ご意見を下さった方、ありがとうございました。

『こっちから聞き直さなきゃ分からんような質問は馬鹿丸出しだからするな。』

2007だとコマンドボタンにショートカットキー割り当てられないの？

南ちゃん、
>>479 に対しては個別に答えてあげることはしないんですか？
ただ聞くだけに徹してるのは、調査とは言いません。アンケート
調査だっつうなら別だけど。
だいたいアホみたいな質問の仕方にSEレベルでタダで回答す
る程ヒマな人はいないと思うけど。

> 設計は、開発工数から処理効率、保守に関することまで
> 考えながらするものだと思います。
してるよ。アンタみたいに他人をアテにしないで。まぁ、メンバー
と協力体制はとるけどな(大きい仕事の場合)。

南さんへ

つっこみどころ満載でなんていったらいいか。。。まず、
>>487
あなたは、プログラマでなく、開発方針を決定する必要があるみたいだが、
プログラマ以前にAccessを全くっていいほど理解していないのに、
開発に関わってるのか？
なんもわからない素人がデータベース設計に関わるって、どういう会社だよ。

システムを使う会社の、その業務に関わっている人が、どういう業務でどういう事をしたいのか、
そういうことで関わるならわかるけどさ。
開発する側でプログラムもデータベースもわからんのに、開発設計って。

>>事実上、開発効率、処理効率の見地から検証してみた方はいらっしゃらないのかな？
ずいぶん見下した書き方するな。
それにな、あんな漠然とした内容で、開発効率、処理効率って馬鹿にしてんのか？
そんなに、教えてほしけりゃもっとちゃんとした質問しろってことだよ。

>>495
>>ん〜ＳＥレベルで答えてくれる人が少ないようですね・・・
はぁ？おれが>>478で酔っ払いながら最低限のことは教えてやっただろ。
その内容ですら理解できてないんじゃないの？
>>479の内容もわからないから、御礼も返事もないんだろ。

もっと仕様書並みに、詳しく書いてくれたら、俺が作ってやるよ。
どっかにうｐしてやる。

それにしても南さんって、なんか釣りっぽいですねｗ

南ちゃんは色白で小柄でちょっと胸が大きめな自称SEのメガネっ娘

今度たたかれたら僕が味方になってあげりゅ （ ﾟ∀ﾟ；)ﾊｧﾊｧ

桐V9-2007発売 age

Access2007でRTFワープロ作ったお！
智子の情報RTF版だお！
もうMSwordいらないお！
ワープロファイルも１つに集約だお！

>>494
んー開かない分にはいいんですが、次のがどうなるか疑問です。
・お客の環境にACCESSが入っているときにスタートアップフォームだけ表示する方法があるのか。
・その設定をした場合に元に戻すことは出来るのか？またどうやってやるのか？

起動時の設定のあたりが絡みそうなんですが、いじったあとでそこをどうやっていじりなおすんでせう･･･(´・ω・｀)

Access2002を使用しています。
初歩的な事なのですが、フォームにおいて
複数（テーブルとかクエリ等）のフィールドの選択方法が分かりません
ウィザードで最初に出て来る、フォームに含めるフィールドの部分です

現在テキストボックスの非連結の部分を連結させていて
テーブルＡの項目とクエリＡの項目を一つのフォームで使いたいのですが
プロパティのレコードソースで選択しても
複数のテーブルorクエリが選択出来ません
どのようにフィールドリストに追加させていくのでしょうか

>>503
> ・お客の環境にACCESSが入っているときにスタートアップフォームだけ表示する方法があるのか。
to ポップアップフォーム
> ・その設定をした場合に元に戻すことは出来るのか？またどうやってやるのか？
to AllowBypassKeyプロパティ

>>503
Accessのガワも表示したくないのか？
メニューバー・ツールバーなりをカスタマイズしてユーザーに提供できる
んだから、あまり面倒な設定にしなくてもいいんでないか？？？
これなら、起動時の設定でデータベースWindowを非表示にすればいい
だけだし。で、shift押しながら開けば↑これ表示されるし。

>>504
ソースに設定できるオブジェクトは1つだけです。テーブルなりクエリなり、
関連性がある複数のものを指定したいなら、それで更に直接SQLかクエリ(こっち
がお勧め)にして指定します。
select 社員ID, Max([残業時間]) As 最大残業時間 from 残業テーブル group by 社員ID
なんてクエリがあったとしてます。それと、基本的な社員テーブルとを繋げてクエリAを
作ります。↓簡単だけど、こんなの。

社員ID----社員ID
社員名 最大残業時間

このクエリAをフォームのソースに指定すれば、社員テーブルから社員IDと社員名、クエ
リAから最大残業時間を連結でコントロールを作成できます。

>>507
解り易く教えて下さり有難う御座います。おかげで納得出来ました。
テーブル、クエリ、フォームと仕組みを多少理解出来たと思います
始めはテーブルとフォームで何とかなると思ってましたが
勉強するほどクエリの重要さが分かって来ますね
もう少しデータベースの基礎から覚えて行きたいと思います。

>>505,506　レス(TдT)ｱﾘｶﾞﾄｳございます。
参考にしてどうするか考えたいと思います。たぶんデータベースウィンドウだけ表示しない方向で行くと思います。

Access2007ほかOffice2007試用版ダウンロード出来るようになってる
http://japan.trymicrosoftoffice.com/product.aspx?sku=3121432&culture=ja-JP

【 システム環境　 . 】 Windows2000, Access2003
【 VBAが使えるか .】 Accessははじめたばかり
【 VBAでの回答　　】 可
【 検索キーワード　】 テーブル

出来合いのdbを改造しようとしているんだが、あるテーブルの構成を
変えたら動きが変になった。（まあ当然か）
そこでそのテーブルを参照したり利用している部分を探そうと思ったんだが、
VBAならエディタの検索で簡単に探せるが、クエリやコントロールのプロパティで
参照しているとなるとそうもいかない。ひとつひとつ探すとなると膨大な手間が
かかる。
こういう場合、何かうまい手があるんでしょうか？

>>511
素人のオレから見て、
正直言って無理だと思う。
オレも知りたい。

>>511
2007だと以下のオプションがあるが、確か2003でもあったぞ
機能しないのか？

名前の自動修正オプション
・名前の修正情報をトラックする(A)
・名前の自動修正を行う(A)
・名前の自動修正の変更を記録する(A)

意味が違ったようだ、良く読まなかったスマン

無理にゃのかー。
とりあえず全体の構成からどこにつながっているか勘を働かせて、
時間をかけてトライしてみるよ。
レスどうもありがとう。

>>511
神の降臨をマテ

>>511
「ツール」にある「リレーションシップ」ではないのか

VBAが出来ない初心者なら諦めること。
簡単な例として、クエリならQuerydefでSQL文字列を参照・設定できるから
InStr(SQL文字列, テーブル名)などでいける。全クエリに対してループ処理
すりゃいいわけでしょ。
フォームも似たようなもの。ただし、Formsオブジェクトは開いてるオブジェ
クトだから間違わないように。
コンテナやドキュメントでも出来た気がするけど、今調べる余裕がないので。

だいぶ前このスレで誰かに教えてもらった
↓

「Access Analyzer」
ttp://www.geocities.co.jp/Playtown-Dice/9019

【 システム環境　 . 】 Windows2000, Access2003
【 VBAが使えるか .】 Accessははじめたばかり
【 VBAでの回答　　】 可
【 検索キーワード　】 テーブル

VBAでSQLを発行してテーブルを作成し、CSVデータを抽出するようにプログラムを組みました。
その処理を行った後にフォームのコンボボックスからテーブルの内容を参照させたいのですが、
コンボボックスをクリックすると、
「このフォームまたはレポートで指定されているレコードソース'"sq_cフォーム名,"sq_cコンボボックス'」は存在していません
と出てしまいます。
データーベースウィンドのオブジェクトにあるテーブルを見るとテーブルが作成されておらず、
一度、別のオブジェクト(レポート、クエリ、マクロ等)に切り替え、再度テーブルを表示させるとテーブルが作成されています。
どうすれば、わざわざ、表示の切り替えを行わずにテーブルが作成できるのかわかりません。
どなたか教えていただけないでしょうか。よろしくお願いします。

>>520

Requeryさせてみたら。

Visual Studio 2005 Tools for the 2007 Office SystemにAccess 2007用ランタイム含まれてる？

>>518
なるほど、クエリだろうがフォームだろうがＶＢＡでいじれちゃうわけね。
クエリだとこんな感じでできたわ。

Public Sub ALL_SQL()
Dim i As Integer
For i = 0 To CurrentDb.QueryDefs.Count - 1
Debug.Print CurrentDb.QueryDefs(i).Name
Debug.Print CurrentDb.QueryDefs(i).SQL
Next
End Sub

おかげで大助かり。どうもありがとう。
フォームの方は少し難しそうだな。AllFormsで回してフォームを片っ端から
オープンし、かつ全コントロールをループしてControlSourceやRowSource
プロパティがあれば調べる、というゴリゴリきわまる方法しか思いつかんかった。
でもなんとかできた。２ｃｈさすがだね。

>>511
Access 2003 から「オブジェクトの依存関係」というのがあるらしいが、これではダメなのか？
ttp://support.microsoft.com/kb/881397/ja
ttp://www.microsoft.com/japan/office/previous/2003/experience/workstyle/tips/access/tips2.mspx

>>524
ああ、こんなのもあるのか。
来週になるが試してみるわ。ありがとうございます。

でもこれだとクエリやフォームをひとつひとつ調べていくのがめんどそう。
何十個とあるので。

フォームでフォームヘッダーが出てこないのですが、どうすれば
表示できるでしょうか？すみません。

>>526

AccessのVer.ぐらいは書いてくれ。

「表示」の所にないか?

うちのアクセスババアをなんとかしてくれ。
それしかできないからなんだろうが、
何でもかんでもアクセスでネット共有しちまうんだ。
バックアップも最適化も知らないからしてないんだが、
しろと言っても、安定稼動してるからとのたまう始末。
挙句の果てに、ＭｙＳＱＬも同じでしょときた。
ババアにもアクセスにも怖くて誰も手を出さん状態だ。
何百人分もの社員マスタまであぼ〜んしてしまう訳なんだが・・・orz

>>528
とりあえず定期バックアップ取ってればいいじゃん。
一度痛い目を見れば耳を貸すようになるだろう。

すみませんがおしえてください。
ADOでFINDする場合インデックス番号では検索は出来ませんか？

何だかわからんがこれではダメなんですかそうなんですか
rst.Open "---", --接続, adOpenKeyset, adLockOptimistic
rst.MoveFirst
rst.Find "[---]=" & ---

>>523
おっ、できるじゃん。だったら、フォームももう少し調べよう。
開かなくても出来る方法がちゃんとある。
もちろん、使ってるコントロールをループしてというところは
ほぼ同じだが、開かないだけスマートかと。

Accessで作ったアプリケーションはそのままWeb化できるものでしょうか？
今までmdbファイルはデータベースとしか使ったことがないのですが
Accessで作ったアプリケーション（フォームなど）をWebアプリケーション化
できるようなことを小耳にはさんだのですが。
私などはASP.Netなどを使わないとだめかと思っていたのですが・・・

>>533
できなくはないが、本当にそのままWEB移行は厳しいだろう。
扱うデータ量(1画面の)やインターフェースを検討し直す必要
がある。

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

あるフォームだけをWeb化とかできるのでしょうか？

また、そのあたりのやり方が載っているようなサイトは
ないでしょうか？
ぐぐり方が悪いのかなかなかヒットしなくて困っております。

F1

>>533
つvb2005

>>535
to Share Point Service

>>536,537,538
ありがとうございます。

Access単体でできるわけではないのですね。
参考になります。ありがとうございます。

2000で作ったデータを、他のバージョンで開いて、
続けてデータ作業をすることが出来ますか？

開ければ作業できるよ

>>541
ありがとうございます。
開くことが出来ない可能性も多くあるのでしょうか。

あるよ

>>543
ありがとうございます。
素直にオークションで2000を購入したいと思います。

オークションで買うのが「素直」なのか？

他のバージョンってのをハッキリしろと言いたい。
2000より後ならOKだし、前のバージョンならNGってすぐわかるさぁ。

2007試したﾋﾄいる？

ふと思ったが、スレタイの 【桐にしとけ】は、いつからあったっけ？
消しても良いんじゃないかい？

>>549

その13から。
このスレが埋まる頃には2007が確実に出ているだろうから、
【2007にしておけ】になるんじゃないか。

ACCESS総合相談所 その１７ 【桐にしとけ】

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


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

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

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

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

ACCESSって2007単体で買ったらどのくらいするモノなの？

>>551
まだ未定。
Microsoftに訊いて、ここで報告よろ。

既出かも知れませんがサブフォームを含むフォームをデザインビューで開こうとすると50％位の確率でサブ部分が空白になってて、編集できないのですがこれはバグなのでしょうか？

メモリ枯渇(うそかも)

>>554
ちなみに会社（2003）、自宅（2000）を使用していますがどちらも同じくらいの確率で出ます。
何度か切り替えるとビューが表示されるのですが・・・

ttp://www.accessclub.jp/bbs3/0096/superbeg34500.html

既出みたいですね

サブフォームに限らず、って感じかな
貼りつけたコントロールの表示がたまにおかしくなるなんてのは、
当たり前みたいにやりすごしてる
べつに壊れてるわけでもなさそうだし

ご存知でしたらどなたか教えて下さい。

レポートのバーコードの印刷で
特定のマシンで不具合が発生しています。

Access2000にて、
「ABC」とい名前のレポートに
「Microsoft BarCode Control 9.0」
を貼り付け、データソースから得た英数字を
バーコードに変換して印刷します。
帳票のスタイルは、レコード1件に対しレポート1枚。
バーコードのスタイルは、「Code-128」を選択。

レポートを印刷プレビューすると問題無いのですが、
直接マクロにて、
アクション：レポートを開く
　　　　　　レポート名：ABC
　　　　　　ビュー：印刷
　　　　　　フィルタ名：(なし)
　　　　　　Where条件式：(なし)
と指定してマクロを実行して印刷させると、
全て1枚目以降のバーコードが印刷されてしまいます。

複数のPCである1台だけ発生します。
何か環境に問題があると思うのですが、
どこをチェックすればよろしいでしょうか？

尚、異常があるPCの環境は以下のとおり。
WindowsXP Pro
Microsoft Access2000 (Office SP3適用済み)

>>558

×：全て1枚目以降のバーコードが
○：2枚目以降も含め、全て1枚目のバーコードが

普通に抽出出来てないんじゃないの？
共有しえちる同じファイルをつついてる感じ？

>>560

バーコード以外のデータは正しく出力されていますし、
レポートを印刷プレビューすると問題無いので
抽出に関しては問題ないと思います。

>>558
・他の問題ないPCの環境
・出力するプリンタは同じか
・同じプリンタドライバを入れてみる
・問題ないPCから、ファイルごと渡してやってみる
・ダメなPCの、BarCode Controlを入れ直してみる

似たような現象で、バーコードコントロールを新規で
付け替えて事なきを得たことがある。同じとは限らな
いが、やってみる価値はあるんじゃないかな。

>>558
俺もあった。
コントロールソースにFunctionを呼ぶようなコードを書いてあるんだけど、
何かをすると時々それが初期化される。
どういうタイミングで起こるかまったくわからなかったので俺も知りたい

>>558
>全て1枚目以降のバーコードが印刷されてしまいます。

回答じゃなくてすまんが、それはデータソースから得られるレコードセットが5件として
12345の順の印刷を期待してるのにマクロからは2345だけしか印刷されないってこと？
（でもそれだと2枚目以降ってことだよな・・・）
それとも22222と印刷されるとか、あるいは別のパターンなのか・・・
もうちょっと詳しく教えてくれ。

(・∀・)ﾆﾔﾆﾔ

ヒント：読解力

すまん>>559読んでなかった
忘れてくれ・・・

暇ができたんでAccess2007(Beta2)いじってみた。
とりあえずADPを新規作成してSQLServer2005 Expressに繋げた。
ところで先行していじってる人達は新機能とか何で調べてんだ？
Beta版のせいなのかヘルプがスカスカな気がするんだが。

test

【 システム環境　 . 】 Windows2000, Access2002
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可


フォーム内に複数のテキストボックスを配置しているのですが、フォーカスが次のテキストボックスに移るたびに
同じ定型処理(再計算)をするにはどうすればよりスマートな書き方が出来るでしょうか｡


Private Sub テキストボックス名_Get Focus()

定型処理(再計算)

End Sub


をテキストボックスの数ぶんだけ書き連ねるのは力技っぽくてスマートじゃないですし、かと言ってワイルドカードを使って


Private Sub *_Get Focus()

定型処理(再計算)

End Sub


とやっても、もちろんエラーになりますよね。。何かスマートな書き方がありましたら御教授頂ければ幸いです｡

>>571

定型処理(再計算)を関数化すればいい。
アクセス（VB）に限らず、利用頻度の高いものは関数かするのが
プログラミングの基本だと思うよ。

callしてもいいと思うけど。

あと、ActiveControl使うのもいいかも。

>>572

素早い御回答ありがとうございます。
もちろん、定型処理部分は別モジュール化して、実際には


Private Sub テキストボックス名_Get Focus()

call 定型処理(再計算)　

End Sub

としているのですが、その方法でも　Private Sub テキストボックス名_Get Focus()　〜　End　Sub部分がテキストボックスの数ぶんだけ
必要になりますよね｡

そういった書き方はスマートじゃないと思うんで、もっとスマートな書き方があるのではないかと思った次第なのです｡

つまり、フォーカスがどのテキストボックスに移っても定型処理イベントを発生させるような(ワイルドカードを用いた時のような)
数行で収まる簡略な書き方が無いものかと思った次第です。

>>としているのですが、その方法でも　Private Sub テキストボックス名_Get Focus()　〜　End　Sub部分がテキストボックスの数ぶんだけ
>>必要になりますよね｡

>>そういった書き方はスマートじゃないと思うんで、もっとスマートな書き方があるのではないかと思った次第なのです｡

スマートかどうかはともかく

subじゃなくfunctionにすれば、ちょっとは減る鴨

function hoge()
---
end function

にしとけば

=hoge() で済む

クエリでフォームになにか入力されていたら、
その入力された値で抽出するけど、入力されていなかったら、
抽出をおこなわないですべてのレコードを表示する、
ってのをやりたんですけど、どうすればいいですかね？
iif関数でやってるんですけどできないんですよね。

すいません、Like演算子でできました。

>>571

アクセスってイベント駆動型だから、無理とは言わないが
余計手間がかかるんじゃないか。
実現できるかわからんが、

1.　表示しているフォーム（F1)を監視するフォーム(F2)を作る
2.　ActiveControlでF1のコントロール名を取得
3.　2で取得したコントロールの定型処理(再計算)を実行

※2、3はF2の処理となる。

俺の頭ではこれぐらいしか考えられない。

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

困っています。質問させて下さい。
パソコン画面を２画面使用してるのですが、
アクセス使用の際、左画面で編集しつつ、
右の画面にはスライドショー？（パワーポイントのＦ５画面のような）
を出す方法はありませんか？　編集結果がすぐに右画面に反映されると便利なのですが。

>>573
>>578

レスありがとうございます｡Active　Controlを使うほど大げさな処理じゃないんで・・・数は多いんですが、
単純な足し算引き算の組み合わせ程度の再計算なんです。((汗、


>>575


>スマートかどうかはともかく

>subじゃなくfunctionにすれば、ちょっとは減る鴨

---
end function

にしとけば

=hoge() で済む


おつきあいありがとうございます。それでも結局キー操作のトリガーとしてのGotFocus（）部分はテキストボックス分羅列させる必要がありますよね。
結局、テキストボックスが20個程度なんでテキストボックス分のLostFocus（）を
（LostFocusにしたほうがタイミング的に都合がいいような気がしたのでLostFocusにしました。）羅列してコードを書きました｡


望む結果は得られたんですが、そこはかとない敗北感が、、、、
おつきあい頂いた皆様ありがとうございました。

↑何か違う気がするので、コメント。
共通の処理をsubじゃなくfunctionにすれば、というアドバイスは理解した？
イベントプロシージャ書き書きしてそれぞれコールではなく、コントロールの
プロパティのところに=function()ってできるんだが、それもNGだったんですか？

【 システム環境　 . 】 WindowsMe, Access97
【 検索キーワード　】 Access97 移行 2000

現在Access97をデータの読み書きのみで運用しておりますが（DBの作成は行いません）
その古いPCの更新を迫られています。ですが手元に97のディスクがないためにAccese2000しかインストール出来ません。

MSの公式によると、2000で97のファイルを読む場合は・データの読み書き可・2000形式への変換可
とありますが、これはどれほどの互換性があるのでしょうか？

・ほぼ問題なく動作する　・データベースによっては問題が発生する
この辺りではないかと思うのですが…
くだらない質問で大変恐縮です、よろしくお願い致します。

MSの公式によると、2000で97のファイルを読む場合は・データの読み書き可・2000形式への変換可

何か読み違えていますでしょうか…出典はここです
http://www.microsoft.com/japan/office/previous/2003/business/compatibility/default.mspx

>>582
> とありますが、これはどれほどの互換性があるのでしょうか？

MSの公式によると、2000で97のファイルを読む場合は・データの読み書き可・2000形式への変換可

大変失礼しました。
文面通りということでしょうか、読解力に乏しくお恥ずかしい限りです…

それではサブPCで動作確認してから移行を試みたいと思います。
くだらない質問でスレを汚してしまして申し訳ありません、ありがとうございました。
そしてとても助かりました！

システム構築してるなら多少の手直しは、必要かもよ。

すみませんが教えてください。
番号を入力したら氏名が表示されるクエリがあります。
番号入力テーブル優先で番号氏名のテーブルとの結合クエリです。
どちらも主キーは番号です。
クエリ上で入力したらすぐ氏名が反映されないものでしょうか。
閉じて開くことをすると反映します。
いままではすぐ反映した気がしたのですが、記憶違いでしょうか。
またフォームもこれで作成したのですが、反映しません。
再クエリとかさせないといけないのでしょうか。
よろしく願います

>>581

説明不足で申し訳ありません｡
要は共通の処理が問題な訳じゃなくて、”同一のイベントをドリブンさせるトリガーが多数有ること”　が問題なのです｡

解りやすく言うと、どのテキストボックスをクリックしても同じ処理をしたいので、イベントのトリガー部分を簡略に書きたいと言う事なのです｡
SubプロシージャかFunctionプロシージャかといった問題ではありません。

>>589=>>571?
判りづらいからレス番でいいんで名前入れてくれ。

共通処理を行いたいコントロールを全部選択してイベントプロパティのところに"=関数名(引数)"。
関数はFunctionプロシージャ。

test

>>589
VBAで書き連ねるのがイヤって言うので、アドバイスがあったんだよ。
それを後出しで・・・でもよ。コントロールが違うんだから同一のイベント
ではないだろうに。その感覚で開発したいなら、MSのVC++にすれば。

> イベントのトリガー部分を簡略に
>>590 が再度詳しく説明してくれてるけど、これって簡略だろ？？？

function TOJIRU()
docmd.close
end function

でさ
コマンドボタン一個つくって、クリック時イベントに =TOJIRU() って書くの
VBEにコード書くんじゃないのよ、ただそこに関数名を書くの
たとえば既定値に=date() =now() とか書くのと一緒
このコマンドボタンは、10個コピペしても100個コピペしても全部おなじ働きをしてくれるの
コードとして書かれるのは上の3行だけよ

わかる?

call　す　る　た　め　の　コ　ー　ド　な　ん　て　の　は　要　ら　な　い　の

【 システム環境　 . 】 Windows2000, Access2000
【 VBAが使えるか .】 いいえ　（素人です）
【 VBAでの回答　　】 可?
【 検索キーワード　】 if else then

質問です。よろしくお願いします。
ボタン一つで、テーブルに連番を登録できるフォームがあり、今まで便利に使っておりました。
（テキストボックスに初期数字を入れ、ボタンを押すと自動的に連番が入力されるとい
うものです）

ところが、先日、連番の仕様が変更されてしまいました。今までは１ずつ加算されていく
単純な規則だったのですが、今後は一番後の桁を７までしか数えないとのことなのです。

具体的にはこうです。
1→2→3→4→5→6→7→10→11→12→13→14→15→16→17→20→21・・・・

そこで、if文を使用して、「もし下の桁が８になったら、２を足す」という処理を作ろうと思い
つきました。

ところが普段クエリしか使わないので（フォームの作成者は私とは別な人なのです）
いろいろ、検索したり、試してみたのですが、上の条件が作れません。

次のレスに、試した内容を書きます。（続きます）

--------------------------------------------------------------------------------
Private Sub コマンド1_Click()
SQL = "SELECT テーブル.連番 FROM テーブル ORDER BY テーブル.連番"
Set Table01 = CurrentDb().OpenRecordset(SQL)
SValue = "****"
Do
If Table01.EOF = True Then Exit Do
If SValue = "*8" Then
RenBan = RenBan + 2
Else
RenBan = RenBan + 1
End If
Table01.Edit
Table01![連番] = RenBan + [テキスト10]
Table01.Update
Table01.MoveNext
Loop
Table01.Close: Set Table01 = Nothing

End Sub
-------------------------------------------------------------------------------
これでは普通に１ずつ加算されていく今までの形式と変わりません。エラーこそ出ないものの
最初の「if SKey〜」の文が機能していない模様なのです。

SQL文（？）というのか、Likeも使えないようで、どのようにしたら上の
「もし下の桁が８になったら、２を足す」のような処理が出来るでしょうか？
それともなんか、根本的に間違ったりしちゃってるでしょうか？
（なお、付け足したのは、６〜８行目と１０行目の部分です）

どなたか、ご教示頂ければと思います。

>>595に間違いが・・

×「if SKey〜」ではなく
○「If SValue〜」です。

>>594

コードの書き漏れがないのであれば、SValueの値が常に同じでは?
それから、

Do Until Table01.EOF
. ・
.　　　　・
.　　　　・
Loop

の方が、見やすいのでは。

どうして変数を二つ用意したのか、SValueとやらの役割はそもそも何なのか、謎だが
何にしても SValue = "****" として
そのあといかなる操作もくわえないこの値が"*8"になるなんてことはあり得ないと思う
おまけにこれをイコール(=)なんかで結んでたんじゃ、なんてことはまあ見なかったことにして

変数はいっこでいいんじゃないの
SValue だけで

Dim SValue As Long
SValue = 0

・・・・

If SValue Mod 10 = 7 Then
SValue = SValue + 3
Else
SValue = SValue + 1
End If

・・・・

Table01![連番] = SValue + [テキスト10]


これでダメならごめん

かぶってるし (ﾌﾟ
寝よ

>>597-598
ご回答ありがとうございます。
まったく他に手を入れることなく、見事にできました！

modを使うんですね。偶数奇数の判定に使っている
ほかのフォームがあったんですが、まったく思いつきませんでした。

あと、奇妙な変数でストレスを与えてしまったようで申し訳ないです。
こちらも見直してみます。おやすみなさいませ。

【 システム環境　 . 】 WindowsXP, Access2000
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 プリンタない レポート ACCESS 設定 勉強

現在レポート機能の勉強中ですが、完了ボタンを押下すると、
「レポートを作成する前にプリンタをセットアップする必要があります」
と表示されます。自宅にプリンタがないので、プリンタを設定することが
できません。プリンタ不要でレポート画面を表示する方法はありませんか?

>>601
てきとーにプリンタドライバぶちこんどけ

仮想プリンタでも使ってみるとか…。

クセロとかでもいいんでない

>>601
WinXP付属のFAXを指定すると良いよ

プリンタの追加→このコンピュータに接続されているローカルプリンタ
で、次へと適当にプリンタを指定しました。
その後、レポートの完了ボタン押下したら、
ちゃんとレポート画面が表示されました。
これで、レポートの勉強もできます。
ありがとうございました。

ACCESSからテキストへのエクスポートで困っています
なぜか数値のフィールドに\が付いて取れません

クエリをエクスポートしているのですが、クエリ上で数値のフィールドはFormatで数値化して書式も数値にしています
でもなぜかテキストを見ていると\が付いています
これはなんとかならないでしょうか？

>>607
そこのフィールドのデータ型が通貨型なんじゃないの？
エクスポート時にcdbl()とかでDoubleにしてやればいいかと

Office 2007
http://pc10.2ch.net/test/read.cgi/bsoft/1145576709/741

741 名前：名無しさん＠そうだ選挙にいこう[sage] 投稿日：2007/01/17(水) 12:19:08
全部入りの Office 2007 Enterprize を 11/22 から使ってます。
Access2007 より 桐 の方が良いです。
2007 になっても 桐 に追い付いていません。
SQL や SharePoint サーバーとの連携のみが Access の優位点です。

だって桐は高いでそ

大事なデータを扱うんだからなぁ。

非連結フォームの初期化って、みんなどうやっています?
For Each 〜　Nextでコントロール総当たりするんだろうけど、
規定値持ちがいたりして案外面倒くさい。

なんか、簡単な方法とかありませんか。

再起動

桐通常版は４万円だよ。

▼━質問テンプレ━━━━━━━━━━━━
【 システム環境　 . 】 WindowsXP SP2, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】PDF

▼━質問━━━━━━━━━━━━━━━━━━━━
ACCESSに顧客データが0000〜9999まであります。
同じＨＤＤ内にそれぞれの顧客データに関連したPDFファイル（0000〜9999の番号をファイル名に含めています）が存在します。

ボタンひとつで、0000の顧客データをACCESSで表示させているときには0000.pdfを、
0001のデータをACCESSで表示させているときには0001.pdfを、…、起動させて画面に表示させたいです。
可能でしょうか。また可能であれば、やり方を教えていただきたいです。

>>615
shell "ファイル名"

▼━質問テンプレ━━━━━━━━━━━━━━━━
【 システム環境　 . 】 WindowsXP SP2, Access2003
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】パラメーター　右メニュー　でない

▼━質問━━━━━━━━━━━━━━━━━━━━
Access2000ではパラメーターの入力の画面で右クリックしたら貼り付けなどのメニューがでてきたのに
Access2003ではでてきません。
なぜでしょうか？初歩の質問ですみません。
お願いします。

出ないように設定してあるんじゃねーの？
自分で作ったＭＤＢなの？

Access2007で質問です。

Access2007のフォーム上にActiveXを貼り付けて、accdbファイルを作成しました。

これを、「デザインモードでのActiveX利用不可の環境」で、
該当のフォームを表示すると、
「このコントロールにはオブジェクトがありません」と出てしまいます。

（デザインモードでのActiveX利用可ですと、もちろん正常に動作します）

以前のAccessでは、正しく動作していたのですが…。
何かご存知の方いらっしゃいますか？

すみません、もう少し詳しく教えてほしいです。
特定のファイルを実行させるのはできるのですが、現在表示させている顧客データに対応したPDFファイルを適宜実行させていきたいのです。
0000を表示させているときにボタンを押せば、0000.pdfが実行。
0001を表示させているときにボタンを押せば、0001.pdfが実行。
といった具合にです。
よろしくお願いします。

>>620

>特定のファイルを実行させるのはできるのですが、

どういうふうにやっているのかは知らんが、

"pdfファイルがあるフォルダーまでのパス" & "表示されているコントロール名" & ".pdf"

でやればいいんじゃないか。

ちょい修正

"pdfファイルがあるフォルダーまでのパス" & me!表示されているコントロール名 & ".pdf"

>>620
>>622 それでも通じないかもよ。
それと、新しいデータを表示してボタンを押した時に、前回のpdfは閉じたいん
じゃないの？
そういう要望がないのなら、基本616さんの回答でOKじゃん。それを詳しくして
くれたのが622さんだし。
表示されてるデータのMe!コントロール名を使うってことができないなら、前回
のを閉じるなんて高級な技は無理でねぇか。非連結オブジェクトフレームを
利用すればどうよ。ここに内容表示させてもいいし、アイコン表示でもいいし。
ボタンの代わりに、ここをダブルクリックでAcrobat Readerで表示。閉じるのは、
自己責任でってことで。

Access上とはいえ、PDFを表示するのにshell関数使うとかってのは、ちょっと稚拙すぎじゃない?

>>615が起動って言葉を使ってるけど、
PDFファイルを開いて表示したいだけでAcrobatなりAcrobat Readerを起動する必要はないんだよね?

それならば、Access内で別Formとか顧客データと同一Formでも表示はできるよ。
AcrobatのActiveXコントロール使えばいいじゃない
閉じたり・切り替えたりするのも問題ないし。

WebBrowserなコントロール使うのも楽だと思うよ。

WebBrowserなコントロール使うのも楽だと思うよ。
WebBrowserなコントロール使うのも楽だと思うよ。
WebBrowserなコントロール使うのも楽だと思うよ。
WebBrowserなコントロール使うのも楽だと思うよ。

なんで不毛なの

>>625
誰が禿げだコラ!

幼稚なフォームよりAdobeReaderのほうが使いやすいよ。

その考え方が幼稚だよ。
基プログラムから管理しづらいよ Acrobat Readerとか外部プログラム立ち上げちゃうと。
閉じるのはユーザー任せとか、仕様として終わってるよ。

ろくに知識もない人任せな奴が作ってんだから、ユーザー任せで
いいのだ。だいたいActiveXはバージョン異なると・・・も含めて、理
解して作れると思うかぁ？

割って入ってすまんが、そもそもスクリプトでもないのに PDF が
「shell "ファイル名"」だけで開くのか？
自分の環境ではファイル名だけだと実行時エラーになるが、
プログラムを指定していないから当然だと思っていた。
自分は Foxit を使っているが、Adobe Reader 入れていれば
プログラムの指定は要らないのか？
なんか腑に落ちないんだが。

ものがインストールされていないケースなんてのは取りあえず無視して

アクロバットexeの場所は人によって違うと思うけど
きっとこんな感じ

Call Shell("""C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe"" ""pdfファイルパス""", 1)

そんなんだったら、IEで開いたほうがいいだろ。
パスも固定だし。

ああ、ごめん
書き方がよくなかった
こうすりゃできるって話じゃないのよ
やっぱプログラム指定しなきゃ動かねぇじゃんってことを言いたかったの、ほんとは

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 可
【 検索キーワード　】 印刷
初心者で大変申し訳ないのですが教えていただけませんでしょうか；；

現在フォームから”印刷”と名前をつけたアイコンを押してレポート（印刷プレビュー）に飛び、
印刷を行おうと思うのですが今までフォームからテーブルに入力した内容が全て出てきてしまいます。

”テーブルの最後のフィールドを印刷”、
もしくは
”今まで印刷したことの無いレポートを抽出して印刷”

と、したいです＞＜

どなたか宜しくお願いします＞＜;;

>>634

君は上司から書類を渡されて判断材料もないのに
『いままでコピーしていないやつはコピーしといて』
と言われて、判断できるか?
Accessだって同じだ。
テーブルにフラグをもたせるとか（印刷していないものを印刷）、
登録順序がわかるような（最後を印刷）フィールドがないと不可能だろう。

VBAでデータインポートするマクロ（つかプロシージャ）を作ったのですが、ACCESSではどのようにして実行するのですか？
VBEを呼び出して実行ってのは面倒だし、といってもDBの基本画面にはマクロ登録できなそう出し、
フォームを作ってコマンドボタンに登録するのが一般的ですか？

ACCESSでいうところのマクロからはVBEで作ったマクロは実行できませんよね？
CALLできるマクロってあります？

マクロのアクションに「プロシージャの実行」ってのがあるわけだが？

あああ、本当だ

この場合、

Sub　あ（）

ていうSubFunctionの場合マクロをプロシージャの実行にして「= あ」って書き方でいいんですよね？

Sub Functionなんてない。Subプロシージャ、Functionプロシージャ。
そして、マクロやイベント直に =〜 でコールできるのはFunctionプロシージャ。
>>637 のヒントがあるんだから、このくらいは自分で調べろや。

>>635　ご返事ありがとうございます。

”テーブルにフラグを持たせる”というのを確認してみます＞＜

>>640
おい、

希望のレコードだけ印刷したいなら、
印刷時に印刷設定ダイアログで印刷対象ページ指定するとか
レポートのデータソースで印刷対象レコードを選択するとか

テーブルの最後のフィールドを印刷・・・・
(・∀・)ｲｲ!

【 システム環境　 . 】 Windows98, Access97
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】

ACCESSでVBAで、プログラム作っているものです。
今日、見たこともないエラーがでて　驚きました

ACCESSを終了しようとしたら、インスタンスが他のコンピュータかユーザにより変更されました　
保存しますか 　破棄しますか　とか出て
わからなかったので　保存を選びました
どうなったのでしょうか
レス　お願いいたします

インスタンスが他のコンピュータかユーザにより変更されたんだよ。

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 勉強中
【 VBAでの回答　　】 可
【 検索キーワード　】

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 勉強中
【 VBAでの回答　　】 可

IE中のボタンをクリックして別ウインドウに表示されるHTMLソースを
取得するにはどのようにすればいいですか？

>> 646
VBA勉強中なら、この辺とか。

ttp://www.tsware.jp/tips/tips_267.htm

Webブラウザコントロールを使わない方法は、VBAが
駆使できるようになってから、調べてみてください。

>>647
ありがとうございます。参考にしてやってみます。

ＡｃｃｅｓｓとＥｘｃｅｌのピボットテーブルの違いがわかる方いますか？？
それぞれの長所と短所とか教えていただけたら助かります。
よろしくお願いします。

ただの感想なんで、無視してもらって構いませんが。

なぜそんなことを質問しようと思ったのか、動機を説明した方が
適切な意見を聞ける希ガス。

>>649
ＡｃｃｅｓｓとＥｘｃｅｌのクエリの違いとよくにている。

桐ってまだ売ってるんですか？

昔、管理高額研究所、みたいな名前のところから出てた気がする。

管理工学研究所

貧乏人はAccessにしとけ、何倍も開発時間費やして苦労する
エクゼクティブは桐で仕事して、余った時間はホテルのプールでリフレッシュ

>>653
Accessスレの桐ネタもそこまでいけば立派な文化だなｗ

確かに桐なら開発期間1/5だしAccessはバグ多すぎだし

そっか、今だに管理高額研究所なんだな。
じゃ松茸とセットなら入力効率五倍なのもいまだにデフォなのか？

▼━質問テンプレ━━━━━━━━━━━━
【 システム環境　 . 】 WindowsXP SP2, Access2002SP2
【 VBAが使えるか .】 見習いレベル
【 VBAでの回答　　】 可
【 検索キーワード　】ACCESS フォーム 集計 SUM

▼━質問━━━━━━━━━━━━━━━━━━━━
サブフォーム上の演算結果を集計し、メインフォームに反映させたいのですが
2点不明な点がありまして、教えていただけないでしょうか？

（１）演算コントロールはSUM関数では足しこめない？
テーブルに「単価」フィールドと「個数」フィールドがあり
[料金]は演算コントロールとして、コントロールソースに
=「単価」*「個数」
で問題なく出ますが、それをサブフォーム上でフォームフッターにコントロールBOX
を設けて、そこで
=SUM（[料金])
とすると「＃エラー」と出てしまいます。
テーブルに料金フィールドを設けて、そこに格納した値を集計するのは問題ないの
ですが、やはりテーブルに書き出すしかないのでしょうか？
（計算で導き出せるデータはなるべくDBに持たない方がいい、と思ったので設けてい
なかったんですが、集計が絡むような値はやはりＤＢに持つべき？）

（２）SUM関数の実行タイミングについて
サブフォーム上で[単価]や[個数]を変更したら、即再集計掛けたいのですが、
レコードを保存しないと集計してくれないですよね？
これって、やはり即再集計＆メインフォームへの反映って無理でしょうか？
（演算コントロールだと、即反映するので、そのイメージでできるとうれしいのですが、
無理な注文でしょうか？）

以上よろしくお願いします

>>657
(1)だけ簡単に
=SUM（[料金]) →　=SUM([単価]*[個数])

既出かもしれませんが、発見できませんでしたorz
よろしくお願いします
３台のPC（XP)で、ACCESSのデータベースを共有にしています
特に問題はなかったのですが、最近、LOCK　FILEが出て、困っています
フォルダを新しくして、LOCK FILEを消そうとしましたが、追いつきません
よろしくお願いします

>>659

全てのmdb閉じれば、勝手に消えるだろ。
残っていたとしても、もう一回開いて閉じれば消える。
少なくとも、2002ではそうなるぞ。

オートナンバーを１に戻すにはどうしたらいいんでしょうか？
教えていただけたら幸いです。

>>661

テーブルからにして、最適化。

先生、日本語がおかしいです。

>>663

テーブル空にして、最適化。

これでいい?

先生、テーブル空にしたら意味がありません。
オートナンバーを１に戻すのではなく新たに最初から作るのと同義です。

だったらオートナンバーフィールド削除して、また追加ならどう?

>>665

普通データ退避させて、インポートしなおさないか?

> だったらオートナンバーフィールド削除して、また追加ならどう?
先生、それでいけそうです。

> 普通データ退避させて、インポートしなおさないか?
最初からテーブル作ってと同義です、意味ありません。

テーブルの複製って出来なかったっけ？

う〜ん・・・
言われた通りにやったが出来ない・・・
以前に一回出来たんだけどやり方忘れた＞＜

確かＭＳのサポート技術情報にあったよ

６５９です
レスありがとうございます

＞全てのmdb閉じれば、勝手に消えるだろ。
＞残っていたとしても、もう一回開いて閉じれば消える。

その通りなんですが、開くとまた出てきてしまいます
そんなこんなで、ひとつのPCからしか、開けない状態です
よろしくお願いします

下のような親子関係のテーブルがあります
[親]　主キー：顧客番号　それ以外には住所とか名前とか
[子]　主キー：顧客番号＆販売日　それ以外に合計売上額とか
[孫]　主キー：顧客番号＆販売日＆品物ID　それ以外に個数や品物名など

[子]のテーブルをレコードソースとして
作ったフォーム上からレポートを印刷する際に、
[孫]のデータに関しては、サブレポートにすれば印字できるのですが
親テーブルにあるデータをレポートに印字するのはどうすればよいのでしょうか？

メインレポート上に非連結コントロールを作り、そこのコントロールソースに
SQL文を直書きすればできるのかと思い試してみたのですが、うまくいきません。

SQL文の書式とか自信がないので、クエリーを作ってそれをSQLビュー利用して
コピったのを貼り付けたり、たどたどしく直接書いたりしたのですが
どうにもうまくいきません

親子関係の子供側から親側テーブルの値を参照する方法を教えてくださいm(__)m

>>671
排他で開いてるからです。オプションで共有にする(設定するのはマシン毎)か、
Accessの開く時のダイアログで排他のチェックを外してから開く。
通常、ショートカットやMDBダブルクリックで開くだろうから、前者のオプション
変更で対応だろうな。

>>672
桐にしとけ
簡単だぞ

>>673
直りましたぁ
ありが�d

だって桐は高いでそ

>>672
関係ないことだが、何故合計をデータにもつ。通常は、SUMなど集計で求める
データなのに、いろいろ事情があるのか？
さて、レポートだがすっげー単純に考えるとメイン-サブ-更にサブって形式で
いける。が、普通は違うべ。基本、サブレポートは使わない方がいい。
親・子・孫、全部繋げてクエリを作る。レポートのグループ化・ソート・改ページ
を設定。親・子、それぞれのグループヘッダを用意してデザインすればいい。
孫は、詳細部分に帳票フォームのような感じで1行分のデザイン。
後は、勉強してください。

>>672
子と孫は一緒にできる予感だし、
クエリー作って参照するといいかも
参照する文はウイザードで作れますよ
SQL書けなくても、マクロとクエリーでほとんどのことはできるみたいですよ
効率は多少悪いかもしれないけど

>>677-678
レスありがとうございます！
クエリーの方が利便性高いということがなんとなく理解できました。
クエリーならなんとかできるので、そちらでいきます

合計欄に関しては、単純な個数×単価という計算ではなく、
値引きコードや値引率、消費税等が絡むので、フォームやクエリーで
その都度式を指定するのもどうかと思ったんでデータで持つようにしたんです。

けど、よく考えてみたら、その算出式を自作関数で生成し、フォームやクエリー
ではそれを呼び出すようにすればなんのことはなかったんですね・・・orz
（自分にとっては、まだフォームのイベントで呼び出す方法までしかたどりつい
ていなかったので、関数の実装の仕方を理解できていませんでした。
今日始めて標準モジュールに関数作り、クエリーで動いたのみて感動してたり・・・）

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

ご存じの方がいたらお助け下さい。
業務で使っているAccessのファイルが開かなくなってしまいました。
開こうとすると"開く、実行"する権限がありません。管理者から権限をもらってください。
とでます。インポートもエクスポートも出来ず。最適化もできません。
所有者が<不明>となっており、どうやらその不明な所有者に権限を
らわないといけない状態のようです。
なんとかデータを復旧する方法はありませんでしょうか？
新規に作ったファイルにインポートするというのも試してみましたが
だめでした・・・・
OSはWinXP、Access2003を使用しております。

>>680
> 業務で使っているAccessのファイル

コピーして自宅のＰＣで開いてみて

>>681
自宅にPC & Accessの環境があると断定の元でレスするのは
おかしくねぇか？
個人で揃えるには、もったいない金額だぞ。

じゃ、お金持ちの友人の自宅ＰＣで開いてみて
たぶん、MDW が壊れてるんでしょ

【 システム環境　 . 】 Windows2000, Access2003
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 否
【 検索キーワード　】 引数がありません

AODを使ってエクセル上のデータをAccessのテーブルにインポートしたところ
「引数がありません」（エラーコード失念）となりVbaがストップ。
アクセスを立ち上げ、データベースの最適化を行ったところ
「引数がありません」とメッセージボックスが上がり
最適化が実行された。
その後セキュリティ警告も上がらず、ＤＢオブジェクトに接触できなくなった。

ＰＣを再起動してアクセスを立ち上げて
表示＞データベースオブジェクト＞
としてもテーブルからモジュールまで反転表示のままで何もできない。

ＤＢ復旧にはどのような手段がありますか？

>>684

定番だが、新しいmdb作ってテーブル等をインポート。
ところで、問題が発生したmdb以外にもその現象は
波及しているの?
もしそうならば、修復インストールしてみたら?

>>685
テーブルのインポートやリンクは他のＤＢにはできるのですが、
問題のＤＢにはできませんでした。
（オブジェクトのインポートのダイアログボックスが出ない）

他のmdbには問題は発生しておりません。
あと先ほど確認できたのですが、プロパティを見ると1.91ＧＢのサイズ
になっていました。これが原因なのでしょうか？

【 システム環境　 . 】 WindowsXP PROFESSIONAL, Access2000
【 VBAが使えるか .】いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 ACCESS 別なデータベースのテーブルを参照する

田舎の会社に務めていて、つい最近までパソコンが無かった事務所
にようやく社長がノーパソ買って、WORDで見積書を入力しています。

そういう会社の田舎会社員です。
仕事の自分の範囲のデータを管理するためにACCESSのテーブル入力だけは
前からやってて、さて、システム化しようとして困ったことがあります。
　ACCESSのデータベースの概念がわかってなかったので、顧客リストや
機械の型式リスト等、それぞれのテーブルを別々のdbに作っていることに
気がつきました。それらのテーブルを一つのデータベースにまとめるか、
データベースの枠を越えてリレーションをかける？（自分で言ってて
訳がわからない）か、一旦全部のテーブルをEXCELに掃き出し、一つの
データベースに吸い込みなおすか？　はたと困っております。
正規化をはじめちゃったデータベースもあるんで、厄介な事になっております。
なにかお知恵はございますでしょうか？

>>686
新規MDBを開いてインポート。この時、1.91GBのMDBを選択するんだよ。
何か日本語が変かと思ったので、念のため指摘してみた。

>>687
複数のMDBのテーブル同士でにリレーションは無理だよ。
1MDBに一緒にしたいテーブルを全部インポートする。元々、1MDB内で
リレーションが組んであったとしても無駄なので、外してください。
作業上、Excelに出力してから主キーも含め見直し・整理が必要なら、そ
れでもいいでしょう。作業がし易い方をアナタが選ぶだけです。
どちにしろ整理する作業の面倒臭さは変わらないでしょ。

>>688
ありがとうございます。
ということは、クエリやフォームも棄てなきゃいけないって感じですね。
データの再入力しなくていいぶん気が楽だけど、住所録の中に他のを
吸い込むかなぁ･･･。「どっちにしても面倒くさいことはおなじです」って、
言い得て妙というか神の言葉というか、現実を直視する事にします。
げげ〜、改めてRDBMSって設計が大事だという事がわかった。

相談です

伝票のテーブルとそれを集計するクエリがあるのですが、この集計クエリに伝票日付から会計期間を入れたいと思います
たとえば1/1-1/31が会計期間1とかです

この場合、単純にクエリの会計期間フィールドにIF式で会計期間をいれるようにしたほうがいいでしょうか？

すいません、追加でこの場合の式ってVBAでいうところのCASEみたいなのはないでしょうか？
IF式だとめんどくさくて

>>688
お付き合いありがとうございます。

新規にＭＤＢを作成して、
ファイル＞外部データの取り込み＞インポート
で問題のＭＤＢを選択しても
「オブジェクトのインポート」
が表示されません。

access初心者なんですが、こちらで質問しても構いませんか？
初心者スレがあれば、そちらで質問させていただきたいのですが、見つからなくて。

>>689
フォームやクエリーもインポートできますよ
>>690
月だけを取り出す日付関数とかは、
役に立たないですか

>>692

Accessの制限に抵触しているのだと思うよ（2GB制限)。
修復って出来たかな?

>>694
細かいこというと、〆日が25日で休日の時は前日に移動になります
なのでIF式で日付を取り出すのが面倒なんですね
だから

select case 日付
= #2007/01/25# < #2007/02/22 : 1
= #2007/02/23# < #2007/03/25 : 2

みたくなります


この条件のテーブルを作るほうがいいのかな？

>>695
以前にも2ＧＢの壁にぶつかったんですが、その時はテーブル開けることはできたんですけど
今回はエクセル側からテーブル追加をしてエラー終了しているのでＤＢが壊れているのか不安です。

修復はまだです。一応新たなＤＢ（テーブルを分割）を作成する準備はしているのですが、
量が多いので気が滅入ります。

あと気づいたのですが、問題のＭＤＢを立ち上げても、「レコードロック情報」
が立ち上がりません。他のＭＤＢのときは立ち上がるのですが。
これも要因なのでしょうか？

>>697
2GBにぶつかったことあるなら、もうAccess使わないでやろうって
思わなかった？少人数なら、MSDE(今、違う予備名のがあったっけ？)
とか。
それと、そこまで大きくなる予想がつくなら何でフォームやクエリも詰め
込むの。テーブルと分けて、リンクして使うでしょうに。
まずさ、最後のお試しって感じで別MDBからOpenDattabese使ってアク
セスしてみ。どこかでエラーが出るかもしれないから、それで見当がつ
くでしょ。エラーが出ずにリードできたとしたら、それを保存して退避すれ
ばいいじゃん。
おまけ。最適化・修復やるときは、壊れてて使いもんにならないのかも
しれないけど、オリジナルのバックアップは忘れずに。

>>696
Functionプロシージャで関数を作ってしまえば？

>>699
ですよね
ただ今後それだと重くなりそうな気がするんです

みなさんはこういう場合どのような設計にしますか？
伝票テーブルが書き込まれるのと同時に期間も入力されるようにすればいいのかな

>>698
いままで、テーブルの分割で対応できておりテーブルリンクを使っていましたので
特に不便を感じていませんでした。
今回も３つのＤＢから必要なレコードを抽出し、エクセルで加工した結果をいったんシートに蓄積し、
シートに入りきらない量になったら４つ目のＤＢのテーブルにインポートする、ということをエクセルＶＢＡで行っていました。
データの大きさに関しては全く気にしておりませんでした。

「OpenDatabese」でググって見たのですが分かり易い説明のあるサイトが見つかりませんでした。
これは他のＭＤＢから問題のＤＢを開けてみるということなのでしょうか？

>>700
似たようなのを作っていたのでためしに作ってみた。Ｓｈｉｍｅｂｉ(日付）でyyyy年mm月で区分されてるけど。
Function Shimebi(var年月日) As Variant

Dim datdate As Date
Dim datdate2 As Date
Dim simedate As Date
Dim sime As Integer

datdate = DateSerial(Year(var年月日), Month(var年月日), 1)
datdate2 = DateSerial(Year(var年月日), Month(var年月日) + 1, 1)
simedate = DateSerial(Year(var年月日), Month(var年月日), 25)
Select Case Weekday(simedate) '---休日設定
Case 1 '25日が日曜の場合
sime = 23
Case 2 '25日が土曜の場合
sime = 24
Case Else 'その他の曜日
sime = 25
End Select

If IsDate(var年月日) Then
Select Case Day(var年月日)
Case 1 To sime
Shimebi = Format(datdate, "yyyy年mm月")
Case Else
Shimebi = Format(datdate2, "yyyy年mm月")
End Select
Else
Shimebi = "？"
End If
End Function