Access総合相談所 其� ..
2:名無しさん＠そうだ選挙にいこう
09/08/26 23:59:53
▼━質問テンプレ (出来れば使ってね) ━━━━━━
【 システム環境 . 】 Windows**, Access**
【 VBAが使えるか .】 はい･いいえ
【 VBAでの回答 】 可･否
【 検索キーワード 】 Googleやヘルプでの検索キーワード
前スレ
Access総合相談所 其の21 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
3:名無しさん＠そうだ選挙にいこう
09/08/27 00:00:24
ACCESS2000総合相談所
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所 その２
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所 その３
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所 その４
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所 その５
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所 その６
URLﾘﾝｸ(pc2.2ch.net)
ACCESS総合相談所 その７
URLﾘﾝｸ(pc2.2ch.net)
ACCESS総合相談所 その８(消息不明です)
URLﾘﾝｸ(pc2.2ch.net)
ACCESS総合相談所 その９(消息不明です)
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１０
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１１
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１２
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１３ 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１４ 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１５
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１６ 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
4:名無しさん＠そうだ選挙にいこう
09/08/27 00:01:17
ACCESS総合相談所 その１７ 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所 その１８ 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
Access総合相談所 其の19 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
桐はこちら↓
管理工学研究所「桐」【４】
ｽﾚﾘﾝｸ(bsoft板)
5:名無しさん＠そうだ選挙にいこう
09/08/27 00:24:06
桐にしとけ
6:名無しさん＠そうだ選挙にいこう
09/08/27 00:24:48
桐について語るスレ 2 【ｻｰﾊﾞｰ未満 Excedl以上】
ｽﾚﾘﾝｸ(db板)
7:名無しさん＠そうだ選挙にいこう
09/08/28 22:43:14
FAQ
Q1) 桐って何ですか？
A1) このスレで質問されるような事が何でも簡単に出来ちゃう魔法のソフトです。開発期間も1/5で済みますが、アクセスより高価です。
エグゼクティブは桐でさっさと仕事済ませて、空いた時間はホテルのプールでリフレッシュします。
貧乏人はAccessで必死に頑張ります。
8:名無しさん＠そうだ選挙にいこう
09/08/28 22:49:23
>>7
Accessでさっさと仕事を済ませて、空いた時間はギターを引いてリフレッシュ
している俺は、じゃぁ、なんなんですか？
３０歳で貯金は２千万円あります。今日の夕飯は、うまい輪一袋とミックスフルーツ100
です
9:名無しさん＠そうだ選挙にいこう
09/08/28 23:19:33
なかなか遣るなぁ
おれ３０歳時点でその３倍、今じゃ毎晩レモンサワー飲んでる
スイスの銀行紹介してやろうか？
ジュリアスベアーとかピクテとか
10:名無しさん＠そうだ選挙にいこう
09/08/28 23:23:22
トンスル飲んで寝ろ。
11:名無しさん＠そうだ選挙にいこう
09/08/29 20:03:50
４２歳で時給９００円。
ヒロポンやって昼勤夜勤３連続中（ヒロポンは嘘）。
Access初心者、元桐講師（マジで）。
12:9
09/08/29 21:18:41
>>11
同い年
時給換算50万円
国（国税局）相手に行政訴訟（税金裁判）で本業そっちのけの此の頃
Accessも桐も趣味で弄ってる
そろそろアーリーリタイアメント、エーゲ―海にヨット浮かべて美女はべらせて過ごす予定（カリブ海行ったら黒人女ばっかりだった）
13:名無しさん＠そうだ選挙にいこう
09/08/29 21:38:39
>>12
ふーん。似たもの同士だね！
俺も現場じゃゴリマッチョばっかり。
14:名無しさん＠そうだ選挙にいこう
09/08/29 21:44:25
間違えた、時給換算５万だ
どうでも良いが、最近面白い事ない
15:名無しさん＠そうだ選挙にいこう
09/08/30 23:10:48
>>14
恥ずかしい間違いだな
16:名無しさん＠そうだ選挙にいこう
09/08/31 08:10:55
ひと月に1時間しか働いてないの？
17:名無しさん＠そうだ選挙にいこう
09/08/31 09:04:31
時給「換算」と書いてあるだろ。
30分だぉ。
18:名無しさん＠そうだ選挙にいこう
09/08/31 09:06:55
だいたい200時間/月 くらい働いてる、もう嫌だ
19:名無しさん＠そうだ選挙にいこう
09/09/08 10:03:47
pu
20:名無しさん＠そうだ選挙にいこう
09/09/10 00:10:18
クエリのデザインビューとかに出てくる[テーブルの表示]ダイアログボックスって、
幅変えられませんよね？
長い名前のクエリをたくさんつくっているのだが、表示される幅の文字が同じで
区別がつかん...orz
21:名無しさん＠そうだ選挙にいこう
09/09/10 00:51:40
>>20
つResizeEnable
22:20
09/09/10 06:33:32
>>21
え、変更できるんですか？
ツール(T)→オプション(O)では、それらしい設定は見つかりませんが？
23:20
09/09/10 21:05:54
>>21
フリーソフトだったんですね。ありがとうございますm(__)m
使えそうです。助かりました。
24:名無しさん＠そうだ選挙にいこう
09/09/13 05:59:09
今OpenOfficeBaseを使ってるんですがAccessもそのうち買おうと思ってます。
そこでBaseで作ったデータをAccessで引き継いで使う事が可能なのかどうか気になってるんですが、実際どうなんでしょう。
25:名無しさん＠そうだ選挙にいこう
09/09/13 12:15:53
>>24
OOOスレで聞いたほうが早いと思うが、俺なら過大な期待はしないよ。
テーブルをcsvにエクスポートして、Accessに文字化けなしでインポートできれば御の字。
26:名無しさん＠そうだ選挙にいこう
09/09/13 12:20:02
>>24
OpenOffice.org Baseなんて、データベースのまがい物は使わないほうがいい。
あんな出来損ない、フリーでも使いたくない代物だ。
最初から、Access, FileMaker, 桐にしておけ。
で、データベース格納場所は切り離しておき、できれば、MySQLかPostgreSQLを
使い、ODBC接続としておく。Access2007は最適化すると、データベースが消滅する
バグがあるから、注意が必要だ。
楽しい、データベースライフを！
27:24
09/09/13 14:45:14
OOOスレで聞いてみました。
Baseはアクセスを完全に超えたらしいのでこれからもBaseを使い続けたいと思います
本当にありがとうございました。
28:名無しさん＠そうだ選挙にいこう
09/09/13 17:16:01
27は偽者です。
>>25-26
ありがとうございます。
うーん、出来るだけ早めに乗り換えた方がいいんですかね。
データベースソフトはBaseしか使った事がないので正直何がそんなに違うのかイマイチ理解してないんですが・・・。
29:名無しさん＠そうだ選挙にいこう
09/09/13 18:02:32
>>28
外部とのデータのやり取りにDAO,ADOが使えない(Base側から使うなら出来る)というのは聞いた事がある
（まぁあんまり使ったことないからわからんが）
一応ExcelからBaseに接続してる例はあったけど
URLﾘﾝｸ(user.services.openoffice.org)
30:名無しさん＠そうだ選挙にいこう
09/09/13 18:05:34
あれっ、前スレ終わったん？
31:名無しさん＠そうだ選挙にいこう
09/09/13 20:17:40
【 システム環境 . 】 Windows？, Access2003
【 VBAが使えるか .】 いいえ
【 VBAでの回答 】 否
会社のイントラネット内で使用するデータページを作っています。
データページはなんとか作成したのですが、使用する人たち（PCに詳しくない人たち）から
保存したときに何かわかるようにできないかと言われました。
普通のフォームではダイアログボックスを出すことができるようですが、
データページでも可能なのでしょうか？
データページについては書籍もネットもぜんぜん見つからず困っています。
できないとわかるだけでもありがたいです。
よろしくお願いします。
32:名無しさん＠そうだ選挙にいこう
09/09/13 20:42:38
宣伝提示版が新しくできましたーーー∈^0^∋ ご検討のほどよろしく御願いします
お役に立てる宣伝提示版に頑張りますので末永いご利用をお待ちしております
URLﾘﾝｸ(jbbs.livedoor.jp)
33:名無しさん＠そうだ選挙にいこう
09/09/13 21:14:50
開発はVisualStudio使えって
テーブル・クエリ・レポート・フォーム・モジュール
全部対応できるぜ
34:名無しさん＠そうだ選挙にいこう
09/09/13 21:23:01
>>33
あれ、AccessってVisualStudioによる開発できましたっけ？
VisualSourceSafeによるソール管理ならアドインで対応してますが・・・
よろしければ詳しいとこ教えてください！
35:名無しさん＠そうだ選挙にいこう
09/09/13 21:23:20
>>33
連結フォーム使えるの？
36:名無しさん＠そうだ選挙にいこう
09/09/13 22:36:52
>>33
URLﾘﾝｸ(msdn.microsoft.com)
参照して検討されてはどうでしょうか。それなりのスキルは必須と考えられます。
Web展開が必須ならば、Visual Web Developer 2008 Express Editionで開発もいいのでは？
37:36
09/09/13 22:37:45
× >>33
○ >>31
38:名無しさん＠そうだ選挙にいこう
09/09/14 16:01:25
>>33
レポートについてはAccessを超えるツールはないと思う。
39:名無しさん＠そうだ選挙にいこう
09/09/14 16:08:02
桐にしとけ
40:1/2
09/09/14 19:36:54
よろしくお願いします。
access2000を使っています。
テーブルが二つあり、
T1にはフィールドが３つ、
[加算数]数字[仕事]テキスト[実行日]日付
[実行日]フィールドは空白です。
T2にはフィールドが２つ、
[仕事]テキスト[計画日]日付、とあります。
仕事をキーに、
[仕事][計画日][加算数][実行日]の選択クエリＱ１を作成しました。
また、更新クエリQ2で、
[計画日]に入った日付に、[加算数]の数字を加算し、
実行日を入力させます。
41:2/2
09/09/14 19:38:09
T2には単数の[仕事]に対して複数の[計画日]の値があります。
例えば
[仕事][計画日]
掃除 9/12
掃除 9/13
掃除 9/20
この状態で更新クエリQ2を実行すると、
Q1には
[仕事][計画日][加算数][実行日]
掃除 9/12 1 9/27
掃除 9/13 2 9/27
掃除 9/20 7 9/27
となってしまいます。
原因はキー設定がうまく出来ていない点かと
自分では考えておりますが、
実行日をうまく表示させるにはどうすれば良いのでしょうか。
長文で失礼いたしますが、
どうかよろしくお願いします。。
42:名無しさん＠そうだ選挙にいこう
09/09/14 20:03:56
>>40
実行日って必要なのか? 計画日と加算数があれば加算で出てしまうじゃないか。
43:名無しさん＠そうだ選挙にいこう
09/09/14 20:14:57
>>42
実際は扱うデータが異なるもので、内容までは申し上げられませんが、
必要です。。
私も加算で出てしまうと思っていたのですが、
日付のみが異なる、このケースでいうと毎週行うような仕事があった際に、
UPDATE Q1 SET Q1.実行日 = Q1.加算数 + Q1.計画日;
これだと、最終日のみが認識されてしまい、
同じ仕事で日付が違う他のレコードの値まで最終日の値になってしまいます。
44:名無しさん＠そうだ選挙にいこう
09/09/14 20:28:46
>>43
仕事 計画日 加算数 実行日
掃除 09/12 1 2009/09/13
掃除 09/13 2 2009/09/15
掃除 09/20 7 2009/09/27
ってなればいいんだろ? とりあえず例でいうとテーブルは1つでいい。
T1(仕事、計画日、加算数）
主キーが必要なら、仕事と計画日の複合キーでいいじゃないか。
45:名無しさん＠そうだ選挙にいこう
09/09/14 20:39:01
select t1.仕事, t2,計画日, t1.加算数, t2,計画日 + t1.加算数 AS 実行日
from t1 iner join t2 on t1.仕事 = t2.仕事
じゃ駄目？
46:名無しさん＠そうだ選挙にいこう
09/09/14 20:42:01
ちょいと例を作ってきます。
しばしお時間を・・
あとテーブルは、諸事情でどうしても分けねばならんのです・・。申し訳ない
47:名無しさん＠そうだ選挙にいこう
09/09/14 21:02:44
お待たせしました。まだいてくれてたらいいんですが・・
実行前
URLﾘﾝｸ(2sen.dip.jp)
実行後
URLﾘﾝｸ(2sen.dip.jp)
実行後の実行日が2009/09/15で3レコード共統一されてしまっているかと思うのですが、
これを
2009/09/23
2009/09/18
2009/09/16
となれば望む所です。
>>45
ちと試してきます
48:名無しさん＠そうだ選挙にいこう
09/09/14 21:07:11
dbより隠れている壁紙が気になる件
49:名無しさん＠そうだ選挙にいこう
09/09/14 21:13:04
>>45
出来ました・・・。選択クエリで作れるんですね・・・・
ありがとうございます。初歩的な質問を長々とすいません。。
後学のために別解ございましたら、是非お願いします。
スレ違いだと感じられたら放置でお願いします
みなさんほんとありがとうございました。
精進します。
あ、これURLﾘﾝｸ(2sen.dip.jp)
50:名無しさん＠そうだ選挙にいこう
09/09/14 21:16:04
>>47
テーブル構造が糞すぎ。
第三正規化あたりから勉強しなおしてきてくれ。
51:名無しさん＠そうだ選挙にいこう
09/09/14 21:24:05
やりたいことはなんとなくわかった。
仕事 加算数
掃除 1
洗濯 2
料理 6
これって固定なの?
52:名無しさん＠そうだ選挙にいこう
09/09/14 21:32:42
ん。不固定ですが・・
53:名無しさん＠そうだ選挙にいこう
09/09/14 21:51:42
31です。36さんありがとうございます。
明日会社でじっくり読んでみます！
54:名無しさん＠そうだ選挙にいこう
09/09/14 21:53:45
>>49
T2で同一の仕事が複数ある場合(今回は掃除だけど）、どういう規則で1つを選ぶの?
計画日が最小でいいの? だとしたら、グループ化でQ1ひとつで行けそうなのだが。
55:45
09/09/14 22:55:44
加算数と仕事はgroup byしたほうがいい気がするなぁ・・>>45
subクエリかけたら
t1 を(select 仕事,加算数 from t1 group by 仕事,加算数) tp に変更
＃Access単体はあまり触ってないから、忘れちゃったよｗ
＃それにしても、なんか違和感かんじるんだけどね
56:名無しさん＠そうだ選挙にいこう
09/09/14 23:06:03
>>55
たぶんみんな違和感があると思うよ。
逆にどういう目的でDBを構築しようとしているか、ずばり言ったほうが早いかもね。
部分的な目的じゃなくて、スケジュール管理とか人材管理とかの最終的目的。
じつはExcel向きの仕事ではと思っている。
57:名無しさん＠そうだ選挙にいこう
09/09/15 02:03:52
その壁紙は予想の斜め上行ってた。GJ
58:名無しさん＠そうだ選挙にいこう
09/09/15 03:31:57
すみません、すごい基本的な話で申し訳ないんですが
追加クエリと削除クエリって どうやって作るんですか？
59:名無しさん＠そうだ選挙にいこう
09/09/15 09:14:19
>>58
クエリの画面開いて クエリ(Q)のメニューに無い？
60:名無しさん＠そうだ選挙にいこう
09/09/15 10:55:36
>>58
まずその条件で選択クエリを作る。それを追加クエリまたは削除クエリに変更できるよ。
61:名無しさん＠そうだ選挙にいこう
09/09/15 16:43:34
Access2007のAccessのオプションをVBAからいじれませんか？
具体的に言うと、「ウィンドウを重ねて表示」と「タブ付きドキュメント」を切り換えたいと思います。
62:名無しさん＠そうだ選挙にいこう
09/09/15 23:19:58
>>29
遅くなりましたがありがとうございます。
まぁやっぱりBaseじゃAccessに比べれば出来る事が限られてるんでしょうね・・・。
63:名無しさん＠そうだ選挙にいこう
09/09/16 01:16:45
58です
基本的なことを聞いてどうも済みませんでした
64:名無しさん＠そうだ選挙にいこう
09/09/16 09:09:46
>>62
SQL Server 2008 Express でもいいんじゃね？
＃資料も多いと思うし、立ち上げすぎればそう変わらん気がする
＃AccessのSQLの癖は、ちょっと変だし(2000までしか使ったことがないけど)
65:名無しさん＠そうだ選挙にいこう
09/09/16 09:12:44
あDBとしてはってとこね。
単体でアプリ作れるとか、レポート等はもちろん評価してます
＃自分の場合はExcel出力で、後は好きに出力して が多いから
66:名無しさん＠そうだ選挙にいこう
09/09/16 21:20:37
お願いします。
access2000を使っています。
既存のエクセルファイルがあり、
シートの最上部数行に文章、
同じシートの最下部数行にも文章があり、
真ん中に数列で数行のデータ群があります。
発注書や納品書をエクセルで送付するイメージです。
このエクセルシートに、
テーブルまたはクエリで編集してきたデータをエクスポートすることは出来ますでしょうか。
67:名無しさん＠そうだ選挙にいこう
09/09/16 21:25:08
>>66
できるけど、Excel使うんだったらExcelのほうで
ADOなり使ってクエリを呼び出したほうが早くないか?
68:名無しさん＠そうだ選挙にいこう
09/09/16 21:36:20
上司のご依頼です・・・・
検索ボタン1個で送り先まとめて、
その下にある出力ボタンで送付できるようちょいちょいっとまとめて！
だそうです。
エクセルからのアプローチのが早いんですね・・
とりあえずは出来るのであればアクセスでやってみます
69:名無しさん＠そうだ選挙にいこう
09/09/17 07:29:21
>>68
俺の場合、同じようなレポート形式で、データをまとめて、送り先フラグのついた
ものをベースにクエリって、個別PDF出力、連続メール送信をボタン一つでちょい
ちょいってやってます。
パスワードは乱数をつかって自動生成しています。
70:名無しさん＠そうだ選挙にいこう
09/09/17 10:26:46
AccessからVBAでExcelたたいてもいいんじゃね？
＃普通にやる処理だと思うよ
71:名無しさん＠そうだ選挙にいこう
09/09/17 20:51:28
1回こっきりならともかく、長期運用を考えるとOLEオートメーションは鬼門
72:名無しさん＠そうだ選挙にいこう
09/09/17 22:01:36
>>71
なるったけ、内部だけで完結したいと思う俺であった。
BASP21みたいなDLLはOKって考えだけれど
73:名無しさん＠そうだ選挙にいこう
09/09/17 22:28:20
>>72
できるだけAccessで完結させたいね。どうしてもExcelを使う必要があるなら、
俺もExcel側にプログラムを実装しちゃうな。
LAN環境で違うPCからも接続できるし、フォルダー移動も自由自在、
ほかの人が気に入って自分も使いたいとか言われても
Excelのコピーを渡すだけで、Access側のプログラムをいじる必要がないもの。
74:禿げあたま
09/09/21 17:19:43
【 システム環境 . 】 Windows XP SP3, Access 2007
【 VBAが使えるか .】 いいえ
【 VBAでの回答 】 否
田舎のちっぽけなレンタカー屋で働いています。事務処理は今でも手書き伝票切ったりしているので、いい加減社長が切れてわたしがAccessを使ってシステムを作ることになりました。
ここで質問させて頂きたいことは、車輌の貸出期間の算出方法です。
VBAが全くわからないため、DateDiffという関数を使うのであろうというところまでは検索でたどり着けたのですが、それをどのように使うのかがよくわからなくて困っています。
75:禿げあたま
09/09/21 17:20:33
長すぎて一気に書き込めませんでした、上の続きです
入力フォームに「貸出日」「貸出時間」「返却日」「返却時間」の４つを設けてそこから貸し出しに要した日時を出したいと思っています。例えば、「2009/9/15 16:10」 から「 2009/9/20 12:00」まで貸し出したとします。
経過時間は「4日と19時間50分」ですが、レンタカーの貸出料金は1日単位ですので、余った時間が10時間経過していたら1日とみなして繰り上げるようにしたいのです。
つまりこの例での余った時間「19時間50分」は1日とみなされ、経過時間は「5日」ということで5日分のレンタル料金を算出という流れになります。
入力フォームにつきましては別に「貸出日」と「貸出時間」を分けることに特にこだわっていません。「貸し出し日時」として一つに出来るのであればその方がいいと思っています。初心者で2chに書き込むことすら初めてというものですが宜しくお願い致します。
76:名無しさん＠そうだ選挙にいこう
09/09/21 17:53:07
>>74
int((datediff("h",#2009/9/15 16:10#,#2009/9/20 12:00#)+14)/24)
これでどうだｹﾞｰﾊｰ
77:名無しさん＠そうだ選挙にいこう
09/09/21 17:59:43
>>74
int((datediff("n",#2009/9/15 16:10#,#2009/9/20 12:00#)+60*14)/(60*24))
こっちかも知れんｹﾞｰﾊｰ
78:禿へ
09/09/21 19:01:13
>>74
テーブル：貸出管理
ID：オートナンバー型
貸出ID：数値型
貸出日：日付／時刻型
貸出時間：日付／時刻型
返却日：日付／時刻型
返却時間：日付／時刻型
とすると．．．
SELECT t1.貸出日, t1.貸出時間, t1.返却日, t1.返却時間, IIf([返却時間]>([貸出時間]+#10:00:00#),[返却日]+1,[返却日]) AS 精算返却日,datediff("d",貸出日,精算返却日)+1 AS 貸出日数
FROM 貸出管理 AS t1;
79:名無しさん＠そうだ選挙にいこう
09/09/21 20:30:24
>>74
値を丸める方法の１つして四捨五入がありますが、例えば小数点以下四捨五入の場合…
［元の値］に［0.5］を加えた後、小数点以下を切り捨てれば実現できます。
つまり、今回の場合は[返却日時]に[14時間]を加えた後で処理をすればOKですね。（>>77）
なお、日付と時刻を別々のフィールドにするのは何かとトラブルの元になりますので
貸出日時，返却日時のようにまとめるのが良いでしょう。
80:名無しさん＠そうだ選挙にいこう
09/09/21 21:07:24
>>79
>何かとトラブルの元に
どういうことですか？詳しく教えてください。
81:名無しさん＠そうだ選挙にいこう
09/09/21 22:34:27
Access 2003 でフォームに
日付と時間をコピペで貼り付けているのですが、
元の日付の表示が MM/DD/YY HH:MM:SS という形式で
毎回/YYを削除して MM/DD HH:MM:SSの前にYY/を付けています。
MM/DD/YY HH:MM:SS を貼り付けた瞬間自動で
YY/MM/DD HH:MM:SS に変換できるような方法はないでしょうか。
82:禿げあたま
09/09/21 22:39:03
どうも、ｹﾞｰﾊｰです。
みなさんレスありがとうございます！
難しいので禿あたまをなでくり回しながら考えているのですがよくわかりません。
>>77
どこに入力するのかわからなかったけど、規定値の所に入れてみたら動いたようです
とりあえずスクリーンショット撮ってみました
URLﾘﾝｸ(imagepot.net)
>>78
試してみたのですが、エラーになりました。
テーブルのスクリーンショットです。
URLﾘﾝｸ(imagepot.net)
もしかしてですが、わたしは時間を入力するのにルックアップウィザードを使って、10分刻みにリストボックスから選択できるようにしています。
日付・時刻型になっていないとか言う理由で、エラーになるのかな？
ちなみにクエリで漬かったSQL文は以下のものです。
SELECT 受注管理.[貸渡日], 受注管理.[貸渡時間], 受注管理.[返却日], 受注管理.[返却時間], IIf([返却時間]>([貸渡時間]+#12/30/1899 10:0:0#),[返却日]+1,[返却日]) AS 精算返却日, datediff("d",貸渡日,精算返却日)+1 AS 貸出日数
FROM 受注管理;
その他のレスも読ませて頂きました、よくわからなかったけどみなさんありがとうございます！
83:名無しさん＠そうだ選挙にいこう
09/09/21 22:52:47
>>82
情報後出しのいい例か
84:名無しさん＠そうだ選挙にいこう
09/09/21 23:25:01
すいません。
今、テーブルにあるＡというテーブルとＢというテーブルのなかの
会社名の抽出をしたいのですけど、例えば、Ａの○○会社とＢの○○会社 ほにゃらら支店みたく
なってるものがデザインビューで抜けません。
Ａの列は抜き出したいキーワードが１０００種類あり、Ｂの列は抜かれたい列があります。
完全一致でなくていいのですが、抽出条件になんといれればよいのでしょうか？
詳しい方、どうか教えて下さい。
85:名無しさん＠そうだ選挙にいこう
09/09/21 23:31:44
>>81
前提がわからんので手順のみ
・コピペする時点では、テキストボックスの書式は
mm/dd/yy hh:nn:ss
コピペ後、つまりテキストボックス更新後にでも、
書式をyy/mm/dd hh:nn:ssに変更すればよかろうぞ
86:名無しさん＠そうだ選挙にいこう
09/09/21 23:38:04
>>81
更新後処理でもよければ
Dim Y_Buf As String
Dim M_Buf As String
Dim D_Buf As String
Dim T_Buf As String
If Not IsNull(Me!テキスト0) Then
Y_Buf = Mid(Me!テキスト0, 7, 2)
M_Buf = Left(Me!テキスト0, 2)
D_Buf = Mid(Me!テキスト0, 4, 2)
T_Buf = Right(Me!テキスト0, 8)
Me!テキスト0 = Y_Buf & "/" & M_Buf & "/" & D_Buf & " " & T_Buf
End If
とでもすれば。まったく応用が利かないけど。
87:86
09/09/21 23:39:50
訂正
×応用が利かないけど
○融通が利かないけど
88:禿げあたま
09/09/21 23:59:46
>>83
後出し部分があったみたいで、すいませんでした。
「貸渡時間」「返却時間」のフィールドを日付・時刻型に変えると78のやり方で出来ました！ありがとうござました。
ルックアップ形式でリストボックスから選択した時間を、計算式の中で使うのは無理なのでしょうか？
時間の入力が楽なので出来ればこの形式で使ってみたいと思っているのですが。
89:名無しさん＠そうだ選挙にいこう
09/09/22 00:02:34
>>85
> 前提がわからんので手順のみ
サーバーから取得したログのファイルを
DBに登録しています。
そのログの時間表記が先程の形式です。
で、おっしゃった書式の変更は以前試しましたが、
うまくいきませんでした。
というのは年と月の判断をアクセスはできないからでは
と思うのですが。
>>86
何かできそうな気がします。
文字列に置き換えて、位置を指定している
というイメージで宜しいでしょうか。
ひとまず、お二方有り難うございました。
90:>>78
09/09/22 00:30:42
>>88
ルックアップ形式ってのがいまいちわからんけど
そのリストボックスの値集合ソースをテーブルか
クエリにするってことならたぶんできそうな。
91:名無しさん＠そうだ選挙にいこう
09/09/22 00:41:47
>>88
83じゃないけど
日付時刻型は日付のみ入力しても時間部分に
AM12:00が勝手に入力されたような（時間だけ入力だと日付部分には0が入るから大丈夫かと）
上のクエリだと問題なさそうだが貸渡日、返却日とNow関数なんかの
比較が必要なったときに予想外の結果が返るかも
92:名無しさん＠そうだ選挙にいこう
09/09/22 00:51:26
>>84
外部結合とLike使えばできそうだが、たぶんクエリのデザインビューでは表現できない。
どっかで勉強してきて。
>>89
ログがyyyyなら書式変更でよいが、yyだとあかんね
93:禿げあたま
09/09/22 00:57:31
>>90
> そのリストボックスの値集合ソースをテーブルか
> クエリにするってことならたぶんできそうな。
時間を選択するリストを別テーブルにしてみたら出来ました！
>>91
日付は特に問題ないようです。
クリックするとカレンダーが出て日付を選ぶだけですので。
今日は普段使わない頭を使いすぎて眠くなってきたのでもう寝ます。
いろいろ皆さんありがとうございました！
94:名無しさん＠そうだ選挙にいこう
09/09/22 01:05:38
>>85
何のかわからんけどそもそもlogの形式を変えれば済むんじゃないの？win鯖は解らんけど、LinuxやFreeBSDなら簡単だよね。
95:81
09/09/22 01:26:11
>>92
そうなんですよ。
一つのシステムは年/月/日と吐き出されるんですが、
一方は月/日/年で・・・。
仕様変更は別会社へ頼まないといけないらしくお金も掛かるので
Accessをいじって対応できれば良いなと思ったわけです。
今月は月も年も09なんでそのままでもできるのですが、
今月以外や日が12を超えるとおかしくなるので。
96:名無しさん＠そうだ選挙にいこう
09/09/22 01:57:10
>>80
>>91
91さん、補足ありがとう。
97:名無しさん＠そうだ選挙にいこう
09/09/22 06:09:20
>>81
こんなんでよかったら
テーブル：log保存
id：オートナンバー型
log：テキスト型
と、仮定して
クエリ：log加工
SELECT t1.log AS 加工前log, Mid(t1.log,7,2) & "/" & Mid(t1.log,1,5) & Mid(t1.log,9,10) AS 加工後log
FROM log保存 AS t1;
コピーしたlogをクエリの[加工前log]フィールドに貼り付ければ
[加工後log]に出力されると思うんだが．．．
フォームとの関連部分は詳細が判らんから省いた。ごめん。
98:禿げあたま
09/09/23 00:18:52
お世話になっております
先日のやり方>>88ではエラー無く表示はできるようになったのですが
結果が違ったものが表示されるので
>>77で教えて頂いたやり方でやってみようと思うのですが、#～#の間に貸渡日などの値を入れるとエラーになります。
どのように記述すればよいのでしょうか？
実際には以下のように使用したいです
int((datediff("n",#2009/9/15 16:10#,#2009/9/20 12:00#)+60*14)/(60*24))
↓
int((datediff("n",#貸渡日 貸渡時間#,#返却日 返却時間#)+60*14)/(60*24))
99:名無しさん＠そうだ選挙にいこう
09/09/23 01:23:47
>>98
試してないけど
int((datediff("n",(DateValue(貸渡日)+TimeValue(貸渡時間)),(DateValue(返却日)+TimeValue(返却時間)))+60*14)/(60*24))
でどう？
100:名無しさん＠そうだ選挙にいこう
09/09/23 01:55:07
>>98
貸渡時間と返却時間の書式を 時刻（S） 入力チェックを はい
貸出合計期間のコントロールソースには、
=int((datediff("n",[貸渡日]+[貸渡時間],[返却日]+[返却時間])+60*14)/(60*24))
#や[]で括ってる件については、Accessヘルプの「式」の項目でも読んでくれ
貸渡日と返却日の定型入力をウイザードから日付っぽいのを設定しておけば問題なかろう
受託管理テーブルについても日付時刻に関するフィールドのデータ型は、日付/時刻型に
合わせる。
テーブル側を先にすべて設定しとけばフォーム作成時自動的にやってくれるけどな。
夜更かしは抜け毛の原因だぜｹﾞｰﾊｰ
101:名無しさん＠そうだ選挙にいこう
09/09/23 02:38:41
>>82のSS見ながらの前レスであったが、
車両マスタテーブルと車両稼働を表すテーブルがあれば業務管理っぽいことができそう
な気がするぜ。まぁがんばれｹﾞｰﾊｰ。
飲みすぎた、寝る
102:禿げあたま
09/09/23 08:35:47
お世話になっております。
ありがとうございます。朝起きて早速みなさんのレスを試させて頂きました。
>>99
エラーが出てしまいました
>>100
出来ました！時間もリストボックスから選ぶのではなく手入力に変えました。
抜け毛が気になるのは最初のうちだけですよ(^^)/
>>101
車輌マスタと車輌稼働テーブルで業務管理とかいいですねー。
実際にはお客様にレンタカーの予約を受けて、日付と車輌タイプを入力したら空いている車の一覧とそれぞれの料金（借りる日付によって個々に変動）の表示とか、できるようにしたいです。
最初は嫌々やらされている感じだったのですが、触っているうちに段々面白くなってきました。なんとか業務管理システムを作れるようになるまで頑張りたいと思います！
103:>>78
09/09/23 09:43:04
>>102
うまくいっている様だが．．．
長文失礼
テーブル：[車両管理]
車ID：数値型（主キー）
車名：テキスト型
ナンバー：テキスト型
車種ID：数値型
車ID 車名 ナンバー 車種ID
1 ワゴンＲ あ0005677 1
2 ムーブ い0001234 1
3 ビッツ う0001111 2
テーブル：[車種管理]
車種ID：数値型（主キー）
車種名：テキスト型
料金：数値型
車種ID 車種名 料金
1 軽自動車 5000
2 小型車 8000
104:>>78
09/09/23 09:44:02
>>103のつづき
>>102
テーブル：[貸出管理]
ID：オートナンバー型
車ID：数値型
貸渡日：日付/時刻型
貸渡時間：日付/時刻型
返却日：日付/時刻型
返却時刻：日付/時刻型
ID 車ID 貸渡日 貸渡時間 返却日 返却時間
1 1 2009/09/15 16:10:00 2009/09/20 12:00:00
2 2 2009/09/21 9:00:00 2009/09/21 12:00:00
3 1 2009/09/21 8:00:00 2009/09/23 19:00:00
4 3 2009/09/21 8:00:00 2009/09/22 18:00:00
5 3 2009/09/22 8:00:00 2009/09/23 8:00:00
105:>>78
09/09/23 09:45:59
>>104のつづき
>>102
クエリ：[貸出料金]
SELECT t1.ID, t1.車ID, t2.車名, t3.車種名,
t1.貸渡日, t1.貸渡時間, t1.返却日, t1.返却時間,
IIf([返却時間]<([貸渡時間]+#12/30/1899 10:0:0#),[返却日],[返却日]+1) AS 精算返却日,
int((datediff("n",[貸渡日]+[貸渡時間],[返却日]+[返却時間])+60*14)/(60*24)) AS 貸出合計期間１,
[貸出合計期間１]*[料金] AS 請求金額１,
IIf(DateDiff("d",[貸渡日],[精算返却日])=0,1,DateDiff("d",[貸渡日],[精算返却日])) AS 貸出合計期間２,
[貸出合計期間２]*[料金] AS 請求金額２
FROM (車両管理 AS t2 INNER JOIN 貸出管理 AS t1 ON t2.車ID=t1.車ID)
INNER JOIN 車種管理 AS t3 ON t2.車種ID=t3.車種ID;
貸出合計期間１の方は、当日で10時間以内だと貸出合計期間が0になってしまっているが．．．
貸出合計期間２の方は、以前>>78で掲示したやつの改良版（すまん）
106:禿げあたま
09/09/23 13:01:26
>>103,104,105
ありがとうございます！
すぐにお返事できなくて申し訳ないです。時間取れたらすぐにでも試してみたいのですが、今日はちょっとばたばたしてまして......
>貸出合計期間１の方は、当日で10時間以内だと貸出合計期間が0になってしまっているが．．．
当初、ACCESSでどこまで出来るかも知らずに、とりあえず困った箇所だけを投稿させて頂きましたので、一日以下の料金のことは考えていませんでした。申し訳ありません。
時間が出来たら試してまた結果報告させて頂きたいと思います。
107:名無しさん＠そうだ選挙にいこう
09/09/23 13:59:28
困った個所だけって認識あるから、別にいいのだけれども、
4時間/半日/7日間/１ヶ月/時間延長料金が出てきてみんなで軽くズッコケもありだと思う
108:>>78
09/09/23 22:39:26
とりあえず
4時間/半日/7日間/１ヶ月/時間延長料金が出てきても対応できるんだが
結局、設定する側のフォーマットが決まらなければなんともできね。
109:名無しさん＠そうだ選挙にいこう
09/09/23 23:01:03
レポートを印刷するときにバーチャル印刷ソフト、例えばdocuworksとかアクロバットにフォーカスがわたるんだけど、その後に手動でAccessにフォーカスを戻すのが面倒です。
レポートの印刷の後にAccessにフォーカスを戻すコードってどう書くのでしょうか？
110:名無しさん＠そうだ選挙にいこう
09/09/23 23:01:50
お願いします。
access2000を使っております。
あるマスタクエリがあり、そのマスタクエリの中のフィールドの一つである送信先フィールドに
国名が記載されています。
そして、この国名に沿って振り分けた国別クエリが10国分ほどあります。
この国別クエリは、国ごとにフィールド名もデータの表示形式も随分別の形に加工してあります。
現在はそれぞれの国別クエリのフィールド名やデータ表示形式を、
全て各国の指定した形式で加工する所まで終わっています。
あとはこれを、エクセルに出力し、とりあえずは完了という所です。
お尋ねしたいのは、この作成したクエリを、
既に用意してあるエクセルの内部にエクスポートする方法です。
ＶＢＡで何度か試しましたが、どうしても指定した位置にエクスポートすることが出来ず、
用意していたエクセルの内部データを全て上書きしてしまいます。
コード全てでなく、利用できそうな関数やメソッド、プロパティだけで十分有難いので、
是非ひとつアドバイスをいただきたく。
長文になりましたが、どうかよろしくお願いします。
111:名無しさん＠そうだ選挙にいこう
09/09/23 23:20:49
>>110
ほぼわかんね。っていうかこういうパターンって
情報小出しで回答側が頭にくるパターン。
112:名無しさん＠そうだ選挙にいこう
09/09/23 23:25:35
.CopyFromRecordset
113:名無しさん＠そうだ選挙にいこう
09/09/24 00:01:40
>>110
CellsとかRangeで出力先を指定すればいいじゃない。
おおむねExcel VBAの話である
114:名無しさん＠そうだ選挙にいこう
09/09/24 00:02:57
>>110
Excel オートメーションで調べればいい。
というか、俺はそれで同じように、給与計算のツール作っているし。
ボタンぽちっと押すと、Excelの対象のシートが立ち上がって勝手に
書き込みが始まる。
見ていて壮観だ。
115:名無しさん＠そうだ選挙にいこう
09/09/24 00:19:47
>>109
Windowの制御か
APIにSetActiveWindowってのがあるが
ワンアクションが面倒とは、どんだけって気がする。
116:名無しさん＠そうだ選挙にいこう
09/09/24 00:35:58
>>115
100人の顧客毎にレポートを印刷すると100アクションなんですよ。
顧客毎に数種類のレポートがあるから数百アクションです。
手動が好きな人ならパソコンを使わないで手書きにすればいいんでしょうが、私は自動の方が好きなもので…
117:名無しさん＠そうだ選挙にいこう
09/09/24 01:23:47
連続印刷するのになぜフォーカスが必要なのでしょうか？
118:名無しさん＠そうだ選挙にいこう
09/09/24 01:31:28
>>116
自動が好きでも自分で解決できないんなら手動でやることだな。
悪いことい言わんから、出力はXPS/PDFに限定して2007使っとけ。
1.あきらめる
2.ActiveWindowを管理する
3.2007にする
4.Shellつかってコマンドオプション指定してバックグランド可なプリンタを探す
5.お金かけて作ってもらう
119:名無しさん＠そうだ選挙にいこう
09/09/24 01:55:38
>>117
顧客毎にフォームがあって、必要事項を記載してからレポートを印刷する仕様になっていますので、1枚ずつしか処理できないんですよ。
100人分のデータを入力してから全顧客の最新レコードを抽出してレポートに渡せば一括処理できますね。
うーむ。また改造か。mdbだから改造できるけど、本業がすすまない…
>>118
APIいじることにします。
120:名無しさん＠そうだ選挙にいこう
09/09/24 02:25:37
>>110
白紙シート作ってそこにそのままエキスポートしてみるとか。
本当に書き込みたいシートのセルには参照だけ書き込んで置けばいいし
121:名無しさん＠そうだ選挙にいこう
09/09/24 07:13:12
>>116
自動好きの俺からすると、随分と舐めた奴だなあんた。
その程度で自動が好きだとかさ。
何がいいたいのかわかるか？印刷ダイアログがどうとかほざいている
時点で既にな・・・
で、実際に>>119をみていると やっぱりって感じで。
１枚ずつしか処理できない？それは 君の力では ってだけの話だろうが。
その程度で自動化好きだとか、手動が好きならとか貶めてるような馬鹿に
教えてやる必要は感じない罠。
122:名無しさん＠そうだ選挙にいこう
09/09/24 07:42:51
と、>>121というお方が御指導下さっているんだぞ皆さん！
123:名無しさん＠そうだ選挙にいこう
09/09/24 08:10:22
☆☆☆★最大級の注意を★☆☆☆☆☆
☆☆☆★とくに千葉県、静岡県、東京都や関東で大震災の恐れが★☆☆☆☆☆
☆☆☆★とくに千葉県、静岡県、東京都や関東で大震災の恐れが★☆☆☆☆☆
☆☆☆★とくに千葉県、静岡県、東京都や関東で大震災の恐れが★☆☆☆☆☆
☆☆☆★世界の支配者ユダヤが地震兵器を使うのか★☆☆☆☆☆
友人、知人、親類縁者、あらゆるつながりを駆使して巨大地震がくることを教えて下さい。
四川地震より大きいのが来る可能性があります。
URLﾘﾝｸ(goldenta)<)
ワタスの予言では今月中に関東大地震だす３
ｽﾚﾘﾝｸ(eq板)
e-PISCO Part11
ｽﾚﾘﾝｸ(eq板)
ほんとに大震災だったら犯人は特権階級全員だってことにwwwwwwww
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
カナダの世界的科学者ロザリー・バーテルはハープが地震兵器や脳を損傷させる兵器の疑い
があるので情報を公開するように要請している
URLﾘﾝｸ(www.youtube.com)
124:名無しさん＠そうだ選挙にいこう
09/09/24 08:31:44
>>121
いろいろとありがとうございます。
ただ、印刷ダイアログの話はした覚えがありませんので、初老期の認知症に気をつけてください。
これです。↓
> 何がいいたいのかわかるか？印刷ダイアログがどうとかほざいている
> 時点で既にな・・・
125:名無しさん＠そうだ選挙にいこう
09/09/24 11:31:19
>>119
>100人分のデータを入力してから全顧客の最新レコードを抽出してレポートに渡せば一括処理できますね。
普通は、そう考えると思うが？
再印刷が発生した場合、どうするかを考慮する必要があると思うけどね
後は顧客単位の振り分け処理だね
DWは普通に印刷すると本体に吐くけど、それをどうやって区別するのか・・・
＃フォルダ・ファイル名指定で出せるのかな？
126:名無しさん＠そうだ選挙にいこう
09/09/24 11:46:21
>>125
再印刷はそもそものの仕様が顧客毎のフォームから1件ずつ印刷する仕様ですので、それを利用します。
DWでの管理はレポートのCaptionを変更することで対応しています。
CaptionがDWでのファイルネームになりますので。（少し小細工が必要ですけど）
振り分けは振り分けソフトで対応しています。1万条件まで対応するソフトがありますので。
いま使っているｍｄｂは高価な業務用ソフトですけど、痒いところに手が届かない設計でうんざりしています。
業務用ソフトは現場を知っているプログラマが必要でしょうが、なかなか難しいんでしょうね。
コードを眺めると笑ってしまうことがあります。
127:名無しさん＠そうだ選挙にいこう
09/09/24 13:39:51
レポートのCaptionを変更することでユニークなファイル名を生成できることに気づいているのもったいない
128:名無しさん＠そうだ選挙にいこう
09/09/24 14:32:49
>>127
ん？全てにユニークな名前を付けていますよ。連番が必要ないようにしていますが…。
そしてファイル名に含まれる複数のキーワードで自動振分していますよ。
129:名無しさん＠そうだ選挙にいこう
09/09/24 14:38:48
ちなみに振分はゼロックスの業務用ソフトは使っていません。フリーソフトとAccessだけで1万条件までは扱えますから。
振分ソフトのiniファイルを複数用意すればいくらでも条件は増やせますし。
130:名無しさん＠そうだ選挙にいこう
09/09/24 15:04:47
業務ソフトだのフリーソフトだのAccessと関係ない話ばっかりで
母さん全然わかんないわよ！
131:名無しさん＠そうだ選挙にいこう
09/09/24 15:22:35
>>127
そうなんだ？
＃Excel出力であとはお任せが多いから、気にとめたこと無かったtks
132:名無しさん＠そうだ選挙にいこう
09/09/24 18:49:28
>>127
何を言いたかったのか、詳しくよろしく！
133:名無しさん＠そうだ選挙にいこう
09/09/24 19:13:15
もったいないっつたらエコにきまってる。
ユニークが生成されるのをAccess2000比で25%削減目標目指しますイニシアチブな快感でした。
134:名無しさん＠そうだ選挙にいこう
09/09/24 21:51:44
ロハスなVBAを教えてください
135:名無しさん＠そうだ選挙にいこう
09/09/24 23:28:49
結合
136:禿げあたま
09/09/25 03:00:40
すいません、時間が取れず返事が遅くなってしまいました。
>>103-105を試してみたら動きました！すごい、クエリってこうやって作るんですね。
料金はとりあえず1日料金さえクリアすればなんとかなると思っていました。
本当にど素人ですいません。
料金形態は「3時間まで」「6時間まで」「12時間まで」「24時間まで」「1日料金」「1ヶ月料金」となっています。
貸出期間が１ヶ月を超えた場合は１ヶ月 +１日あたりの料金となります。
>4時間/半日/7日間/１ヶ月/時間延長料金が出てきても対応できるんだが
>結局、設定する側のフォーマットが決まらなければなんともできね。
設定する側のフォーマットとはどのようなとこでしょうか？私としては大体このようなことが出来ればいいなと考えています。
■お客さんから注文が入ったらフォームに借りる日付と借りたい車種を入力、空いてる車や、料金などが自動で出てくる。顧客情報もこのとき新規なら登録、既存顧客の場合はリストから選択できるようにする。
■貸渡票・受注伝票・請求書・領収書などの印刷
■どの車輌が月にどれくらい稼働しているかなど表示したい
もう少し細かいことでやりたいこともありますが、とりあえずこれくらい出来れば業務で使えると思っています。
137:名無しさん＠そうだ選挙にいこう
09/09/25 05:14:01
>>136
なんとなくでも、ゴールできそうと思えれば一歩前進したってことだぁ
やりたいことを明確にするのがベストだと思うのだ。
テクニックもいいが、基礎を固めるんだｹﾞｰﾊｰ
完全無毛になるまでがんばれｹﾞｰﾊｰ
138:名無しさん＠そうだ選挙にいこう
09/09/25 08:32:44
ACCESS 2007 RUNTIME+XP
ADOで作ったレコードセットを表形式のフォームのレコードソースにしています。
実行させるマシンによってレコードが0件のときに「カレントレコードがありません」と
出る場合と出ない場合があります。
この差はどこからくるのかご存知の方いらっしゃいますか。
メッセージが出るマシンも以前は出ませんでした。
その間、何かをしたという記憶はないのですが
メッセージを抑制する方法でもいいのでよろしくお願いします。
開発はAccess2007とVISTAで行っています。
139:名無しさん＠そうだ選挙にいこう
09/09/25 09:04:48
>>138
びす太を使う以上、解決策は無い。
140:138
09/09/25 10:11:54
>>139
レスありがとうございます。
XP2台での挙動が違うのでOSは関係ないと思います。
VISTA+RUNTIME(Access2007は入ってない)でもダイアログは出てきません。
141:名無しさん＠そうだ選挙にいこう
09/09/25 10:26:20
>>138
URLﾘﾝｸ(hatenachips.blog34.fc2.com)
142:名無しさん＠そうだ選挙にいこう
09/09/25 14:13:53
>>138
カレントレコードがありません（3021?）がどの時点で吐き出されてるのかわからんが、
エラートラップしちゃうか、recordset.count>0であるときフォームのレコードソースに
するってのはどうだろうか。
>出る場合と出ない場合があります
と言われてもなんともだなぁ。RuntimeにもSPあるから確認してみては？
まったく同じような環境なんだけど、トラブル発生したのは
・ADOのバージョン
・Xpマシンのメモリエラー
ってのがあった。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4337日前に更新/321 KB
担当:undef