【玄人】素人ACCESS相談所【禁制】

175 ：名無しさん＠そうだ選挙にいこう：03/04/30 00:38

どなたか教えて下さい！！ACCESS2000で、Winxpですが、
マクロで「アプリケーションの実行」でファイル名を指定した所、
「"RunApp/アプリケーションの実行"アクションを使ってアプリケーションを
　　起動できません。アプリケーションのパスが正しく指定されていないか、
アプリケーションのコンポーネントが不足しています。」と出ます。
パスは確かに合っています。「コンポーネントが不足している」とは
どういうことでしょうか？ACCESS2000のインストールが失敗しているのでしょうか？
関係ないかもしれないですが、Winxpホームエディションでは上記のエラー
が出て、Winxpプロではなぜか正常に動きます。
どういう事なのでしょうか…？

176 ：名無しさん＠そうだ選挙にいこう：03/04/30 04:19

>>170
printscreenはやなの？

177 ：bloom：03/04/30 04:25

178 ：170：03/04/30 09:42

>>176
それだと画面に納まる分しか対応できないので…

179 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:33

180 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:34

181 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:34

182 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:35

http://homepage.mac.com/ayaya16/　　　　

183 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:35

http://homepage.mac.com/ayaya16/　　　　　　　

184 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:36

185 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:36

http://homepage.mac.com/ayaya16/　　　　　

186 ：名無しさん＠そうだ選挙にいこう：03/05/03 17:38

http://homepage.mac.com/ayaya16/　　　　　　

187 ：名無しさん＠そうだ選挙にいこう：03/05/03 21:44

すいません、Win2000、Access2000、Excel2000を使用しているのですが、
VBA上でExcel.ApplicationオブジェクトをCreateObject関数でSetして
使用しているのですが、最後にQuitメソッドを使用しても、オブジェクトに
Nothingを代入しても、EXCEL.EXEが終了しません。

一応コードは
Dim obj as Excel.Application

Set obj = CreateObject("Excel.Application")

'～エクセルのブックを作ったり、セルに書き込みしたり～

obj.Quit
Set obj = Nothing

の様な感じです。
当然、「'～エクセルのブックを作ったり、セルに書き込みしたり～」
の部分が単純な処理の時は正常に閉じるのですが、処理を複雑にしたら
突然いうこと聞かなくなってしまいました。
EXCEL.Applicationのメソッドの中で、VBA上では実行してはいけない
暗黙の了解の様なメソッドってあるんでしょうか？

188 ：名無しさん＠そうだ選挙にいこう：03/05/03 22:09

どっかでExcelがエラー吐いてるのかも
obj.Visible = True
を入れて実行してみたら？

189 ：名無しさん＠そうだ選挙にいこう：03/05/03 23:24

>>188
ありがとうございます。書き忘れましたが、処理自体は正常に実行されて、
意図した通りのExcelシートが作成されます。
（当然、Visible=Trueにしても問題ありません）
ただ、処理終了後にもEXCEL.EXEが消えないため、再度実行をするとエラーが
発生するか、さらにEXCEL.EXEのプロセスが追加されていまいます。

190 ：名無しさん＠そうだ選挙にいこう：03/05/04 19:54

access 2002 を使用しています。

フォームを選択、開いたときに、最初に入力フォームを
表示させる方法はありますか？
あったら教えてください。よろしくお願いします。

191 ：名無しさん＠そうだ選挙にいこう：03/05/04 20:16

>>190
ツール→起動時の設定

192 ：名無しさん＠そうだ選挙にいこう：03/05/04 20:41

>>191
どうもありがとうございます。

193 ：名無しさん＠そうだ選挙にいこう：03/05/04 20:51

>>191
試してみました。どうも説明不足だったようです。

フォームを選択、開いたときに、最初に入力フォームを
表示させる方法はありますか？とは空フォームを最初に
ということだったんです。
（オートナンバー）となっている画面を最初に出す方法が
あれば教えてください。

194 ：名無しさん＠そうだ選挙にいこう：03/05/04 20:59

>>193
フォームのオープンイベントに、
新規レコードの追加のマクロか、VBコードを登録
フォームをデザインモードで開いて
フォームのプロパティのイベントタブの「開く時」に登録
詳細はヘルプで勉強してね

でも、データ閲覧用のフォームでそのまま入力できるよう
にするのはあまりお勧めしないが・・・

入力は非連結フォームを使った方がいいと思うよ。

195 ：名無しさん＠そうだ選挙にいこう：03/05/07 04:45

初歩的なことで申し訳ないですが教えて下さい。
フォーカスのあるコントロールの名前を取得するには、どんなプロパティを使用するのでしょうか？
調べ方が下手なのか未だ見つかりません。

196 ：動画直リン：03/05/07 05:14

>201
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/291/9/51.asp

197 ：名無しさん＠そうだ選挙にいこう：03/05/07 05:30

>>195
ActiveControl

198 ：名無しさん＠そうだ選挙にいこう：03/05/07 06:31

アクセス難しいねぇ。俺みたいな頭悪いのが趣味レベルで、限られた時間と資料で
使うには荷が重いですね。専門用語が多すぎて言葉の意味する事をわかってないっぽい。
ここで誰かが説明してくれてもちゃんと理解する自信すらない。愚痴とでも思ってください。
アクセス2000のWin98SEなんですが、本の購入リストを作ってると思ってください。
で、例えばその中から作家名のみを抽出して作家のリストを作る。これがもうわからない。
さらに、購入リストへ作家名を記入する時、ドロップダウンリストを表示してそこから
選択するようにしたい。抽出ができないので、止むを得ず新たにテーブルを作り、
そこに自分で作家名を記入してリストを作った。そして、ルックアップウィザードで
作家名リストを参照するよう設定してみた。そしたら！購入リストのテーブルから
作家名の項目がいきなりデータもろとも消えてしまい、代わりにIDという項目が勝手に出来た。
もう何が起きてるのかサパーリわからない！…がっくし。
…もしわかる人がいましたらよろしければ素人でもわかるように説明して下さい…

199 ：名無しさん＠そうだ選挙にいこう：03/05/07 07:28

>>198
＞作家名を記入してリストを作った。

そのテーブルの項目はIDと作家名？

200 ：名無しさん＠そうだ選挙にいこう：03/05/07 10:24

蔵書管理系なら探せばフリーでいくらでもありそうだが。
あとは初心者向けテキスト付属のサンプルとか。
一から作るより、出来上がっているものから学んだ方が
わかりやすいし手っ取り早いと思うけど。

まあよければ各テーブルの構造でも教えてくれ。
時間があればわかる範囲で答えるよ。

201 ：名無しさん＠そうだ選挙にいこう：03/05/07 11:34

教えてください！
Windows2000+Office2000です。
AccessのOfficeLinksでExcelに落としたいのですが
この場合なぜかExcel95形式で落とすらしく
行数が20000件以上あって行数あふれが発生してしまいます。
97以降の形式であればOKなのですが・・・

OfficeLinksでエクスポートするExcelの形式(バージョン)って
どこかで変更することが出来るのでしょうか？

202 ：名無しさん＠そうだ選挙にいこう：03/05/07 11:52

>>201
テーブルかクエリーのデータ？

もしそうだったらマクロの出力で選べたはず。
当方XPだからひょっとしたら違うかも。

203 ：名無しさん＠そうだ選挙にいこう：03/05/07 11:59

204 ：201：03/05/07 13:02

