【I love Access】やっぱりアクセスが良い

【I love Access】や� ..

473:NAME IS NULL
08/02/16 20:13:53
フォームと同様にレポートもメモリ使うみたいだから、それもカウントしなきゃダメだよ。

474:NAME IS NULL
08/02/16 20:57:05
>>473
ああ、それもそうだなあ。するってえとそろそろ限界が近いかもしれない。
基本的に１ファイルで管理するAccessではやはり大規模開発（ってほどでもないけど）は無理かも？
随分前から代替手段を検討しているけれど、とりあえず問題がないのでなかなか踏ん切りがつかない。
一応第一候補はJavaなんだけどなあ？

475:NAME IS NULL
08/02/17 01:26:08
Mac、Linux、Windowsとプラットフォームを問わないJAVAでの開発がこれからの主流。

そんなふうに考えていた時期がぼくにもありました・・・

476:NAME IS NULL
08/02/17 11:04:55
Accessの代替がJavaとかズレてねえ？

477:NAME IS NULL
08/02/17 12:07:16
>>469
アクセスのレポートを使わないのは、他の印刷ツールを使っているからだ。
そのほうがよりニーズに対応したものが作れるということもあるが、
MDBからできるだけ外に出したいという理由がある。（メモり対策、分散作業のため）
その代わり、ワークファイルやモジュールが増大するのは仕方ないと思っている。

478:NAME IS NULL
08/02/17 13:26:35
>>477
アクセスのレポートより良い印刷ツールなんてそうそう無いと思うのだが？
いったいなに使っているんだろう？

479:NAME IS NULL
08/02/17 15:30:36
>>476
じゃあ、他になんかある？

480:NAME IS NULL
08/02/17 15:36:56
VB

481:NAME IS NULL
08/02/17 16:27:22
桐

482:NAME IS NULL
08/02/17 17:46:13
おいおい、Accessより大規模なシステムの開発の話だぞ。
VBや桐じゃ同程度の開発がいいところだと思うけどなあ？
ってまあここで聞くような話じゃないけどな。

483:NAME IS NULL
08/02/17 20:41:54
データベースエンジンの話が抜けてるのがズレてるっぽい

484:NAME IS NULL
08/02/17 21:47:03
エンジンはJetで

485:NAME IS NULL
08/02/17 22:20:57
>>484
なんでAccessの一番の弱点だと思われるJetエンジンをAccessの代替で使わなければいけないんだ。
MySQLあたりを使うのが普通だろう？

486:NAME IS NULL
08/02/17 22:25:51
俺の会社オラクル使ってるけど、レポートと入力は桐でやってる。
レポートは桐が群を抜いてるし、入力も桐の表形式が速くて誤入力がない。
他はオラクル。

487:NAME IS NULL
08/02/17 22:38:21
オラクルと桐しか使ってないやつがなんでこのスレ来てんの？w

488:NAME IS NULL
08/02/17 23:04:14
２ちゃんもDB関係は全部目を通してる。
一応、DBが本職なんで。

489:NAME IS NULL
08/02/18 02:14:37
>>478
アクセスのレポートは作成された帳票にユーザが手を加えられないのが難点。
エクセル形式で帳票作成できるツールであれば、作成されたものはユーザが自由に改造できる。
また、ユーザが作ったエクセルファイルをそのまま流用できるのもいい。

URLﾘﾝｸ(www.adv.co.jp)

ACCESS VBAからでも使用可

490:NAME IS NULL
08/02/18 05:45:35
>>486
桐とオラクル？
初めて聞く組み合わせだ。
確かにワープロを作っていた会社だけあって日本語のレポートは郡を抜いている。
ほとんどどんな印刷物でもできる。
でも、桐の外部データーベース接続は遅いって聞いたのだけど？
それとも、入力と印刷のたびにファイル変換しているのだろうか？
オラクル自体はなんで動かしているの？まさか桐の一括処理？
もし良ければ参考にしたいので教えて下され。

491:NAME IS NULL
08/02/18 08:33:50
入力と印刷のたびにファイル変換してる。

入力は一部だけど、キーパンチャーがバコバコボコボコ入力する部分だけ。
ほんと、入力も桐が効率良いわ。

492:NAME IS NULL
08/02/18 19:07:03
>>491
Accessのフォームも作りこんで複写とか出来るようにすればそれなりに効率は良くなるんだが、
あまり複雑になると遅くなったりするからなあ？
確かに桐を使うってのはひとつの手だとは思うし、
ファイル変換してというのはありだとは思うけど、あまりスマートなやり方ではないなあ？
マネしてやってみようという気には残念ながらならないなあ？

493:NAME IS NULL
08/02/18 20:15:43
お前はJavaでやればいいよ

494:NAME IS NULL
08/02/18 21:15:23
>>492
複写ってどうやんの？

495:NAME IS NULL
08/02/18 22:59:30
・オラクル→桐
・桐→オラクル

通常の運用でこの処理を何度も何度も何度も何度も繰り返してるってことだな。
人間のやることだからバコバコ打った後に桐→オラクルするつもりがオラクル→桐しちゃったとか
年に1回くらい普通にありそうだが・・・

496:NAME IS NULL
08/02/18 23:02:02
Accessの帳票は印刷にはいいんだけど、
データでくれって言われた時にちょっと困る。

前はPDFにして送ったけど。

497:NAME IS NULL
08/02/18 23:17:54
印刷物を画像データで要求されて困るのはAccessのレポートに限ったことじゃないと思うが

498:NAME IS NULL
08/02/19 05:05:58
>>495
普通はプログラム（一括処理？）組んで自動処理するだろう？
オラクルまで導入してそんなところを手作業でしてたらいい笑いものだ。

499:NAME IS NULL
08/02/19 05:07:07
>>497
たぶんエクセルと比較して言っているんだろう？

500:NAME IS NULL
08/02/19 09:45:59
印刷イメージをデータで送るってこと多いのか？レポートのレコードソースをＣＳＶでというのはよくあるが。

501:NAME IS NULL
08/02/19 11:08:13
>>494
> 複写ってどうやんの？
元のデータを変数に格納してその変数を使ってレコードを追加すればいい。
そんなに難しいプログラムではないよ。
使いやすく作るのは難しいかもしれないけれど。

502:NAME IS NULL
08/02/19 12:31:52
>>497
エクスポートで.htmlやら.xlsやら選べるの知ってたから安請け合いしたら、
実際やってみてｳﾎﾞｧということがあった。
まあ俺が間抜けなんだけど。