>>202
クエリです。
マクロの出力でもやってみたのですが、同じ結果でした。
>>203
一応いろいろ調べたつもりだったのですが、
"Access97"で検索はしていませんでした。
仕様だったのですね(^^;
しかし97ならわかるのですが2000でもまだだめとは・・・
2002ではOfficeLinksでそのままいけるのでしょうか？
とりあえずExcelから引っ張る方法でしのぐつもりです。

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

205 ：名無しさん＠そうだ選挙にいこう：03/05/07 13:25

203>204
MSDNで検索かけたら一発だったが…＜OfficeLinks
TransferSpreadsheet ではダメなのか？

206 ：201：03/05/07 14:30

>>205
MSDNっすか・・・確かに一発でしたね・・・
Googleあたりで検索しているようじゃぁだめですね・・・(ToT

TransferSpreadsheetですが、確かに全データ取り出せるのですが、問題は２点
１．"ファイル"→"エクスポート"でやった時と同じように、
出来上がったExcelのセルの頭にカンマが付くのでその後の処理がうまくいかない。
２．他人(ユーザー)にOfficeLinksレベルの簡単な操作で説明したい。

と思っておりました。でも仕様ですのでその他の方法で考えないと、
だめだとわかりましたから、
分割してエクスポートするなど他の点を工夫してみます。

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

207 ：名無しさん＠そうだ選挙にいこう：03/05/07 15:46

>205
MSDNとGoogleは併用する方が必要な情報を見つけやすいと思う。

ファイル→エクスポートの処理をユーザにさせるのはOK？
OKならエクスポート時に保存ダイアログで「書式の保存」に
チェックを入れればカンマつかないよ。

208 ：201：03/05/07 16:57

>>207
やってみました。
が残念ながら、保存ダイアログで「書式の保存」にすると
保存形式を「Excel97-2000」を指定にもかかわらず、
行数あふれが発生してしまいます。
(間違えたかと思って３回やってみました)
かなり寂しい・・・もう八方塞状態です・・・
やはり分割エクスポートしかないのでしょうか？

あっ、返信の反応が遅いのは１回エクスポートかけるだけで、
１５分ぐらいかかるからです。ご了承ください。

209 ：名無しさん＠そうだ選挙にいこう：03/05/07 17:04

>208
ありゃ、だめですか。申し訳ない。
もしかしたら他にも手はあるのかもしれませんが、
自分の知識では今のところお手上げですね…。
クエリで分割→エクスポートが今のところ最良な手でしょうか。

210 ：198：03/05/07 17:23

>>199
そうですね。ルックアップウィザードで選択可能なフィールドから
作家名のみを選択して設定したんですが…。
>>200
白状しますと、同人誌のデータベースを作ろうとしています。
通常の蔵書管理ではありえないような項目がいっぱいあります。
(テキスト型16項目に日付/時刻型が2項目、値要求や定型入力等は無し)
しかし、やろうとしている事は他のテーブルからの参照を
ドロップダウンリストとして表示するだけなんですが、
条件によってそんなにやり方が変化するもんですかね？

211 ：201：03/05/07 17:24

>>209
いやいや"申し訳ない"だなんて、恐縮です。
自分的には、仕事と言う点を除けば、初めてAccessの
限界を知ったと言う事で、びみょ～な感覚にとらわれています(謎)。

自分でももう少し調べてみます。ありがとうございました。

212 ：名無しさん＠そうだ選挙にいこう：03/05/07 18:40

>>211
てゆうか、Accessで完結すればいいじゃん。
Excelの何の機能が必要なの？貴方がやろうとしてることは
表計算ソフトには向いてないような気がしますがね。。。

213 ：名無しさん＠そうだ選挙にいこう：03/05/07 19:04

>>210
TextStreamで強引にCSVにすれば？
多分、時間がかかるが・・・

214 ：201：03/05/07 19:06

>>212
もともと無理があるようですか・・・
目的としては、Accessを使った事がなく尚且つExcelでlookupやグラフぐらいは作れる
という複数のユーザに一括でデータを供給できればいいかなと思っておりまして、
データの取捨はExcel上でユーザ任せにしたいのです。

なおかつ数ある大小あるクエリの中の二つだけ行数あふれを起こしてしまう
と言う状況なのです。

めんどくさがらず、ユーザごとに分割して配付する事にすれば、
問題ないのですが、要望がそのたびにまちまちでそれが結構面倒なのです。

"ボタンを押してしばらく待てばExcelで開くから後は好きにしてくれ"と
伝えるレベルで済ませたいと思っておりました。

215 ：名無しさん@そうだ選挙にいこう：03/05/07 19:13

>>211
テーブル上で「SELECT テーブル名.作家名 FROM テーブル名 GROUP BY 購入本リスト.作家名;」
を値集合ソースに入れれば作家名が重複しないけど、新規作家名が更新されるのはテーブルを閉じたとき…で
だめだよね

そのテーブルからフォームを作成し「作家名」のテキストボックスをコンボボックスに変更し、値集合ソースは上記のを
入れ、イベントの「フォーカス取得時」に「Me.作家名.Requery」をいれる。

216 ：215：03/05/07 19:15

215のレスは211でなく
>>210でした。すんません

217 ：201：03/05/07 19:20

>>213
CSVはだめなんです。
Excelで開く時に"01234"みたいなコードがあると
数値型に認識されて"1234"化けちゃいますよねぇ
それじゃぁユーザが？？？ってなことになっちゃうんです。

すいません。あとからぞろぞろと制約条件出して・・・

218 ：名無しさん＠そうだ選挙にいこう：03/05/07 19:36

>>217
きちんと""で囲んであれば
文字列で認識されるよ。

ただし、セル内で編集かけると数値になるが。

219 ：名無しさん＠そうだ選挙にいこう：03/05/07 20:00

>>217
ダメもとで勉強しれ！

Excelへデータを出力する方法
ttp://www.accessclub.net/samplefile/samplefile_126.htm

WindowsAPIを用いてファイルを開く方法
ttp://www.accessclub.net/samplefile/samplefile_78.htm

220 ：名無しさん＠そうだ選挙にいこう：03/05/07 22:44

VBAでレコードセット作れば
クエリって使わなくても良いんですか

221 ：名無しさん＠そうだ選挙にいこう：03/05/07 22:57

>>220
まったく、別の概念
クエリ、クエリ式を使ってもレコードセットはできる
レコードセットとは、その名のとおり
レコードのセットだ。

222 ：名無しさん＠そうだ選挙にいこう：03/05/08 00:16

>214
なんつーか、ユーザがある程度Excelさわれるっていっても
2万オーバーのデータから必要なデータを取り出すのって
むちゃむちゃ大変な作業じゃないか？

DBの構造がわからないから可能かどうかわからないけど
自分ならデータ抽出用のフォーム作る。
ユーザに抽出条件入れさせて出力するやつ。
それなりに労力かかるだろうけど、工夫すれば結構使いやすい
ものが作れると思うんだけどな。

223 ：名無しさん＠そうだ選挙にいこう：03/05/08 05:29

>>222同意
しかしながら、相手が必ずしもAccessを持っていない
てなことではあるまいか
Excel持ってない人は殆どいないと思うけど
個人でAccess持ってる人って、その10分の1もいないと思う。
そりゃ勤め人なら会社のPCには入ってるかもしれんけど、
何しろデータの内容が・・・

224 ：198：03/05/08 05:48

>>215
ありがとう。正直、意味がさっぱりわからんけど、
勉強してみます。

225 ：201：03/05/08 09:40

皆さんお世話になります。
>>218
確認しましたが、""で囲んであっても数値のみの場合は数値型になってしまいます。
>>219
AccessClubですか・・・
上のリンクは一応確認済みなのですが・・・
下のリンクは・・・難しそうですね、勉強してみます。
>>222,223
会社配付の標準PCにはExcel･Word(ちなみにPPも)のみ導入されており、
私を含めて一部のマシンにAccessが入っていると言う状況です。
また、ユーザレベルですがExcelに関しては一応フィルタをかけたりlookupかけたり、
等々の作業はお手の物だけど、Accessはさわった事がないという感じの人々です。

とりあえず問題の２クエリに関しては分割供給と言う形で
勘弁してもらう方向で了承をもらうつもりです。

226 ：名無しさん＠そうだ選挙にいこう：03/05/08 10:16

>>224
>>215程度の内容がわからないのなら>>200の言う通り
まず蔵書管理のサンプル等手に入れてDBについて勉強、
それから自分の思うようにカスタマイズするほうがいいと思う。

>>225
お疲れさん。今回はともかくとして、次に同じような状況になった時に
どうするのか考えておいたほうがいいかもね。
データが必要になった時に225が絶対例外なくいるなら
その都度対応ってのでもいいかもしれんが。

227 ：201：03/05/08 17:20

226>>
的確なるアドバイスありがとうございます。おっしゃるとおりだと思います。
また、私がずっといるわけではないです。
いるとは限らない、いやもっと言うと何時までもわがまま相談役はいやだ！
つまり、手を離したいのです・・・
私のようなレベルでなんですが、もうちょっと大きな仕事がしたい・・・

最後に、Access2002でも同じ事が起こるのか、またその次のAccess(2003?)でもまだだめなのか？
と言う疑問が残りますが・・・この点おわかりの(2002の)方がいたら是非お願いしたいです。

あとはいただいたアドバイスのうちの
>>219さんの下のリンクや>>222さんのフォーム作戦とか、時間があったら検討してみます。
皆さんどうもありがとうございました。それでは・・・

228 ：名無しさん＠そうだ選挙にいこう：03/05/09 10:14

>>227
Accessでは何もしないで、Excel側でインポートするマクロを作るのが確実

229 ：名無しさん＠そうだ選挙にいこう：03/05/12 17:56

フォームの下にあるレコード移動の矢印を表示しないようにするやり方ってどうやるんですか？
どなたか教えてください

230 ：名無しさん＠そうだ選挙にいこう：03/05/12 18:17

>>229
フォームをデザインモードで開いて
プロパティ書式タブの
移動ボタンを「いいえ」

231 ：名無しさん＠そうだ選挙にいこう：03/05/12 18:17

とりあえずプロパティの種類ぐらいは把握しろ

232 ：229：03/05/12 19:03

あ、ほんとだ。
どうもありがとうございました。
フォームのプロパティの出し方が間違ってました
フォーム上で右クリックじゃぁダメだったんですね

233 ：bloom：03/05/12 19:14

234 ：名無しさん＠そうだ選挙にいこう：03/05/13 12:44

質問です。
　Accessで数値データとして、「717」を「000717」のように表示
させることはできるでしょうか？

235 ：名無しさん@そうだ選挙にいこう：03/05/13 12:56

>>234
テーブルの当該フィールドの"書式"を000000とする

236 ：名無しさん＠そうだ選挙にいこう：03/05/13 13:05

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

237 ：わか：03/05/13 13:05

人生はこれからです。「クーポン屋」は貴方のお小遣いを
今、以上にします。ただし営業が上手でなければ、稼げません。
何もしなかったら、０円であります。私が教えた通りにやってください。
営業が得意な方は、年商１０００万円稼げます。
私と仲良くビジネスをしませんか？
http://www.c-gmf.com/index1.htm
http://www.c-gmf.com/index2.htm
http://www.c-gmf.com/index3.htm
http://www.c-gmf.com/mail.htm
クーポン屋でございます。貴方のＨＰにバナーを貼るだけで
稼げます。本当にお金が欲しい方は、相談にのります。キャッシュバック制度！

238 ：名無しさん＠そうだ選挙にいこう：03/05/13 13:21

質問します。
フォーム上でレコードを6件登録入力した時点で、
フォーカスが新規レコード入力に移らずに、
自動的に別のフォームを開いたり、フォームを閉じたりする方法を教えて下さい。

239 ：名無しさん@そうだ選挙にいこう：03/05/13 13:46

>>238
そのフォームのレコードレードソースを入力用のテーブル(一時テーブル)みたいなのを
作ってDcountでやってみたら？

6件目での最後のフィールドにDcountを使って条件分岐させて
別のフォームを開くようにして、別のフォームから戻る(を閉じる)ときに
入力用のテーブル(一時テーブル)データを本テーブルに格納のし、一時テーブルのデータは破棄
ってのはどう？

240 ：名無しさん＠そうだ選挙にいこう：03/05/13 14:11

>>239
仮のテーブルでレコード数をカウントして条件分岐させればいいんですね
ありがとうございました

241 ：名無しさん＠そうだ選挙にいこう：03/05/13 21:39

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

まだほんの少ししか触ってないのですが、
『定型入力』をウィザードを使用して設定する際の

時刻（S）　と　時刻（時:分) の違いがよくわかりません。

どなたか教えてください。

242 ：名無しさん＠そうだ選挙にいこう：03/05/13 21:41

>>241
>まだほんの少ししか触ってないのですが

最後までやってみて、それでもわからなかったら
もう一度おいで。

243 ：名無しさん＠そうだ選挙にいこう：03/05/14 20:44

お願いします。
5つのフィールド1,2,3,4,5にそれぞれA、B、A、B、Bというデータが格納されているとします。
これからレコード単位でAのみのを抽出しその数をカウントしたいのです。
この例だと2です。
これをフォームの非連結テキストボックスに表示したいのですが、どんな関数を使えばよいのか教えてください。

244 ：名無しさん＠そうだ選挙にいこう：03/05/14 20:54

>>243
仕様がわからん
その書き込みで他人が理解できると思っているの？

245 ：名無しさん＠そうだ選挙にいこう：03/05/14 20:55

ACCESS 2000って、秋葉原とか行けばまだ買えますか？
勉強したいだけだから2002はちょっともったいないかな～と。

246 ：名無しさん＠そうだ選挙にいこう：03/05/14 21:17

>>245
私は買ってしまいますた。

247 ：243：03/05/14 21:19

>244
すいません。
訂正します。

　　　　　　フィールド１　フィールド２　フィールド３　フィールド４　フィールド５
レコード１　　A　　　　　　　B　　　　　　　A　　　　　　B　　　　　　　B
レコード２　　B　　　　　　　A　　　　　　　B　　　　　　A　　　　　　　A

こんな感じでテキスト型の各フィールドにデータが格納されているのです。
これからレコードごとにAのみを抽出し、その数をカウントしたいのです。
レコード１は　２こ
レコード２は　３こ　てな具合です。
このデータをフォームのテキストボックスに表示したいのです。

248 ：243：03/05/14 22:53

ユーザー定義関数を作成して、とりあえず解決しました。
が、もう少しスマートな方法を模索中です。

249 ：名無しさん＠そうだ選挙にいこう：03/05/15 00:47

ごめん、いきなりで悪いんだけどAccessVBAの用語でセクションと
コントロールの意味だれか教えて。

250 ：_：03/05/15 00:49

251 ：名無しさん＠そうだ選挙にいこう：03/05/15 10:04

>>249
えらく、いきなりだなｗ

コントロール：フォームやレポート上に配置される、テキストボックス、コンボボックス、ラベル等の要素の総称（集合）
セクション：フォームやレポート上の区分けされた位置。例えばヘッダやフッタ。

詳しく知りたければ
controls sectionでヘルプを検索

252 ：名無しさん＠そうだ選挙にいこう：03/05/15 10:06

>>248
こちらの方がいいかも
http://pc2.2ch.net/test/read.cgi/bsoft/1051630268/l50

253 ：名無しさん＠そうだ選挙にいこう：03/05/15 10:21

>>248
こんなクエリはどうかな

SELECT IIf([フィールド1]="A",1,0)+IIf([フィールド2]="A",1,0)+IIf([フィールド3]="A",1,0)+IIf([フィールド4]="A",1,0)+IIf([フィールド5]="A",1,0) AS Aをカウント
FROM テーブル1;

254 ：名無しさん＠そうだ選挙にいこう：03/05/15 13:28

テーブルのコントロールの指定とかの構文で使う
！とドットの使い方がイマイチよく分かりません
分かりやすい説明をお願いします

255 ：名無しさん＠そうだ選挙にいこう：03/05/15 14:10

魔法使いの開発工房でも行けば？

256 ：248：03/05/15 15:54

>253
なるほど！
勉強になります。

Function Test(Ta As String) As Integer
If Ta = "A" Then
　Test = 1
Else
　Test = 0
End If

End Function

こんな感じの関数作ってテキストボックスで

Test([フィールド1])+Test([フィールド2])+Test([フィールド3])+Test([フィールド4])+Test([フィールド5])

集計してました。

やってることは同じですが、ぜんぜんよいですね。
ありがとうございます。

257 ：名無しさん＠そうだ選挙にいこう：03/05/17 10:02

コンボボックスへのFontUnderlineプロパティの使い方を教えてください。
Me.ActiveControl.FontUnderline = True
じゃダメみたいです。

テキストボックスなら、大丈夫なんですけどねえ。

258 ：＿：03/05/17 10:05

259 ：名無しさん＠そうだ選挙にいこう：03/05/17 10:23

257です。
条件付き書式でできちゃうんですね。
お騒がせしました。

260 ：名無しさん＠そうだ選挙にいこう：03/05/17 10:50

弩素人丸出しの質問ですみません

スタッフコード(数値型)　年　月　日　A(数値)　B(数値)　C(数値)
というレコード構成で、あるスタッフの一ヶ月分のA、B、Cのそれぞれの合計を取って
ﾃｷﾄｰな変数に格納したいんですがどのようにVBAで記述すればいいでしょうか?

261 ：bloom：03/05/17 11:12

262 ：260：03/05/17 13:38

集計クエリ使えばいいんすね。事故解決しますた。
てかこれぐらい調べなきゃダメっすね

263 ：260：03/05/17 14:38

とかいいつつクエリが良くわかんないっす（；´Д｀）
絞り込み自体はスタッフコード、年、月で絞ればいいのは分かるんでつが
絞った後のA,B,Cそれぞれの合計をどう出せばいいかが……

264 ：名無しさん＠そうだ選挙にいこう：03/05/18 15:49

条件はそのままで、単に集計させればいいじゃん

265 ：名無しさん＠そうだ選挙にいこう：03/05/18 20:18

顧客DBで質問があります。
使用法のひとつに販売状況を顧客DBにリンクさせて取引状況を把握したいのですが、
この場合顧客DBのレコードのユニークキーはどのような項目を設けておけばよいのでしょうか？
主なデータは8割が法人なのですが、例えば法人名だとA会社の例で
１．株式会社A商事、２．（株）A商事。
入力によってダブっちゃいますよね。
電話番号だと取引した部署によって番号が違う場合、またこれもダブる可能性が
ありますし。
販売状況のデータは1月に1000件程度で7割が新規、3割が再取引のデータです。

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

266 ：動画直リン：03/05/18 21:12

267 ：名無しさん＠そうだ選挙にいこう：03/05/18 21:24

>>265
顧客コードを振るのが普通だと思うが、
新規が多いところを見ると、１回だけのお付き合いが多いのかな。
これだと、コード管理が大変なのは分かるが・・・

まあ、きっちりやりたいんなら、顧客マスタを作るんだろうね。
お得意さんだけでも振っておけば、ある程度の管理は出来るんじゃない？

あと、株式会社A商事と（株）A商事みたいなのは
マニュアル作って入力方法を統一した方がいいと思うよ。
まったく同じ社名があることもあるので、ユニークにはならないと思うが
統一してある方がましでしょ。

268 ：名無しさん@そうだ選挙にいこう：03/05/19 08:47

>>265
法人格については別マスタって手もある
コード：説明：省略：フル
1：前㈱：㈱：株式会社　
2：後㈱：㈱：株式会社
3：前㈲：㈲：有限会社
4：・・・
こうしておけば
社会福祉法人だ財団法人だってのも登録しとけばいいしね

269 ：素人：03/05/19 21:12

共通モジュールで
Global SQ As QueryDef ' 更新クエリー
Set UQ = CrntDB.QueryDefs("更新クエリー")
と宣言して
検索フォームで閉じる時に
Private Sub Form_Unload(Cancel As Integer)
Dim MSQL As String
MSQL = "Update 端末利用 Set 出力=False ;"

UQ.SQL = MSQL
UQ.Execute

End Sub
ってやったらエラーがでる。誰が教えて！！

270 ：素人：03/05/19 21:15

あっ、更新クエリーとテーブルを参照検索する検索クエリーもちゃんと
用意してあるんだけど

271 ：名無しさん＠そうだ選挙にいこう：03/05/19 21:20

>>269
とりあえず、
Crnt→Current

まぁ、他に問題があるかもしれないので
せめて、エラー内容くらい、
出来れば、ACCESSのバージョンくらい貼ってくれ・・

あと、
Set UQ = CrntDB.QueryDefs("更新クエリー") を宣言とは言わない・・

272 ：名無しさん＠そうだ選挙にいこう：03/05/19 21:24

>>267
どうもっす。実際は新規といっても一度買ってもらってから、
再度購入までのスパンが数年あるのでまったくの新規というわけでもないです。
そこで買い替えの時期を判断して営業かけたいなと思いまして。
やっぱりデータ入力前にしっかりこの顧客が登録されているかをどうかを
判断する検索機能を強化するのがよいのかなあ。
やっぱりこの辺は最終的には運用の仕方が左右するんですね。
>>268
一応今のところkやzなどの法人コードを割り振ろうと考えています。

273 ：素人：03/05/19 21:41

>>271
あっすいません。バージョンは２０００です。
いま致命的な間違いに気づきました。
今修正してます。
前までのエラー内容はオブジェクト変数またはwithブロック変数が
指定されていません、です。

274 ：素人：03/05/19 21:48

ごめん変な質問して初歩的なミスしてしまった。
Global CrntDB As Database
Global UQ As QueryDef

Set CrntDB = CurrentDb()
Set UQ = CrntDB.QueryDefs("更新クエリー")
だった。
>>271さんありがとう！！

275 ：名無しさん＠そうだ選挙にいこう：03/05/19 22:02

>>274
コードのうち間違いは、一番最初に疑うべきところだから、
慌てて質問する前に、ステップインで検証しながら、
じっくり見直したほうがいいよ。

276 ：素人：03/05/19 22:13

>>274さん
そうします‥反省
あとくだらないこと聞きたいんだけど
ADOとDAOはどっちが使い勝手がいいかな？
WEBは使わないとしてEXCEL関数持ってきてセルにフィールド張る
場合とかも考慮して
なんか分かりにくい質問ですません

277 ：サンプルです：03/05/19 22:34

★大人になってから★
http://jbbs.shitaraba.com/travel/832/kenbetu.html

278 ：名無しさん＠そうだ選挙にいこう：03/05/19 22:45

>>276
これから勉強する＋97以上のバージョンで作業する
ということであればDAOは知識としてそういうものがあるということ
だけ知ってれば十分。

97→2000への移行とかって作業が発生したときに
必要なことだけ調べるというのが、混乱少なくてお勧め。
おれは、それで無駄な時間使わせられたという思いが・・・・（泣

基本的にDOAで実現できたことについては
ADOで代替出来るよ。

Webで調べるときもDOA関連の情報は除外して調べてるし。

279 ：素人：03/05/19 22:59

>>278
ありが！やっぱり２０００からのVBAって大変かも。
そっか色々本あさって調べてて
ADOのほうが用途あるなとは思ってたんだ。
ありがとーなるべくADOを使う事にするよ。
今一番やばいのはDAOとADOをごっちゃに使っちゃうんだよね

280 ：bloom：03/05/19 23:12

281 ：名無しさん＠そうだ選挙にいこう：03/05/19 23:22

>>279
>DAOとADOをごっちゃに

それが一番の地獄道・・・

282 ：名無しさん＠そうだ選挙にいこう：03/05/20 00:10

こ　　　の　　　人　　　変　　　態　　　で　　　す　　　。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

283 ：名無しさん＠そうだ選挙にいこう：03/05/20 08:55

会社の先輩、Accessの達人でVBAでバリバリシステム組んでるんだけど
未だにAccessがクライアント/サーバ型のRDBMSだと思いこんでる...
だから、「サーバは性能良くしないとね」なんて言ってます。
単なるファイルサーバなのに...

284 ：動画直リン：03/05/20 09:12

285 ：名無しさん＠そうだ選挙にいこう：03/05/20 10:09

>>283
MSDE使ってるんじゃないのか？

286 ：283：03/05/20 10:28

>>283
純粋MDBファイルで作ったDBなんですわ。
トランザクション処理もバッチリ実装して、
複数クライアントから使用してます。

けっこうこういう勘違いする人、多くないですか？

287 ：名無しさん＠そうだ選挙にいこう：03/05/20 11:38

初歩的な質問ですみません。
最初からのもの見てまして
54さんのサンプル　テーブルを開きますと
矢印　+　と　表示されていますが
この　+　は　何を意味しているのでしょうか　教えて下さい。

288 ：名無しさん＠そうだ選挙にいこう：03/05/20 11:55

>>287
リレーションシップが設定されているということ。
＋をクリックすると、リレーション設定先のデータが見れる。
設定はツール→リレーションシップで確認して
あとはヘルプを・・・

289 ：名無しさん＠そうだ選挙にいこう：03/05/20 12:16

287です
早速のご返事ありがとうございました。

290 ：動画直リン：03/05/20 13:12

291 ：名無しさん＠そうだ選挙にいこう：03/05/20 13:25

質問なのですがコンボボックスでAチーム、Bチームと選択して
レポートで表示させるにはどういう風にすればよろしいでしょうか？
今の段階では1チーム、2チームと表示されています。
=IIf([チーム]=1,"Aチーム","")orIf([チーム]=2,"Bチーム","")だとエラーが帰ってきて
しまいます。よろしくお願いします。

292 ：名無しさん@そうだ選挙にいこう：03/05/20 13:36

>>291
1と2しかないのなら
=IIf([チーム]=1,"Aチーム","Bチーム")
でよろしいのではないでしょうか？

293 ：名無しさん＠そうだ選挙にいこう：03/05/20 13:47

>>292
ありがとうございます。おいおい3チームにしていこうと思うのですがそのときも
=IIf([チーム]=1,"Aチーム","")orIf([チーム]=2,"Bチーム","")orIf([チーム]=3,"Cチーム","")
という風にしていけばよろしいでしょうか？あーACCESSの本買った方がいいのかな(><)

294 ：名無しさん@そうだ選挙にいこう：03/05/20 14:17

>>293
？意味分かってるの？
=IIf([チーム]=1,"Aチーム","Aチーム")→チームが「1」だったら「Aチーム」、それ以外だったら「Bチーム」ってことだよ。
3チームだったら
=IIf([チーム]=1,"Aチーム",IIf([チーム]=2,"Bチーム","Cチーム")
でしょう？

295 ：名無しさん@そうだ選挙にいこう：03/05/20 14:18

>>294
> =IIf([チーム]=1,"Aチーム",IIf([チーム]=2,"Bチーム","Cチーム")
かっこが足りなかった…
=IIf([チーム]=1,"Aチーム",IIf([チーム]=2,"Bチーム","Cチーム"))

296 ：名無しさん＠そうだ選挙にいこう：03/05/20 15:26

>>293-295
目がちかちかする・・w

297 ：山崎渉：03/05/22 01:48

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

298 ：名無しさん＠そうだ選挙にいこう：03/05/22 10:14

>>283 >>286
こういう人は､「DBが破壊して修復不可能になった」
くらいのショックがないと､いくらこちらがC/Sの説明をしても
納得しないと思うよ｡

こういう人結構多いと思う｡

299 ：名無しさん＠そうだ選挙にいこう：03/05/22 15:15

Webのメールフォームから送信されたメールを、accessのテーブルに自動的に
保存する方法はないでしょうか。
まじで初心者なんで、よろしくお願いします。

300 ：名無しさん＠そうだ選挙にいこう：03/05/22 18:42

>>299
Vectorでみかけたが。。
Accessでメーラ作ってる人がいるようだから
必要なら問い合わせしてみたら？

301 ：　：03/05/23 09:37

>>299
BASP21.DLLでがんばれ
http://www.hi-ho.ne.jp/babaq/basp21.html

>>300
ソースを販売している方の宣伝ですか？

302 ：名無しさん＠そうだ選挙にいこう：03/05/23 10:17

むしろ301のほうが宣伝っぽい……

303 ：名無しさん＠そうだ選挙にいこう：03/05/23 11:42

>>299
宣伝と間違われるのも癪なので、ちゃんと考えてみた。

結論は「Microsoft Outlookを使え」
OutlookのVBAで新規メール受信時にデータベースに書き込む処理を行うのだ。

以下は受信メールを自動仕訳で注文書フォルダに保存する環境での
Outlook用VBAです。Debug.Prinになっている行をデータベースに
書き込む処理に変更してください。

Private Sub Application_NewMail()
Dim myItem As Outlook.MailItem ' MailItemオブジェクト
Dim myMailFolder As Outlook.MAPIFolder ' MAPIFolderオブジェクト
Dim myFolder As Outlook.MAPIFolder ' MAPIFolderオブジェクト
Dim myNameSpace As Outlook.NameSpace ' NameSpaceオブジェクト
Dim myReply As Object ' MailItem.Replyオブジェクト
Dim i As Long
' NameSpaceオブジェクトの取得
Set myNameSpace = Application.GetNamespace("MAPI")
' 「受信トレイ」のオブジェクトを取得
Set myMailFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
' 「注文書」フォルダのオブジェクトを取得
Set myFolder = myMailFolder.Folders("注文書")
' 「注文書」フォルダ内のすべてのアイテム数ループ

304 ：301：03/05/23 11:42

続き
For i = 1 To myFolder.Items.Count
' MailItemオブジェクトを取得
Set myItem = myFolder.Items(i)
' 未読のメールのみに処理を行なう
If myItem.UnRead = True Then
Debug.Print myItem.ReceivedTime ' 受信日時
Debug.Print myItem.SenderName ' 送信者名
Set myReply = myItem.Reply ' 返信用アドレスを取得するためのダミー
Debug.Print myReply.Recipients.Item(1).Address '返信用アドレス
Debug.Print myItem.Subject ' 件名
Debug.Print myItem.Body ' 本文
' メッセージを既読に設定
myItem.UnRead = False
End If
Next i
End Sub

以前にどこかで拾ったソースを手直して作りました。

305 ：301：03/05/23 11:56

既読メールが大量になると遅くなってしまうので、
処理済のメールは他のフォルダに移動する処理を追加してください。

306 ：名無しさん＠そうだ選挙にいこう：03/05/23 12:43

>301
>BASP21.DLLでがんばれ
とか逝っといて
>結論は「Microsoft Outlookを使え」
これじゃ、わけわからんのだが。

307 ：おやぶんのこぶん：03/05/23 12:57

質問です。
cnt=0
sqls = "SELECT StrConv([no],8) AS zips FROM " & tbl
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sqls, dbOpenDynaset)
cnt = rst.RecordCount
SysCmd acSysCmdInitMeter, "番号データを正規化してます......", cnt

etc

Recordcountの値がどーしても cnt=1 になってしまうのですがなぜですか？
テーブルデータは約20000件有ります。

308 ：おやぶんのこぶん：03/05/23 12:58

↑↑↑↑↑↑↑↑↑↑↑↑↑↑
すみません
Access97　Windows98SEです

309 ：名無しさん＠そうだ選挙にいこう：03/05/23 13:04

>>306
どっちでもいいじゃん

310 ：名無しさん＠そうだ選挙にいこう：03/05/23 13:32

>>307
DAOのレコードセットは開いただけでは正確なRecordcountを取得できないので
rst.MoveLastしてから取得してください。

代案
・集計するSQLを発行
・DCount関数
・ADOにして適切なカーソルを指定してRecordcountプロパティを参照

311 ：名無しさん＠そうだ選挙にいこう：03/05/23 13:48

>>306
Microsoft Outlookを勧める理由は
・当たり前だがメールの管理を簡単に行える
・コーディング量が少ない
・BASP21.DLLの宣伝と思われるのが嫌だった

312 ：名無しさん＠そうだ選挙にいこう：03/05/23 14:05

>>311
うーむ、OutLookの宣伝はよいのか（笑

313 ：おやぶんのこぶん：03/05/23 14:51

>>310
ありがとーございました。
ret.movelastにてrecordcount取得できました！

314 ：名無しさん＠そうだ選挙にいこう：03/05/23 19:51

質問があります｡
ACCESS2000のオートページを使って
データベースをインターネットに上げてみたんですが、
端末によってそのデータベースが見えたり見えなかったりするんです｡
もちろんそれらすべての端末には、ie5以上のブラウザと
office webコンポーネントは入っています｡
一体何が原因で見れないんでしょうか？

315 ：あぼーん：あぼーん

あぼーん

316 ：314：03/05/23 21:50

追記。
osに関わらず（といっても、98とxpでしか確認してませんが）、
office xpの入っている端末ではきちんと見る事ができます。
しかし、office 2000の入った端末では
（データベースを2000で作ったにもかかわらず）
見る事ができない場合があります。

317 ：名無しさん＠そうだ選挙にいこう：03/05/23 22:37

>>301
どうもありがとうございました。
ちょっと、がんばってみます。

318 ：名無しさん＠そうだ選挙にいこう：03/05/24 14:46

どなたか教えて下さい。
フォームを印刷したいのですが
テキストＡ　テキストＢ　があります　コマンドボタンで　印刷をかけます
その時　テキストＢを印刷させたくない場合があります
チェックボックスで　チェックが　あれば　Ｂは印刷させないようにするには
どのようにしたらよろしいでしょうか
マクロで教えてください。　よろしくお願いします

319 ：名無しさん＠そうだ選挙にいこう：03/05/24 17:59

マクロでは無理だろ。意味無いし。

イベントプロシジャを書くなら、いくらでも方法はある。Visibleをfalseにするとか。

つーかフォームを印刷するなよ。

320 ：名無しさん＠そうだ選挙にいこう：03/05/24 19:27

>>319
フォームを印刷するなは、まあ同意。
マクロでは無理は不同意。

321 ：名無しさん＠そうだ選挙にいこう：03/05/24 19:56

なるほど。確かに無理ではないな。

つかマクロのアクションなんていちいち覚えてなかったよ。

どうせ使わないし。

322 ：名無しさん＠そうだ選挙にいこう：03/05/25 09:30

>>319 >>320 >>321
318です。　ありがとうございました。
おそくなりました。　判りました。

323 ：名無しさん＠そうだ選挙にいこう：03/05/25 17:48

教えて君ですいません･･･
Access2000のクエリーで抽出したデータを、Word2000で
差込印刷したいんですが、テキストデータは問題なく表示されるんですけど
画像データが取得できません。
どうにかする方法をご教授くださいませ

324 ：名無しさん＠そうだ選挙にいこう：03/05/25 20:30

いまクリップボードの中にどんな文字が入っているか、または空っぽか、
VBAで判別させる方法ってありますか?

325 ：名無しさん＠そうだ選挙にいこう：03/05/25 21:14

>>324
API使わないと無理じゃないか？
ま、あくまで勘だが・・w

326 ：324：03/05/25 21:34

ああ、ごめんなさい
ほぼ自己解決しました。
問題は「クリップボードの中が空っぽのとき、またはテキストボックスに
貼り付けられないものが入っているとき、貼り付けプロシージャが実行
されたらどういう措置をとるか」
ということだったので。
これ、実行すると両方ともあっさりエラーが出るんですね。
いまやってみて気づきました。
これなら、On Error Gotoで何とかいけます。

327 ：名無しさん＠そうだ選挙にいこう：03/05/27 11:59

教えて下さい。
ACCESSデータを携帯電話へ簡単にメールする方法有りませんか

328 ：名無しさん＠そうだ選挙にいこう：03/05/27 12:36

>>327
CSVで出して、CCで送るだけだろ？

329 ：名無しさん＠そうだ選挙にいこう：03/05/27 18:57

フォームでレコードを修正するとレコードセレクタが鉛筆の表示に変わりますよね。
この状態を(カレントレコードを編集中であること)をVBAで検出したいのです。
どのような方法がありますか

330 ：bloom：03/05/27 19:14

http://homepage.mac.com/hiroyuki43/hankaku/hankaku08.html

331 ：_：03/05/27 19:40

332 ：名無しさん＠そうだ選挙にいこう：03/05/28 12:35

>>329
フォームのDirtyプロパティを参照する。
Dirtyイベントと混同しないように。

333 ：名無しさん＠そうだ選挙にいこう：03/05/28 12:51

328さん　327です。遅くなりすみません。
出かけていたものすから、
>CSVで出して、CCで送るだけだろ
が　具体的にわからないのです　教えて下さい。

334 ：名無しさん＠そうだ選挙にいこう：03/05/28 14:37

>333
検索すればいくらでも情報あるよ。

335 ：名無しさん＠そうだ選挙にいこう：03/05/28 15:27

333です。　判りました。　検索します。

336 ：名無しさん＠そうだ選挙にいこう：03/05/28 15:56

>>332
ありがとうございます。
Me.Dirtyを参照でOkでした。

337 ：山崎渉：03/05/28 16:32

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

338 ：名無しさん＠そうだ選挙にいこう：03/05/28 17:02

ほしゅ

339 ：名無しさん＠そうだ選挙にいこう：03/05/29 00:31

最近からaccessを触り始めたものです。
ボウリングのスコア管理に使っているのですが
スコアを管理するテーブルに
1G 　2G 3G
100　200 300
と入力してクエリで合計を演算するようにやりたいのですが
普通に３Gの点数が入っているときは正常に「600」と合計が出るのですが
スコアの入っていない場合（例えば１Gが未入力の状態）は演算も出来ずに合計が空白のままなのです；＿；
これは、なにかしら数字（0とか）いれないといけないのでしょうか？

340 ：名無しさん＠そうだ選挙にいこう：03/05/29 01:07

>>339
Nullは計算できないと言うことで・・・・・
0入れるのが手っ取り早いが。

テーブルからクエリ生成して、isnullなら0を返す
式シールドを作っておいて、そちらで計算するとか。

341 ：340：03/05/29 01:10

んー酔ってるかな・・・・・
フィールドの値要求をはいにして、
規定値を0にすれば問題ないじゃん・・・・鬱

342 ：399：03/05/29 02:43

>340>341
さっそくのレスありがとうございます
試してみますねー＾＾

343 ：399：03/05/29 02:53

やってみたのですが、それだと値を入力しない場合はaccessに「値を入れろ」と怒られます；＿；
最終的にはテーブルで
1G 2G 3G トータル　ゲーム数　アベレージ
100 200 300　600 3 ......

と、点数が入っているところをカウントして自動的にゲーム数にゲーム数がカウントできて
それからアベレージを計算したい考えだったのです。
当然、投げて「0点」もあれば投げないで「0点」の可能性もあるので
投げない場合は未入力の方が都合がいいと思ったのです。

ごめんなさい、質問攻めで・・・・
とりあえず、excel的に考えてゲーム数はカウントを使って未入力はカウントしなければ
ゲーム数が出ると思ったのですが・・・・
トータルを出すときに未入力だと演算できないので暗礁に乗り上げていたわけです；＿；

344 ：名無しさん＠そうだ選挙にいこう：03/05/29 08:52

Nullというのはデータ処理上、「値がワカラナイのは計算しちゃまずいじゃん」
という性質のものなので、Nullは計算対象加えないなら、クエリーかなんかで
Nullを除外したものを集計する必要がある訳です。

計算：５＋１０＝１５（普通）
５＋[ワカラナイ]＝[ワカラナイ]（だってワカラナイが１かもしれないし１０００かもしれないし）
５＋Nz([ワカラナイ])＝５（ワカラナイのはとりあえずゼロでいいじゃん）
※Nz()は関数な訳だが

345 ：名無しさん＠そうだ選挙にいこう：03/05/29 23:11

>>324

VBA を使用して、クリップボードから情報を取り出す方法を紹介します。
http://support.microsoft.com/default.aspx?scid=kb;ja;JP138910

VBA を使用して、クリップボードへ情報をコピーする方法を紹介します。
http://support.microsoft.com/default.aspx?scid=kb;ja;JP138909

346 ：名無しさん＠そうだ選挙にいこう：03/05/29 23:13

男の子も女の子もどうぞ！！！
http://homepage3.nifty.com/coco-nut/

347 ：直リン：03/05/29 23:14

http://homepage.mac.com/yuuka20/

348 ：_：03/05/29 23:37

http://homepage.mac.com/hiroyuki43/2ch.html

349 ：399：03/05/30 04:11

>>344
ありがとうございました、試してみたところ見事成功でした＾＾
クエリ内でNz（[1G],0)+.....で未入力のところは０とみなして計算してますよ！
これならcountも問題なく出来ます

350 ：あぼーん：03/05/30 04:23

http://homepage.mac.com/hiroyuki43/2ch.html

351 ：399：03/05/30 22:52

こんばんわ、今度はクエリ内で平均点を出そうとがんばってるのですが
平均点自体はでるのですが小数点以下は切り捨てにしたいために
フィールドのプロパティで小数点以下の桁数を「０」にしても
小数点以下は表示されてしまいます。
rounddown関数を使おうとしたら未定義関数ですと怒られました;_;
どのようにしたらクエリ内で小数点以下を表示させないようにできるのでしょうか？

352 ：名無しさん＠そうだ選挙にいこう：03/05/30 23:05

>>351
まず、そのクエリのSQLを書き込めよ

353 ：399：03/05/30 23:13

>>351
SQLは
SELECT [会員マスター].[会員No], [会員マスター].[氏名], [スコアマスター].[１G], [スコアマスター].[２G],
[スコアマスター].[３G], [スコアマスター].[４G], nz([1G],0)+nz([2G],0)+nz([3G],0)+nz([4G],0) AS トータル,
Count([１G])+Count([２G])+Count([３G])+Count([４G]) AS ゲーム数, [トータル]/[ゲーム数] AS アベレージ
FROM スコアマスター INNER JOIN 会員マスター ON [スコアマスター].[会員No]=[会員マスター].[会員No]
GROUP BY [会員マスター].[会員No], [会員マスター].[氏名], [スコアマスター].[１G], [スコアマスター].[２G],
[スコアマスター].[３G], [スコアマスター].[４G], nz([1G],0)+nz([2G],0)+nz([3G],0)+nz([4G],0);
以上でいいのでしょうか？

354 ：名無しさん＠そうだ選挙にいこう：03/05/30 23:17

http://life.fam.cx/

355 ：名無しさん＠そうだ選挙にいこう：03/05/30 23:25

すみません、悩んでわからなくなったので質問させてください。

フォーム上にレポートを印刷するためのボタンをつけました。
レポートは、フォームに入力されたテーブルをレポートに吐いて印刷するといった感じです。

そこで、問題なのはフォーム上に表示されているデータのみを印刷したいのです。
あと印刷はフォームから制御したいのですが、これってできますでしょうか？
ボタンに張っているＶＢＡは
Docmd.OpenReport stDocName,　acNormal
を使っています。
ヘルプにはDocmd.PrintOut
を使うとできるようなことが書いてありました。
ただ、この使い方がよくわからないです。
ほかにいい知恵がございましたら教えてもらえないでしょうか？m(_ _)m

356 ：356：03/05/30 23:27

すみません、書き忘れました。
今現状で印刷を押すとデータが登録件数分すべて印刷されてしまいます(>_<)
よろしくお願いします。

357 ：名無しさん＠そうだ選挙にいこう：03/05/31 00:09

>>356
非連結のレポートを作って、フォーム上のデータを無理やり
テキストボックスに代入して印刷ということはよくやるが、

これがイヤなら、レポートの参照元をクエリにして、
フォームで表示されているデータだけが、抽出されるようにクエリ条件を変えるのかな。

358 ：356：03/05/31 00:34

>>357
ありがとうございます。やってみます。

359 ：名無しさん＠そうだ選挙にいこう：03/05/31 03:56

ACCESS2000を使っています。

画面が800*600のへぼいノートで使用中なので、なるべくフォームの表示面積を広く
したいのです。
普通ACCESSのメインのウィンドウが開いてその中にフォームのウィンドウが表示され
ますが、これをフォームのウィンドウだけで起動するようにはできませんか？
"起動時の設定"は一通り見ましたがそういう設定はできないようです。
どなたかよい方法をご存知でしたらよろしくお願いします。

360 ：名無しさん＠そうだ選挙にいこう：03/05/31 04:58

ツールバーを非表示にすればいいじゃん

361 ：_：03/05/31 05:08

http://homepage.mac.com/hiroyuki43/hankaku01.html

362 ：名無しさん＠そうだ選挙にいこう：03/05/31 09:04

>>359
アプリケーションウィンドウが見えていることに問題が無くて、
単にフォームがアプリケーションウィンドウの枠に隠れるのがいや。

ということであれば、フォームのプロパティのポップアップを
ハイにすると、フォームを画面上のどこにでも表示できるよ。
（ただし、常に最前面に表示されるが）
これじゃダメかな？

363 ：名無しさん＠そうだ選挙にいこう：03/05/31 19:32

>>362
APIでAccessをアイコン化してタスクトレイに押し込めばなお良い。

364 ：名無しさん＠そうだ選挙にいこう：03/05/31 19:58

そんな事をして何の意味があるのか

365 ：名無しさん＠そうだ選挙にいこう：03/05/31 20:51

>>364
見やすい　ということでは？ｗ

366 ：名無しさん＠そうだ選挙にいこう：03/06/02 10:58

>>359
起動時の設定や以下のコードでメニュー・ツールバーを非表示
CommandBars("Menu Bar").Enabled = False
タイトルバーも以下のURLを参考に消す
http://sweep-jp.com/vba/lesson/003.htm

367 ：直リン：03/06/02 11:14

http://homepage.mac.com/yuuka20/

368 ：名無しさん＠そうだ選挙にいこう：03/06/02 11:55

>>366に追加
Access起動時にAccessウィンドウの最大化を行い
DoCmd.RunCommand acCmdAppMaximize
フォームを表示したらフォームの最大化を行う
DoCmd.Maximize

ステータスバーも不要なら消す

369 ：名無しさん＠そうだ選挙にいこう：03/06/02 14:32

必要以上の事を教えて相手を混乱させるのはﾔﾒﾚ

370 ：名無しさん＠そうだ選挙にいこう：03/06/02 14:49

Accessで検索を実行する際に従業員リスト(勤務可能時間が
入力してある)テーブルで何時～何時勤務可能な人を検索したい場合、
どのように勤務可能時間を入力し、また検索フォームではどのように
検索すればよいでしょうか？

371 ：名無しさん＠そうだ選挙にいこう：03/06/02 15:21

マルチか・・・

372 ：370：03/06/02 16:10

マルチすいません。
どうしても知りたいので焦ってしまいました。
教えてもらえないでしょうか。

373 ：名無しさん＠そうだ選挙にいこう：03/06/02 16:24

更にマルチポスト

374 ：：03/06/02 22:03

フォームのデザインでかっこいいものを探しています。
そんなのが集めてあるようなwebページ知っているかたありましたら
教えてください。よろしくお願いします。

375 ：名無しさん＠そうだ選挙にいこう：03/06/03 00:30

>>353
関数はＩＮＴでは？

376 ：デフォルトの名無しさん：03/06/03 00:59

377 ：_：03/06/03 01:03

http://homepage.mac.com/hiroyuki43/2ch.html

378 ：動画直リン：03/06/03 01:14

http://homepage.mac.com/norika27/

379 ：名無しさん＠そうだ選挙にいこう：03/06/03 04:38

>>376
ACCESS総合相談所その８
http://pc2.2ch.net/test/read.cgi/bsoft/1051630268/320-

こっちのスレでついたフォローは無視されるのでしょうか？

380 ：名前はまだない：03/06/04 17:16

フォームにボタンがあって、そのボタンを押したらそのボタンを押せなくする
方法をおしえてくださいませませ。

381 ：名無しさん＠そうだ選挙にいこう：03/06/04 19:12

>>380
フォーカスを他のコントロールに移してから
ボタンの"Enabled/使用可能" プロパティをFalseに変更する。

382 ：名前はまだない：03/06/05 17:52

Re：381
ありがとうございます。
フォーカスをほかに移してからやるというのを
考えてませんでした。
ありがとうございました。

383 ：名無しさん＠そうだ選挙にいこう：03/06/05 22:38

クエリを使用して1,2,3というデータを1=りんご、2=ぶどう、3=みかんという感じで
変換してレポートで印刷をしたいのです。
クエリで一応1,2,3というデータを1=りんご、2=ぶどう、3=みかんと変換は出来ましたが
どうやってレポートで表示させるか困っています。どなたかお知恵をお貸しできませんでしょうか？

384 ：名無しさん＠そうだ選挙にいこう：03/06/05 22:41

>>383
まずはマニュアル通りにやってみろ

385 ：383：03/06/05 22:53

いろいろがんばってみたのですが出来ませんでした(T_T)

386 ：名無しさん＠そうだ選挙にいこう：03/06/05 23:07

>>383
クエリが出来てるんなら後は大きな問題は無いと思うんだが・・・・
レスがほしいなら、どんなレポートを出力したくて、
うまくいかない点は何か位まで書かないと難しいかな。

この質問では、一般論（>>384）しか答えようが無いやね

387 ：399：03/06/08 00:48

>375
遅レスでごめんなさい
int関数でばっちり正解でした＾＾
本当にありがとうございました。

388 ：名無しさん＠そうだ選挙にいこう：03/06/09 00:34

mdbファイルを共有して使っているのですが、
クライアントサーバという方法？で、
動作を安定させたいと思っています。
何かいい参考書があったらお教えください。

389 ：名無しさん＠そうだ選挙にいこう：03/06/09 02:07

>>388
MSDE使え
http://www.amazon.co.jp/exec/obidos/ASIN/4774109657/ref=sr_aps_b_/250-7158029-7045852

390 ：名無しさん＠そうだ選挙にいこう：03/06/09 18:22

If IsNull(Me.番号) And IsNull(Me.氏名) Then
stRcd = MsgBox("番号と氏名を入力してください", vbCritical + vbYesNo + vbDefaultButton2, "警告！")
If stRcd = vbNo Then
番号.SetFocus
Exit Sub
End If
End If

というコードを書いたのですが、これと反対に両方NULLじゃないときに別の処理を
行いたい場合はどういう風に書いたらよろしいのでしょうか？
!=とかでいいのでしょうか？色々やってみたのですがうまくいきませんでした。
not nullでもエラーが帰ってくるし・・・

391 ：名無しさん＠そうだ選挙にいこう：03/06/09 18:51

>>390
If Me.番号.Value Is Not Null And Not Me.氏名.Value Is Not Null Then
または
If Not IsNull(Me.番号.Value) And Not IsNull(Me.氏名.Value) Then
または
If IsNull(Me.番号.Value) = False And IsNull(Me.氏名.Value) = False Then

392 ：名無しさん＠そうだ選挙にいこう：03/06/09 19:00

みてね～♪
http://www1.free-city.net/home/s-rf9/page002.html

393 ：名無しさん＠そうだ選挙にいこう：03/06/09 19:59

>>391
試してみます♪

394 ：名無しさん＠そうだ選挙にいこう：03/06/09 20:55

>>391
出来ました♪ありがとう(≧∇≦)b

395 ：無料動画直リン：03/06/09 21:14

396 ：388：03/06/10 00:05

>>389
どうもです。
早速注文します。

397 ：名無しさん＠そうだ選挙にいこう：03/06/10 00:20

質問です。accessのデータを一括してエクスポートしたいのですが、
どうすればよいのでしょうか。テーブル単位でひとつずつならエク
スポートできるのですが、一切合財すべてエクスポートしたいです。

あと、SQLとしてのエクスポートはどうすればよいのでしょうか？
ODBCについてのヘルプは見つけましたが、SQLは見つけられません。

ご面倒ですが、アドバイスをお願いいたします。

398 ：名無しさん＠そうだ選挙にいこう：03/06/10 02:35

>397
テーブルのデータをカンマ区切りなどにエクスポートしたいだけなら…
マクロを使ってやった方が一番手っ取り早いかと…

「Insert文」を作成する場合は（俺の場合は）VBAでテキストに書き込む感じにしてます。
↑比較的簡単ですよ。＜HELPを見ながらでもできるっていう意味。

399 ：名無しさん＠そうだ選挙にいこう：03/06/10 13:42

>>398
VBAが必要ですか。。どのようなVBAの機能を使うのですか？HELP
の項目を教えてもらえたらありがたいです。

データを別のDBで動かすのって良くあることだと思っていました
が、Accessではあまり重要視されない機能なのですね(;_;)

400 ：名無しさん＠そうだ選挙にいこう：03/06/10 14:05

>>397
DatabaseオブジェクトのTableDef、QueryDefを参照して
エクスポートしたり、テキストに書き出す。

401 ：名無しさん＠そうだ選挙にいこう：03/06/10 14:22

>>388
Accessと同じ感覚でMSDE使うと泣くぞ
SQL-Serverと違って、GUIのインターフェースもなければ、
バックアップを自動化するタスクもないし

初心者が
C/Sでいきなり使うのは、お勧めできない

402 ：名無しさん＠そうだ選挙にいこう：03/06/10 14:37

>>401
じゃあ、MSDEは無視してSQL Serverを買えってこと？
何がお勧めなのよ

403 ：401：03/06/10 16:46

>>402
それは使う側のスキルと、構築するシステム規模によって違うだろ

スキルも知識も無いやつが、無料だからといってMSDEを使うのは、
危険すぎるが、自信があるならMSDEをでいいと思う

T-SQLを使って、データベースの復旧、
MASTERデータベースの復元ができないんだったら、
金を払ってSQL-Serverを買っておけ

規模がわからんが、パーソナルエディションでも事足りる程度なんじゃないのか？

404 ：名無しさん＠そうだ選挙にいこう：03/06/10 17:16

>>402
ちとなげやりな回答だった、これで参考になるかな

・AccessのMDB
　クライアント台数が少ない、頻繁に同時アクセスが発生しないならばOK
　ファイルの破損、データの消失などが多発する可能性有り

・MSDE
　　SQL-Serverのエンジンだけなので、GUIが無くても使えるスキルが必要
　　5台以上のクライアントが接続すると極端にパフォーマンスが落ちる（仕様らしい）
　　少ない台数であれば、試験的（本運用でも怖くないなら・・・）ならいいかも

・SQL-Server
　　MDBを操作する感覚で、GUIでデータベース、テーブルを作れるので、初心者にも優しいと思う
　　データのバックアップ、復旧など多くの操作が、ウィザードとして提供されているので、
　　複雑なことをしなければ、まず迷うことは少ないのでは・・？

・Oracle
　　環境を構築するまでが大変
　　構築した後は、安定して動作するが、何らかの都合で、サーバを移行とかなった時には、かなり泣きをみることあり

お勧めは、SQL-Serverだが、MSDEをインストールして環境構築、
SQL-ServerをインストールしてあるPCから接続して、MSDEのメンテを行う方法もある。

　　

405 ：名無しさん＠そうだ選挙にいこう：03/06/10 17:25

>>403
パーソナルエディションって単体で買えるのか？

406 ：名無しさん＠そうだ選挙にいこう：03/06/10 18:45

>>388はこれから勉強するんだから、
とりあえず>>389で紹介されている本を買って勉強すればよいでしょ。
得た知識はSQL ServerでもMSDEでも活用できるわけだから。

407 ：403,401：03/06/10 18:46

>>403
単体ってライセンス無しってことか？
最低でも買うときは５クライアントライセンスからだったと思う

408 ：403,401：03/06/10 18:53

すまん、間違い　スタンダードエディション　だった　m（＿＿）m

パーソナルは、モバイルユーザー向けらしい
でも、小規模なら問題ないと思う
（DTSとか、ﾚﾌﾟﾘｹｰｼｮﾝが使えないみたい）
今度は手元にある、SQL-Server2000 リソースキットでちゃんと調べた

スタンダードエディション
SEShopでは、 5cal \169,260

409 ：名無しさん＠そうだ選挙にいこう：03/06/10 18:56

Personal Editionのみでの販売はありません。
SQL Server 2000 Enterprise/Standard Editionに含まれています。
http://www.microsoft.com/japan/sql/evaluation/overview/

410 ：名無しさん＠そうだ選挙にいこう：03/06/10 19:26

http://www.horikawa.ne.jp/msde/

411 ：名無しさん＠そうだ選挙にいこう：03/06/10 19:43

>>400
調べてみます。ありがとうございました。

412 ：388：03/06/11 00:38

>>諸先生方
大変参考になりました。
少し勉強してみます。

413 ：名無しさん＠そうだ選挙にいこう：03/06/11 00:45

えっちなサンプルムービー多数有ります☆！
http://cg.iclub.to/link/ranran1/

414 ：名前はまだない：03/06/11 11:58

ボタンを押したときに、フォーム上にあるコンボボックスにデータを
追加するコマンドを教えてくださいませませ。
Private Sub コマンド_Click()
コンボ.AddItem "aaa"
End Sub

↑このように記述できればいいんですが・・・

415 ：名無しさん＠そうだ選挙にいこう：03/06/11 12:24

>414
お前、検索くらい覚えろや・・・
コンボボックス　ACCESS　追加をキーワードでググったらいくらでもヒットするぞ

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmHowToInputWhenNotInList.html

416 ：名無しさん＠そうだ選挙にいこう：03/06/11 15:57

まあぶっちゃけた話、2002にバージョンアップすれば、AddItemが使えるんだけどね。

417 ：100人に1人：03/06/11 17:22

◎人の嫌がることをズケッと言うのはこんな奴！
＜アスペルガー症候群（自閉症スペクトラム）←脳の機能的疾患（遺伝が要因）＞
●変化を嫌う
http://web.kyoto-inet.or.jp/org/atoz3/kado/book1/Williams-Asp.htm

●接し方のルールがわからず無邪気に周囲の人に対して迷惑なことをしてしまうことがある。人を傷つけるということには鈍感（相手の立場に立って考えられない）。
●パターン的行動、生真面目すぎて融通が利かない
　毎朝の通学電車では同じホームの同じ場所から、同じ時間の同じ号車に乗ることに決めていたりする。パターンを好むということは反復を厭わないことでもある。
●アスペルガー症候群の子どもは（大人も）感覚刺激に対して敏感。敏感さは聴覚、視覚、味覚、嗅覚、温痛覚などのいずれの感覚の敏感さもありえる（特に視覚が敏感）。
●アスペルガー症候群の子ども（大人も）は予測できないことや変化に対して苦痛を感じることが多い。
http://www.autism.jp/l-02-03-aspe3.htm

●独り言を言うことが多い（考えていることを口に出す）
●物事をいつまでも同じにしておこうとする欲求が強く、そうでないと非常に不安。いわゆる「こだわり」。
●自発的に行動することが少なく、興味の幅が狭い
●物まねをしているような不自然な言語表現
●自閉症スペクトラム全体としては一万人に91人（およそ100人に1人）。
http://www.ypdc.net/asuperugar.htm

★自閉症スペクトラムの考え方(アスペルガーに至らない気質の偏りもある（遺伝性））
http://www.imaizumi-web.com/030413.html　　
　　　
★アスペルガー症候群（自閉症スペクトラム）かどうかのテスト
http://twitwi.s10.xrea.com/psy/add.htm　
http://www.geocities.co.jp/Beautycare/5917/as/marksheetmake.html

418 ：名無しさん＠そうだ選挙にいこう：03/06/12 23:14

質問です！
業務部門の扱っているデータベースを営業部門にファイル配布するのに、
営業部コードで抽出して、その営業部コード名でエクセルファイルを作りたいのですが、

具体的には、

≪売上データベース≫
営業部
コード　　売上日　　得意先　　　品目　　個数　　金額
A　　　　03/6/1　　XXXフーズ　・・・　
A　　　　03/6/2　　ZZZ企画　・・・　　
B　　　　03/6/1　　（株）YYY　・・・

みたいなテーブルから、[営業部コード] = "A"　を抜き出して
これをエクセルの"A.xls"というファイルにエクスポート、
同じように"B"を抜き出して"B.xls"というファイルにエクスポート・・・
というのをACCESSに自動で行わせたいのですが、無理でしょうか？
部門が１５個ぐらいあるので自動で出来れば助かるのですが・・・

現状、エクスポートしてエクセルを開かせるところまで自動で出来たのですが、
それをエクセルで「名前を付けて保存」でいちいちAとかBとか入れています。
ちなみにAccess97、Win98です。どなたかお願いします！　　

419 ：名無しさん@そうだ選挙にいこう：03/06/13 09:11

>>418

> 現状、エクスポートしてエクセルを開かせるところまで自動で出来たのですが、

クエリで営業部コードの抽出条件に"A"を入れてみれば"A"だけのレコードが
表示されるでしょ(仮にAクエリ)

次にマクロでワークシート変換(アクション)で
変換の種類：エクスポート
ワークシートの種類：ご利用のExcel
テーブル名：Aクエリ
ファィル名：書き出し先のフルパス(例)C:\A.xls
フィールド名の設定：必要なら「はい」
範囲：適当に…。無指定でいい

このマクロを保存してAマクロとする

マクロを実行すればC:\A.xlsに作成されるよ。

それぞれを15個作って
ついでに16個目のマクロに15個マクロを実行するようにすれば
一回のマクロ実行で15個の*.xlsが出来る。

VBAでやりたいなら他の人ヨロシク

420 ：名無しさん＠そうだ選挙にいこう：03/06/13 09:42

>>418
「エクスポートしてエクセルを開かせる」とあるが、
どのように行っているのかを書けばアドバイスを受けやすいだろうに。

421 ：名無しさん＠そうだ選挙にいこう：03/06/13 11:34

>>418
Excelのライブラリ使って、
エクセルオープン -> 出力 -> エクセル終了
じゃダメなの？

CreateObject Excel.Application
でぐぐれば、結構でてきたけど

422 ：名無しさん＠そうだ選挙にいこう：03/06/13 12:02

SELECT * INTO [Excel 8.0;Database=D:\A.xls].[売上]
FROM 売上データベース WHERE [営業部コード] = "A"

423 ：名無しさん＠そうだ選挙にいこう：03/06/13 21:40

レポートに56.1といった感じで小数点以下も一桁だけ表示させたいんですけど
プロパティの中で小数点は一桁って感じで設定しても四捨五入されちゃうんで
強引にフォーマット関数にて小数点一桁表示させたいのですがどうも
うまくいきません。
レポートのテキストのソースにformat [点数],"##.#"という感じでよろしかったでしょうか？

424 ：418：03/06/13 23:07

418にて質問したものです。みなさんありがとうございます！
>>419-422をコピペして会社に持っていって、月曜日に試してみます。
多分うまく行くでしょう。

>>420 マクロで、コマンドの実行 - excelに出力、というのを使っていました。
419さんの方法に何故行き着かなかったのか今となっては・・・
Accessは大分慣れたと思っていましたが、基礎がまだまだだなと・・・

>>423
プロパティの書式欄に "#,##0.0" でどうでしょう

425 ：423：03/06/14 01:11

>>424
出来ませんでした(T_T)

426 ：無料動画直リン：03/06/14 01:14

http://homepage.mac.com/norika27/

427 ：名無しさん＠そうだ選挙にいこう：03/06/15 20:22

よろしくお願いします。
アクセス2000です。
コンボボックスのリストメニューの書式を設定する方法を教えて下さい。
日付の書式設定です。
コンボボックス自体の書式は変更できましたがリストメニューは標準書式のままです。

428 ：YUIS：03/06/15 20:55

ここで買わなきゃどこで買う！？

http://www.dvd-yuis.com

429 ：名無しさん＠そうだ選挙にいこう：03/06/15 21:01

みてね～♪
http://www1.free-city.net/home/s-rf9/page004.html
http://www1.free-city.net/home/s-rf9/page005.html

430 ：名無しさん＠そうだ選挙にいこう：03/06/16 10:27

>>427
クエリ

431 ：427：03/06/16 15:48

>430
クエリにもプロパティがあったのですね・・・
ありがとうございます。

432 ：名無しさん＠そうだ選挙にいこう：03/06/16 19:45

>>431
書式に相当する機能をクエリで行い、それをソースに指定する

433 ：427：03/06/16 22:55

>432
レスありがとうございます。
>書式に相当する機能をクエリで行い、それをソースに指定する
いまいち理解できていないのです。
ただ、この件に関してはクエリのプロパティで書式を設定するだけでうまくいきました。

434 ：名無しさん＠そうだ選挙にいこう：03/06/17 03:17

>>404 とても参考になりました。

実はこのたび、職場のシステムを自作することになったんですが、
使用範囲は職場のLAN内のみなんでACCESSで行こうと思ってたんですが、
MDBを共有する端末は5～6台で、同時アクセスもありそうな使い方
になりそうです。
↑こんな情報だけでは何とも言いようが無いのかもしれませんが、
ACCESSで大丈夫そうでしょうか？

435 ：_：03/06/17 04:44

436 ：名前はまだない：03/06/17 08:59

すいません。
フォームからレポートを呼び出すとき
レポートを一番最前列に表示することは出来ないんでしょうか？
ちなみに、フォームのプロパティのポップアップ設定をするにしています。
可能でしょうか？

437 ：名無しさん@そうだ選挙にいこう：03/06/17 09:28

>>436
1.ポップアップフォームをやめる
2.ポップアップフォームを閉じる
3.レポート呼び出し時にポップアップフォームをMinimize、レポートを閉じるときにRestore

438 ：名無しさん＠そうだ選挙にいこう：03/06/17 11:52

>>434
mdb共有はすすめない。

私は以下の本でAccess+MSDEの勉強をして社内システムを作りました。
http://www.amazon.co.jp/exec/obidos/ASIN/4774109657/ref=sr_aps_b_/250-7158029-7045852
http://www.amazon.co.jp/exec/obidos/ASIN/4774109436/qid=1055817155/sr=1-18/ref=sr_1_2_18/250-8353673-6878613
http://www.amazon.co.jp/exec/obidos/ASIN/4774109665/ref=pd_sim_dp_4/250-8353673-6878613
まずは参考書とSQL Serverの評価版で勉強しましょう。
それからMSDEとAccessで運用できるか判断してからSQL Serverの購入を検討すればよい。

439 ：名無しさん＠そうだ選挙にいこう：03/06/17 13:06

>>434
やってできなくはないと思う。
（1日10000件入力，ｸﾗｲｱﾝﾄ5台というｼｽﾃﾑを作ったので）
いずれにせよﾏﾙﾁｸﾗｲｱﾝﾄの場合、同時ｱｸｾｽの問題は
どんなｴﾝｼﾞﾝを使っても避けて通れないわけで。。
裏を返せば同時ｱｸｾｽが起きた時の処理をきちんと考慮
しないと、どんなｴﾝｼﾞﾝを使っても駄目かもしれないね。
>>438
＞mdb共有はすすめない。
確かに、イバラの道かも知れないｗ

440 ：名無しさん＠そうだ選挙にいこう：03/06/17 22:11

超素人です。
テキストボックスにＳＱＬを入力して抽出したいんですが、全文記入後に
抽出するよりも、フィールド条件を一つ入力するごとにバックグラウンドで
抽出し、抽出した結果に対して更に次に入力したＳＱＬで抽出を行う事を
繰り返し抽出時間を短縮させたいのですが、何か良い方法はありませんでしょうか？
何方かご教授ください。
また、抽出結果をサブフォーム上にＤＳで表示させていると、データ部のMDBファイルが
開きっぱなし(LDB表示)のようです。これをサブフォームへデータ表示中に閉じたいのですが、
どのような方法がありますでしょうか？こちらも併せてお願いいたします。

441 ：名無しさん＠そうだ選挙にいこう：03/06/17 22:50

>440
素人回答だけど…
1.フィールド条件を一つ入力するごとにバックグラウンドで抽出
→例えばコンボボックスなどで条件を選択させたら、その条件をSQL文に組み込むよう
　VBAで記述、RunSQLで抽出する。力技なら、各コンボボックス(あるいはラジオボタン
　やチェックボックス)の条件1つ1つに対してテーブル作成クエリーを作っておき、デー
　タ抽出用一時テーブルへ吐き出し(作成)→一時テーブルを抽出元テーブルに置き換
　え→抽出元テーブルから次の条件でデータ抽出用一時テーブルを作成　を繰り返す。
2.サブフォームへデータ表示中に閉じたい
→1でのRunSQLは一時テーブル作成とし、抽出データは自mdb内にデータテーブル
　を作り、その一時テーブルをサブフォームで表示させる。これでいけないかな？
　ただし、RunSQLでテーブル作成後、開放しないとデータmdbはロックされたままにな
　ると思う。その辺のやり方は当方不明。

こんなんでどうだろうか？

442 ：名無しさん＠そうだ選挙にいこう：03/06/17 23:50

>>440
・前半の質問
そんな糞仕様は考えるな。できるだけ１回のSQL発行でデータを絞り込むのが基本。

・後半の質問
こんな感じのSQLを実行して一時テーブルを作って
SELECT * INTO TempTable
FROM [D:\My Documents\db1.mdb].Table1
WHERE [Field1] > 10;
一時テーブルを基にしたフォームを作る。
mdbが肥大化するので最適化も考えること。

443 ：434：03/06/18 00:00

>>438-439
なんというか・・・微妙な感じですね。
今のところ、ACCESSの勉強だけでいっぱいいっぱいなんで、
とりあえずACCESSで作ってテスト環境で稼動させてみて、
不具合連発するようだったら、他との併用を考えてみます。
一応「なるべく早く作れ」とは言われてますが、
厳密な〆切とかは特に無いんで、いろいろ試してみます。
ありがとうございました。

444 ：名無しさん＠そうだ選挙にいこう：03/06/18 17:34

教えてください
起動時にShiftキーを押しても無視する方法があると聞きましたが
どうやったらいいんでしょうか？？？

445 ：名無しさん＠そうだ選挙にいこう：03/06/18 17:44

>>434
ACCESSを使用しなければならない理由でもあるの？

446 ：名無しさん＠そうだ選挙にいこう：03/06/18 20:11

>>444
教えてもいいけど、どうなっても知らないよ？

447 ：名無しさん＠そうだ選挙にいこう：03/06/18 21:28

素人です。教えてください。
APIを使ってあるアプリケーションのキャプションを指定し、そのハンドルを
取得したいです。
キャプション指定だけなら何とかなりそうなのですが、キャプションにバージョンが
含まれているため、アプリケーション更新の度にプログラムも変更しなければいけません。
そこで、キャプション指定で始めの5文字だけに当てはまるウィンドウのハンドルを
取得するようにしたいのですが、何か良い方法はありませんでしょうか？

ret = FindWindow(VBNullstring,"キャプションの始め5文字")
みたいな事が出来れば良いんですが、出来ませんでした。

448 ：名無しさん＠そうだ選挙にいこう：03/06/18 21:50

>>444
Shift起動を阻止する方法があるように、隠蔽したも
のを全て可視化する方法もあるのでそこまで気にす
る意味はなし。

449 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:15

つーかなんでシステム定義のショートカットとかを禁止しようとするんだろ

レベルの低い人に合わせてシステムを作るのと、レベルの高いシステムに対応
出来る人を育てるのでは、どちらがパフォーマンスが優れているかは目に見えて
るのに。

450 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:44

「消費者マスター」と言うフォームがあったとして
その中の「更新する」ボタンが押されるまで
フォームが更新されないようにしたいのです
（そのままだとカーソルが移動した時点でレコード内容が更新されますよね）

どうやらトランザクションとやらを
設定すると良いらしくて、調べてみたものの
begin tranだとかなんとか、アルファベットがわんさかで
それをどこに書いたら良いのか分からないのです。
コレができないとフォームの内容をコピペして使いたくても
「重複Noは使えません」とか言われます。
理想はコピペした後で一部を書き換えて保存できるようにしたいのです
プログラミングはてんで素人ですが頑張って理解してゆきたいと思いますので
よろしくお願いします。

451 ：名無しさん＠そうだ選挙にいこう：03/06/19 09:02

>>444
AllowBypassKeyでググれ！それで分からなければ使うのはやめておけ。
こいつとユーザーメニューの併用で殆どのフザケたユーザーをブロック出来るが
バイナリエディタでファイルを書き換えてくるような大馬鹿はブロックできない。

経験上、ロックする前にバックドアを作っておかないと何かと困るヨカソ！

452 ：名無しさん＠そうだ選挙にいこう：03/06/19 09:47

ここは素人スレです

余計なことを教えないで下さい

453 ：名無しさん＠そうだ選挙にいこう：03/06/19 11:11

>>452
素人の割にSQL　Serverだの、トランザクションだのAPIだの、
LANで複数台だの…何か難しいことやってるんじゃないかなー
Accessしか知らないサンデーアクセサーのおいらには
何かここも充分玄人の集まりに思えるぞよ
みんなすげーな…羨望の眼差しだよ…ﾌｩ

454 ：名無しさん＠そうだ選挙にいこう：03/06/19 11:15

>450
俺なら仮のデータを置くテーブルを作ってそれをもとにしたフォームに入力、
「更新する」ボタンを押したときに追加クエリでほんちゃんのテーブルにコピー、
仮のテーブルのデータ削除ってするね。

455 ：名無しさん＠そうだ選挙にいこう：03/06/19 12:25

トランザクションを使ったデータ更新はデータ処理の初歩中の初歩だから、
きちんと学んでおいたほうがいいな。

個人的には、データベースの入門書に書かれている内容ぐらいは理解しておいた
ほうがいいと思う。

456 ：450：03/06/19 18:32

>454
あーーー、はい、それなら想像できるし作れそうな気配です。
がですね、うち以外の人がその入力方法で打ち込めるかが不安です
なんだかいらない方のデータまでせっせと残されそうで。
ま・それでもイイんですけどね（エエんかい！）あは

>455
そんなアナタのお勧め入門書は？
本屋さんに行くたびに、パラパラめくってはいるのですが
いや、自分がコレだ！と思うのを見つけないと意味がないとは思いますが
｢コレはわかりやすかった｣と言うのがあれば教えて欲しいのです。

457 ：450：03/06/19 18:34

あぁ、下げ方は知ってます。（ToT）
sage忘れました。すいませんでした。

458 ：名無しさん＠そうだ選挙にいこう：03/06/19 19:51

特定の環境について解説したものよりも、基礎やロジックを理解することに重点が
置かれているものがいいと思う。考え方さえ理解すれば、応用はいくらでもきくから。

自分が使ってた参考書の名前は失念したが（多分講義をしてた教官の著書）、
今だと筑波大の北川教授が書いた「データベースシステム」（昭晃堂）を教材に
している学校が多いのかな。

自分はその本は読んでいないのだが、教材として広く使われているような本は
やはりわかりやすいと思うので、とりあえず図書館あたりで探してみるのがいい
と思う。

459 ：454：03/06/19 20:45

>がですね、うち以外の人がその入力方法で打ち込めるかが不安です
>なんだかいらない方のデータまでせっせと残されそうで。
おばかには触らせないようにすればOK!
って言っててもしょうがないから、
更新/追加のクエリを動かす前に重複してないかチェックしてかぶったら警告ダイアログ。
あとは、教育でせめて普通の人にする。定期的に450がチェックする、で対応かな?

460 ：名無しさん＠そうだ選挙にいこう：03/06/20 03:02

>>450
>がですね、うち以外の人がその入力方法で打ち込めるかが不安です
>なんだかいらない方のデータまでせっせと残されそうで。

初心者なんですが、更新ボタンに「仮テーブルのデータ自動削除」の
処理も入れとくことはできないんでしょうか？
いや、俺が今度作る予定のシステムにも関係ありそうな話なもんで。
割り込みすいません。

461 ：名無しさん＠そうだ選挙にいこう：03/06/20 06:30

>>460
当然そうすべき

462 ：名無しさん＠そうだ選挙にいこう：03/06/20 22:59

質問です。
テキストボックスに検索する文を入力しADOによる

mySQL = "Select * FROM DB WHERE " & me!txt検索内容

cn.execute mySQL (←今見たら余計か？と思った。）

rs.Open mySQL,cn,ad*****,ad*****

Me!サブフォーム.form.recordset = rs

で検索を掛けているのですが、これってきちんとサーバーで処理された
データを読み込むようになっているんでしょうか？
サブフォームへの表示スピードがやけにフロントエンドのＰＣ性能に
引っ張られているんです。データ部はmdbファイルで、データは約11万
レコードあります。ファイルサイズは230ＭＢ、2000/110000件のデータを
Pen2 266MHzのホストに表示するのに30秒も掛かってしまいます。

463 ：名無しさん＠そうだ選挙にいこう：03/06/20 23:11

ﾁｬﾚﾝｼﾞｬｰ!!

464 ：名無しさん＠そうだ選挙にいこう：03/06/20 23:18

>>462
それはクライアント・サーバーのアプリではなく単なるファイル共有です。
処理速度はネットワークや操作しているパソコンの性能に依存します。

465 ：名無しさん＠そうだ選挙にいこう：03/06/20 23:29

>>464
げっ。そうだったんですか。どちらもフロントエンド・バックエンドの
両方がmdbファイルでＣ/Ｓのアプリって作れるんですか？リンクテーブル作成？
素人なので、まったく分かりません・・・。

466 ：名無しさん＠そうだ選挙にいこう：03/06/20 23:39

>>465
作れません。

467 ：名無しさん＠そうだ選挙にいこう：03/06/20 23:39

ちょっと早すぎるんじゃない?
手遅れにならないうちに基礎からやり直したほうがいいと思う。

468 ：_：03/06/20 23:40

469 ：名無しさん＠そうだ選挙にいこう：03/06/20 23:55

基礎から勉強し直そうかな。。。

じゃ、これだけ教えてください。
・データmdbとデータmdbへリンクを張ったプログラムmdbをサーバーへ置き、
プログラムmdbへのショートカットをクライアント側に置いて運用した場合。
接続は５クライアントまでと言う話ですが、その接続とはアプリケーションを
起動している状態の事ですか？それともデータを書きに行った瞬間の事でしょうか？

・MS-Accessしか無い状態でC/Sを構築したいならMSDE使っておけ。って事？

470 ：名無しさん＠そうだ選挙にいこう：03/06/21 00:00

>>469
自分でショートカットって書いてるくらいだからネタ?
サーバってファイルサーバでしょ?
サーバの意味分かる?
根本的に間違えてるYO!

471 ：名無しさん＠そうだ選挙にいこう：03/06/21 00:02

>>469
＞・データmdbとデータmdbへリンクを張ったプログラムmdbをサーバーへ置き、
＞プログラムmdbへのショートカットをクライアント側に置いて運用した場合。
＞接続は５クライアントまでと言う話ですが

そんなこと誰も言ってないはずですが、根本的に勘違いなさっていませんか？

472 ：名無しさん＠そうだ選挙にいこう：03/06/21 00:12

今の状態がデータmdbをファイルサーバーに置いてプログラムmdbを
クライアント側に置いてADOで接続するって奴(>>462)なんですが、
ネットで検索したらスタンドアローンで作成したmdbを分割して>>469のように
運用も出来るというのをネットで見つけたんです。
（これもファイル共有である事は分かりました。）
でもよく考えたら私が構築しなければならないアプリは他アプリとの
連携もしなければいけないので、ショートカットを使う時点でダメなので、
このままファイル共有型でやるしかないのかな。それかMSDE使うか。。。
つーか、勉強しろってね。

473 ：472：03/06/21 00:18

ちなみにこの周辺見ました。。。
ttp://www.users.gr.jp/ml/archive/access/1909.asp

474 ：名無しさん＠そうだ選挙にいこう：03/06/21 12:28

実行時エラー91が出ます。

475 ：名無しさん＠そうだ選挙にいこう：03/06/21 13:00

>>474
それはよかった。

476 ：450：03/06/21 23:59

>460の案を実行するとして
ひとつのボタンに追加クエリ実行とデータ削除の二つの
役割を持たせることはできるんですか？

あと、愚痴なのですがこの方法もうちのスキルでは厳しくて…
25個のデータを含むフォームを丸ごとコピペしたいわけですが
どうすれば各項目が別データテーブルのおのおのの項目にキチンと
コピペできるのか分からない状態で
やっぱり「シートのコピー」を使いたく、そうするにはトランザクションが
扱えないと例の「重複Noは…」の注意がでるしで、なんだかもう、あーもう、
と言う状態です。
愚痴書き込みすみません。

477 ：399：03/06/22 10:36

質問させてください＾＾

現在、商品CDと商品を登録している商品マスターと売上を登録する売上マスターを作っています
売上マスターへの登録はフォームで行っているのですが
売上マスターへ登録の際に商品CDを入力しているのですが、商品CDに登録されていないCDを入力すると
エラーが表示されるようにするにはどうしたらいいのでしょうか？

478 ：名無しさん＠そうだ選挙にいこう：03/06/22 15:15

商品ＣＤを入れるコントロールの更新後処理に、
dcount関数で商品ＣＤを商品マスタから数えて
ゼロならMsgBoxを出すようにするというのは
どうでしょうか。

479 ：名無しさん＠そうだ選挙にいこう：03/06/22 15:17

>>478は、>>477あてです。

480 ：名無しさん＠そうだ選挙にいこう：03/06/22 15:21

>>476
個人的意見を言わせてもらうと、入力更新画面は手を抜けるように作っちゃ
駄目だな。第三者に使わせる場合は特に。コピペなんて禁止するぐらいが
丁度いい。

入力作業の効率化を図るなら、規定値を設定するなり、マスタを利用するなり、
履歴をテンプレートに使うなりして、入力の負担を軽減する方に力を注いだ方が
いいと思う。

あと、帳票フォームで入力更新させるのもあまり感心しない。データ操作は極力
単票フォームで行い、帳票フォームは閲覧・参照用途に限定した方が入力ミスが
少なくなる。

481 ：名無しさん＠そうだ選挙にいこう：03/06/22 18:01

わー、魔法使いのサイトがなくなっちゃったヨ
参考にしながら作っている途中だったのにショック。。。

482 ：名無しさん＠そうだ選挙にいこう：03/06/22 21:30

>>478
なんで更新後処理なのか？
BeforeUpdateでエラーチェックを行って、エラーならCANCELにするのが良い。

最近はADOやDAOで処理するコーディングばかりしていたので、
dcount関数で件数をチェックのアイディアは目からウロコ。

483 ：名無しさん＠そうだ選挙にいこう：03/06/23 13:18

>482
>なんで更新後処理なのか？

うーむ、更新後だと意味ないのか。
実はaccess入門者なんだけど、たまには答える側になって
みたかっただけなんだ。無責任といえばそれまでなんだけどサ...

484 ：名無しさん＠そうだ選挙にいこう：03/06/23 17:20

>>477
商品CDを入力するのをコンボボックスにして、その値集合ソースを商品CDリストにしておく。
コンボボックスの「入力チェック」を「はい」にすれば、存在する商品CDと一致するものしか入力できない。
エラーメッセージを出す、というのが必須じゃなければこれで、誤入力はおさえられると思うんだけど、
どうでしょ。

485 ：名無しさん＠そうだ選挙にいこう：03/06/23 20:51

全体の内の数列のデータが書いてるテキストファイル(CSV)を読み込んで、
データ更新したいのですが、良い方法はありませんか？
環境はADP,MSDEです。

486 ：名無しさん＠そうだ選挙にいこう：03/06/23 20:52

☆可愛い彼女が貴方のために・・・☆
↓　↓　↓☆見て見て☆↓　↓　↓
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

487 ：名無しさん＠そうだ選挙にいこう：03/06/23 20:55

>>485
まず、日本語を勉強することから始めよう。

488 ：名無しさん＠そうだ選挙にいこう：03/06/23 21:21

>>487
別におかしい事は書いてないと思うが

489 ：名無しさん＠そうだ選挙にいこう：03/06/24 02:54

481＞　私もむかーしお世話になりました。
良サイトだったのに・・・残念ですね。

490 ：454：03/06/24 11:38

>>476
>ひとつのボタンに追加クエリ実行とデータ削除の二つの役割を持たせることはできるんですか？
Docmd.RunSQLかDocmd.OpenQueryで追加クエリと削除クエリ走らす。
>25個のデータを含むフォームを丸ごとコピペしたいわけですが
フォームをコピペじゃなくてフォームのデータをコピペしたいということかな。
「一括コピー」ボタンをクリックで、主キー以外のフィールドのデータを変数にもって
「一括貼付」ボタンで、カレントレコードに変数からフィールドへ。
主キーと重複不可になってるフィールドはそれなりに。

>>485
Access総合相談所のスレに何度かOpenステートメントを使ってテキストファイル
(全銀協の固定長だったり、HTMLだったり)を読んだり書いたりする方法を
書き込んだことがあるから、見てみるか、Helpを「Open」で検索してみて。
それから、487さんじゃないんだけど、
>全体の内の数列のデータが書いてるテキストファイル
は、ちょっと日本語として、ね。

491 ：名無しさん＠そうだ選挙にいこう：03/06/24 11:59

魔法使いが一時閉鎖しちゃいました
どうしたらいいですか・・・・

492 ：名無しさん＠そうだ選挙にいこう：03/06/24 15:41

>491
ぐぐるのキャッシュにまだ残ってる。
保存するの面倒だけど。

493 ：名無しさん＠そうだ選挙にいこう：03/06/24 20:11

>>491
おまえが参照していたサイトが消滅したことは、このスレには関係ない。
くだらねえ事でグズグズ嘆いているんじゃねえよｳﾞｫｹ!

494 ：名無しさん＠そうだ選挙にいこう：03/06/24 20:25

ADPでプログラムを組んでいます。
SQLを使って抽出したデータをexcelにエクスポートって出来ますか？
Outputto以外で。お願いします。

495 ：名無しさん＠そうだ選挙にいこう：03/06/24 22:07

>>494
Outputtoではなぜダメなのでしょうか？
抽出がうまくいかないのかな・・・
自分はOutputtoで満足してます

496 ：名無しさん＠そうだ選挙にいこう：03/06/24 22:38

>>495
Excel3.0/5.0って言うヴァージョンで出力されるからです。
これをExcel97/2000形式で出力できるのであれば、その方法を
教えてください。

別件ですが、Access2000からMSDEにアップサイジングしたら
rs.Indexのrs.seekが上手く使えなくなりました。インデックスの
設定が出来ないでいます。（インデックス/キーの設定はした。）
rs.seekを使う際の記述法が変わったのでしょうか？こちらも
併せて質問させてください。お願いします。

497 ：名無しさん＠そうだ選挙にいこう：03/06/24 22:42

>>496
TransferSpreadsheetは使えないの？

498 ：名無しさん＠そうだ選挙にいこう：03/06/24 22:47

>>496
MSDE使うくらいの話なら、本スレで聞いた方がいいと思うよ。

＊別にこちらの回答者の皆さんを
見くびってるわけではないですよ。

でも最近、本スレとこちらの棲み分けが
曖昧だよなとは思うんだけどね。
かなり、込み入った質問がこっちでも出てくるんで、
こちらの存在意義が希薄になってきたような・・・・

499 ：名無しさん＠そうだ選挙にいこう：03/06/25 08:16

魔法使いのサイトって何だよ？

500 ：名無しさん＠そうだ選挙にいこう：03/06/25 09:04

話を蒸し返すなよ

501 ：名無しさん＠そうだ選挙にいこう：03/06/25 20:23

>>498
本スレって総合相談所ですか？
とりあえず、そっちに逝ってみます。

502 ：名無しさん＠そうだ選挙にいこう：03/06/25 23:33

Access98で、例えば１年間の売上があり、一番多い月のみを抽出するというのは
どうするのでしょうか？
それから、その１年間の売上のグラフを作ることは出来ますか？

503 ：名無しさん＠そうだ選挙にいこう：03/06/26 00:10

access98って何

504 ：名無しさん＠そうだ選挙にいこう：03/06/26 00:39

１．思わず恥死にしそうな質問。
２．簡単なのか難しいのか分からない質問。
３．「自分が、分かるか分からないか」さえ分からない質問。
４．他のスレで繰り返し質問したのにアホ呼ばわりされた質問。
５．質問以前、ACCESSに関係あるのか無いのか不明な質問。

などなど、下等な質問をお待ちしています。誰にも回答義務は無い。
質問者は罵倒されてもレスがつくだけ有難く思うこと。

505 ：名無しさん＠そうだ選挙にいこう：03/06/26 01:01

>>502
野暮ったい方法しか思い浮かばないが
月ごとのグループ化がすでに済んでいるなら、クエリで最大値を選べばよろし
それ以前の話か?
まずクエリで、月度:Format([日付],"yyyymm")みたいなフィールドをつくって、とか
そのあたりから話を始めなきゃならないとしたら、俺は説明が下手だからダメだ。
503がきっとうまいこと解説してくれる。

グラフ？
そりゃつくれるだろうが。
日計を365本、365点並べただけみたいなグラフじゃ、ちっともチャーミング
じゃないだろう。
どんなグラフがつくりたいのか、具体的に書けば、503が丁寧に教えると
約束してくれている。

506 ：名無しさん＠そうだ選挙にいこう：03/06/26 07:04

503って質問者本人じゃないのか？

507 ：502：03/06/26 20:58

>>505
ありがとうございます。
クエリの最大値で出来ました。

>>506
503<>502です。

508 ：ﾁｮﾊﾟｰﾘ：03/06/27 18:23

「平成十五年六月二七日」のような和暦で漢字をつかった日付を表示したいのですが
行き詰ってしまいました

http://ws.31rsm.ne.jp/~pension/access/hagaki/hagaki3.htm
にある漢数字変換のﾌﾟﾛｰｼﾞｬ(?)を組み込む所まではできたのですが
テキストフィールドの書式は「gggee\年m\月d\日」と設定してあるのですが
二〇〇三/〇六/二七
となってしまいます

509 ：名無しさん＠そうだ選挙にいこう：03/06/27 18:34

>>508
見てきたけど、そこに紹介されているfanctionは文字列を返すので
日付型の書式は無視されているんだろう。
取りあえずは、コードのとおりに変換はされているみたいだぞ。

510 ：508：03/06/27 19:04

>>509
ということは、#2003/06/27# っていう日付型データを
1)書式設定で「平成15年6月27日」と表示させて
2)それをテキスト型の「平成15年6月27日」っていう文字列に変換(?)し
3)最後に漢数字変換をかませばいいわけですよね？

手順は解る（気がする）のですが、2)の部分を具体的にどうやるかが解りません

511 ：名無しさん＠そうだ選挙にいこう：03/06/27 19:23

>>508
参考になるかな・・・
format(#2003/06/27#,"ggge年m月d日")　→　"平成15年6月27日"

512 ：508：03/06/27 19:35

>>511
いけました!!
ｺﾚﾃﾞﾔｯﾄｲｴﾆｶｴﾚﾙ…

平成一五年となるのがちょっと気になりますが、たしか領収書用の漢数字変換の
ﾌﾟﾛｰｼﾞｬ(?)で、「壱拾五」と変換できるﾔﾂがあった気がするので、それを
改造してやってみます（明日）

ありがとうございました

513 ：508：03/06/27 19:50

たびたびすみません
http://www.ken3.org/backno/hosoku/ETC_019-1.html
にある、縦書用数値変換改良にちょっと手を加えてたいのですが

そのままだと、「15」を変換すると「壱拾五」となるのですが
これを「拾五」と変換するようにしたいのです

簡単な改造で出来ると思ったのですが、どうやら「壱五」と変換してから
「拾」を足してるみたいなので、簡単にいきそうにもありません

…どなたか、教えていただけないでしょうか

514 ：名無しさん＠そうだ選挙にいこう：03/06/27 20:48

>>513
functionの一番最後に、
変換後文字列の一番最初の文字列を検査して
壱拾、壱千、壱万・・・・・・なら一文字目削除

というコードを書くんでいいんじゃない？

515 ：508：03/06/27 21:40

>>514
理屈はなんとなくわかりましたが、コードの書き方についてはさっぱりなのれす
追々勉強していかねばと想ってはいるのですが、素人スレということに甘んじて
図々しくもお願いします
どなたか変更部分のコードを書いていただけないでしょうか･･･

516 ：名無しさん＠そうだ選挙にいこう：03/06/28 01:27

>>515
Function 日付(d As Date) As String
　Const kanji As String = "一ニ三四五六七八九十"
　Dim t As String, i As Long, j As Long, k As Long, L As Long
　t = Format(d, "ggge年m月d日")
　i = 1
　日付 = ""
　While (i <= Len(t))
　　If IsNumeric(Mid(t, i, 1)) Then
　　　j = 1
　　　While (i + j <= Len(t) And IsNumeric(Mid(t, i + j, 1)))
　　　　j = j + 1
　　　Wend
　　　k = CInt(Mid(t, i, j))
　　　L = j Mod 10
　　　If L > 0 Then
　　　　If L <> 1 Then 日付 = 日付 & Mid(kanji, L, 1)
　　　　日付 = 日付 & Mid(kanji, 10, 1)
　　　End If
　　　L = j \ 10
　　　If L > 0 Then ret = 日付 & Mid(kanji, L, 1)
　　　i = i + j
　　Else
　　　日付 = 日付 & Mid(t, i, 1)
　　　i = i + 1
　　End If
　Wend
End Function

517 ：名無しさん＠そうだ選挙にいこう：03/06/28 01:29

　　　If L > 0 Then ret = 日付 & Mid(kanji, L, 1)
じゃなくて
　　　If L > 0 Then 日付 = 日付 & Mid(kanji, L, 1)
だった

518 ：名無しさん＠そうだ選挙にいこう：03/06/28 01:31

あーまだ間違ってる
ちゃんと試してからまた書くよ・・・

519 ：名無しさん＠そうだ選挙にいこう：03/06/28 01:37

L = j Mod 10　→ L = k \ 10
L = j \ 10　→　L = k Mod 10
これと >>517 の、計3箇所ね

520 ：名無しさん＠そうだ選挙にいこう：03/06/28 08:43

ありがとうございますいま出先なので帰り次第早速使わせていただきます本当にたすかりました

521 ：名無しさん＠そうだ選挙にいこう：03/06/28 08:44

ありがとうございます
いま出先なので帰り次第
早速使わせていただきます

本当にたすかりました

522 ：名無しさん＠そうだ選挙にいこう：03/06/30 01:59

「ﾋﾞｼﾞﾈｽ」soft板でお聞きするのも気がひけるのですが、よろしければ
ご教示下さい。
ﾚｼﾋﾟのDBを作ろうとしています。
１）作り方などを表示しているﾌｫｰﾑ上のボタンをクリックしたら、当該レシ
　　ピの写真が別の小さなﾌｫｰﾑで開いて欲しい。
２）写真は一つのﾌｫﾙﾀﾞ内に「料理名」.jpgという名前のﾌｧｲﾙで溜め込みたい。
３）写真のないレコードについては「ありません」.jpgを表示したい。
４）料理写真ﾃｰﾌﾞﾙを作成して写真のﾊﾟｽを書き込んでいき、データが
　　ない＝写真が無い場合、「ありません」.jpgが表示されるという方式
　　では実現できたのですが、大変面倒なので自動的に「D:\My document
　　\料理写真\「料理名」.jpg」などと書き込まれるようにしたい。
５）表示しようとした時に料理写真ﾌｫﾙﾀﾞ内に「料理名」.jpgがない場合「あり
　　ません」.jpgが表示されて欲しい。

WindowsMｅ、Ａｃｃｅｓｓ2000を使用しています。初めてＡｃｃｅｓｓを触る
ど素人で上記の希望もこんな表現で分かって頂けるのやら・・・と不安ですが、
よろしくお願い致します。

523 ：名無しさん＠そうだ選挙にいこう：03/06/30 10:03

ここってデータベース作成依頼スレなのか…？

524 ：名無しさん＠そうだ選挙にいこう：03/06/30 12:57

>>522
質問の内容は料理の写真を登録する時に、自動的にAccess上で
登録させたい…と言うことでしょうか？

現在:
1.登録データのテーブル上で写真のフルパスを手入力して登録できる
2.料理写真テーブル内に写真フルパスデータのないレシピについては
｢写真がない｣画面が表示できる

将来:
1.写真を表示しようした時に、写真フォルダ内に写真ががなければ
｢ありません｣と表示したい
2.料理写真フォルダに自動的に料理名をつけて写真を登録したい

ここで疑問があります。
疑問1:現在2.では｢ありません｣が表示できるのに、
将来1.はどこで表示させたいのでしょう？フォーム上で表示させた
いのでしょうか？現在2.の｢ありません｣表示はどこで表示させてい
るのでしょうか？
疑問2:自動的に写真パスを入力させるのはフォーム上でボタンを押
して登録させる時でしょうか？それとも料理写真テーブルに直接入力
させる時でしょうか？
この辺りで回答も違ってくるのですが…

525 ：名無しさん＠そうだ選挙にいこう：03/06/30 13:46

請求書伝票テーブルと明細テーブルをメイン・サブフォームで作ったものを
レポートにする場合もメイン・サブレポートにしなければいけないの？
伝票クエリと明細クエリをソースにして普通のレポートにしてみたら、
なんかちゃんとできてるけどこれでいいのかなとちょっと心配。
サブフォームで作ったからといってかならずしもサブレポートにする必要は
ないのでしょうか。つーか、私、サブレポートの意味わかってないの？

526 ：名無しさん＠そうだ選挙にいこう：03/06/30 13:48

>>525
クエリーが出来ているならば、それを基にレポートを作成すればOK
あくまでフォームのメイン/サブは表示上の問題です。
レポートには関係ありませんよ。

527 ：名無しさん＠そうだ選挙にいこう：03/06/30 13:54

>>526
フォームのメイン・サブは見やすくするためだけの機能だったのかー
すっきりしました。ありがとぉ

528 ：522：03/06/30 13:55

>524
ご質問、ありがとうございます。

回答1:「ありません」は「ありません」.jpgというﾒｯｾｰｼﾞの入った画像を
　　　　作って、料理写真画像と全く同じように表示させています。（作り方
　　　　等を表示しているﾌｫｰﾑ上のﾎﾞﾀﾝをclickすると小さいﾌｫｰﾑが開き
　　　　当該料理の写真、または「ありません」が表示される）「ありません」.jpg
　　　　も、料理写真ﾌｫﾙﾀﾞに他の料理の写真と一緒に入れてあります。
　　　　写真、「ありません」の結果的な表示のされ方は今の状態で満足です。
回答2:理想としては、料理写真ﾌｫﾙﾀﾞに「当該料理名」.jpgが入っているか
　　　　どうか「写真表示」ﾎﾞﾀﾝをclickした時にDBが探してくれて、あれば当該写真を
　　　　表示、なければ「ありません」を表示してくれると嬉しいです。
　　　　
もし、料理写真ﾌｫｰﾑ（料理写真ﾃｰﾌﾞﾙの入力用でもある）のﾃｷｽﾄﾎﾞｯｸｽ
「写真ﾊﾟｽ」に、ﾌｫｰﾑを開いた時、自動でD:\My document\料理写真
\「料理名」.jpgと入れられれば、当該写真があればその下の画像を
表示する部分に表示されるし、なければERROR→「ありません」表示、と
いう風にできないのかな？などと考えております。

ご理解いただけましたでしょうか？ｸﾄﾞｸﾄﾞと長文回答で申し訳ありません。　

529 ：名無しさん＠そうだ選挙にいこう：03/06/30 14:25

>528
写真パスの方は
"D:\My document\料理写真\"& Me.料理名 & ".jpg"
を入れればいいと思う。

写真表示の方はフォームのイベント使って、写真の有無判定させればいい。

530 ：522：03/06/30 14:33

>529
ありがとうございます！
早速、チャレンジしてみたいと思います。

531 ：524：03/06/30 14:46

>522のご質問の内容は以下の2点に集約されると思います。
1.写真データのないものは｢ありません｣画像、あるものは写真を表示させる。
2.レシピデータおよび写真データの登録。

1.写真データの表示
これはフォーム上の｢写真表示｣ボタンをクリックした時に写真データを
検索し、写真があれば写真を表示させる/なければ｢ありません｣画像を
表示させると言う条件分岐のコードを書けば良いだけです。
確認する方法は2つくらいあります。1つ目は料理写真テーブル内の検索、
2つ目は写真フォルダそのものの中でjpegそのものを確認する方法。
さらに、次のレシピに移った時あるいは再度｢写真表示｣ボタンを押した
場合、画像は一度閉じると言うコードを入れておいた方が良いでしょう。
これは｢ありません｣画像の使い回しをするためです。｢ありません｣画像が
既に開いている場合はエラーとなることがあるでしょうから。

532 ：524：03/06/30 14:50

↑ごめんなさい。2.レシピデータおよび写真データの登録は関係ないですね。
表示時の問題だったのですよね。

533 ：名無しさん＠そうだ選挙にいこう：03/06/30 20:47

helpを見ても、調べ切れませんでしたので、お尋ねさせて下さい。
パラ－メータクエリなんですが、抽出条件と合致するレコードがない場合、
空のレコードが表示されます。
「該当するデータはありません」などのメッセージボックスを出したい時は
どうすれば良いのでしょうか？

534 ：名無しさん＠そうだ選挙にいこう：03/06/30 21:16

>>533　
>「該当するデータはありません」などのメッセージボックスを出したい時
テーブルやクエリーの数を確認し、0ならばレコード表示前に
msgbox"該当するデータがありません",vbcriticl,"NoData"
end
データ数の確認はDcount("フィールド名","テーブル/クエリー名")

if　Dcount("フィールド名","テーブル/クエリー名")=0　then
　msgbox"該当するデータがありません",vbcriticl,"NoData"
　end
else
　データの表示
end　if
ってな感じでどうでしょう？

535 ：533：03/06/30 22:03

>>534さん
早速ありがとうございます。
しかし、それをどうすればいいのかがわかりません…
現在は、フォームのコントロールソースをそのクエリにしています。
そして、フォームを「開く」をクリックすると、パラメータ入力のウインドウが開きます。
該当するレコードがなくても、全フィールドが空のフォームが開きます。
この流れの中の、どこに、教えていただいたものを入れればよいのでしょうか？

536 ：とも：03/06/30 22:37

みてね～♪
http://s-rf9.free-city.net/page008.html

537 ：横レス　はみちん：03/06/30 22:40

>>535
フォームのOpenイベントなりにVBAとして入れるんだが、
もしかしてVBA使ったことないのかな？

538 ：534：03/06/30 22:50

>>535
うう～やっぱりパタメータークエリーそのものの設定でやろうと言う話か…
パラメータクエリーそのものの設定では無理だと思う。
そのような設定はないと思うので、パラメータークエリーを表示させる時に
｢パラメータークエリーのデータがなかったらメッセージを出す｣と言う
条件分岐を入れる必要がある。
パラメータークエリーはどうやって表示させてるの？
フォーム上のボタンを押すと表示するの？

539 ：534：03/06/30 22:57

>533さん、すまない。書いてあったね。
う～ん、フォームのコントロールソース自体にパラメータ設定？
フォーム上の｢開く｣ボタンを押すとパラメータウィンドウが開くの？
私はやったことがないから答えられないなー
パラメータ設定は必ずしも必要なのかな？

他にパラメータークエリー分かる人いない!?

540 ：534：03/06/30 23:30

>533
1.パラメータのやっていることはクエリに条件をつけていることなので、
　例えば先ず始めに開くベースになるフォーム(何もクエリーなどは
　関連付けられていない)を作り、｢データ抽出｣ボタンとデータ抽出用の
　パラメータを入力するコントロール(非連結テキストボックス)を作ります。
2.データ抽出用クエリを作り、抽出するフィールドの｢抽出条件｣に
　先に作ったフォームの｢データ抽出用パラメータ｣テキストボックスを指定します。
　指定の仕方は抽出するフィールドの｢抽出条件｣を選択したら｢ビルド｣を起動して
　指定します。
3.先に作ったフォームに抽出条件を入力して、クエリーを実行してみます。
4.３が成功したら、先に作ったフォームの｢データ抽出｣ボタンのプロパティで
　｢クリック時｣に>>534を記述します。
on　error　resume　next　'次の行がエラーの場合無視して進む
docmd.close　acquery,"クエリー名"　'"クエリー名"を閉じる
if　Dcount("フィールド名","クエリー名")=0　then
　msgbox"該当するデータがありません",vbcriticl,"NoData"
　end
else
　docmd.openquery　"クエリー名"
end　if

これで希望のことが出来るはずなんですが…

541 ：533：03/06/30 23:31

こちらの説明が不十分で、失礼致しました。
それなのに、皆さま、ありがとうございます。
１０桁のパーツ番号を持つ部品の、品名や規格、仕入先などを見るためのフォームです。
部品番号の抽出条件にLikeを使っているクエリを作って、
部品番号検索したレコードを単票形式のフォームで見られるようにしています。
マクロは、何回か作ったことがありますので
まず、フォームを開くマクロを作ってＶＢＡに変換し、
教えていただいたのを入れれば大丈夫でしょうか？
明日、会社でちょっと試してみます。

542 ：534：03/06/30 23:43

>フォームを開くマクロを作ってＶＢＡに変換
OKですよ
頑張ってください。

さて、仕事するか…

543 ：名無しさん＠そうだ選挙にいこう：03/07/01 00:10

大変恥ずかしい質問ですが、素人ですのでご容赦ください。
また、適当なスレが見当たらなかったため、ここで質問させていただきます。

現在、Office 2000（Word,Excel,Out look)を使用しています。
Office XP Professional(PowerPoint,Access付)のバージョンアップしたいのですが
アップグレード版で、PowerPointとAccessはインストールでき、使用できるのでしょうか？
それとも正規版でないと無理なのでしょうか？
よろしくお願いします。