>>500
実際のレイアウトとか見たいんじゃないかな。

Accessだとレポート使うけど、
こないだHSQL+JavaでやったときはHTML出力にした。
Accessのレポートは印刷設定が時々リセットされるし。
そのたびに呼ばれるのはかなわん。

503:NAME IS NULL
08/02/19 13:17:48
社内で主にデータ閲覧用のデータベースとしてアクセス（ADP）使っているんだけど、
そろそろレポート出力の方もちゃんと勉強しなくちゃと思ってます。
レポートの作り方で参考になるようなサイトってあまりみかけないんだけど、
おすすめあったら教えてプリーズ。

504:NAME IS NULL
08/02/19 18:52:41
そういや、レポートってあんまりなにかを見て覚えたという記憶がない。
トライ＆ゴーでいろいろやって、なんとなくわかった。
基本的にはフォームと良く似ているけれど、
ユーザーインタフェースを意識しなくていいので楽な気がする。
気をつけなくてはいけないのはヘッダーとフッターの使い方。
特にグループヘッダーフッターの使い方で改ページするところが変わってくる。
いろいろやってみればだんだんわかってくるとは思うけど最初は戸惑う。
それと、あまり複雑なレポートを作ると重く遅くなるので、
印刷用のデータをSQLで作ってレポートはシンプルになるように気をつけたほうがいいと思う。

505:NAME IS NULL
08/02/19 19:25:55 zoj3pqPw
ＡＣＣＥＳＳでこのようなデータを入力後下記の形にＶＢＡでしたいのですが
どうすればいいですか？
納品先　　｜商品名　　｜規格　　　｜数量　　　｜
Ａ　　　　｜やさい　　｜２Ｌ　　　｜５０　　　｜
Ａ　　　　｜やさい　　｜３Ｌ　　　｜３０　　　｜
Ｂ　　　　｜衣料品　　｜Ｌ　　　　｜　５　　　｜

変換したい形
納品先　　｜商品名　　｜内容１　　｜内容２　　｜内容３　　｜
Ａ　　　　｜やさい　　｜２Ｌ　　　｜３Ｌ　　　｜　　　　　｜
Ａ　　　　｜やさい　　｜５０　　　｜３０　　　｜　　　　　｜
Ｂ　　　　｜衣料品　　｜Ｌ　　　　｜　　　　　｜　　　　　｜
Ｂ　　　　｜衣料品　　｜５　　　　｜　　　　　｜　　　　　｜

506:NAME IS NULL
08/02/19 20:06:10
あほなことやってると思うけど
あえてやり方挙げるなら
UNIONかな

507:NAME IS NULL
08/02/19 20:09:08
>>505
テーブルでは、たとえ桐つかっても無理だな
レポートでやれ

508:NAME IS NULL
08/02/19 20:43:19
レポート作るとき

フィールドリストからドラッグアンドドロップして
ラベルとテキストのコントロールが連結した状態で出来上がるが

その一方だけをセクションを跨いで移動したいとき

例えばラベルだけをフッターセクション上に置き
テキストは詳細セクション上に置くには
どのようにすればいいのでしょう？

ドラッグしてもセクションをまたげなくないですか

509:NAME IS NULL
08/02/19 20:46:25
またげないお

510:NAME IS NULL
08/02/19 21:02:27
>>508
それほど悩むことかな？
ラベルをカット＆ペーストで持っていけばいいんじゃない？
ラベルだけ作り直したってたいした手間ではないし。

511:NAME IS NULL
08/02/19 21:04:58
Access2007のはラベルのC&Pでも持っていけなかったorz

512:NAME IS NULL
08/02/19 21:12:41
>>510
慣れてる方はそう思われるんでしょうけど
出来うるなら簡素なやり方でやりたい

フィールドが沢山あるもので
オートレポートでもフィールドが多すぎて出来ないと
表示されますし

513:505
08/02/19 21:44:35 zoj3pqPw
>>507
レポートだとどうすればいいですか？

514:505
08/02/19 21:59:36 zoj3pqPw
まちがえました
再度書き込みしなおします

ＡＣＣＥＳＳでこのようなデータを入力後下記の形にＶＢＡでしたいのですが
どうすればいいですか？
納品先　　｜商品名　　｜規格　　　｜数量　　　｜
Ａ　　　　｜やさい　　｜２Ｌ　　　｜５０　　　｜
Ａ　　　　｜やさい　　｜３Ｌ　　　｜３０　　　｜
Ｂ　　　　｜衣料品　　｜Ｌ　　　　｜　５　　　｜

変換したい形

納品先　　｜商品名　　｜規格１　　｜数量１　　｜規格２　　｜数量２　　｜規格３　　｜数量３　　｜
Ａ　　　　｜やさい　　｜２Ｌ　　　｜５０　　　｜３Ｌ　　　｜３０　　　｜　　　　　｜　　　　　｜
Ｂ　　　　｜衣料品　　｜Ｌ　　　　｜５　　　　｜　　　　　｜　　　　　｜　　　　　｜　　　　　｜

515:NAME IS NULL
08/02/19 22:03:12
>>512
オートレポートってアメリカならいざしらず罫線を使った複雑な帳票を要求される日本では使い物にならない。
ラベルとテキストの連結は便利なようで実際はじゃまにしかならない。

レポートって最初からレイアウトが一発で決まるということはまず無くて、
結局修正修正の繰り返しになることがほとんど。
経験上、簡素なやり方だと後で手直しする手間がかえってかかる。
複雑な帳票になるほど一つ一つコントロールを配置していくほうが結局近道になる。
複雑な帳票といっても良く見ると似たようなコントロールが多いので、
一つ作ってそれをコピーしてから修正すれば意外と手間はかからない。

まあ、意にそぐわない答えだと思うけど正直そう思う。

516:NAME IS NULL
08/02/19 22:07:04
似たようなものがいっぱいあるとき
全部のプロパティいじるの面倒で仕方ないんですが
コントロールの配列みたいなことは出来るんですか？