544 ：名無しさん＠そうだ選挙にいこう：03/07/01 04:55

>>543
MSの Webサイトくまなく探さんかい! FAQじゃ!

545 ：名無しさん＠そうだ選挙にいこう：03/07/01 21:51

access2000使ってます。
フォームから住所録テーブルへ入力し、プリントするだけの単純なものです。
住所録テーブルのレコードが４００件を超えて来ましたので、
住所録テーブルの１００～２００（オートナンバーでふってます）までを
プリントしたい場合には、フォームで１００と２００に何か入力して直接
レポートに渡すのは無理ですよね？
一度クエリーで抽出するのかと思いますが、具体的に進みません。
どんな機能を使うとかヒントだけでも教えてください。

546 ：533：03/07/01 21:57

>>534さん
540に書いていただいた方を試してみました。
惜しくも３のところでクエリが実行できませんでした。
パラメータ入力用に作ったフォームのテキストボックスに
１０桁の部品番号を入れてみるのですが、それを認識できないようです。
テキストボックス内に表示されているものが数値なのかテキストなのか
全く定義されていないためではないかと思うのですが。
そもそもコントロールソースを持たないフォーム上の
非連結テキストボックスに入力した文字というのは
何かの値として認識されるものなのか
表示されている間、どこに（仮に）保存されているのかわからないのです。
データを格納するテーブルと繋がっているわけでもないですよね…
私のアタマが悪いのか…お恥ずかしいです。

マクロをＶＢＡに変換する方については
教えていただいたものの挿入の仕方が今一つわかりません。
明日、ＶＢＡの解説書を見ながらチャレンジしてみます。
いろいろと御教授いただき、ありがとうございました。
またよろしくお願いします。

547 ：名無しさん＠そうだ選挙にいこう：03/07/01 22:40

電話帳を想像していただけるとありがたいのですが、

レポートで縦３～４列に複数レコードの情報を連記するのって
できるのでしょうか？

548 ：名無しさん＠そうだ選挙にいこう：03/07/01 23:11

↑できることはできる
けっこう面白かったりもする。

549 ：名無しさん＠そうだ選挙にいこう：03/07/01 23:21

>548
やり方ご教授ください。
同一行に複数のヘッダーや明細行っておけるんですか？

550 ：534：03/07/01 23:26

>>546　533さん
クエリー側(テーブルのフィールド)は数値(intかlong)でしょうか？
だとすると、
1.テキストボックス側の設定で入力を｢オフ｣にして自動的に
　半角英数のみの入力状態でどうか？この設定はプロパティの
　その他タブ/IME入力モードです。
2.クエリーの条件式で数値変換してみる。テーブルのフィールドが
　intならCInt(Forms!フォーム名！コントロール名)、longならCLng()。
　ちなみにいろいろな変換がある。文字列(String)や日付（Date）など。
　数値はint/lng/Double/Singleとある。気をつけて。

これでもダメなら、テキストボックス内の入力値がどのように表示
されるかmsgboxで一度表示してみる。変数(intならintXとかテキス
トならtxtXとか)を宣言し、それに入れてみてどうなるか？それが
ちゃんとクエリーの条件として比較対象になるか確認するのも必要
ではなかろうか？クエリーや条件式の比較にはいつも悩ませられ
るところだよ。この辺はアイデア勝負！当たって砕けろ、何でもやっ
て見る。
マクロの変換はやったことがない(私はいきなり本を読んでプロシー
ジャ書き始めた人)なのでよく分からない…すまぬ、力になれない。
プロシージャは難しくない。ちょっとしたルールが飲み込めれば、
結構何でもアイデア次第で出来るもの。頑張れ！

551 ：548：03/07/01 23:39

>>547
あ、そっか、明細行って言葉で、自分の早とちりに気づいた。
いや、それでも、絶対無理ってことはないと思うけど。

その、何つか、

1 2 3
4 5 6
7 8 9

みたいな形がつい思い浮かんじゃって、これだったらつい最近やったことが
あるんで

1 4 7
2 5 8
3 6 9
本当はこれでしょ。

んん、何か方法はありそう
俺も素人なんでそうそう知恵はないけど、面白そうなんでちょっと考えてみる。
ダメだったらごめん

552 ：534：03/07/01 23:43

>533さん
デバッグは重要だよ。
上手くVBAのブレークポイントとステップバイステップ使ってね。
VBA上でMsgboxを使ってコントロール内の値を確認すると便利だよ。
私は最近、イミディエイトウィンドウの使い方を知った…便利だよ。

マクロを変換したVBAのコードは、必要なところ(フォームのコントロー
ルのイベントなど)に貼り付けることで使用できる。例えば、フォームの
｢開く｣ボタンを押したら動作するようにしたい場合、動作のマクロを作り
変換したVBAを｢開く｣ボタンの｢クリック時｣イベントに貼り付ける。クリッ
ク時の右横をクリックし、プロシージャを選択するとVBAウィンドウが開き
Private Sub 開く_Click()と書かれているはず。その下に生成されたコー
ドを貼り付けることで使えると思う。

フォーム上のコントロールの値はフォーム上に表示している間そこにある。
フォームのコントロールソースとは何ら関係なく、そのフォーム上に存在
するわけだよ。VBAやクエリーで｢そのフォームのコントロール｣を指定す
ることで、そのフォームのコントロールの値を使うことが出来る。
ちなみに、先の｢開く｣ボタンのプロシージャのPrivate Sub 開く_Click()の次行に
dim　txtX　as　string　　'変数txtXは文字列型です
txtX=Forms!フォーム名！コントロール名　　'変数txtXにフォームのコントロールの値を代入汁！
msgbox　txtX　　'メッセージで変数txtXの値を表示せんか(ﾟДﾟ)ゴルァ！
と入れてみると、ボタンを押した時にフォームのコントロールの値が表示されるよ。

553 ：名無しさん＠そうだ選挙にいこう：03/07/01 23:53

>547　電話帳から想像すると…
単純に3～4列表示にするなら、レポートのページ設定の
レイアウトで列数、行間隔などを設定できる。
これは単純に、例えばレポートに表示する1～100のデー
タがあった場合、1枚の用紙に1列10個で3列のデータが
配置できるとすると、3列表示にし自動的に折り返して必要
枚数に印刷してくれると言うもの。

554 ：名無しさん＠そうだ選挙にいこう：03/07/02 00:33

ログインなどののログをとりたいのですがテキストへ追記という
形ではき出すにはどういうコードを書けば実現可能なのでしょうか？
一応ディレクトリはCへはき出すように考えております。よろしくお願いします。

555 ：名無しさん＠そうだ選挙にいこう：03/07/02 00:46

Access的にはテーブルに溜めてエクスポートという手順が一般的じゃないの？

さもなきゃ昔ながらのOpen Append & Write

556 ：名無しさん＠そうだ選挙にいこう：03/07/02 00:52

Open Append & Write調べてみます(@_@)ありがとうございます。

557 ：548：03/07/02 01:00

>>553
知らなかった～
そんな機能
レコードに連番ふって、1ページに詰め込む数で割った剰余数によって
クエリで分割して、分割したそれぞれにまた新たな連番ふって、
その第2連番を横つながりキーにして、クエリでまとめなおす、
なんてことを本気で考えて実験しようとしていた俺は、
たぶんかなりの確率で馬鹿です。

ささ、寝よ

558 ：あぼーん：あぼーん

あぼーん

559 ：533：03/07/02 05:59

>>534さん
毎晩お世話になります。
今日、会社に行って早速トライしてみます。

会社にはword excelを使える人はいても
access ができる人はほとんどいません。
「こんなこと（メッセージボックスのこととか）できないのぉ？」と
いろいろ要求される割には、誰にも教えてもらえないという状況。
市販のマニュアルを買っても
そこに掲載されている例と、自分のやりたいことが違ったり
便利な裏ワザみたいなものは載っていなかったり、で
それだけでは、すっきり解らないことがよくあります。
このスレは最近見つけたのですが
いろいろ勉強させていただきますね。
ほんと、ありがとうございます（泣

560 ：534：03/07/02 07:25

>533さん、あ～同じような状況でしたよ。
私もAccess触り始めた時は…

お金を惜しまず本は買った方が良いです。
リファレンス本とかね、買いまくってますよ、私。
VBAのコードがいっぱい載ってる本もお勧めです。
Access2000の奴でも参考になると思うよ。
Access使った良いような処理(データを貯めて
同一形式書類を作るような仕事)には便利ですよ。
じゃ、頑張れ～

561 ：名無しさん＠そうだ選挙にいこう：03/07/02 07:27

(；´Д｀)ﾊｧﾊｧﾎﾞｯｷしますた
http://homepage3.nifty.com/coco-nut/

562 ：_：03/07/02 07:45

563 ：名無しさん@そうだ選挙にいこう：03/07/02 09:07

>>545
フォームにナンバー入力用のテキストボックスを配置(仮にtxtNO_SとtxtNO_E)

レポートのレコードソースプロパティで右の「...」をクリックし、ここで住所テーブルを
元にしたクエリを作成し、ナンバーのあるフィールドの抽出条件に

Between Forms![フォーム名]![txtNO_S] And Forms![フォーム名]![txtNO_E]

を書いたらできるよ。

564 ：名無しさん＠そうだ選挙にいこう：03/07/02 12:21

>553
宛名タックシールみたいな単純にベタ打ちするものなら電話帳形式で
できそうな気はするんですが、さらに途中で何層もヘッダーが必要なんですよ。

ぶっちゃけ話、全国高等学校名一覧を電話帳の形式で出したいんですが
県や公立/私立の別が変わる毎に１行分県名や「公立」などと打たないといけないので
ヘッダーも何層か混ぜないと・・・・

それとも単純に明細形式のエリアに文言を編集しておいてキーだけつけておいて
ソートするかな？

ま、言い出しっぺだし、考えてみます。

565 ：545：03/07/02 12:54

>>563
丁寧にありがとうございます！
午後は仕事サボって、これ試してみます（これも仕事か？）

566 ：553：03/07/02 12:54

>>564
データのテーブルには公立/私立の分類を記入するフィールドはありますか？
あればクエリーで公立/私立をグループ化し、レポートの｢並べ替え/グループ化｣
の設定を行い、それのグループヘッダー:ありにすれば公立/私立のヘッダーが
出来ます。都道府県のグループ化→公立/私立のグループ化の順であれば、同様に
公立/私立グループ化よりも上にレポートの｢並べ替え/グループ化｣で都道府県を
設定する。(当然、クエリーにも都道府県のフィールドによるグループ化は必要)

こんなんでどうだろうか？
このくらいしか想像がつかない…ごめん

567 ：553：03/07/02 13:00

例えば
北海道
　公立
　　A校　0000-00-0000
　　B校　0000-00-0000
　　C校　0000-00-0000
　私立
　　D校　0000-00-0000
　　E校　0000-00-0000
　　F校　0000-00-0000
青森県
　公立
　　G校　0000-00-0000
　　H校　0000-00-0000
　　I校　0000-00-0000
　私立
　　J校　0000-00-0000
　　K校　0000-00-0000
　　L校　0000-00-0000
と言うレポート表示になります。
指定の都道府県のみであれば、同様にクエリーの都道府県フィールドに
指定の都道府県を抽出する条件を付加すれば指定都道府県のみのデータ
でレポートが出力できる。
レポートの｢並べ替え/グループ化｣は抽出条件の都道府県が記載される
ことになるので、手で入力する必要はない。
こんなんで参考になるかな？

568 ：名無しさん＠そうだ選挙にいこう：03/07/02 14:45

>566-567
わざわざお答えありがとうございます。

え、と　
書いていただいたことくらいは私でもできるのですが、
これを電話帳のように縦５列にして同じ事ができるか？
というのが私の悩みだったんですが・・・

じゃ、553でお答えいただいているような電話帳形式で
かつヘッダーを混ぜることが可能ということですね

自分でやってみるのが一番早いのですが、他の作業で時間を取られて
まだACCESSの画面すら開けないので申し訳ないです。
あとで時間ができたら試してみます。

569 ：553：03/07/02 15:10

>568
レポートの列設定は単なるレポートの表示列の問題なので、
レポートのプロパティで設定されたヘッダー等を単純に
指定列表示するだけですよ。
レポートのヘッダー設定が出来ていれば、Access起動して
レポートのページ設定すればものの数秒で分かりますが…
まぁ、休み時間にでもやってみることでしょうね。

570 ：>547：03/07/03 17:32

レポートの複数列表示
やってみたら実に簡単でした。
（ページ設定→レイアウト→列数入力）

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

後の課題は、これにどうやって外枠の罫線をつけること・・・か

571 ：名無しさん＠そうだ選挙にいこう：03/07/03 17:45

アクセス2000で、データベースごとバックアップを自動でとる方法って
ありますか？
もしくは、ボタンでバックアップ（手動）でも可です。

572 ：名無しさん＠そうだ選挙にいこう：03/07/03 20:56

>>571
mdbファイルをコピペ

573 ：名無しさん＠そうだ選挙にいこう：03/07/03 21:52

ＲＡＩＤ

574 ：名無しさん＠そうだ選挙にいこう：03/07/03 22:20

ミラーリングソフト

575 ：名無しさん＠そうだ選挙にいこう：03/07/03 22:40

俺は職場ではバッチ作ってZIPのパスワード付きで圧縮して
ネットワーク上に待避してる。
%日付%_db名.zipてな名前つけて・・・

ネットワーク上にある程度たまったらはじめてMOに待避。
毎回離れた場所にMOをマウントしに行くの面倒臭いもんで。

576 ：533：03/07/03 22:51

>>534さん
できますた～！！！
前回、なぜステップ３でクエリが実行できなかったかも判明。
抽出条件を入れるためのテキストボックスと
それに繋がるクエリのフィールドのプロパティが一部違っていたためです。
部品番号は英数字なのでテキスト型でした。
プロパティの書式やIMEに関する設定が全く同じでないと
認識できないのですね。
でもとにかくうまくいきました（泣

msgboxを「該当するデータがありません。再検索しますか？」（はい／いいえ）に変え
「はい」なら再度抽出条件を入れるフォームを開き
「いいえ」ならクエリのフォームを閉じる
なんていうのも、リファレンスを見ながら作れました。
とても有用なアドバイスをありがとうございました。
中学生の頃、BASICで１行１行、FOR I=1 TO 5 …　NEXT I
なんてプログラムを書いていた頃を思い出しますた。
構成は比べ物にならないほど複雑になっていますが
処理の手順を考え、ひとつずつ積み重ねて行くというプロセスそのものは
基本的に変わっていないのですね。
何をさせたいのか、どういう順番で処理するのかをまずきちんと考えられれば
あとは慣れなのかも。と思いました。
実践あるのみ、ですね。
「こんなことできないの？」と言った上司からは
「褒めてつかわす」とのお言葉をもらいました。
いっしょに褒美ﾓﾅｰ

577 ：名無しさん＠そうだ選挙にいこう：03/07/03 23:21

>>576
よし、お前のおごりでOFFを企画しろ。

578 ：534：03/07/04 00:01

>>576 533さん、おめでとう！よかったです。
…例えばこんなアイデアはどうでしょう？
抽出条件フォームにサブフォームを組み込み表示させるなんて如何？
1つのフォームでサブフォームのソースを切り替えれば簡単に出来ます。
そうすると、｢再検索しますか？｣と言うメッセージは必要なくなります。
フォームを開いた直後とレコードがない場合と連続動作の時のために
レコードソースを持たないデータシートビューのフォームと抽出クエ
リーを関連付けたフォームを用意し、抽出条件でデータがある場合は
レコードソースありのフォームをサブフォームのソースにし、データが
ない場合はレコードソースなしフォームをサブフォームのソースにする。
抽出し直してサブフォームを表示し直す場合も、一時的にデータなしの
フォームに切り替えて抽出データがあればレコードソースありのフォー
ムに再度切り替える。もう一つ全データを表示するフォームを用意し、
抽出フォームを開いた直後と抽出用テキストボックスに未記入で｢抽出｣
ボタンを押した場合は、全データを表示させることも可能。
こうすると抽出フォームを開閉しないため、見る側も楽になると思います。
結構、私はタブコントロールを多用しています。サブフォームが共通で
使い回しできるしコントロールも共通で使い回しが出来るし、見た目も
良いです。タブコントロールで切り替えれば、1つのフォームでデータ
入力、データ表示、データ検索などが出来るので、私には使い勝手が
良いですね。