517:NAME IS NULL
08/02/19 22:37:59
>>516
> 似たようなものがいっぱいあるとき
> 全部のプロパティいじるの面倒で仕方ないんですが
いったいいくつあると言うのかな？
似たようなものならいじらなければならないプロパティはそんなにないと思うのだけどね。
例えば３１個のフィールドがあるならば最初にData01を作ってコピーした先をData02とすれば１を2に変えるだけ。
最初からそういうことを念頭においてテーブル設計しておけば面倒なことはないと思う。
それからコピーしてペーストしたコントロールを移動してからさらにペーストすれば、
移動した方向にいくつでも並べられる。これを使うと配置も便利。
工夫次第でこれくらいのコントロールは簡単にできるよ。
そのくらいことで面倒なんて言っていたらVBAなんてとてもできないし、
VBAを使わないAccessなどクリープの入ってない・・・・・・(w

３１個よりはるかに多いというのならそれは根本的に考え直したほうがいいと思う。
３１個の例でもプレビューするのに何分もかかりました。
それよりはるかに多いのなら使い物にならないだろうし、
ハングして動かなくなる可能性も高い。

> コントロールの配列みたいなことは出来るんですか？
コントロールの配列ってまったくイメージがわかないんだが、出来ないだろうと思うよ。

518:NAME IS NULL
08/02/19 22:42:08
>>515
いや、参考になりやす
アメリカ文化の日本文化の罫線　
バカヤローです。

ただofficeの浸透力、シェアにあきらめて
やるしかないですね

519:NAME IS NULL
08/02/19 22:52:21
>>518
ここで出てきそうな言葉が「桐にしとけ」なんですが、
確かにこういう分野は桐が得意でいいんですが、
桐には桐の問題点があるんでね。
Accessでも工夫次第で大抵のことはできるんでがんばってください。

520:NAME IS NULL
08/02/19 23:05:07
>>517
コントロール配列はVBでは基本テクニックっすよ。

521:NAME IS NULL
08/02/19 23:24:24
　VB6 では、実行時に配列を振る必要はないのですが、デザイナで 1 つ、コピー元になるコントロールを配置しておく必要があります。
また、そのコピー元の Index プロパティを画面デザイナから 0 に設定しておいてください。(実行時の設定はできません)
新しいコントロールを追加するというよりは、コントロールを複製するという動きになります。
そのコピー元は Index プロパティが 0 のコントロールで、Load ステートメントを使用することで複製されます。
この時、Visible プロパティは False になっていますので、True にする必要があります。

522:NAME IS NULL
08/02/19 23:24:56
URLﾘﾝｸ(jeanne.wankuma.com)
' Load イベントで配列を動的に作成してフォームに加える
Private Sub Form_Load()
　　 Dim i As Integer
　　 For i = 1 To 9
　　　　 ' Load ステートメントを使用してコントロールを作成する
　　　　 Call Load(Me.Text1(i))
　　　　 ' ここで、プロパティなどを必要に応じて設定します
　　　　 Me.Text1(i).Text = "Text" & CStr(i + 1)
　　　　 Me.Text1(i).Top 　= Me.Text1(0).Top + (240 * i)
　　　　 ' 初期値で False になっているので True にする
　　　　 Me.Text1(i).Visible = True
　　 Next i
End Sub

523:NAME IS NULL
08/02/19 23:28:14
VBAでは使えないサンプルソース乙

524:NAME IS NULL
08/02/19 23:34:43
>>516
桐には初めからファミリってのがあって、コントロールをグループ化して一括で設定できるど

525:NAME IS NULL
08/02/19 23:35:54
URLﾘﾝｸ(www.h3.dion.ne.jp)
URLﾘﾝｸ(www.moug.net)
URLﾘﾝｸ(okwave.jp)

526:NAME IS NULL
08/02/20 11:29:28
>>504
アドバイスありがとう

527:NAME IS NULL
08/02/20 12:09:20
>>525
アドバイスありがとう

528:NAME IS NULL
08/02/20 20:58:58
>>514
エクセルならいざしらず、まずデータをコード化しないとどうにもならないと思いますよ。
このままコード化しないまま処理しようと思っているのなら、エクセルでやったほうがいいでしょう。

それはともかく考えかたとしてはこういうことでいいと思います。
規格によって書き込む位置が変わるわけですからその規格がどの位置になるかの情報が必要です。
この場合２Ｌは１の位置、３Ｌは2の位置、Ｌは１の位置ということになります。
この位置情報をテーブルで保存しておきます。

そしてあらかじめ変換したい形の空白のデータベースを用意し、そこに商品マスターからデータを流し込みます。
そのテーブルに元の形式のテーブルと位置情報のテーブルをリレーションして更新をかけます。
これはSQLをつかうのが簡単で早いでしょう。

とはいうものの本当にこんなやり方でいいんでしょうか？やさいというのは単なる例なのでしょうが、
規格がある一定の範囲で収まるとは思えないのですが・・・・
印刷サイズを越えたらどうするのでしょう？
根本的に考え方を変えたほうがいいように思うのですが？

529:NAME IS NULL
08/02/20 23:10:49
衣料品の規格Lは常識的に推理できるけど野菜の2Lとか3Lとかが
どんなものかまるで想像つかないな。
もしかしたら4Lとか5Lとか99Lとかたくさん種類があってそれを50音順に、
あるいは入力順に左詰めで並べたいということだろうか？
順番は関係なく、とにかく3つが横並びになっていればいいのか？
同じ野菜で同じ規格が複数行入力されたら数量は合計するのか？
4つめの規格が入力されてしまった場合は捨てるのか？数量4を用意するのか？
それとも4つめの規格については絶対入力されない保証があるのか？

もうちょっと要件定義が必要だとｵﾓﾀ

530:514
08/02/20 23:49:11 DCQNrO7Q
>>528
レスありがとうございます

詳しい説明文もかかずすいませんでした
全然説明不足でした

DATAというテーブルに下記の形で入力します
納品先｜商品名　　｜規格　　｜数量　　｜
-------------------------------------
Ａ　　　　｜やさい　　　｜２Ｌ　　　｜５０　　　｜
Ａ　　　　｜やさい　　　｜３Ｌ　　　｜３０　　　｜
Ａ　　　　｜やさい　　　｜　Ｌ　　　｜１５　　　｜
Ａ　　　　｜やさい　　　｜　M　　　｜２０　　　｜
Ａ　　　　｜やさい　　　｜　S　　　｜３３　　　｜
Ａ　　　　｜やさい　　　｜等外　　｜４０　　　｜
Ｂ　　　　｜衣料品　　　｜Ｌ　　　　｜　５　　　｜

変換後というテーブルを作成しておき以下のように
VBAなりの方法で以下のように追加したいと思います
納品先　　｜商品名　　｜規格１｜数量１｜規格２｜数量２｜規格３｜数量３｜規格４｜数量４｜
--------------------------------------------------------------------------------
Ａ　　　　　｜やさい　　　｜２Ｌ　　　｜５０　　｜３Ｌ　　　｜３０　　｜L ｜１５｜M ｜２０｜
Ａ　　　　　｜やさい　　　｜S 　　　｜３３　　｜等外　｜４０　　｜　　　｜　　　　｜　　　　｜　　　　｜
Ｂ　　　　　｜衣料品｜Ｌ　　　　｜５　　　｜　　　　　｜　　　　｜　｜　　｜　　　　｜　　　　｜

規格で位置が決まってるわけではありません
規格、数量とも１～４まで交互にあり
その商品ごとの規格、数量ははかならず１からはじまります
仮にやさいで規格が６つ存在したら
次のレコードの規格１の所に入る形でやりたいです

うまく伝わりましたでしょうか？

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

531:514
08/02/21 00:04:34 Wq3um4ha
>>530
かなりずれてしまいました

>>529

>衣料品の規格Lは常識的に推理できるけど野菜の2Lとか3Lとかが
>どんなものかまるで想像つかないな。
>もしかしたら4Lとか5Lとか99Lとかたくさん種類があってそれを50音順に、
>あるいは入力順に左詰めで並べたいということだろうか？
>順番は関係なく、とにかく3つが横並びになっていればいいのか？

　　やさいに限らず規格は無限と考えてもらえると助かります
　　並ぶ順番などは特にないです
　　上にあるものからでかまいません

>同じ野菜で同じ規格が複数行入力されたら数量は合計するのか？

　　集計に使う予定で考えてますので
　　クエリをつかって日付で抽出し、納品先ごとで合計します
　　

>4つめの規格が入力されてしまった場合は捨てるのか？数量4を用意するのか？
>それとも4つめの規格については絶対入力されない保証があるのか？

　　530を見てもらえると助かります

532:NAME IS NULL
08/02/21 00:32:42
レポートならこんな感じにサブレポートの列数を指定してやるといい。
URLﾘﾝｸ(nullpo.vip2ch.com)

533:NAME IS NULL
08/02/21 02:30:27
'ADO参照追加
Private Sub hoge()
Dim cn As New ADODB.Connection
Dim rstKey As New ADODB.Recordset
Dim rstData As New ADODB.Recordset
Dim rstTrans As New ADODB.Recordset
Dim count As Integer
Dim flg As Boolean

Set cn = Application.CurrentProject.Connection
cn.Execute "DELETE FROM 変換後"

rstKey.Open "SELECT 納品先,商品名 FROM DATA GROUP BY 納品先,商品名", cn, adOpenForwardOnly, adLockReadOnly
rstTrans.Open "SELECT * FROM 変換後", cn, adOpenForwardOnly, adLockOptimistic

Do While Not (rstKey.EOF)
w = 0
flg = False
rstData.Open "SELECT * FROM DATA WHERE 納品先='" + rstKey.Fields(0) _
+ "' AND 商品名='" + rstKey.Fields(1) + "'", cn, adOpenForwardOnly, adLockReadOnly
Do While Not (rstData.EOF)
If w = 0 Then
flg = True
rstTrans.AddNew
rstTrans.Fields(0) = rstData.Fields(0)
rstTrans.Fields(1) = rstData.Fields(1)
End If
rstTrans.Fields(w * 2 + 2) = rstData.Fields(2)
rstTrans.Fields(w * 2 + 3) = rstData.Fields(3)

If w < 3 Then
w = w + 1
Else
rstTrans.Update
flg = False
w = 0
End If

rstData.MoveNext
Loop
rstData.Close
If flg Then
rstTrans.Update
End If

rstKey.MoveNext
Loop
rstKey.Close
rstTrans.Close

Set rstKey = Nothing
Set rstData = Nothing
Set rstTrans = Nothing
Set cn = Nothing

End Sub

534:NAME IS NULL
08/02/21 10:56:56
規格、数量とも１～４までって限度が決まってるなら、桐でやれば簡単じゃん

535:NAME IS NULL
08/02/21 15:05:24
>>531
>　　クエリをつかって日付で抽出し、納品先ごとで合計します

Pivot使えばテーブルの変換不要
元テーブルから直接集計汁

536:NAME IS NULL
08/02/21 15:10:18
>>534
だれもそんなこと聞いてないよ。空気読めないというか、読む気が無いアホは引っ込んでろ。
俺はVer1からの桐ファンなんだけど、桐の評判落とすようなことはするな！
桐を使うか？Accessを使うかはケースバイケース。
だいたいの場合、手軽にやるなら桐、アプリケーションを作るつもりならAccessを使う。
桐しか使えないアホがなんでも桐が一番なんていうのは良い恥さらしだ。

537:NAME IS NULL
08/02/21 15:14:43
変なの来たわ

538:NAME IS NULL
08/02/21 18:04:05
>>530
上のテーブルはいいけど、下のテーブルはもはやリレーショナルデータベースである意味がない。
もちろん、VBAを使って無理矢理やればどうとでもそういうデータを作成できるけど、
それはVBAを勉強しろとしか言えない。

VBAでやるきがあるなら「レコードセット」がわかればできると思うよ。

>>　　集計に使う予定で考えてますので
>>　　クエリをつかって日付で抽出し、納品先ごとで合計します

ならば、上のデータを直接クエリやVBAで集計することを考えた方がいいのでは？

539:514
08/02/21 19:28:23 Wq3um4ha
>>533
できました
ありがとうございました
使わせていただきますね
自分ももっと勉強しなければ...

>>535
基本は複数行入力しないように心がけてるので大丈夫です

>>538
人から頂いたコードをカスタマイズする程度ならできるんですけど
一からとなるとちょっと自信ないんです....

　　

540:NAME IS NULL
08/02/21 20:31:59
>>539
そういう　なまいきな発言をするから、周りの人に教えてもらなくなって、ここで聞いているんだね。

541:NAME IS NULL
08/02/22 00:47:15
つか、こんなレコード作ってなんに使う気なんだ？

542:NAME IS NULL
08/02/22 05:22:45
いっぱい釣れたのでもういいです

543:NAME IS NULL
08/02/22 09:47:34
>>541
上のほうで出てた印刷イメージのデータを作るってことじゃないか？

544:NAME IS NULL
08/02/22 20:40:56
>>543
まあ、そうなんだろうけど正直あまり良いやり方ではないと思う。
そのまま印刷したんじゃやたら縦に長い表になるからって、
わざわざこんな面倒なことをするんだろうけど、
それなら段組印刷でもすればいいと思う。
そっちのほうがずっと見やすいしシンプルだ。
これもそう簡単に実現はできなさそうだけど
同じ努力するならそのほうが良いと思う。

545:514
08/02/23 14:47:52 BrdEtbtD
>>540
気にさわったのであればすいません
そんなつもりはありませんでした

>>541
543さんの方が言われるとおりです
今までエクセルでこの形で印刷してたんですけど
アクセスに移行しても見慣れたこの形がいいといわれまして

546:NAME IS NULL
08/02/23 15:24:51
>>545
> アクセスに移行しても見慣れたこの形がいいといわれまして
見慣れてない俺からしてみると不自然なんだけどね。
まあしょうがないか？現実にはすべて合理的ってわけには行かないものなあ。

547:NAME IS NULL
08/02/24 22:20:07 +jC5teAM
>>514
印刷目的ならテーブル(or クエリ)レベルで変換するより複数列レポート使うのがお奨め。
たぶん今後も開発や修正が出てきそうな雰囲気だから、作るなら柔軟性や汎用性を持たせておいたほうがいいと思うよ。
「見慣れた形がいい」程度の理由で決めてる相手なら、今後も「列数変えろ」とか「伝票印刷もしたい」とか言い出す可能性があるからね。

548:NAME IS NULL
08/02/25 07:56:12
要するにこういうこと。
URLﾘﾝｸ(www.nurs.or.jp)
実際に作って見せればこっちのほうが見やすいっていうと思うよ。

そうしてきっとこう言うんだよ。
「俺が言っていたのはこういうことだよ。やっとわかったか？」
「嘘つけ！」
ｗｗｗ

549:NAME IS NULL
08/02/28 17:48:38 Tzp8hxPl
アクセスのコンソールクライアントを探してたのですが、ベクター探しても無かったので
WSHの練習を兼ねて作ってみました。
うっぷします。
詳細は同梱のREAME.txtを読んでくだされ。
pass:ac
URLﾘﾝｸ(www-2ch.net:8080)

・ac.wsf
　ＭＳアクセスのコマンドラインクライアント
　使い始めは"/c"スイッチで環境ファイルを作成してください。
　起動すると"AC>"とプロンプトを表示するのでSQL文を入力して下さい。
　画面の表示の整形はCSVです。
　※標準入力を使用してるので、CScript経由で無いとエラーになります。

使い方：/h (ヘルプ) /b (bachモード) /c:MDBへのパスまたは /d:dsn名 (最初のみ)
　　　　/u:ユーザ名 /p:パスワード環境ファイル名(省略時はdefault設定)

※AC>プロンプト内のコマンド
AC>プロンプト内では次のコマンドが使えます。
　　　　AC>help;
　　　　　 help;　　　　　　 :この表示
　　　　　 quit;　　　　　　 :コンソールの終了
　　　　　（SQL文）;　　　　:SQLの実行
　　　　　 @(ファイル名);　　:ファイルの実行
　　　　　 !(コマンド名);　　:コマンドの実行

　　　　　注）文末記号(;)の後にリダイレクト記号(>)とファイル名で
　　　　　　　出力先をカレントディレクトリのファイルにします。
　　　　　例）select * from TEST;>data.csv

※元々CSVを取得、投入するスクリプトを改造したので、CSVを投入する
　スクリプトも同梱します。
・acm.wsf
使い方：/h (ヘルプ) ( /i or /u:キー項目名　挿入 or
　　　　/t:テーブル名環境ファイル名(省略時はdefault設定)

550:NAME IS NULL
08/02/28 18:57:46
schemaとかdumpとか希望

551:NAME IS NULL
08/02/28 21:08:13
JetSQLConsoleが有名(Wikipediaにも載ってる)だけどね。
そっちは日本語化けるから、そういう点では価値あるかも。

552:NAME IS NULL
08/02/29 05:49:55
Error : 3661
[object Error] on Connection Open
アプリケーションを起動できません。システムデータベースが存在しないか、またはほかのユーザーが排他的にシステムデータベースを開いています。

553:NAME IS NULL
08/02/29 12:48:13 MrGipuX/
>>552
MDBまでのパスが正しいか確認してくれ。
途中に空白があるとダメかも知れん。
cスイッチを゛でくくってくり。
例 /c:"c:\My Document\test:mdb"

若しくは本当に裏でMDBが開いてるか。
アクセスアプリを開いてるとそんなのが出た。
その場合はアクセス側でマルチユーザーの設定をしないとダメかも。
メニューに共有ユーザーの設定があったと思う。

554:NAME IS NULL
08/03/03 18:17:09
ところでAccess2007のランタイムはどうなったのだろう？

555:NAME IS NULL
08/03/03 18:21:11
>>554
普通に使ってますが何か？

556:NAME IS NULL
08/03/03 18:25:33
>>555
あっそうなんだ。
URLﾘﾝｸ(www.microsoft.com)
ここにあるやつ？英語版で問題ないの？

557:NAME IS NULL
08/03/03 18:32:14
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(www.microsoft.com)

558:NAME IS NULL
08/03/03 18:47:26
>>557
両方インストールせいってこと？
現在２０００なんだけど、ランタイムがまともに動くなら２００７にしてもいいかなと思ったりしている。
でも英語版でふりがな入力とかちゃんと動くのだろうか？

559:NAME IS NULL
08/03/03 18:51:39
>>558
URLﾘﾝｸ(office.microsoft.com)

560:NAME IS NULL
08/03/03 18:52:12
>>558
URLﾘﾝｸ(office.microsoft.com)

561:NAME IS NULL
08/03/03 19:35:47
別に無理に答えろとは言ってないよ。
使用した人間の実体験を聞きたいのであって、調べればわかるサイトの情報なんていらないよ。
つうことで後は無視するから悪く思わんでくれ。

562:NAME IS NULL
08/03/03 19:39:09
あんた誰？

563:NAME IS NULL
08/03/03 22:16:40
基地外きたー

564:NAME IS NULL
08/03/05 02:20:14
昨日Access2007を購入したばかりです。

>>557 のランタイム及びDeveloperExtensionsを早速インストールしました。
Officeボタン？に最初「Developer」と表示されていたのに、いつの間にか消えています。
その後ランタイムやDeveloperExtensions、はたまたAccess2007本体まで
アンインストール→再インストールしたのに、一向に「Developer」が表示されません。

何が原因なのだろう・・・？
ランタイム無償というコトバに飛びついて買ったのに・・・
どなたかおわかりの方いらっしゃいませんか？

あちこちネットで見てもこの現象は出てないみたいです。
ちょっと疲れたので仮眠します。

565:NAME IS NULL
08/03/05 08:29:59
ランタイムとOffice本体は同じPCにインストールしてはいけない
あくまでOfficeの入っていないPCに入れるためのものだから
ご愁傷さま

566:NAME IS NULL
08/03/05 08:40:05
DeveloperExtensionsで、ランタイム込みのパッケージと、ランタイム別途ダウロード指示のパッケージを作れる
別途ダウン指示パッケージの配布先がランタイムダウンする
自分でランタイム入れてどうすんのよ

567:NAME IS NULL
08/03/05 12:15:51
>>564です。
>>565 >>566
レスありがとうございます。確かに自分のPCにランタイム入れてました。
アンポンタンでごめんなさい。
やりたいことは「Access2007で作成されたもののランタイム版を作成する」ことですので、
自分のPCにはDeveloperExtensionsだけ入れれば良いのですね？

ランタイムそのものはアンインストールしましたが、それでも「Developer」が
オフィスボタンから表示されません。
今回導入したのはAccess2007のみで、その他のOffice製品はOfficeXPを
使っています。この中にはAccess2002も含まれています。
つまりAccess2002と2007が共存している状況なのですが、これが良くないのかなぁ？

568:NAME IS NULL
08/03/14 02:02:15 ppdTlgN9
ACCESSに詳しい方がいらっしゃるようなので、教えてください。ACCESS2003ユーザーですがテーブルのカーソル移動が突然遅くなり、画面の左下には計算中って表示されます。動きが遅くていらいらするんですがどなたかこの現象の解決方法ご存じですか？

569:NAME IS NULL
08/03/14 05:22:39
そういう難しい話は詳しい人に聞いた方が良いな

570:NAME IS NULL
08/03/14 09:49:51
>>568
On Current イベントは削除してください

571:NAME IS NULL
08/03/14 12:17:55
>>568
関係ないが・・・

>>ACCESSに詳しい方がいらっしゃるようなので、教えてください。

Accessに詳しい方がいらっしゃらないAccessスレっていうのも見てみたいなｗ

572:NAME IS NULL
08/03/14 13:34:46
Accessには詳しいが、お前の環境やファイルのことなぞ知らんわ。

573:NAME IS NULL
08/03/15 07:19:11
2007で数値型フィールドだけカーソル移動がやたら遅くなる現象があったけど
SP1当てたら直ってたな

574:NAME IS NULL
08/03/16 02:12:15
Access2007の購入考えているんですが、Vista対応ってしてますか？
公式HPのシステム要件ではよくわからんかった。

575:NAME IS NULL
08/03/16 12:59:54 GiAudtrQ
>>574
もちろんだよｗ
XPとVistaそれとServer2003に対応。

576:NAME IS NULL
08/03/16 22:42:30
サンクス。じゃ勉強用に買うわ。

577:NAME IS NULL
08/03/25 17:16:45 B6LLrA9G
>>562
ハナテン中古車センター

578:NAME IS NULL
08/03/30 19:12:33
>>568
＞On Current イベントは削除してください

と同義かどうか分からないが、一旦mdb閉じて、ldb削除すると治ったことがあるよ

579:NAME IS NULL
08/03/30 22:14:46 bRsz35Vf
既出だったらすいません

コンボボックスで数字を打ち込むようにしたのですが（1テキスト1文字）
ボックスの大きさのせいもありますが、矢印のせいで選択した数字が
見えなくなってしまいます。
アクティブにしたときまたはカーソルがあったときだけ矢印が現れ
そうでないときは非表示なるような技はないでしょうか？

よろしくお願いします。

580:NAME IS NULL
08/04/01 23:40:26
テキストorラベルと
コンボボックスを
同じ場所に重ねる
ラベルがクリックされたら
コンボボックスを手前に出す
コンボボックスが確定したら
ラベルを手前に出す

581:NAME IS NULL
08/04/05 14:45:47 LoFR07Xc
アクセスのフォームに住所・氏名を入力しているのですが、
これを一太郎の宛名ラベルに出力するにはどうすればいいのでしょうか？
フォーム１，２，３，４、、、、、とあり、連続して出力したいので、
マクロをつかえば半自動化できそうなのですが。
マクロじゃあムリでしょうか?VBA必須でしょうか?

582:NAME IS NULL
08/04/05 19:16:20
>>581

なぜフォームから?
いったんテーブルに落としてから印刷させればいいじゃん?
そうすればフォームはひとつで済む。
一太郎は持っていないので知らんが、
Wordだと落としたテーブルのデータをデータソースにすればいい。
つうか、Accessのレポートだとできないようなことなのか?

583:NAME IS NULL
08/04/06 00:44:21
ジャストシステムに電話してください

584:NAME IS NULL
08/04/06 11:28:24 tzUTMXnW
>>582
ワード（一太郎）から差し込むのではなく、アクセスのフォーム上の
コマンドボタンを押すと、ワードに出力されるようにしたいのです。
というのは、
アクセスの現在のフォームに対応したものをワードに作りたいという
のと、主にアクセスをつかって入力しているからです。

レポートだと宛名書きはいいんだけど、その他の文章はアクセスから
一太郎に出力しているので、2度で間になります。
つまり、フォームからの出力とレポートへの変換とう2作業を
１つにしたいのです。

585:NAME IS NULL
08/04/06 11:32:01
質問があります。
前のレコードに移動するボタンがあります。
先頭のレコードからは前のレコードに戻れない為、エラーゴーツーなるコマンドでエラーを拾っています。
この度、レコードを移動した際に更新前処理で更新するかを確認するようなメッセージを設定しました。
更新しませんと選ぶとキャンセルをTRUEに、ME.UNDOとして処理前の状態に戻しました。
ここで先のレコードが移動出来ない時のエラーが出てしまいます。
アドバイス下さい。

586:NAME IS NULL
08/04/06 11:58:52
アドバイス

587:NAME IS NULL
08/04/06 12:25:55
On Error Resume Next

を先頭に書いとけ

588:NAME IS NULL
08/04/06 15:08:03
>>584

①フォームの入力はアクセス
②文章の入力はアクセス

どう見ても一太郎を使うこと自体が二度手間です。

589:NAME IS NULL
08/04/06 22:17:10
「ワード（一太郎）」って時点で意味不明すぎる

590:NAME IS NULL
08/04/07 01:05:38
Wordに「一太郎」っていう名前を付けて可愛がってる。
「ウチの嫁」みたいなもの。

591:NAME IS NULL
08/04/08 09:37:18
ワードからでも一太郎のファイルが開けるから
一緒になってんじゃね？

592:NAME IS NULL
08/04/08 09:43:22
そういうもんじゃないだろ。

593:NAME IS NULL
08/04/09 19:30:00 R5oZK5Ol
accessでDB作ってるんですが質問に答えていただけると幸いです。

まず、テキストボックスに入力した値をもとに検索をかけて表示
する画面を作りました。
検索の処理はVBAで作成し、form.openとかいうコマンドで表示するクエリにフィルターかけて
検索結果を表示するフォームへ投げてます。
このクエリと検索処理に問題はないと思うのですが、結果を確認すると、
検索にひっかかったデータ以外に
新規レコード（主キーのID（数値型）０が入ってる）が表示されてしまいます。
この新規のレコードが何故表示されるのかわかりません。
このフォーム自体は、追加・削除・更新全て禁止にしております。
お助けください。

594:NAME IS NULL
08/04/09 21:03:57
[追加・削除・更新全て禁止]

ほんと?

595:NAME IS NULL
08/04/09 21:12:10
たぶんホント。
「追加・削除・更新全て禁止」と書いたラベルを貼ってあるから。

596:593
08/04/09 22:46:22 R5oZK5Ol
>>594
フォームの設定で禁止にしてます。
データ更新のフォームも同じような画面なんですが
そちらは追加禁止にすることで新規レコードは表示
されません。
ソース比べても全然わからないので一応Accessの仕様ということで諦めぎみです。
ちなみにやぶれかぶれでID=0及び、IDがNULLは持ってくるなっていう条件を指定
してみましたが駄目でした。
これについては新規のレコードなんでIDに条件加えたところで意味が無いのかも知れませんが一応。

597:NAME IS NULL
08/04/09 23:20:02
まず、日本語の勉強からだな

598:NAME IS NULL
08/04/10 00:09:23
「データ更新のフォーム」とやらをパクってきてVBA部分だけ移植すればいいじゃない

599:596
08/04/10 00:58:37 CzUi+X9O
>>598
やっても駄目なんです。

600:NAME IS NULL
08/04/10 01:28:59
駄目なやつってホントに何をやらせても駄目なんだな・・・

601:NAME IS NULL
08/04/10 02:57:06
>ソース比べても全然わからないので一応Accessの仕様ということで諦めぎみです。

そんな仕様はない。

つくりの問題としか思えないが、こちらはソースを見れないので、話だけではどうにも。

ローカルテーブルなら、MDBのコピーとって、全レコード削除したらどうよ。
本当にそれが新規レコードなら、それでも出てくると思うけど、もし出てこなかったら
それ新規レコードじゃないと思われ。

602:NAME IS NULL
08/04/10 18:42:18 wWHoh7J7
こんにちは。
アクセスの初心者の質問はここで良いですか？スレ検索しましたが、見つからなかったので…

603:NAME IS NULL
08/04/10 19:32:43
>>602

ビジネス板にもACCESSスレがあるが
正直こことの使い分け方がよう解らん。
とりあえず、質問をしてみるのが吉。

604:NAME IS NULL
08/04/10 19:55:31 wWHoh7J7
ありがとうございます。
かなりあほな質問かもしれませんが、ご容赦ください。

例えば、社員一覧テーブルがあるとします。それとは別に、部署一覧テーブルがあります。

部署一覧は、部と課の二つで構成されます。例えば
ーーーーーーーーーーーーーー
A部　　　人事課
A部　　　総務課
A部　　　経理課
B部　　　営業１課
B部　　　営業２課
C部　　　企画１課
C部　　　企画２課
C部　　　企画３課
ーーーーーーーーーーーーーー

ここで、社員一覧のテーブルで、社員の部と課を入力するときに、部署一覧テーブルのデータから入力したいのですが、

１．[部]列には、部署一覧の部のみ表示(ただし重複はさせない。この場合、A部、B部、C部と表示)させて選択できるようにする。

２．一方[課]列は、もし[部]にA部が入力されていたら、それに付随する人事課、総務課、経理課のみが選択できるようになる。

こういうことをしたいのです。

ルックアップとか、クエリとかいろいろやってみても分かりません。たぶん、かなり初心者な話だと思いますが…

よろしくお願いします。　

605:NAME IS NULL
08/04/10 21:32:18
俺だったら部だけのテーブルも作る。
で、フォームを使う。
この辺の仕様変更はできるの?

606:NAME IS NULL
08/04/10 22:46:19 r1j6EY9K
６０４です。

部だけのテーブルを作るとかいうのもありです。
基本的に、社員一覧テーブルに情報を打ち込むときに、打ち込みやすく間違えがないように
すればいいのであって、仕様はシンプルであればどのようでも良いです。

部は確かにそれだけのテーブルを持つか、値から選ぶようにすればいいのですが
２．についてはどうでしょうか。

似通った課名もあるので、できれば入力の際に
　　B部｜営業1課
　　B部｜営業2課

と2列を出して、選んだらセルには「営業1課」と2列目が入力される、とかできればいいのですが。
C部　→　営業1課　という部と課が一致しない入力を避けたいという気持ちです。

この辺だけできれば、あとは単なる社員情報一覧だけのテーブルで、プリントするものを
自動で作ったり（名前を差し込んだりして）したいだけで、特段難しいことはする予定ないです。

607:NAME IS NULL
08/04/10 23:45:52
部テーブル　　→部ID、部名
課テーブル　　→課ID、部名、課名（部名は部テーブルよりルックアップ）
社員テーブル　→社員ID、部名、課名、社員名…etc（部名は部テーブルより、課名は課テーブルよりルックアップ）

なんて構造にして、ウィザードで社員テーブルを元にフォームを作ればいい。
そうすれば部名、課名はコンボボックスになっているはずだから
部の更新後処理で課を絞り込めばOK。

608:NAME IS NULL
08/04/11 00:15:07
例えば電算部がシステム部とかに名称変更された時、
部テーブルの1行だけ修正すればおｋな設計にしといたほうがよくないか？

609:NAME IS NULL
08/04/11 00:20:52
ID使ってルックアップ列だから
多分大丈夫じゃないか。

610:NAME IS NULL
08/04/26 21:58:57
Video ActiveX 入れると、ｙｏｕｔｕｂｅで国別視聴制限が掛ってるオランダの１６歳金髪ポルノが見れる件
自動的に選択メニュー出るし

611:指定数分のレコードコピー
08/05/02 00:27:04
VBAにて指定した分だけのレコードコピーの仕方がわかりません
お知恵貸していただけませんか？

テーブル「DATA」は
発注日＝日付型
納品日＝日付型
得意先CD＝テキスト型
得意先名称１＝テキスト型
得意先名称２＝テキスト型
商品＝テキスト型
件数＝テキスト型
以上のフィールドがあります。

発注日で抽出したものを「DATA」に新規追加してます
その後に件数に入力した数だけそのレコードをコピーしたいんですけどどうすればいいでしょうか？
よろしくお願いいたします

612:NAME IS NULL
08/05/02 06:42:18
いまいち何がしたいか分からんから的はずれかもしれないけど
データ追加クエリを使えばいいんじゃないの？

613:NAME IS NULL
08/05/02 09:30:38
何をどこからどこへコピーしたいのか、もう一回整理して書き込んだらいい
あの説明でわかる人間は皆無だ

614:NAME IS NULL
08/05/02 12:49:58
同じテーブルないでコピーしたいと思っています

615:NAME IS NULL
08/05/02 13:24:15
for i=1 to rs("件数")
sql="insert ....... "
cn.Execute sql,,adExecuteNoRecords
next

616:NAME IS NULL
08/05/05 06:48:03
特定の条件に合致したテーブルのデータを修正するvbaを作って動かしてたんですが、凄い時間が掛かることが分かって悩んでます

do until rs.EOF
if ○ and ○ then
end if
rs.movenext
loop

ってやってるんですが、もっと高速化するやり方ってありますか？

617:NAME IS NULL
08/05/05 07:14:42
一軒づつポインタをあてて処理していく方法はとても時間が掛かります。
インデックスを再検討することで速くなったりしますが大抵は焼け石に水という感じでしょう。
クエリによりwhere節でデータを絞り込んで該当件数に対して一括処理していく方法が
取れないものか、考え直してみましょう～

いやこれはどうしようもないんですよ、、、って思われるかもしれませんが
本処理の前に前処理や後処理を加えても良いのですから、考え方を変えるつもりで。
ガンガレ

618:NAME IS NULL
08/05/05 15:18:06
where節というのは知りませんでした
なんか速くなりそうですね！ありがとうございます

619:NAME IS NULL
08/05/05 18:33:20
やりたい事によっては使えないかもだけど
UPDATE ステートメント、更新クエリもチェックしてみたら？

それと、どれくらい遅いか客観的に分かるデータ＝
レコード数、処理時間、おおまかなマシンスペックは
有った方が回答を得やすいんじゃないかな
>>617 さんの回答で解決したならいいんだけど

620:NAME IS NULL
08/05/05 19:16:21
すいません。まだwhereも試してないのですが
スペックはpentiumD 2.80GHtz メモリ512MB
レコード数はおよそ2000万くらいで、条件式が6000あってそれを順に代入していく感じです
試しに条件式を一つだけにしてみたら10分くらいかかったので、たぶん40日くらい掛かる計算でした

621:NAME IS NULL
08/05/05 21:21:14
質問の内容から察するに当の本人の力量はレコード数2000くらいのDBを扱うのが
一杯一杯ぽいけど・・・　なんという無茶な

622:NAME IS NULL
08/05/05 21:47:03 vthO5f4T
>>620
2000万件　条件6000！
学生さんで、実験データか何かかしらね
Access でやる範囲を超えてると思いますよ

2000万件もあると、Access で入力や変更してないでしょ？
データを出力するプログラムがあるなら、これを変更してしまうとか
データがファイルで有るなら、Access に入れずに
直接読み書きするプログラムを書いた方がいいですよ　キット

623:NAME IS NULL
08/05/05 22:34:39
まずテーブルに[不一致]フィールドをYes/No型で追加して
インデックスを作成しておいて…

次のクエリを6000回繰り返す。
UPDATE テーブル名 SET [不一致]=True
WHERE ([不一致]=False) AND (条件nに該当しないもの)

※繰り返す際、条件nがなるべく厳しいものから実行する。
極端な話、1回目のクエリで2000万件が1件に絞られる可能性もある。

最後に[不一致]=Falseのレコードに対して必要な修正を行う。

※この方法なら40日はかからないはず…1～2日ジャマイカ？
と条件の内容も知らないオレが無責任に言ってみるｗ

624:616
08/05/06 04:39:22
>>621
ここまで時間が掛かるものだと思わなかったもので…

>>622
そうです。アクセスで入出力はしてません。フリーのデータ取得ソフトを使って、そのソフトがMDBで出力してます。
プログラミングはよく分からないので…

>>623
やや違う形ですが、参考にさせてもらって速度が上がりました。ありがとうございます。

まだ結構日にちが掛かりそうですけど、これでやってみます。皆さんありがとうございました。

625:NAME IS NULL
08/05/06 06:39:34
>>623 さんをちょっと変形するともうちょい速くなるんじゃないかな

WHERE の条件に、自作関数を指定出来るから
そこで複数条件を一度にチェックすれば
繰り返し回数(6000)を少なく出来る

こんな感じ　気が向いたらお試しを
WHERE ([不一致]=False) AND ((check_val([フィールド１],[フィールド２],[フィールド３]))=True)

Function check_val(fld1 As Variant, fld2 As Variant, fld3 As Variant) As Boolean

(fld1 = 1 And fld2 = 2 And fld3 = "OK") Then
check_val = True
Else
check_val = False
End If

End Function

626:616
08/05/06 09:38:29
>>623さんのでやったら3時間ちょいで処理がおわっちゃいました。
あっけなさ過ぎて笑ってしまった。616のでやったときは4日動かしても1/3の位置にあるレコードさえ更新されなかったのに。
最初のコードがいかに効率が悪かったかってことですね。ありがとうございました。

次ページ