私も業務で必要に迫られAccessを使い始めました。プログラムの基礎
知識も全くありません。誰にもAccessを教えてもらえない状況で本（最近
は+ネット)を頼りにしてきました。上司に誉められたこともありません(w
こんな私でも何とかやってきているのであなたにも出来るはずです！
これからも頑張ってください。

579 ：名無しさん＠そうだ選挙にいこう：03/07/04 13:16

>>522
だいぶ前のレスのようですが。この質問ちょくちょく出てきますよねー。
張付け方によると思うのですが、私の場合５００レコード位で動かなくなりました。
Accessは容量２ＧＢをお忘れなく。

580 ：名無しさん＠そうだ選挙にいこう：03/07/04 13:30

>579
画像そのものをmdbに取り込まず、フルパスを文字データとしてテーブルに
格納するだけでも500レコードしか保存できないのかな？
写真のフルパスを文字データとしてテーブルに格納するだけなら、そんな
でもないように思うけど…フルパスの文字データだと結構でかくなるのかな？

581 ：名無しさん＠そうだ選挙にいこう：03/07/04 13:54

というかDBが個人使用で、フォルダ固定されてて、
しかもファイル名が「料理名」 & ".jpg"と決まってるなら
レコード毎にフルパスを持っておく必要ってあまりないような気が
するんだが…>>522が個人使用かどうかはわからんが。

582 ：名無しさん＠そうだ選挙にいこう：03/07/04 13:59

579です。
私詳しいことわからないのです。
テーブルの表示はそのようになっていたと記憶しております。
フォームで該当項目ダブルクリックで表示（印刷）でしたが何千件になる
ので、すぐやめもう別管理に切り替えております。
５千件超えておりますので、可能なほうほうあればご教示下さい。

583 ：名無しさん＠そうだ選挙にいこう：03/07/04 14:55

う～ん、基本収納フォルダを別テーブルに保存しておいて、
各該当レシピに写真名だけを入れておくとか？(基本収納
フォルダ変更等の対応のため)写真名=レシピ名ならば、
｢料理名｣&".jpg"すら保存する必要はない気もする…
個人的には1レシピ1写真とは決められないだろうし、写真名も
Accessの決め打ちより正確な写真ファイル名を指定したいから、
ファイル選択ダイアログで選択した写真ファイル名をテーブル
に保存すると思うけれど…

>>582　｢可能なほうほうあれば｣とは？何が可能と言うことでしょうか？

584 ：名無しさん＠そうだ選挙にいこう：03/07/04 15:10

582
ですから５００レコードでAccess(2000でした　-　今は2002)フリーズ　
しました。他にも仕事沢山おしつけられあれやれ、これ作れ（この会社
やめたい）なんでも作れと言われてます。５００でフリーズしたのには
びっくりしました。どうして、で念のためバックアップとり、該当項目削除
したら、動きました。別管理ではわずらわしいと社長が言うんです。

585 ：名無しさん＠そうだ選挙にいこう：03/07/04 15:34

>583
>522の一連のレスを読む限り、1料理に1写真っぽい。
写真フォルダ固定、レコードに料理名あり、ファイル名は料理名.jpgという
条件で作るならパスもファイル名も持つ必要ないような気がする。
個人用ならこれで充分かと。業務用ならもっときちんと作るけどね。

>584
>580読んで理解できないなら無理じゃないかな。
つーかやめたいならやめればいいんじゃないか。

586 ：名無しさん＠そうだ選挙にいこう：03/07/04 15:45

>585　同意。
でも、｢私個人が個人使用で作るとしても｣と言う意味で
"個人的には1レシピ1写真とは…(以下略)"です。

>584
正直、どのような状況なのか良く分かりません。
表示は該当レコードダブルクリックで写真1枚を表示ですか？
それとも何千件を自動で1度に表示したのでしょうか？
｢５００でフリーズした｣と言うことは何千件の画像を順に
自動的に表示して行ったと言うことでしょうか？
表示画像はどのくらい大きい(ファイルサイズ)のでしょうか？
｢該当項目削除｣と言うことは、画像を表示しなくなったら
フリーズしなくなったと言うことでしょうか？

正直、Access上の問題なのかWindowsの問題(メモリなど)なのか
ハード性能上の問題(させたい仕事に対して低性能なパソコンだっ
たなど)、今のご説明内容では原因の特定が出来ません。
どのように表示するか、どこで問題が発生しているかなど分から
なければ、答えようがないと思いますが…
詳しいことがお分かりにならないようであれば、ご自分で解析し
せめて問題点と思われるところを絞っていただかないと回答でき
る人はいないと思います。

587 ：名無しさん＠そうだ選挙にいこう：03/07/04 16:13

582です。
ある機械の納入仕様書をスキャンしております。
（勿論住所・電話等必要事項もあります）
メンテ依頼の時５０音検索画面か電話番号で当該お客さまデータが表示（印刷）
お客さま名欄ダブルクリックで客先データー表示、仕様書欄クリックで該当
納入機種一覧表示（スキャンしたもの）
これで５００レコードでフリーズ。
585さんの仰るとおりこの会社は辞めます。もう少しスキルを上げて
また時々教えて下さい。

588 ：名無しさん＠そうだ選挙にいこう：03/07/04 16:38

>587　582さん
顧客情報データを表示した上で同時に印刷すると言うのを
500件連続で行うとAccessがフリーズすると言うことでしょうか？
｢納入仕様書をスキャン｣と言うのはAccessのテーブル内レコードを
スキャンしていると言うことですよね？
OSは何でしょうね。
私にはAccessのデータベース構造の問題と言うより、ハードと
Windows絡みの問題も発生しているような気がします…
単に連続表示での問題ならばと言う意味ですが。

参考になるかどうか分からないけれど、以前、画像を表示する
と言う関連で語られたレス群があります。
ACCESS総合相談所その５
http://pc.2ch.net/bsoft/kako/1033/10331/1033182163.html
質問者90さん、327さん、466さん辺りが画像表示関連です。
参考になりませんか？

589 ：名無しさん＠そうだ選挙にいこう：03/07/04 16:59

>>587
>納入機種一覧表示（スキャンしたもの）
>これで５００レコードでフリーズ。

これは、画像を一気に500開くということか?・・・・・凍るわな・・・・

590 ：名無しさん＠そうだ選挙にいこう：03/07/04 21:11

初歩的な質問かもです・・・
とあるテーブルに「年月日」という１つのフィールドがありまして、
とあるフォームの「年」「月」「日」という３つの別々のテキストボックスから
値を入力して「年月日」フィールドに値を入れるということは出来るの
でしょうか・・・

あ・・クエリなら簡単に出来るんですけど・・テーブルに直接なんです、うぅぅ・・

591 ：名無しさん＠そうだ選挙にいこう：03/07/04 21:57

>590
出来るけど、自分ならVBA(あるいはマクロ？)を使う

592 ：590：03/07/04 22:28

>>591
VBAですか・・・VBA自体は少しは分かるのですがどうしたら
いいのか見当がつきません・・・だいたいの方法でいいので
教えてください・・うぅ・・

593 ：名無しさん＠そうだ選挙にいこう：03/07/04 22:57

>>592
Dateserialでヘルプを検索。
不明点があれば再度おいでませ。

594 ：名無しさん＠そうだ選挙にいこう：03/07/04 22:59

プロシージャ(VBA)で
1.テーブルをレコードセットで開く
2.該当のフィールドにcdate()で変換して代入する
3.アップデートでテーブルの値を更新処理する
具体的にはDAOを使うとすると

Dim dbsObj As DAO.Database　'オブジェクトの宣言(データベース)
Dim rstObj As DAO.Recordset　'オブジェクトの宣言(レコードセット)
Set dbsObj = CurrentDb
Set rstObj = dbsObj.OpenRecordset("テーブル名")　'レコードセットでテーブルを開く
rstObj.AddNew　　'新規データの登録
'日付がたへの変換で代入
rstObj!Date = CDate(Forms!フォーム名!年 & "/" & Forms!フォーム名!月 & "/" & Forms!フォーム名!日)
rstObj.Update　'更新
rstObj.Close　'レコードセットを閉じる
Set rstObj = Nothing　'オブジェクトの開放

ただし、月/日の入力確認が必要。
指定レコードの修正の場合は.addnewでは出来ない。

595 ：名無しさん＠そうだ選挙にいこう：03/07/04 23:04

クエリーでも、
CDate(Forms!フォーム名!年 & "/" & Forms!フォーム名!月 & "/" & Forms!フォーム名!日)
を使用して更新あるいは追加すれば可能だと思う。

596 ：名無しさん＠そうだ選挙にいこう：03/07/04 23:33

Access95とAccess2000との互換性はあるのでしょうか？
会社はAccess95、家だとAccess2000を使用しています。
この場合Access2000で作成したデータをAccess95でも問題なく
使用できるのでしょうか？

597 ：名無しさん＠そうだ選挙にいこう：03/07/04 23:47

>>596
問題はあるけど使用は出来る。

598 ：名無しさん＠そうだ選挙にいこう：03/07/05 00:41

>>597
問題ってどんな問題なんですか？

599 ：522：03/07/05 04:29

>>524様、>>529様
>579－586様
やっと画像表示問題が解決して、ご報告に・・・と思いましたら、話題に
して頂いていて驚きました。「Fileserach」というのを使った>>528の回答2
の理想にピッタリのｺｰﾄﾞを某ﾍﾟｰｼﾞで発見、それをｺﾋﾟﾍﾟして固有名詞？のみ
書き換えてみたところ、ｽﾙｽﾙと動きました。
お察しのとおり、DBは個人使用というか、できあがったら娘にやりたいなと
思っております。通常業務（家事ですｗ）もありますので、いつになるやら
わかりませんが・・。
現在は、材料等で料理を検索→レシピを表示→再度検索→表示、を
すると、一度目の検索結果のレコードが表示されてしまい、悩んで調べた
あげく、どうもACCESS2000のﾊﾞｸﾞ？ということがわかり、MS(ﾟДﾟ)ｺﾞﾙｧ!!
と思いつつ、明日からは何とか解決法を探りたいと思っているところです。
まずは、ご親切な皆様へ、ご報告まで。

600 ：名無しさん＠そうだ選挙にいこう：03/07/05 15:18

600(σ^▽^)σｹﾞｯﾂ!!

601 ：名無しさん＠そうだ選挙にいこう：03/07/10 01:52

質問です。
　Postgresを運用し、ODBCを経由しフロントエンドにAccessを使おうと
思っています。
　ここで質問です。このような方法で、フロントエンドにAccessを使う
場合、なにか制限はあるでしょうか？
（実はDBデータはAccessで作って、pgAdminIIでpostgresにデータを移し
ました。リレーションなどの情報がなくなっていました。）

　ご面倒ですが、なにかアドバイスがありましたらお願いいたします。

602 ：名無しさん＠そうだ選挙にいこう：03/07/10 02:20

そもそも Postgresとは何？

603 ：名無しさん＠そうだ選挙にいこう：03/07/10 09:05

>>601
ここは【玄人】【禁制】でっせ…
難しいことはAccess総合相談所やら
ム板、DB板に訊いた方が…

604 ：名無しさん＠そうだ選挙にいこう：03/07/10 09:35

>>602,603
ご指摘ありがとうございます。
postgresは、Accessとは関係のないフリーのRDBMです。
ODBC経由でAccessを使う場合の問題をお聞きするつもりでした。
別のDB板で訊きます。
では。

605 ：山崎渉：03/07/15 11:18

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

606 ：名無しさん＠そうだ選挙にいこう：03/07/15 15:41

サブフォームのあるフィールドの合計をDsum関数を使って
メインフォームに表示させていますが、サブフォームに
値を入力しても即座に反映されません。

フォームを閉じて開きなおせば反映されるのですが、
これをサブフォーム変更後にすぐ反映させる方法が
分かりません・・・サブフォームのほうに何かイベントを
記述すればいいというのは分かるのですが・・・（涙

607 ：名無しさん＠そうだ選挙にいこう：03/07/15 15:47

★オマンコは地球を救う★
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

608 ：名無しさん＠そうだ選挙にいこう：03/07/15 16:18

>606
例えばメインフォームに入力した後、｢登録｣などのボタンを使っている場合ならば、
ボタン押下後の処理に
1.一度サブフォームを.visible=falseで不可視にする
2.メインフォーム内のサブフォームを.sourcrobject=で
　何もレコードソースが設定されていないフォームに設定にする。
3.再度、.sourcrobject=で指定のサブフォームに設定し直す。
4.メインフォーム内のサブフォームを.visible=trueで可視にする
と言うので表示し直してはどうでしょう？

私はサブフォームの描画し直しはそう言った方法で行っています。
今までそう言った方法以外のアイデアがなかったものですから…

609 ：名無しさん@そうだ選挙にいこう：03/07/15 17:00

>>606
サブフォームの入力レコードの最後のフィールドの更新処理後
イベントプロシージャに

Parent!メインフォームの合計表示テキストボックス名.Requery

で行けませんか？

610 ：606：03/07/15 17:09

609さんの方法で出来ました！
ありがとうございます（涙

611 ：名無しさん＠そうだ選挙にいこう：03/07/15 20:05

ｱﾎくさ

612 ：名無しさん＠そうだ選挙にいこう：03/07/15 20:06

アクセスファイルにかかっているパスワードは、
バイナリエディタか何かで開けば見れたような記憶があるのですが
詳細忘れました。何かいい方法教えてください

613 ：名無しさん＠そうだ選挙にいこう：03/07/15 20:59

ごめん、よく見たらサブフォームに入力した値を
メインフォームのdsumに反映だったのね…
はっはっは、>606　解決してよかったッすね

614 ：名無しさん＠そうだ選挙にいこう：03/07/15 21:39

TransferTextにてCSVに出力したのですが、日付時間型のデータの表示を
日付だけにしたいです。schema.iniをいじって対処可能でしょうか？
他にも方法あったら教えてください。お願いします。

615 ：名無しさん＠そうだ選挙にいこう：03/07/15 23:39

>>612
その手の質問にここで答えるヤツはいないと思うよ。
アングラ系でもいくか、ひたすら検索してみれば。

>>614
クエリ作って時間型→テキストの変換した上で
クエリをCSV出力

616 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:13

突然ですが、Access で Excel の関数を使う方法

http://www.asia.microsoft.com/japan/enable/training/kblight/T005/2/13.htm

見てみそ！四捨五入でお困りの皆さんへ

617 ：_：03/07/16 23:13

http://homepage.mac.com/hiroyuki44/jaz10.html

618 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:29

>>616
Excelって内部演算を浮動小数点型でやってるんじゃなかったっけ？
慎重に使わないと危険な気がする

619 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:35

>>618
だから、おまえは何を言いたいの？

Excel は使うなってこと？おまえはここの土着住民か？

620 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:42

>>619
浮動小数点型使った場合の演算誤差について理解できてないと危険だってことだ

621 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:46

>>618
ここじゃちょっと知っているだけで、仕切っている基地外
はよぉ～逝け！

622 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:56

>>620
ここは素人ACCESS相談所ですぞ。

>>618
ある程度、賛成！

623 ：名無しさん＠そうだ選挙にいこう：03/07/17 11:15

フィールドの中にコメント欄に使っているフィールドがあるのですが、
そのデーターベース自体主にレポートで表示、印刷を使っています。
要するに主な用途が見栄えの良いレポートを作るためにあるのですが。

レポートの中で　２の３乗とか、　ｍ３（立方メートル）等の上付き文字や
下付文字、下線等の部分的（数文字）な書式変更はできるのでしょうか。

624 ：名無しさん＠そうだ選挙にいこう：03/07/17 12:09

　質問です。
　あるWindows2000マシンでAccessファイルを作りましたが、別のマシン
（2000と98）でそのファイルを開くと「プロジェクト、ライブラリが
見つかりません」というエラーメッセージが出ます。
　具体的には、ChrW関数を理解できないようです。
　「参照設定」で必要なライブラリを入れてやる必要があるので
しょうか？　それとも別の問題でしょうか？
　参照設定であるとすれば、何という名前のライブラリにChrWは
含まれていますか？

　ご面倒ですが、アドバイスをお願いいたします。

625 ：_：03/07/17 12:15

626 ：_：03/07/17 12:38

http://homepage.mac.com/hiroyuki44/jaz07.html

627 ：名無しさん@そうだ選挙にいこう：03/07/17 16:00

>>624
ヘルプより
ChrW 関数は、Unicode 文字セットの文字を含む文字列型 (String) で文字を返します。
Unicode をサポートしていないプラットフォームでは、Chr 関数と同じ文字コードを返します。

にしても別マシン(Win2000)なら大丈夫のような…

628 ：名無しさん＠そうだ選挙にいこう：03/07/17 17:26

>624
ChrW関数はACCESS2000から実装された関数ですが、
他のマシンもOffice2000以上ですか？
念のため・・・

629 ：名無しさん＠そうだ選挙にいこう：03/07/17 17:54

田代まさしを、ベストジーニストにしよう！

□ベストジーニスト賞 2003年□
6月15日の中間報告の段階で
「田代まさし」27位。

◎投票結果（6月15日の段階での投票結果です。現在の投票結果ではありません。）
http://www.best-jeans.com/count/index.html

◎投票フォーム（投票は一人一回までです。複数投票は無効になってしまいますので注意してください。）
http://www.best-jeans.com/present/bj2003.html

みなさんの力で、田代まさしをベストジーニストにしましょう！
田代まさしに投票よろしくお願いします。

630 ：名無しさん＠そうだ選挙にいこう：03/07/17 19:13

↑また同じことやってるよ(ーー゛)　進歩しないね

631 ：名無しさん＠そうだ選挙にいこう：03/07/17 20:39

えと、テーブルSheet1があって、
フォームに選択肢を作って絞り込み検索がしたいのです。
例えば　部門　というフィールドに対する検索条件をフォーム[Select]の
[部門]から送るとき、フォームの[部門が]空欄の時は
該当するフィールドの全てを拾ってくるというふうにしたいとき
クエリに
IIf([Forms]![Select]![部門]="",[Sheet1]![部門],[Forms]![Select]![部門])
とすれば良いと聞いたのですが、
クエリのみ実行しても[部門]の入力画面すら現れず
フォームからクエリを呼んでも全く条件に（ひっかかるはずなのに）かからず。
困っています。
何かアドバイスください・・・

632 ：_：03/07/17 21:41

633 ：名無しさん@そうだ選挙に行こう：03/07/17 22:19

>>631
IIf(IsNull([Forms]![Select]![部門]),[Sheet1]![部門],[Forms]![Select]![部門])

634 ：名無しさん＠そうだ選挙にいこう：03/07/17 22:30

>>633
有り難うございました！　
空白を許可していないフィールドだけでもコレが使えれば
クエリをずいぶんと省略できます！
ホントに有り難うございました

635 ：名無しさん＠そうだ選挙にいこう：03/07/17 23:20

>>627 >>628　（>>624）
Office　XPを使ってます。

636 ：627：03/07/17 23:43

>>635
Win98 = Unicode をサポートしていないプラットフォーム
Win2k = Unicode をサポートしているプラットフォーム
2kに関して起動する2k環境と同じにすれば大丈夫でないかい？
参照設定/Oｆｆｉｃｅ・WindowsUpdateなど…

637 ：名無しさん＠そうだ選挙にいこう：03/07/18 00:15

http://book-i.net/kensyo/

638 ：_：03/07/18 00:16

639 ：名無しさん＠そうだ選挙にいこう：03/07/18 00:46

今度仕事で商品データベース作るんだが、
2ヶ月間、8万6000円かけて通信教育受けてる。半分実費。
メールで1日1回、1件質問できるんだが、ワカラネところがワカラネ。
これ終わると基本（マクロプログラミングより前）
がマスターできるらしいが俺には無理。
アビバでもいくか・・・っつーか、浴び場とかってどう？

640 ：名無しさん＠そうだ選挙にいこう：03/07/18 02:32

>639
Accessの講習会なんて行ったことないが…
むしろ、業務で作るデータベースに近い例題が載ってる本を1冊購入して、
本に書かれている通り作ってみるのが一番でないかい？
10日でマスターとか住所録から作ってみる奴とかWebにあるAccessの
初心者向けとか…作りながら｢こうなったら便利だな｣と思うところがあれば、
それを実現すべく調べて努力してみる。

それが一番の近道なような気がするなー
ま、浴び場とか行ってみたかったら行ってみるのもいいかもよ
がんがってなー

641 ：名無しさん＠そうだ選挙にいこう：03/07/18 08:38

>>693
一時間程度でできるチュートリアル(住所録や見積書等）を色々作ってみる。
そのうち、意味はわからなくても「こういうもんんだ」ってなるよ。
それからデータベースの基礎をやる。
金使うなんて無駄無駄

642 ：名無しさん＠そうだ選挙にいこう：03/07/18 08:52

>>636
参照設定で、「参照設定不可」の項目をオフにすると解決しました。
ありがとうございました。大変助かりました。

643 ：名無しさん＠そうだ選挙にいこう：03/07/18 10:39

テーブルは一つのデーターベースがありまして、
ある単票形式フォームでレコード一つずつ編集しています。
そのフォームを流用して、新規レコード入力フォームを作りたいのですが
各レコードには管理Noがふられていまして、入力時に何も考えなくても
連番になるようにしたいのです。
オートナンバーにすると、入力が中断したときなどに欠番が出来てしまい、
不便なので出来ればフォームを呼んだときには既にNoがフォームに入って
いるようにしたいのですが・・・何かうまいこと出来ない物でしょうか。

すみませんがまったくの素人です。

644 ：名無しさん＠そうだ選挙にいこう：03/07/18 15:20

アクセス９７から２０００に移行したら、正常に機能しなくなったフォームが
でてきてしまいました。
変換エラーになってしまった場合、変換できないフォーム等は
作り直しですかね？

645 ：名無しさん＠そうだ選挙にいこう：03/07/18 16:30

>>643
オートナンバーの振り方が気に入らないなら自分で関数でも作るしかない。
伝票番号管理テーブルでも一つ作って、追加がある度に、管理NOを
カウントアップするなりして更新して。

どちらにしろ、入力時に番号を振って、キャンセルされたら番号のカウントアップ
しないようなロジックは組まなきゃならないので、面倒。

あるものを贅沢言わずに使うのが最良な気が…。

646 ：名無しさん＠そうだ選挙にいこう：03/07/18 20:32

売上伝票レポート（伝票番号、日付、顧客IDの入った売上テーブルと
伝票番号、品番、数量が入った明細テーブルがソース）を作ります。

レポートフッタに合計を入れると、明細レコードの数により
合計の位置が定まりません。明細が1行しかなくても、残りの7行
を送って合計を印刷してほしいのですがどんな方法があるでしょうか。
明細は10行入ります。

サブレポートにして、メインレポートの下側に合計を書くとうまく
いくのですが、そうすると、10行を越えて改ページできないのです。

647 ：名無しさん＠そうだ選挙にいこう：03/07/18 20:39

>>644
作り直さなきゃ手の施しようがないけど？
全体を作り直すか部分的な改修かは別の話

648 ：_：03/07/18 20:53

649 ：名無しさん＠そうだ選挙にいこう：03/07/18 20:58

646
残りの7行　は、残りの9行の間違い

650 ：名無しさん＠そうだ選挙にいこう：03/07/18 22:33

>646
この辺が参考になるかと・・・・
http://homepage2.nifty.com/MrUr/katuyo/keisen.htm

「ACCESS」「最後まで罫線」をキーにググればもっといい回答があるかも
要は、罫線のあるなしはおいといて任意の行数空打ちできればよいのでは？

651 ：名無しさん＠そうだ選挙にいこう：03/07/18 22:42

>>650
すごいぃ！！
ありがとーーん

652 ：名無しさん＠そうだ選挙にいこう：03/07/18 22:45

ただし、このサンプル↑では
印刷プレビューではちゃんと改行されてるのに、いざ印刷すると改行されない
といった壁にぶち当たるかもしれません・・・
（もう眠いのでソース全部見たわけじゃないけど）

もしそうなら、原因もわかっているのですが、
まずはそこまで行って壁にぶち当たってみましょう

ここまで書いて無責任なようですが、明日から３連休でこちらに来れません
他の親切な方のフォローに期待しましょう
駄目なようなら３日後に現れます、ではがむばってください

653 ：名無しさん＠そうだ選挙にいこう：03/07/19 09:23

>>644
昔のことなのでアレだが、97で全てのモジュールをコンパイルして保存をしてから
2000で変換してやればうまくいった覚えがある。ダメもとで試してくれ。

654 ：おしえてクン：03/07/19 11:57

下記の場合の方法を教えてください。
DIM A1 AS Integer
DIM A2 AS Integer
DIM B AS Integer
DIM AX AS String

A1 = 100
A2 = 200
AX = "A" & 1
???
B = ???AX
このとき　B に A1の値 100 が入るようにしたいです。
ヒントだけでも教えてください。
ACCESS2000_DAOです。

655 ：名無しさん＠そうだ選挙にいこう：03/07/19 12:44

>>654
AXは文字列変数だから、
8行目の時点でAXに100が入ってない。
と言うか、B=A1で済む話。
釣られてる？

656 ：おしえてクン：03/07/19 12:50

>>655
今回のは例で 1 にしましたが、この値が実際には変動します。
言葉足らずで申し訳ありませんでした。

657 ：名無しさん＠そうだ選挙にいこう：03/07/19 13:37

>>654
配列か、むしろ処理用のテーブル作ったほうが早くない？

658 ：名無しさん＠そうだ選挙にいこう：03/07/19 14:51

>>654
>>657ではないが、配列使うとこんな感じのかな…
DIM A(1 to 2) AS Integer　' A(1)～A(2)の配列を宣言
DIM B AS Integer
DIM n AS Integer　' 配列を指定するための変数

A(1) = 100
A(2) = 200
n=1　' 変動するなら、条件式を
B = A(n)

>>657、あってる？

659 ：>>657：03/07/19 15:52

>>658
そんな感じ。尤も>>654氏にとってはどうなのか知らないのだけど。
一種類で数字が後につくだけならこれで充分じゃないかと。
んで、名称がもっと複雑だとか、サフィックス部分の数字が不規則だったら、
TBL_NAME(id, VarName, VarValue)
　　　　　　　(1, 　'A1', 　　　100)
　　　　　　　(2, 　'A2', 　　　200)
みたいなテーブルに数値設定しておいて、
（前略）
n = 1
B = Dlookup("VarValue", "TBL_NAME", "VarName=A" & Format(n))

てな風に取得すれば。

660 ：657：03/07/19 15:53

あ、ごめん
B = Dlookup("VarValue", "TBL_NAME", "VarName='A" & Format(n) & "'")
だ。

661 ：おしえてクン：03/07/19 15:55

>>657 658
ありがとうございました。
おかげさまで　やりたい事はできました。

662 ：名無しさん＠そうだ選挙にいこう：03/07/20 13:12

これで素人なのか、、、

663 ：名無しさん＠そうだ選挙にいこう：03/07/20 13:29

アクセス2000を使っているドの付く素人です。
商品伝票なるフォームを作り、その中にサブフォームで
商品入力というフォームを作りました。
その商品入力フォームのほうで、１つ目のコンボボックス
で商品分類を選んだ時に、マクロで再クエリを行い
次のコンボボックスでその分類に属する商品だけ
ドロップダウンリストに表示されるようにしました。
ところが、サブフォームだけ単独で開いてやってみると
うまく行くのに、メインの商品伝票フォームを開いて
その中でやろうとすると、
「このウィンドウでは“ApplyFilter/フィルタの実行”アクションを
実行できません。」
と出てきてしまいます。フィルタの実行など指定してないので
何がなんだか訳がわかりません。
どなたか何か推測できることなどあれば教えて頂きたいのですが、、、

664 ：名無しさん＠そうだ選挙にいこう：03/07/20 14:55

>>663
多分、マクロの実行時のフォーカスが
サブフォーム以外にあるんだと思う。
あくまで多分。

665 ：663：03/07/20 15:27

>>664
レスありがとうございます。
再クエリの実行は、１つ目のコンボボックスで
値を選んだ時（クリック時）にしているので、
フォーカスはサブフォーム内にあると思います。。。

666 ：663：03/07/20 16:31

いろいろやってみましたが、どうしても再クエリ
を実行する前に「フィルタの実行」をしようとして
エラーになるので、再クエリの前に「マクロの中止」を
入れたらなんとか求める動きをしてくれました。
かなり強引かつ邪道な方法のような気がしますが、
とりあえずこれでいってみようかと思います。。。。

667 ：名無しさん＠そうだ選挙にいこう：03/07/20 18:01

ACCESS使ってたくさんアプリを作ってたんだけど、一部をWeb化する
ことになっちゃいました。殆どのアプリはACCESSのまま継続するので
DBはmdbをそのまんま使おうと思ってます。
Java使って開発するんですけど、mdb使う際の注意点みたいなのって
ありますか？
っていうかJavaからmdbってアクセスできるんですよね？

すいません。ACCESS以外はまともに使えない人間なので
意味がわからんって文章かも知れませんが、どなたか教えてください。

668 ：_：03/07/20 18:23

http://homepage.mac.com/miku24/

669 ：名無しさん＠そうだ選挙にいこう：03/07/20 19:38

>>667
人に聞く前に本やJavaを解説したWebサイトで自分で調べろ
その後、プログラム板やWebProg板に行け

670 ：505：03/07/21 16:28

>>667

　　　　　　　　　　　　　　　　　　　　　　　　　　ﾄ-､___
　　　　　　　　　　　　　　　　　　　　_,,-‐‐‐‐‐‐ｔ-:､_ `‐､､_
　　　　　　　　　　　　　　　　__,,,-‐'´　　　　　.:.　,,:.:｀`‐､;:;:;ヽ_
　　,,,_____,,..､_,,,,,-‐‐‐-､､_,,-'´　　　　............:.:/:　.:.　　　　｀｀｀`ヽ､_
　〈=__,,,,__,,,,,,,,,,,,..::::::::::...　　;.:.:.:.:.:.:.:.:.:.:.:.:.:.:,;ノ::.　　　　　　　　　　　　`‐､､
／　.._____.. .. .　｀｀```ヽ- '--‐‐'''''~~~'`::::ヽ:.:.:.....　　　　　　　　､　　　　ヽ､
ヒ;-'´　　｀｀``:‐:‐:-:-.:__,,､､､､､　　....:.:.:.:.:.:.`:.:.:.:,;,;,;,;.:.:.;,;...........ヽ､ヽＴ　　 ◎ ヽ､
　　　　　　　　　　　　　　　　　｀｀``‐--:-:‐:':´:｀:｀´:: :::｀`:..､_:.:.:.:.:.:.:.ヽ､__　,-==,
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｀｀``‐‐:-:-:-:-:‐"

671 ：名無しさん＠そうだ選挙にいこう：03/07/23 12:22

いっこのテーブルから複数レコードを表示した表形式のレポートで、
ある期限（日付、２００３／０７／２３　等）を記したフィールドが
あと三日に迫ったらその行に色を付けるようにしたいのですが、
どうしたらよいのでしょう。

672 ：神の賜物：03/07/23 12:44

教えてください。リナックスのOSは市販のパソコンでの動作環境具合はどうなるのでしょうか。

673 ：名無しさん＠そうだ選挙にいこう：03/07/23 13:00

業界№１スピード出会い！即日デート♪(*^-^)(^-^*)♪
日本初！携帯で顔写真付き男女会員リスト閲覧ＯＫ☆
結婚・恋愛・大人の交際・全対応！男女交際の決定版！

～会員制男女交際クラブ～
★GOOD SECOND★
http://golden-p.net/gs/

674 ：671：03/07/23 14:34

要するに
If （今日） >= [Sheet1]![期日] > （今日の３日前）
Me.Section(0).BakColor = 12632256
Else
Me.Section(0).BakColor = 16777215
End Sub
てな感じにしたいのです。
一行目の判定式の書式が解らないのです。[期日]　は日付型で2003/07/22と
いう形で入っています。

675 ：671：03/07/23 14:50

Sheet1には約２００行のレコードが収まっており、

担当　期日　ユーザー
担当　期日　ユーザー
担当　期日　ユーザー
担当　期日　ユーザー
担当　期日　ユーザー
こんな感じのレポートを吐いているわけです。　で、期日が迫ってきた行だけ
色を変えたいという訳なのですが・・・

676 ：名無しさん＠そうだ選挙にいこう：03/07/23 14:59

If （今日） <= [Sheet1]![期日]＋３日

じゃだめなんだろうなぁ、、、そんなに悩んでるんだから

677 ：671：03/07/23 15:05

>>676様
その書式というか、日付関数の使い方とかがさっぱり解らない状態なのですが・・・

678 ：名無しさん＠そうだ選挙にいこう：03/07/23 15:09

>>677
dateaddは？

679 ：名無しさん＠そうだ選挙にいこう：03/07/23 15:34

ソフォスってなに？

680 ：名無しさん＠そうだ選挙にいこう：03/07/23 16:15

>>671
#[Sheet1]![期日]#
とか？

681 ：名無しさん＠そうだ選挙にいこう：03/07/23 16:22

>>677
こういうことかな？

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Date + Time - [日付] < 3 Then
Me.Section(0).BackColor = 16777215
Else
Me.Section(0).BackColor = 13684991
End If
End Sub

色のIDは適当。Timeを評価に加えるか
どうかは都合に合わせてくらさい。

682 ：名無しさん：03/07/23 17:07

　１つのレポートにおいて

　　=[年度] & "年"
　　－－－－－－－
で定義したテキストが、
まず、「印刷プレビュー形式」で開いた場合には
　2003年
と表示されるので問題ないんですが、それを「印刷」すると、
#Name$
と出力されてしまうことがよくあるのです。（特に一回目）

どうすればいいんでしょうか？

683 ：671：03/07/23 18:04

>>681
有り難う御座います、申し訳ないですが
とりあえず、何らかの条件判定はされているみたいですけど、
その判定条件が３日前では無いようです・・・ちょっと色々いじっていますが。

684 ：名無しさん＠そうだ選挙にいこう：03/07/23 18:25

>>683

ありゃ。期日か・・・・・

Date + Time - [期日] < 3
　↓
[期日]　-　(Date + Time) < 3

だすね。

685 ：671：03/07/23 18:44

>>684
有り難う御座いました！　
無事条件判定されているようです。助かりました！

686 ：名無しさん＠そうだ選挙にいこう：03/07/23 22:08

先日、「美容室専用ソフトD.P.S-K3 Pro」というソフトをダウンロードし、
入力→メンバーズ新規入力→生年月日に入力をしようとしたのですが、
”入力した値は、このフィールドに設定されている定型入力
'>L99\年99\月99\日;0;_'に従っていません。”
というエラーが出てしまい、入力が完了しませんでした。

検索サイトで検索を行ったところ、下記の様な情報がありましたので
やってみたのですが、同じエラーが出てしまいました。
”日付入力欄の内容を１度全て削除し、タブを飛ばしてから再度入力してください。
（年月日全て入力してください）”

解決方法がございましたら、ご教授下さい。
宜しくお願いします。

美容室専用ソフトD.P.S-K3 Pro
http://www.ne.jp/asahi/pc-area/net/dl/dpsk.htm

687 ：名無しさん＠そうだ選挙にいこう：03/07/23 22:17

あなたの本能極限まで引きづり出しちゃう画像大量連発！！
http://www3.free-city.net/home/espresso/bigapple/cherry.html

新しい無修正画像も追加したから見に来てね！！！
http://www3.free-city.net/home/espresso/au/sweety.html

688 ：名無しさん＠そうだ選挙にいこう：03/07/23 22:59

>>686
作者に聞けよ

689 ：686：03/07/23 23:18

>>688
すいません、作者のサポートを受けられるのは
製品版（17,000円）を購入した人のみらしいんです。

690 ：無料動画直リン：03/07/23 23:20

691 ：名無しさん＠そうだ選挙にいこう：03/07/23 23:41

>>686
肝心な入力内容が書いてない

692 ：686：03/07/24 00:12

>>690
すいません。
一応、色々な条件で入力してみました。
例えば、02年05月03日、55年05月12日、98年12月27日等です。

何が原因なのか全く分からないので、
もし無理な場合は別のソフトを探してみます。

693 ：名無しさん＠そうだ選挙にいこう：03/07/24 00:44

>>692
ちゃんと操作ガイド読んで、年号を和暦で入力している？
明治=M、大正=T、昭和=S、平成H

694 ：名無しさん：03/07/24 08:38

１つのレポートにおいて
　=[年度] & "年"
　　－－－－－－－
で定義したテキストが、
まず、「印刷プレビュー形式」で開いた場合には
　2003年
と表示されるので問題ないんですが、それを「印刷」すると、
#Name$
と出力されてしまうことがよくあるのです。（特に一回目）

どうすればいいんでしょうか？

695 ：名無しさん＠そうだ選挙にいこう：03/07/24 09:00

>>694
急いでいるのかもしれないけど、スレをまたがって同じ質問を書き込むのは歓迎されないよ？

さて、質問に関してだが、深度の深い入れ子構造のクエリをレポートのレコードソースと
している場合、クエリの処理が間に合わなくて印刷の際にデータが欠けたりするケースに
遭遇したことがあったけど、アンタが同じようなケースなのかまではわからん。

696 ：名無しさん：03/07/24 10:22

>>695
貴重なご意見、ありがとうございます。
もしかしたら、プリンタードライバーの問題かもしれないかなとも思います。

（とにかく、かけもち失礼しました。）

697 ：名無しさん＠そうだ選挙にいこう：03/07/24 10:50

>>696
マルチかよ！
しかも向こうも同じ内容2回書き込んでるし

698 ：686：03/07/24 11:03

>>693
すいません、お恥ずかしいです。
操作ガイドは始めの1ページしか無いと思い込んでいました。
これから、読んで操作を覚えたいと思います。
わざわざ確認までして頂き、本当にありがとうございました。
では、失礼します。

699 ：_：03/07/24 11:20

http://homepage.mac.com/hiroyuki44/jaz08.html

700 ：_：03/07/24 11:22

701 ：名無しさん＠そうだ選挙にいこう：03/07/24 11:28

開店セール見に来てーーーーーーーーーー！DVDを見ようー！GO！
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
開店セール1枚　500円より→→→http://www.dvd-exp.com　
アダルトDVDが激安販売→→→http://www.dvd-exp.com　
アダルトDVDの価格はなーんと1枚900円→→→http://www.dvd-exp.com　
最短でご注文いただいた翌日にお届け！→→→http://www.dvd-exp.com　
セルビデオ店の人気商品が24時間お買い物が出来ます。
　　　　　　　　時間をかけてゆっくり選んでください！
　　　　　　　　　　http://www.dvd-exp.com←へGO！
　　　　　　　　　　　DVDエクスプレス

702 ：名無しさん＠そうだ選挙にいこう：03/07/24 11:44

アクセスのカラーコード一覧みたいなものは無いでしょうか

703 ：名無しさん＠そうだ選挙にいこう：03/07/24 15:44

>>702
それは、おれもほしい気がする・・・・

704 ：名無しさん＠そうだ選挙にいこう：03/07/24 18:20

>>694
考えとく

705 ：名無しさん＠そうだ選挙にいこう：03/07/24 20:21

外部テキストファイルをコンボボックスのソースにしたいのですが、
それって可能でしょうか？方法がありましたら教えてください。
お願いします。

706 ：名無しさん＠そうだ選挙にいこう：03/07/24 21:04

>>705
リンク張ったら出来そうだけど、誰か詳しい人教えてくれるでしょう。

707 ：名無しさん＠そうだ選挙にいこう：03/07/24 21:18

>>750,706

ファイル→テーブルのリンクでcsvなりtxtをウイザードに従ってリンク。
あとは、普通にテーブルを値集合ソースに指定。

708 ：名無しさん＠そうだ選挙にいこう：03/07/25 12:37

ACCESSで社員データ管理を作らされる事になったのですが、
検索したときに、個人の写真も表示できるように作れといわれたのですが、
ACCESSでは無理ですか？もしできるのなら方法を教えてください。

709 ：名無しさん＠そうだ選挙にいこう：03/07/25 13:20

http://www.adultshoping.com/addclickport.cgi?pid=1058922748
●無料でパソコンだけで月に１０万円↑稼げます！
登録完全無料！お小遣いが沢山稼げちゃいます。
月に平均１０万円ほど稼げます。頑張ればもっと！
夏休みを有効に利用しましょう！
無料だから登録しないと損します～。

710 ：名無しさん＠そうだ選挙にいこう：03/07/25 14:46

>708
ttp://www.accessclub.jp/bbs/0011/4847.html

711 ：名無しさん＠そうだ選挙にいこう：03/07/25 18:09

デザインビューをAccessで印刷する方法はないでしょうか？
現状はPrintScreenなんですが面倒で

712 ：名無しさん＠そうだ選挙にいこう：03/07/25 19:50

デザインビューって何だ？

713 ：_：03/07/25 19:51

http://homepage.mac.com/hiroyuki44/jaz05.html

714 ：705：03/07/25 20:37

>>707
ありがとうございます。
でもデータ部がＭＳＤＥなのでリンク張れないみたいです。
他の方法はないでしょうか？

715 ：名無しさん＠そうだ選挙にいこう：03/07/25 20:39

>>712
フォーム･レポートのデザインモード画面・・・・・

>>711
手順書かなんか作るのか？
キャプチャーソフト落としてきたら？

つか、ハードコピーなんてボタン一発でしょ。

716 ：名無しさん＠そうだ選挙にいこう：03/07/25 20:42

>>714
フロントエンド側でリンク作ればいんでね？
コンボボックスのソースをサーバ側持っておきたければ
素直にテーブルとしてインポートした方がいいんじゃない？

717 ：名無しさん＠そうだ選挙にいこう：03/07/25 22:41

Sheet１から検索するためのフォーム（フォーム１）があって、クエリに変数を渡して、
そのクエリを表示するフォーム２及びレポートがあります。
OpenFormやReportで開いてるんですが、
その結果表示のフォームやレポートが開いたまま検索条件を変えて再度検索用フォームの
ボタンを押しても、フォームは読み直されません。
これを、もしも開く予定のフォームが既に開いていたら再クエリをするように
したいのですが、何か良い方法無いでしょうか。

718 ：名無しさん＠そうだ選挙にいこう：03/07/25 22:47

後もう一つ。
あるフィールド（Sheet1![No]）は基本的に連番数字で管理されていて（非オートナンバー）、
常に順に並んでいます。そこから最も番号の大きい数字を取得して、１を足し、
それを入力用フォームの[No]初期値としたいのです。つまり、続き番号が自動的に
入力されるような構成にしたいのですが。
Noが２００までなら、
新規入力用フォームを開くと自動的に２０１が放り込まれるようにしたいのです。
オートナンバーは使えません。
考えているのは、Noフィールドから何らかの方法で一番大きい数を割り出し、
それに１を足し、出来るならそれをテキストボックスの初期値にするというような内容ですが・・
Noフィールドから一番大きい数を割り出すというのは他にも応用が出来そうなので、
もし出来るなら教えて頂けませんでしょうか

719 ：名無しさん＠そうだ選挙にいこう：03/07/25 23:11

今フォームにある内容をテーブルへ書き込む命令は無いでしょうか。
レポートプレビューボタンをくっつけたのは良いけれど別レコードに一回飛ばないと
今あるデーターはテーブルに保存されていないのでレポートプレビューボタンの
意味がありません・・・
ボタンを押したら今ある内容をテーブルへ書き込んで、レポートを開きたいのです

720 ：無料動画直リン：03/07/25 23:20

http://homepage.mac.com/miku24/

721 ：名無しさん＠そうだ選挙にいこう：03/07/26 00:41

>719
ある。ADOあるいはDAOを使う。
1.ADOあるいはDAOで開くデータベース、レコードセットを宣言
2.該当テーブルをレコードセットで開く
3.新規データとして登録する場合はeddnew、修正ならば該当レコードをedit
4.レコード内容を代入
5.updateで更新する

詳しくは、店頭の本屋さんで！

722 ：名無しさん＠そうだ選挙にいこう：03/07/26 00:45

マクロとモジュールの処理速度に違いはありますか？
マクロをVBAに変換ってなんでするのでしょうか・・・。

723 ：名無しさん＠そうだ選挙にいこう：03/07/26 01:03

>717
結局、新しい内容表示したいフォームやレコードが開いてるから
内容が更新されないのであって、再検索命令を出した時に一度
フォームやレポートを開いてから再クエリーしてオープンすることで
解決するのでは？

>718
1.Dmaxでidを取得する
2.Dcountでレコード数を取得する
3.ADOあるいはDAOのレコードセットで開いてMovelastで最後のidを取得する
ちなみに1の場合、何らかの原因で(主にデバッグ時のレコード登録ミスが多かったが)
｢いつも完全にきちんと｣できるとは限らないので注意が必要と言う場合もあり…
やって見ないと分からんな…
1～3のどれかで最後のidを取得したら、取得id+1を表示させれば良い

724 ：名無しさん＠そうだ選挙にいこう：03/07/26 01:05

>722
マクロよりVBAの方が柔軟性に富んでいることもある
マクロより複雑な処理を行うことができる場合もある

処理速度については分からない。
その辺の実験についてはネット上に転がっているかもしれないので
勉強ついでに検索してみると良いのでは？

725 ：名無しさん＠そうだ選挙にいこう：03/07/26 08:06

>>724
マクロの作成ウィザードは、
アクセスネイティブのコマンドが使用される。

VBAに変換すると分かるが
Docmd.～　という形式のコードになる。
これは、アクセス以外では使えないオブジェクトなので
VBとしてみると汎用性が乏しいし、通常の
メニュー操作で出来る事以外は出来ない。

ついでにいうとDocmdのレファレンスも糞みたいな情報しか
転がってないし・・・・

726 ：名無しさん＠そうだ選挙にいこう：03/07/26 09:38

基本的に｢マクロのVBAに変換｣は直接VBAでコードを書けない人のためのものでは？
変換してVBAのコードについて勉強して、自分でVBA書けるようになればいいんじゃないの
Access上でAccessのマクロを変換してるんだから
｢アクセスネイティブのコマンド｣は仕方ないのでは？
…所詮、元が｢Accessのマクロ｣なんだから

Access2000以降はリファレンスと言うかヘルプ自体糞みたいなもん
使えないヘルプだよ
リファレンスが必要ならリファレンス本買うしかない状態だ

727 ：名無しさん＠そうだ選挙にいこう：03/07/26 09:59

>711
これ使え

728 ：名無しさん＠そうだ選挙にいこう：03/07/26 10:04

URL貼り忘れた
http://www.lares.dti.ne.jp/~hariki/software/minicopy/

729 ：名無しさん＠そうだ選挙にいこう：03/07/26 10:09

可愛い娘たちが貴方を癒します・・・☆
http://yahooo.s2.x-beat.com/linkvp2/linkvp2.html

730 ：名無しさん＠そうだ選挙にいこう：03/07/26 11:43

今から、ACCESSかって、データベースとやらを試してやる。
ちょっと待ってろよ。

731 ：名無しさん＠そうだ選挙にいこう：03/07/26 12:30

うん、待ってる♪

732 ：名無しさん＠そうだ選挙にいこう：03/07/27 13:21

自分自身はAccessは持っていません。
知人がOffice97→Office2000にバージョンアップしたいと思うが
問題ないか？と聞いてきて、特に深く考えることもなく
「問題ないと思う」と答えたのですが
実行したところAccess97で作ったデータが2000で開かなくなった！！
とか言って怒っています・・・
そんなことが起こりうるのでしょうか？
Word、Excel、PowerPointは問題なく使えているようです。
OSはWinMeです。
「どうしてくれる！」と詰め寄られています、助けてください・・・

733 ：名無しさん＠そうだ選挙にいこう：03/07/27 13:50

>>732
[ツール][データベースユーティリティ][データベースの変換][変換]

734 ：名無しさん＠そうだ選挙にいこう：03/07/27 13:54

>>732
97でVB使ってたようならコードの書き換えが必要な場合がある。
データ自体は変換すれば開けるはず。

とはいえ、本人の質問でなければ具体的な事は分からないので
データの再利用は可能なはずだから、勉強せいと言えば良し。

いやなら、97に戻せばいいじゃんという気もするし。

735 ：名無しさん＠そうだ選挙にいこう：03/07/27 14:19

>>733・734様
ありがとうございます！
方法はあるのですね、よかった・・・
本人は「なんかメッセージが出る」としか言わないもので
困っていたのです。
734さんがおっしゃるように、勉強不足な状態で使うようなら
97に戻してもらった方がいいかとも思いました。
助かりました・・・

736 ：719：03/07/27 20:46

>>721
すみません・・・田舎でろくな本屋も無いのです。

737 ：711：03/07/28 10:00

>>727
ありがとうございます。
便利です。

738 ：名無しさん＠そうだ選挙にいこう：03/07/28 12:20

あるフィールド（Sheet1![Data1]：中身はURL）がNullで無かったら、
フォーム・レポートにボタンを表示して、ボタンを押したらURLを開く、
Nullならボタンを非表示に。というボタンを複表形式のフォームや
単票のレポートにつけたいのですが、
どう記述すればよいのでしょうか・・・

739 ：名無しさん＠そうだ選挙にいこう：03/07/28 13:33

>>736
DoCmd.RunCommand acCmdSaveRecord

740 ：名無しさん＠そうだ選挙にいこう：03/07/28 14:30

フォームやレポートの中で部分的に下線や斜体、フォントサイズなどの変更を
したいのですが、htmlでいうタグみたいなものはあるのでしょうか

741 ：名無しさん＠そうだ選挙にいこう：03/07/28 14:33

告白したいけど、自分に自信がない。それでも胸の奥が苦しくて・・・
そのような方、諦めないで。
ここでは、異性に効果を発揮する香水、合法ドラッグなどがおかれています。
小売価格一万円以上の品が、半額以下の値段で取引されています。
是非ここでゲットして、貴方の気持ちを打ち明けて下さい。
相手の方も、きっとそれを待っていますよ。

http://www.adultshoping.com/index.cgi?id=1057809839

742 ：_：03/07/28 14:49

http://www.shitamachi.net/ranking/cgi23/ranklink/ranklink.cgi?id=23top

743 ：名無しさん＠そうだ選挙にいこう：03/07/28 16:32

エロサイトのサンプル
http://www.k-514.com/sample/sample.html

744 ：名無しさん＠そうだ選挙にいこう：03/07/28 17:02

745 ：738：03/07/28 17:55

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me![data1] = "" Then
Me.コマンド45.Visible = False
Else
Me.コマンド45.Visible = True
End If
End Sub

えーと、今のところこんな感じになっています。
が、全くボタンが消えてくれません。
ついでにURLやネットワークファイルを開く方法もわかりません・・・
どなたか教えていただけるとありがたいです。

746 ：_：03/07/28 17:55

http://homepage.mac.com/hiroyuki44/hankaku09.html

747 ：名無しさん@そうだ選挙にいこう：03/07/28 18:27

>>745

Private Sub Form_BeforeInsert(Cancel As Integer)
If IsNull(Me![data1]) Then
Me.コマンド45.Visible = False
Else
Me.コマンド45.Visible = True
End If
End Sub

> えーと、今のところこんな感じになっています。
> が、全くボタンが消えてくれません。
> ついでにURLやネットワークファイルを開く方法もわかりません・・・
> どなたか教えていただけるとありがたいです。
>
>

748 ：738：03/07/28 18:44

>>747
ありがとうございました。
加えてタイミングをPrivate Sub Form_Load()にしたら
うまくいきました。

749 ：名無しさん＠そうだ選挙にいこう：03/07/28 18:46

アダルトDVDが
　最短でご注文いただいた翌日にお届け！
　　　　　　　　　dvd-exp.com
　　　　　　　　開店セール1枚　500円より

750 ：738：03/07/28 19:03

後はボタンを押したらMe![Data1]に入っている
URLやファイルを開くようにしたいのですが・・・
Private Sub DataB1_Click()
DoCmd.RunCommand acCmdOpenURL(Me![data1])
End Sub
だと配列が無いと怒られます。書式を教えていただけないでしょうか。

751 ：_：03/07/28 19:47

752 ：_：03/07/28 19:50

http://homepage.mac.com/hiroyuki44/hankaku08.html

753 ：名無しさん＠そうだ選挙にいこう：03/07/28 20:18

告白したいけど、自分に自信がない。それでも胸の奥が苦しくて・・・
そのような方、諦めないで。
ここでは、異性に効果を発揮する香水、合法ドラッグなどがおかれています。
小売価格一万円以上の品が、半額以下の値段で取引されています。
是非ここでゲットして、貴方の気持ちを打ち明けて下さい。
相手の方も、きっとそれを待っていますよ。

↓のURLの頭にｈを付けて、コピー、ペーストして下さい。

ttp://www.adultshoping.com/index.cgi?id=1057809839

754 ：名無しさん＠そうだ選挙にいこう：03/07/28 21:08

☆★　新商品　ゾク・ゾク　入荷！！　急げ～！！　☆★☆
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★　送料激安！　　スピード発送！　　商品豊富！　　　
★☆　　　　　　http://www.get-dvd.com　　　　　　　　
☆★　激安ＤＶＤショップ　「ＧＥＴＤＶＤドットコム」　
★☆　　　　　　http://www.get-dvd.com　　　　　　　　
☆★　今すぐアクセス　Ｌｅｔ’ｓ　Ｇｏ！　　　急げ！　
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

755 ：名無しさん＠そうだ選挙にいこう：03/07/28 21:14

広告の嵐だな

756 ：名無しさん＠そうだ選挙にいこう：03/07/28 21:32

>>750
Application.FollowHyperlink "http://www.2ch.net"
↑
これで一応開く、、、

DoCmd.RunCommand acCmdOpenURL←これはURL入力ダイアログが開く

757 ：名無しさん＠そうだ選挙にいこう：03/07/28 22:04

>>756
有り難うございました。無事作成出来ました。

758 ：名無しさん＠そうだ選挙にいこう：03/07/28 23:58

レコードが２００件ほどのデーターベースで、
テーブルは一つしかないのですが、フィールドを１０弱から
更に１０程足したせいかレポートの表示が無茶苦茶遅くなりました。
瞬時に出たのが５秒ほどかかるようになっています
足したフィールドは基本的にレポートには何ら関係ありません。
どういう事なんでしょうか

759 ：名無しさん＠そうだ選挙にいこう：03/07/29 00:27

５つのフィールドに対して曖昧検索をかけるとき、
それぞれのフィールドに条件をつけて、組み合わせを３２通り作るのと
５つのフィールドをクエリ上でくっつけた式を作り、
それに対して検索をかけるのと、
普通どちらをやります？　やっぱりどっちも重くなるんでしょうか

760 ：名無しさん＠そうだ選挙にいこう：03/07/29 01:16

☆無修正画像＆サンプルムービーをどうぞ！！☆
http://yahooo.s2.x-beat.com/linkv/linkv.html

761 ：名無しさん@そうだ選挙にいこう：03/07/29 07:50

>>759
フィールドのインデックスをつけてやれば少しは速くなるんじゃないの？

762 ：：03/07/29 07:54

いままでExcelで出納簿作ってたのですが、最近Accessにうつりました。
で、調子こいて資産（ってほどのものもないけど）管理簿みたいなものも作ってみたのですが、
ひとつ困ったことが。

「通貨」ってどれかひとつの通貨に決めうちなのでしょうか？
さらにその「決めうち」っていうのは OS の地域に関する設定で決められているものなのでしょうか？

使用環境は Access 2000 (SP-3) + Windows XP Professional です。

763 ：：03/07/29 08:01

それと、気づいたんですが、Access のファイル (*.mdb) って結構大きくなるんですね…
アクセス速度を犠牲にしてファイルサイズを小さめに、ってことはできないのかな。

764 ：_：03/07/29 08:11

765 ：名無しさん@そうだ選挙にいこう：03/07/29 08:59

>>763
最適化を行えばいいんじゃないの？
Access2002ではオブションで設定可能だけど2000はどうですか？

通貨の決めうちとは？どうゆうことでしょうか…
意味がいまいち分からないのですが…

766 ：：03/07/29 09:09

>>765
データ型を「通貨」にした場合、
表示の先頭に \ とか $ がつくのがうれしいのですが、
それがあらかじめ OS の地域設定によって決められているのかな？ということです。

たとえば英語版 Windows ならデフォルトで $ に固定されていて、
日本語版 Windows ならデフォルトで \ に固定されているのでしょうか？

今使っているのは Windows XP Professional 英語版なのですが、
頭にくっつく記号として、 $ とユーロ記号しか選べないんです…

複数の通貨での資産を管理したい場合、
別に通貨種別（ドルとか円とかユーロとか）のフィールドを設けることになるわけですが、
これと連動させて頭にくっつく記号を変更したいな、と。
まぁ見栄えだけの問題なのですが。

やはり見栄え、となるとちゃんとフォームを作って VBA いじる必要がありますかね。

767 ：：03/07/29 09:10

>>766
ちなみに OS は Windows XP Professional 英語版ですが、
インストールしているのは MS Office 2000 日本語版です。

768 ：名無しさん＠そうだ選挙にいこう：03/07/29 09:16

>>766
日本語のXPでは、コンパネ→地域と言語のオプション→地域オプ
ションで通貨の設定ができる。

試してミソ

769 ：名無しさん@そうだ選挙にいこう：03/07/29 09:49

>>766
カスタム書式を使う
\\#,##0;\\#,##0[赤];0
正表記;負表記;ゼロ表記

でも同じフィールド上での混合は無理なので円・ドル・ユーロなど
フィールドは別に作ってください。

770 ：名無しさん@そうだ選挙にいこう：03/07/29 10:01

769に追加
>やはり見栄え、となるとちゃんとフォームを作って VBA いじる必要がありますかね
そうなりますね

対象資産がどの通貨になるかのスイッチを作り、
フォーム上に各通貨用のフィールドを重ねて配置し
そのスイッチをもとにいずれかのフィールドが可視にするようにする。

Select Case か If でできるでしょう

771 ：：03/07/29 10:35

>>768
英語版だと Regional and Language Settings というのがあるのですが、
複数の通貨を使い分ける、という目的には使えないような気がします…
というか、OS 全体での設定とは切り分ける問題だと思うので。

>>769-770
なるほど、試してみます。

いやぁそれにしても Access 結構面白いですね。
ODBC 通せばいままで他の OS で書いてきたプログラムも流用できそうだ…

772 ：_：03/07/29 10:37

http://homepage.mac.com/hiroyuki44/hankaku08.html

773 ：_：03/07/29 11:23

774 ：名無しさん＠そうだ選挙にいこう：03/07/29 15:53

>>771
データベースの読み書きに徹するなら、結構 Accessで済んでしまうような
ケースがありますよね。それ以上を望むなら汎用のRADでやればいいし。

775 ：：03/07/29 17:20

>>774
確かに結構 Access ですんでしまうことが多いですね…
というか、Excel いらなくなってしまった…

仕事では UNIX 系の OS 主流なんですが、
これからは個人用途のデータベースは Access にしちゃうかも。

どうしてもいままでの資産があるので、完全に Access だけに移行するのは無理っぽいですけど。
せめて *.mdb ファイル内のテーブルの各レコードを読み出すだけでも UNIX でできれば十分なんですけどね。

個人的な *.mdb ファイルにアクセスするためだけに Windows マシンを一台用意して
ODBC 使えるようにするのもちょっと無理っぽいので。

*.mdb ファイルのフォーマットとかどこかに転がってないか、探してみます…

776 ：：03/07/29 17:21

MDB Tools
http://mdbtools.sourceforge.net/

The MDB Tools project is a effort to document the MDB file format
used in Microsoft's Access database package,
and to provide a set of tools and applications
to make that data available on other platforms.

がが～ん、一瞬でみつかってしまった。

777 ：名無しさん＠そうだ選挙にいこう：03/07/29 18:37

>>775
奇遇ですね、商用UNIX & DBMSから Accessに移住したくちです。
DBMSアクセス用画面一つ作るにもDB操作用Cライブラリと格闘
する日常に比べたら、Accessでの作成は、目からビーム^H^H^H
うろこ状態だったのを覚えています。

#　ちょっと脱線、ごめんなさい

778 ：：03/07/29 23:36

解析→パフォーマンスの最適化
データベースユーティリティ→最適化／修復

この二つは違うものだったんですね…
後者の最適化を行うと、肥大化し続けていたファイルサイズが小さくなりました。
しかもこの操作は、ファイルを閉じるたびに自動的に行うようにもできるんですね。

ところで、「データベースユーティリティ」→「メニュー用フォームビルダ」って何をするものなんでしょう…
トップメニュー用のフォームを作るものだとは思うんですが、
操作を完了してもフォームが作られないんですけど…
多分このビルダでメニュー用のフォームを作って、
起動時に表示されるように設定するんだとおもうんですが…

779 ：名無しさん＠そうだ選挙にいこう：03/07/30 00:12

>>778
読んで字の如く、そのまんまです。（メニュー作成用ツール）
ただ単にビルダを起動して終了しただけでは、Switchboard
というフォームと　Switchboard Itemsというテーブルが作成
されるだけです。メニュー項目と動作の追加、編集、削除は
ビルダを実行して行います。
メニューの作り方は適当にいじってみればわかります。

780 ：：03/07/30 00:48

ありがとうございます >>779

以前いろいろいじったときに Switchboard Items っていうテーブルができていて、
さらに Switchboard フォームは削除してしまっていたので、
ビルダがうまく動いていなかったようです。

オープニングメニューも簡単に作ることができて大満足です。

781 ：名無しさん＠そうだ選挙にいこう：03/07/30 01:05

http://www.vesta.dti.ne.jp/~hi-lite/sample.html
ｻﾝﾌﾟﾙｷｷｷｷﾀﾀﾀﾀ━━━((ﾟ(ﾟ∀ﾟ)ﾟ))━━━!!!!ｻﾝﾌﾟﾙ

782 ：：03/07/30 07:35

[セキュリティ]→[ユーザ／グループのアカウント] で guest というアカウントを作ってみました。
guest ユーザーの PID は guest にしました。
なんでユーザー名と PID を別に指定しなければならない理由がわからないけど。
guest ユーザーのパスワードは guest にしました、安直だけど。

ついでに[管理者]にパスワードを設定してみました。
当然、次にデータベースを開いたときにはユーザー名とパスワードを聞かれます。
そこで guest でアクセスしてみました。
アクセスできました。

と、ここまではよかったんですが、さらに次にデータベースを開いたときには、
ユーザー名の欄に「ゲスト」とカタカナではじめから入力してありました。
なんで guest が「ゲスト」だって知ってるのかなぁと思いながら
ユーザー guest のパスワードである guest を入力するとアクセスできました。

ユーザー名 guest ＝「ゲスト」だということは、どこに書いてあるんでしょうか？
そういえば、規定のユーザー名 admin も「管理者」と表示されるし。

783 ：：03/07/30 08:05

Jet Provider と組み合わせた ADO の使用
http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado_6.asp

Access 2002 用語集
http://office.microsoft.com/japan/assistance/2002/articles/idxGloss.aspx

784 ：名無しさん＠そうだ選挙にいこう：03/07/30 08:08

検索用フォームがあります。
テーブルは一つで、この中に終了フラグをYes,_NO型のフィールドで作ってあります。
終了フラグが立った項目は検索画面から呼び出せなくなるよう、
検索条件に加えて、クエリで[Not　Yes]の条件をつけてありますが、
いきなり、ボタンを増やして終了項目も未終了も呼び出せるようにしろと
言われました。単純にはクエリをもういっこ作って、それを呼ぶフォームや
レポートもそれ専用にもう一個作ればいいのですが、フォームやレポートの変更は
ちょいちょい行われるので、できればクエリは増やしたくないのです。
ボタンを押したら変数にNot Yesとか入って、それをクエリの条件にしておけば
一つで済ませそうなのですが、そういうことはできるのでしょうか？

785 ：だいたい PID ってなんなのかと…：03/07/30 08:08

personal ID (PID)
A case-sensitive alphanumeric string 4 to 20 characters long
that Microsoft Access uses in combination with the account name to identify a user or group
in a Microsoft Access workgroup.
You enter the PID and the account name when you create a new user or group.

としか書いてないし…

786 ：だいたい PID ってなんなのかと…：03/07/30 08:09

Exploring Microsoft Access Security
Frank C. Rice, Microsoft Corporation, July 2002
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacc2k2/html/odc_AcSecurity.asp

このあたりが参考になるかもなぁ。

787 ：_：03/07/30 08:10

http://homepage.mac.com/hiroyuki44/2ch.html

788 ：名無しさん＠そうだ選挙にいこう：03/07/30 12:17

>>784
クエリーから条件を外す。
フォームが開く時に、YESでフィルタをかける。
後は、フォームにボタンを作成して「全件」「YES」等をフィルタで制御する。
こんなんでどう？

789 ：名無しさん＠そうだ選挙にいこう：03/07/30 13:03

レポートのVBA中で
Me![フィールド名]と記述すると、フィールド名が無いと怒られるのですが、
レポートの中では使えないのでしょうか・・・？

790 ：名無しさん＠そうだ選挙にいこう：03/07/30 16:53

>>789
レコードソース指定してないとか？まさかね

791 ：名無しさん＠そうだ選挙にいこう：03/07/30 18:13

複表形式のフォーム中で　行ごとにフラグの有無を表示させたいのですが
If Me![フラグ] = "0" Then
Me.ENDBOX.Visible = False
Else
Me.ENDBOX.Visible = True

End If
としたいのですが、単票の時のようにうまくいってくれません。
タイミングの問題なのか、一番上の行の影響が全部の行にでてしまいます。
どのタイミングで入れれば良いのでしょうか・・・

792 ：名無しさん＠そうだ選挙にいこう：03/07/30 18:38

アダルトDVDが
　最短でご注文いただいた翌日にお届け！
　http://www.dvd-exp.com　開店セール1枚　500円より

793 ：名無しさん＠そうだ選挙にいこう：03/07/30 22:32

もんのすごーく長いフィールドを表示させるのに、
レポートをまたいで
印刷時拡張「はい」
にして数ページにしているのですが、２枚目以降はデザインをいじることは
できませんし、標題もつけられないし、見栄えがよろしくありません。
なんとかうまいことできないものでしょうか。

794 ：名無しさん＠そうだ選挙にいこう：03/07/31 10:18

>793
表題をページヘッダーにしたら？

795 ：名無しさん＠そうだ選挙にいこう：03/07/31 18:12

>>794
すると　上の項目をレポートフッダに入れなければならず・・・
標題（項目のタイトル）はついてきてくれても
表題（ページタイトル）が２枚目についてくれないんです。

796 ：名無しさん＠そうだ選挙にいこう：03/07/31 18:33

★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★☆★☆★　新商品　ゾク・ゾク　入荷　☆★☆★☆
★☆　　　　　　　　　　　　　　　　　　　　　　　
☆★　送料激安！！　　送料激安！！　　送料激安！！
★☆　　　　　　http://www.get-dvd.com　　　　　　
☆★　　激安アダルトＤＶＤショップ　　　　　　　　
★☆　　　　お買い得！！　1枚500円～　急げ！　　　
☆★　　　　インターネット初！「きたぐに割引」　　
★☆　　　　北海道・東北の皆様は送料も激安！　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　スピード発送！　　　　　　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　商品が豊富！　　　　　　　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　　　　　　　　　　　　　　　　
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

797 ：名無しさん＠そうだ選挙にいこう：03/07/31 18:39

ところで、Acces をインストールしていないパソコンで *.mdb ファイルを閲覧することってできませんか？
テーブルを閲覧するだけでいいんですが。
フォームとか一切使えなくていいんですが。

798 ：レプリケーション：03/07/31 18:57

レプリケーションを使ってみようと思って
今いじっているデータベースをデザインマスタに変換してみたら、
テーブルにいくつかのフィールドが追加されました。

The s_Lineage field contains the value of the ReplicaID property of replicas
that have updated a record and the last version created by each of those replicas.
The s_Generation field stores information about groups of changes.
Microsoft Jet also adds a field for every Memo and OLE Object field in a table.

ほかにも s_GUID ってフィールドとかが追加されているんですが、
これらのフィールドについてのもう少し詳しい解説とか載っているページありませんでしょうか？

799 ：名無しさん＠そうだ選挙にいこう：03/07/31 19:02

http://www.vesta.dti.ne.jp/~hi-lite/sample.html
簡単に見れるぞ

800 ：レプリケーション：03/07/31 19:02

Office 97 だとこんな感じみたいですね。

Changes to Your Database
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/changestoyourdatabase.asp

801 ：レプリケーション：03/07/31 19:06

Office 2000 の場合はこちらのほうが新しいドキュメントなのでいいのかも。

Database Replication in Microsoft Jet 4.0
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacc2k/html/dbrepjet.asp

とくに Structure of a Replicable Database セクションあたりが参考になりそうです。

802 ：名無しさん＠そうだ選挙にいこう：03/07/31 19:59

>795
> すると　上の項目をレポートフッダに入れなければならず・・・

意味不明
上の項目って何だ？

803 ：名無しさん＠そうだ選挙にいこう：03/07/31 20:27

>>797
http://www.atmarkit.co.jp/fwin2k/win2ktips/296exceldb/exceldb.html

804 ：名無しさん＠そうだ選挙にいこう：03/07/31 20:41

>>803 ありがとうございます。
Microsoft SQL Server Desktop Engine（MSDE）のインストール方法
http://www.atmarkit.co.jp/fdotnet/aspandvs/aspandvs01/aspandvs01_04.html

MSDE for Visual Studio 6.0 のダウンロード
http://www.microsoft.com/japan/msdn/vstudio/msde/download.asp
MSDE for Visual Studio 6.0 は
以下の Visual Studio 6.0 開発ツールの Professional Edition
または Enterprise Edition の正規ユーザーがダウンロードの対象になります。
Visual StudioR 6.0, Professional Edition および Enterprise Edition
Visual BasicR 6.0, Professional Edition および Enterprise Edition
Visual C++R 6.0, Professional Edition および Enterprise Edition
Visual InterDev? 6.0 Professional Edition
Visual J++R 6.0 Professional Edition

幸い、Visual Studio 6.0 を持っているので、ダウンロードできそうです。

805 ：名無しさん＠そうだ選挙にいこう：03/07/31 20:41

>>804 自己レス

「現在、MSDE 1.0 エンジンのダウンロードは停止いたしております。再開の時期は未定となっております。
　再開の際はこちらのページにてご案内いたします。ご不便をお掛けいたします。」

がが～ん！ｼｮﾎﾞｰﾝ

806 ：名無しさん＠そうだ選挙にいこう：03/07/31 20:43

フォームやレポートをまたいで変数を効かせたいのですが・・・
うまいことやる方法はないものでしょうか

807 ：MSDE：03/07/31 20:48

MSDE っていったい何種類あるんだ…
.NET Framework SDK 1.0 ユーザー用 MSDE 2000 SP3
http://www.microsoft.com/japan/msdn/netframework/downloads/updates/sdkfix/

SQL Server 2000 Service Pack 3a、MSDE 2000 Service Pack 3a について
公開日 : 2003 年 1 月 21 日更新日 : 2003 年 7 月 16 日
http://www.microsoft.com/japan/sql/downloads/2000/sp3.asp

.NET Framework SDK からインストールした MSDE に対し SQL Server 2000 Service Pack が適用できない
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com%2Fdefault.aspx%3Fscid%3Dkb%3Bja%3B813798

MSDE の適切な使用最新更新日: 2002 年 10 月 16 日
http://www.microsoft.com/japan/sql/evaluation/msdeuse.asp
Q. マイクロソフトの製品やサービスを一切購入することなく、
　　　Web ベースアプリケーションで使用することを目的に MSDE を入手することはできますか?
A. ASP.NET Web Matrix により、Web ベースアプリケーション用として MSDE を配布することができます。
　　　ASP.NET Web Matrix* は、無料でダウンロード(英語) いただけます。
* MSDE は、ASP.NET Web Matrix のダウンロードを通じて入手した場合、
　ASP.NET Web Matrix を使用して開発されたアプリケーションと組み合わせて使用する目的でのみ提供されます。

808 ：名無しさん＠そうだ選挙にいこう：03/07/31 20:49

>>806
その変数を、テーブル経由で受け渡しするというのはどうでしょうか？

809 ：名無しさん＠そうだ選挙にいこう：03/07/31 21:17

>>808
有り難うございます。
でもやり方がよくわかんないので、そのフォーム上にテキストボックスでも作って
そいつでバイパスさせてみますｌ。

810 ：名無しさん＠そうだ選挙にいこう：03/07/31 21:53

>>809
フォーム、プロシージャにまたがる変数の受け渡しは
1.プロシージャ内で宣言するDim txtX As StringをPublic txtX As Stringにする
2.あるいは変数受け渡し用テーブルを作っておき、変数名のフィールドを作り、
　該当変数に変化があるたびにフィールドの値を更新する
3.フォーム上に不可視のテキストボックスを作って代入したり参照したりする

811 ：_：03/07/31 22:10

http://homepage.mac.com/hiroyuki44/hankaku09.html

812 ：名無しさん＠そうだ選挙にいこう：03/08/01 02:34

コンボボックスのリストを確認する時、普通はコンボボックスの右端の三角記号を
マウスで指示して、リストをドロップダウンさせて確認しますが、自動的にする方法は
ないでしょか？　エンターキーでフォーカスさせたとき自動でドロップダウンさせたいのです。
ヒントを下さい。よろしくお願いします。

813 ：名無しさん＠そうだ選挙にいこう：03/08/01 08:20

>>812

Private Sub ほにゃらら_GotFocus()
　Me.Controls("ほにゃらら").Dropdown
End Sub

「ほにゃらら」はコントロール名

814 ：名無しさん＠そうだ選挙にいこう：03/08/01 12:15

Microsoft DAO 3.60
http://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/dao360/dahowdataaccessoverview.htm

ふぃ～苦労したよ…
技術評論社の谷尻ってやつの書いた ACCESS VBA 応用プログラミング、
DAO の Recordset クラスの Sort プロパティ使えばソーティングできるなんて書いておきながら、

「ただしテーブルタイプおよび前方スクロールタイプの Recordset オブジェクトには適用できません。
　テーブルタイプの Recordset オブジェクトの並べ替えを行うには、Index プロパティを使用します。」

ってのを書き忘れてるじゃないか～～～

815 ：名無しさん＠そうだ選挙にいこう：03/08/01 12:16

しかも、

「通常は、並べ替え条件を指定した SQL ステートメントを使用して
　新しい Recordset オブジェクトを開いたほうが、並べ替えが速く行われます。」

って…ショボ～ン

816 ：名無しさん＠そうだ選挙にいこう：03/08/01 13:34

WIN2000でACCESS2000です。

初心者なのでお手柔らかにお願いします

単票式のフォームのリストボックスでデータを選択して、そのデータがアクティブになっているままフォームを閉じると、テーブルにデータが保存されません。

これはどのように回避すればよろしいのでしょうか？

私一人ならフォームを閉じるときに別の部分をクリックするなどして注意すれば済む話なのですが、何人かで使っているので間違いが多いのです。
非常に困っています。よろしくお願いいたします。

817 ：名無しさん＠そうだ選挙にいこう：03/08/01 14:54

>>816
え？そんなことになるんですか？？
別のコントロールにフォーカスが移ったあとならちゃんと保存されているんですか？
だったら、標準の「閉じる」ボタン（ウィンドウの隅っこのヤツ）を表示しない設定にして、
フォームを閉じるコマンドボタンをフォーム上に用意すればいいんじゃないでしょうか？

「フォームのリストボックスでデータを選択して、そのデータがアクティブになっているままフォームを閉じる」
という意味がいまいち理解できていないんで、間違っているかもしれませんが。

818 ：名無しさん＠そうだ選挙にいこう：03/08/01 20:56

>>814
そのサイト 8/1 で終了なんだと。
さっきまさに目の前で消された。

もう DAO でプログラムを組むなってことか？？
ADO + ADOX + JRO しか許さないってか？？

819 ：名無しさん＠そうだ選挙にいこう：03/08/01 23:10

フォームが開かれているかどうか判定するにはどうしたらよいのでしょうか。
また、サブフォームを呼んでるフォームで、
数字を入れたら自動的にサブフォーム部分を更新したいのですが、
イベントはどのタイミングで入れればよいのでしょう。
加えて最クエリの仕方を教えてください

820 ：名無しさん＠そうだ選挙にいこう：03/08/01 23:17

アニメと女子校生の無修正！
無料画像でも十分ボッキもの！
一見の価値あり！！
http://www.pinkfriend.com/

821 ：無料動画直リン：03/08/01 23:20

http://homepage.mac.com/miku24/

822 ：名無しさん＠そうだ選挙にいこう：03/08/01 23:25

>>819
>フォームが開かれているかどうか判定するにはどうしたらよいのでしょうか。
Formsで開いてるフォームを取得できるので
for each fm in forms
～
next fm
で検査。

>イベントはどのタイミングで入れればよいのでしょう。
コントロールの変更時か更新後処理（他の動作との兼ね合いで決める）

>加えて最クエリの仕方を教えてください
DoCmd.Requery

823 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 04:53

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

824 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 04:54

825 ：名無しさん＠そうだ選挙にいこう：03/08/02 06:38

age

826 ：名無しさん＠そうだ選挙にいこう：03/08/02 09:44

>>816
フォーム閉じるときのイベントに、
DoCmd.RunCommand acCmdSaveRecord
入れれば。

827 ：名無しさん＠そうだ選挙にいこう：03/08/02 14:03

フォームやレポートのイベントタイミング解説ってどっかに無いんですか？
普通はリファレンスがもっとしっかりしてるもんだと思うのですが・・

828 ：名無しさん＠そうだ選挙にいこう：03/08/02 14:56

Private Sub Report_Activate()　と
Private Sub Report_Page()で
If Me.[状態] = "0" Then
Me.ENDBOX.Visible = False
Else
Me.ENDBOX.Visible = True
End If
という一文でレポート中の表示非表示をさせています。
フォームからレコードを指定してこのレポートを呼んだとき、存在しない
レコードを呼べば当然　Me.[状態]は存在しないので怒られるのですが、
On Error GoTo　で飛ばしたりすると、何故か判定が無茶苦茶になり
[状態]の値を「たまに」無視してVisibleになったりならなかったりします。

そのオブジェクトが存在するかどうかチェックするような構文は無いのでしょうか。

829 ：名無しさん＠そうだ選挙にいこう：03/08/02 15:57

恥ずかしいんですが教えてもらえませんか。
連番で数値を入力しています頭に必ずhを付けないといけないのですが、
自動的にｈを付ける方法はありますか？
お願いします。

830 ：名無しさん＠そうだ選挙にいこう：03/08/02 16:43

>829
数値項目にテキストのhを付けるなんて無理・・・だと思う

発送を変えてテーブルへの保存は数値だけにしておいて、
フォームやレポートに表示する時だけ頭に"h"& を付ければいいのでは？

831 ：829：03/08/02 16:55

>830
無理ですか・・・。

恥を忍んでもう一つ。
フォームで行う方法はどうするんでしょうか？
フォームは既にあります（他の人が作ったものです）。

832 ：829：03/08/02 17:03

すいません、やっぱりテーブルでhが入ってないと
駄目みたいです。

データ数多い・・・鬱

833 ：名無しさん＠そうだ選挙にいこう：03/08/02 17:22

>>832
テーブルにもう一つテキストの項目をもってそこにｈ付連番をもったら。

834 ：名無しさん＠そうだ選挙にいこう：03/08/02 17:31

>832
私も>>833と同意見
idの他にテキスト型のフィールドで番号をつけるようにして
例えば、"h"&idを格納するようにするとか、あるいは"h"&連番を格納する
単に、これで解決だと思うけど？

835 ：_：03/08/02 17:43