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

ACCESS総合相談所そ� ..

666:名無しさん＠そうだ選挙にいこう
07/10/24 00:23:32
>>665
もっと具体的なテーブル名、フィールド名を出してくれれば具体的に説明できると思う。がんがれ

667:名無しさん＠そうだ選挙にいこう
07/10/24 05:50:07
抽出条件で、14日後以前を指定したいのですが、どう書けばよいですかね？
今日が2007年10月1日としたら2007年10月15日以前の記録を抽出したいのですが。
初心者な質問でもうしわけないです。
よろしくお願いします。

668:名無しさん＠そうだ選挙にいこう
07/10/24 07:34:02
>>667
DateAdd使えるだろ。

669:667
07/10/24 10:52:23
>>668
Between Date() And DateAdd("d",14,Date()) Or Between Date() And DateAdd("yyyy",-100,Date())

としました。全然わからない私なりにはがんばったほうだと思います。
ありがとうございました。

670:名無しさん＠そうだ選挙にいこう
07/10/24 13:05:19
>>669
100年前から14日後だったら
Between　DateAdd("yyyy",-100,Date())　and　DateAdd("d",14,Date())
って感じのほうがよくね？

671:名無しさん＠そうだ選挙にいこう
07/10/24 14:51:27
単に <= dateadd("d",14,date()) はダメなんだっけ？

672:名無しさん＠そうだ選挙にいこう
07/10/24 19:09:05
>>671
なんで100年前からなのか分からんので
そのまま条件残したんだけど、
その方がシンプルだよな。

673:名無しさん＠そうだ選挙にいこう
07/10/27 12:53:28
accessスーパーテクニックという本を買って勉強しています。
そこで、フォームにプロパティを追加するという項目があるんですけど、
フォームにプロパティーを追加すると、どんなメリットがあるのですか？

674:名無しさん＠そうだ選挙にいこう
07/10/27 12:56:16
追加しなくても最初からあるもので足りるよ

675:名無しさん＠そうだ選挙にいこう
07/10/27 13:26:31
>>674
なのに、追加する方法がかいてあるのですが、どのように使うのかがわからなくて。
だって、例ではHello World!を表示するだけだし。

676:名無しさん＠そうだ選挙にいこう
07/10/27 13:34:03
>>675
何か勘違いしてるぞ

677:名無しさん＠そうだ選挙にいこう
07/10/27 13:41:19
>>676
おおっ、そうなんですか？
お暇ならご教授を。。。

678:名無しさん＠そうだ選挙にいこう
07/10/27 13:54:39
Hello World!を表示できるってすごく便利だよね。

679:名無しさん＠そうだ選挙にいこう
07/10/27 17:25:29
便利だけど、ぶっちゃけその程度のことにプロパティ追加とかいらないよね。

680:名無しさん＠そうだ選挙にいこう
07/10/27 21:27:02
プロパティ追加ってどうやるの？

681:名無しさん＠そうだ選挙にいこう
07/10/27 22:53:49
>>675
俺は、進捗状況を表示するformを作って、そのform内の変数を
Form("Formname").xxxxx (xxxxx->Property)
で操作している。

682:名無しさん＠そうだ選挙にいこう
07/10/28 10:31:55
とりあえず勉強段階で、プロパティ追加は気にするな。
標準装備のプロパティを使いこなせるようになったらだな。

683:名無しさん＠そうだ選挙にいこう
07/10/30 15:39:09
プロパティ追加はAllow bypass key のみで良い

684:名無しさん＠そうだ選挙にいこう
07/10/30 23:33:49
【システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】いいえ
【 VBAでの回答　　】可
【検索キーワード　】 excel　インポート　パス　ファイル名

エクセルのデータを条件付きで抽出したいのですが、非常に困っています。
テーブルにインポートしてクエリを使って条件を出せば使えるのでしょうけど、
インポート元のファイル名が更新ごとに変わってしまいます・・・
例：＊＊yymmdd.xls　yymmdd＊＊.xls　yymmdd.xls　です。
この条件で毎回最新のファイルを自動で条件付インポートしたいのですが、方法が判りません。

今日1日調べまくって、エクセルファイルのあるディレクトリの全てのファイル名を取得して、
クエリで並び替え＆最後のみ表示で最新のファイル名を表示させることはできました。
しかし、この先に全く進めません・・・
利用した情報は
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
これをファイル名ディレクトリ名だけ変えてクエリを足しただけです。

調べているうちにもっとスマートに出来そうな感じはしましたが、結局わからず仕舞いでした。
方法を紹介しているサイトや、アドバイスを頂けないでしょうか?
よろしくお願いします。

685:名無しさん＠そうだ選挙にいこう
07/10/30 23:46:38
>>684
ファイル名の法則はyymmddなのかな？
だとしたらＤｉｒ関数でループかけて一番値が大きい物を取得してインポートすればいいんじゃないかな？

686:684
07/10/31 00:19:55
>>685
早速ありがとうございます！！
ご指摘の通り、ファイル名の法則は前後に全角文字が入ることもありますが、yymmddが必ず含まれます。
私が参考にした場所にも同じ回答がありますね。
しかし、VBAがまともに組めないのでサッパリ解らんのですorz
DIR関数で15分くらい調べてみたところ、
最大値のとり方や、具体的なインポート方法までは見つけられませんでした。
インポートに必要な関数や、エクセルの列指定などに必要なコマンド（？）があったら教えてください。
仕事中に調べてみたいと思います。。。
VBAの本買って勉強もしないとですねｆ＾＾；

重ね重ねよろしくお願いします。

687:名無しさん＠そうだ選挙にいこう
07/10/31 02:01:54
>>686
対象ファイルの前後に文字が入るとすると、バックアップ用のフォルダを分けた方がいいかもね。

'ターゲットフォルダ
Dim strTarget as String
'バックアップファイル名
Dim strBkFile as String

strTarget = （ファイル保存場所例：C:\Target\*.xls）　
strBkFile = "C:\Target\bk\" & Format(Date(),"yymmdd") & Format(Time(),"hhnndd") & ".xls"

'.XLSファイルを抽出
Do While Dir(strTarget) <>""
strTarget = Dir(strTarget)
Loop

'XLSファイルを指定のテーブルにインポート
DoCmd.TransferSpreadsheet acImport,～（詳しくはTransferSpreadsheetでググってみて[引数など別途変数必要]）

'インポートしたXLSファイルをバックアップフォルダに移動

Name strTarget As

上のコーディングはあくまで流れと考えて、メソッド等分からなければググるかVBEに貼り付けて随時F1キーで確認することをお勧めする

688:名無しさん＠そうだ選挙にいこう
07/10/31 02:02:44
すまん。最後は

Name strTarget As　strBkFile

です

689:684
07/10/31 07:53:43
>>687
ありがとうございます～
この流れで今日調べてみます！！
ある程度ヒントがあればググるのが楽になるので非常に助かります。

690:名無しさん＠そうだ選挙にいこう
07/10/31 09:18:59
>>689
最大値の取り方やインポートをDIR関数で15分くらい調べたって、それは調べ方が
悪いし発想がずれている。
最大値なんて、その日付が付いてるファイルでいえば並べ替えれば最初か最後に
なるんだから、関数で補いたいならソートって言葉で検索するとか。
インポートだって、VBAのヘルプでインポートで検索すれば関数は見つかるんだか
ら、その関数名やAND条件でExcelとかいろいろつけてググるとか・・・。

691:名無しさん＠そうだ選挙にいこう
07/10/31 20:59:06
最大値は月曜だけど土曜日曜のぶんをインポートし忘れたから
こっちを指定して取り込めるように・・・とか言い出したらおれ怒るよ。

692:684
07/10/31 22:06:28
今日は別件のトラブルで作業する時間なかったorz

>>690
最大値でソートしても最大値の前に全角文字（不統一な名前）が入っているファイルがあるので、
ソートでは不可能かと思ってるんですが・・・
調べ方が悪いのは認めます。
コード見ても判らないから時間かかって仕方ないっす。

>>691
新規でやろうとしている事ですから流石にそれはありませんよ。

いずれにせよ色々突っ込んでもらえて助かりますです。。。

693:名無しさん＠そうだ選挙にいこう
07/10/31 22:54:46
うんこファイル名から目当てのyymmddを取得するロジックを考える必要があるね。
全角文字のみ取り除くとか6桁数字のみ抽出するとか方法はいろいろ考えられるけど
いずれにせよVBAは正規表現使えないからある程度ゴリゴリ書くことになるのかな・・・

FileDateTime()で取得できるファイルの更新日時を使っていいなら楽なんだけど
こういううんこ仕様なシステムは一番古いのが一番新しいとか平気でありそうだから
おそらくダメなんだろうね。

694:684
07/11/01 00:22:41
ファイル名は自分もｱﾌｫ仕様だと思いますｗ
ルールを変更する権限が無いのであるものでやらなければならない状況でして…

FileDateTime()も一応試してみようと思っています。
勿論そのレベルに到達できればの話ですがorz

695:名無しさん＠そうだ選挙にいこう
07/11/01 00:28:06
アクセス２００７で資料整理をフォームでしているのですが、あるテキストボックスの
文章の一部を別のテキストボックスにコピーペーストしたいのですが、リッチテキスト
に変えるとペーストできなくなるようです。ながめるだけでは役に立たないのでどうにか
したいなと思うのですが、どうすれば貼り付けられるようになるのでしょうか。
また一般にリッチテキストのまま書式を保って貼り付けられるようになるのでしょうか？

696:名無しさん＠そうだ選挙にいこう
07/11/01 16:59:07
【システム環境　 . 】 Windows XP SP2, Access2003
【 VBAが使えるか .】はい
【 VBAでの回答　　】否

TableA.ColumnA <> TableA!ColumnB
という条件式において、TableA!ColumnBと言うのは何を意味しているのでしょうか？
table.columnは他のDBMSでも見ますが、table!columnという形式はAccessで初めてみました。。

697:名無しさん＠そうだ選挙にいこう
07/11/02 00:23:59
コレクションとプロパティの違い。
違わない。

698:名無しさん＠そうだ選挙にいこう
07/11/02 00:38:15
違うのか違わないのかはっきりしてください！（＞＜；）

699:名無しさん＠そうだ選挙にいこう
07/11/02 03:07:19
アクセス２０００から２００７に乗り換えたのですが、VBAが使えないなど致命的に
使いかってが悪くなったように思えます。何かよくなった点があるのでしょうか？

700:名無しさん＠そうだ選挙にいこう
07/11/02 10:33:55
>>699
ゲイシが儲かる

701:名無しさん＠そうだ選挙にいこう
07/11/03 00:02:58
いくらなんでもVBA使えなくなったらもう誰も買わないし使わなくなるだろw

どんな2007なんだよwww

702:名無しさん＠そうだ選挙にいこう
07/11/03 00:04:34
>>699
ふ～ん、俺の2007もVBA使えないのかなぁ？

703:名無しさん＠そうだ選挙にいこう
07/11/03 00:12:05
正確には２０００で作ったコマンドなどのマクロを移入するとなぜか書き込めないし
いままで自動で書き込んでくれた機能がなくなったのでVBA使うにもとっかかりが
なくなってしまった。ワードでもマクロ使うときは２０００で記録させてそれを利用して
いるのですが、一動作ごとすべて記録してくれた９５の頃がナツカシス・・・

704:名無しさん＠そうだ選挙にいこう
07/11/03 00:15:08
日本語で頼む。

705:名無しさん＠そうだ選挙にいこう
07/11/03 02:13:13
【システム環境　 . 】 Windows2000＆XP, Access2000
【 VBAが使えるか .】はい
【 VBAでの回答　　】可
【検索キーワード　】 ACCESS 固定長エクスポート

ACCESSにて固定長のデータをテキストファイルに出力していました。
今回ＤＢのレイアウト変更を行い６桁→８桁に変更したところ
どうしても変更が出力に反映されません。
カンマ区切りならうまく出力できるのですが、固定長データだと
ＤＢのレイアウト変更に対応できません。
どうも、ＤＢのレイアウトを作る際に、エクスポート定義ファイルみたいなのを
作成し開始位置、幅等を作成するみたいなのですが、このエクスポート定義ファイル
を作成する方法をどなたか教えていただけないでしょうか？

706:名無しさん＠そうだ選挙にいこう
07/11/03 09:36:35
>>705
手動でエクスポートやってみ。定義、保存があるから。

707:名無しさん＠そうだ選挙にいこう
07/11/03 09:46:33
漠然とした質問ですが。
イベントプロパティーでたとえばダブルクリックでPublic Functionが呼び出せる場合に、
これをサブプロシジャーに書き換えて、キーダウンイベントでそのPublic FunctionをCallするように書き直すと
うまく機能しないことがあります。仕方が無いので、透明ボタンを作成して呼び出すようにしています。
どういう理由が考えられますか？当該コントロールにfocusがあるかどうかでしょうか？

708:名無しさん＠そうだ選挙にいこう
07/11/03 09:47:18
文字列をつくればいいだけなんだから、ＶＢＡで汁

709:名無しさん＠そうだ選挙にいこう
07/11/03 23:34:44
>>693
正規表現使えなくはないよね、VBScript.RegExpオブジェクト使えば。

710:名無しさん＠そうだ選挙にいこう
07/11/05 21:03:20
>706

thx!!

無事うまくいきました。

711:名無しさん＠そうだ選挙にいこう
07/11/05 23:54:18
>>706
そのやり方は、全オブジェクトのインポートをするたびに
設定もしなきゃならんから俺は使わん。

712:名無しさん＠そうだ選挙にいこう
07/11/06 01:09:43
>711

iniファイルを使うとか？？？

713:名無しさん＠そうだ選挙にいこう
07/11/06 02:15:35
下のようなテーブルがある場合に、山に行かなかった人を抽出するにはどういう風にするのでしょうか?
クエリでいろいろ頑張っていますが、出来ません。SQL文でもVBAでも結構ですので、ご教授をお願いします。

名前　行った場所
山田　海
山田　川
鈴木　山
鈴木　川
鈴木　海

714:名無しさん＠そうだ選挙にいこう
07/11/06 06:27:54
>>713
ワークテーブルで山に行った人を削除するのが
一番手っ取り早い気がする。

715:名無しさん＠そうだ選挙にいこう
07/11/06 08:02:59
<>"山"

716:名無しさん＠そうだ選挙にいこう
07/11/06 08:34:53
>>705

shema.iniを使うのがベスト。

URLﾘﾝｸ(support.microsoft.com)

717:713
07/11/06 09:29:33
>>713　ありがとうございます。
山へ行った人を抽出して、全員のリストから削除して残ったのが山へ行かなかった人ということですね
例で言うと、山へ行った鈴木さんを全員のリストから削除して、残った山田さんが山へ行かなかった人になるということですね。
削除クエリを使うのでしょうか？
削除クエリは使ったことがないのですが頑張ってみます。ありがとうございました。

>>714
下記のように山を含まないレコードが抽出されるだけです。山へ行かなかった人を抽出したいのです。

山田　海
山田　川
鈴木　川
鈴木　海

718:名無しさん＠そうだ選挙にいこう
07/11/06 09:30:13
間違えました
>>714さん、ありがとうございました。

719:名無しさん＠そうだ選挙にいこう
07/11/06 10:21:28
>>717
サブクエリ使えよ。
select　distinct　名前　from　テーブル　where　行った場所　=　'山';
で山に入った人が抽出できるんだから、
select　distinct　名前　from　テーブル　where　名前　not　in　(
select　distinct　名前　from　テーブル　where　行った場所　=　'山'
);
とかで抽出できるだろ。

720:名無しさん＠そうだ選挙にいこう
07/11/06 11:27:12
>>711
意味がわかんないんだけど。
固定長だからフィールドサイズが異なるものを扱う場合は、確かにその度に
設定をするけど、1度設定して保存してしまえば次からは定義名指定でOKで
すよね。
これを使わずに、固定長を簡単に扱うことができるんですか？

721:名無しさん＠そうだ選挙にいこう
07/11/06 11:34:00
>>711
インポートの時、オプションのインポート/エクスポートの定義をチェックでOK。

722:名無しさん＠そうだ選挙にいこう
07/11/06 14:36:08
>720
>>711のいっていることはオブジェクトのインポートのことであって、
テキストファイルのことではない。

723:名無しさん＠そうだ選挙にいこう
07/11/06 15:15:12
【システム環境　 . 】 WindowsXP, Access2002
【 VBAが使えるか .】いいえ
【 VBAでの回答　　】可
【検索キーワード　】 access 宛名印刷位置etc

URLﾘﾝｸ(support.microsoft.com)

上のページを参考にしてラベル用のレポートを作成したのですが、
印刷位置の確認欄が、レポート開いた時と印刷時の2回出てきます。
また確認欄でキャンセルした場合に実行時エラー13「型が一致しません」という表示されます。
キャンセル時にエラーが発生せず、印刷位置の確認を1度のみにするには、
どこを直せばいいのでしょうか。
ご回答お願いします。

724:721
07/11/06 18:58:30
>>721
紛らわしかった。テーブルオブジェクトをインポートする時のことデス。

725:名無しさん＠そうだ選挙にいこう
07/11/07 01:04:51
Str関数ってどういった時に使うんですか？

726:名無しさん＠そうだ選挙にいこう
07/11/07 01:08:50
使いたくなった時

727:名無しさん＠そうだ選挙にいこう
07/11/07 01:36:48
>>719
ありがとう。勉強してみるよ。谷尻本のSQLを読み返してみるよ。
助かったよ。

728:名無しさん＠そうだ選挙にいこう
07/11/07 10:15:03
質問です。

Access2000形式で作成したmdbファイルを
Access2000で起動し最適化を行いながら運用していた場合は、
20MB前後のファイルサイズなのですが、
Access2003で起動し最適化を行いながら運用した場合、
ファイルサイズが50MB前後になってしまいます。（徐々に大きくなっていきます。）
このまま運用して大丈夫でしょうか？

ご存知の方ご教授お願いします。

729:名無しさん＠そうだ選挙にいこう
07/11/07 12:53:38
>>728
大丈夫かどうか判断するのはお前。

730:名無しさん＠そうだ選挙にいこう
07/11/07 12:56:51
>>728
レコードレベルのロックにしてると肥大化するらしい。

731:名無しさん＠そうだ選挙にいこう
07/11/07 19:21:29
すみませんがおしえてください。
アクセス２００３からエクセル２００３へｖｂａでデータ
をセルに渡しています。
データまでをきちんといっているのですが
最後の別名保存と印刷がうまくいきません。
aaaa.workbooks.saveas("d:\yy\jjj.xls")
でいいかと思ったのですが、元のファイルに上書きダイアログが出ます。
またエクセルでマクロ記録させたのを直し貼り付けても同じでした。
印刷も同じでした。以前アクセスエクセル２０００を使っていて
問題なく動いた同じコードを書いたのです。
エクセルのマクロ記録のものをなおしても駄目だったのでこちらでお聞きしました

732:名無しさん＠そうだ選挙にいこう
07/11/07 20:16:57
>>731
バージョン上がる毎にメソッドの仕様変更が行われるのに"なに言ってんの？この人"と思った
俺は2002までしか持っていないんで嘘教えるわけにもいかんから、マニュアルで
WorkbookオブジェクトのSaveAsメソッドの項目引いてみな？

733:名無しさん＠そうだ選挙にいこう
07/11/08 07:52:00
>>724
それでも意味がわからない。
インポート/エクスポートの定義も作ってしまえば、それを別MDBに
インポートできるし。

734:名無しさん＠そうだ選挙にいこう
07/11/08 21:59:40
確かAccess95時代に一生懸命作ったインポート定義がAccess97にバージョンアップした時に使えなくなって
仕方なく全部作り直ししたインポート定義がAccess2000にバージョンアップした時にまた全部使えなくなって
そこでもうブチ切れでした。

それ以来外部データの取り込みとかは必ずインポート定義以外の方法でやるようにしてるんだけど、最近はどうなのかね。
2003で作ったのを2007にバージョンアップしてもちゃんと動くのかな・・・？

735:名無しさん＠そうだ選挙にいこう
07/11/09 07:36:10
>>734
オレは使えた。

736:名無しさん＠そうだ選挙にいこう
07/11/09 20:25:51
>>734
2000→2003は使えた

737:名無しさん＠そうだ選挙にいこう
07/11/10 20:21:57
おしえてください。
今フォームでの検索画面を作成しています。
出来ればテキストボックスは１つで、文字型か数値型で検索する
フィールドを選択することが出来ますか？
どこかでそんなやり方があったのを見た気がするのですが
調べてもわかりませんでした。お願いします。

738:名無しさん＠そうだ選挙にいこう
07/11/10 20:42:50
>>737

val関数で普通に値を返してきたら数値。
エラーだったら文字列。
普通の四則演算でも出来るような気がする。
例えば、

Me!テキスト0 + 0

とか。

739:名無しさん＠そうだ選挙にいこう
07/11/10 22:49:07
エラーになるのをOn Errorで引っ掛けるのもなんだか
ここはIsNumeric()使いなよ・・・

740:737
07/11/11 22:31:36
>739さん
If IsNumeric([テキスト350]) Then
で出来ました。苦労してのが、
一気に解決。
ありがとうございます。
>738さんもありがとうございます。
いろいろな考えがあるのですね。

741:名無しさん＠そうだ選挙にいこう
07/11/12 19:23:02
val関数では数値か文字の判定は完全にできない。
日付のつもりで「11/12」と入れると数値が返ってくる。

742:名無しさん＠そうだ選挙にいこう
07/11/12 19:24:42
d"11/12" とか書けよ

743:名無しさん＠そうだ選挙にいこう
07/11/12 19:52:35
【システム環境.】 WindowsXP, Access2000
【VBAが使えるか】はい
【VBAでの回答　】ぜひ
【検索キーワード】「access vVBA copyobject」「access VBA Transfer -Excel -テーブル」など

しょぼ質問だす、すまそ。
VBAで自分のMDBに他のMDBのフォームをインポートしたいんだが可能？
DoCmd.CopyObjectは完全に逆向きだし、
DoCmd.Transfer…はテーブルとかエクセルとかだしで「あれ？」って感じ中。

ようはメニューの「ファイル」→「外部データの取り込み」→「インポート」で
フォームやモジュールを選んでインポートする処理を自動化したいんだけど、できないものでしょか。
ぐぐってはみたんだけどどーもヒットしなくて。。
ぐぐり方が悪いんだろけど知ってたらよろしくです。

744:名無しさん＠そうだ選挙にいこう
07/11/12 20:51:34
オブジェクトのインポートは無理だと思うが、
参照設定によって別のmdbのフォームやモジュールを実行することはできると思う。

URLﾘﾝｸ(msdn.microsoft.com)

745:名無しさん＠そうだ選挙にいこう
07/11/12 21:15:24
>>743
HELPでTransferDatabase メソッドは調べてみた？

746:743
07/11/13 01:00:53
>>745
TransferDatabaseっすね、ちと調べてみまっす。ありが㌧！

>>744
できれば自MDBのフォームやモジュールとして取り込みたいので
TransferDatabaseで実現できなかったときにやってみます～、ありが㌧！

747:名無しさん＠そうだ選挙にいこう
07/11/13 13:16:41
質問です。
帳簿形式のフォームのテキストボックスには、
255文字しか書き込めない理由を教えて下さい。

748:名無しさん＠そうだ選挙にいこう
07/11/13 13:20:12
帳簿形式だから

749:名無しさん＠そうだ選挙にいこう
07/11/13 16:55:40
帳簿形式ってな～に？
HELP で検索してもありません。

750:名無しさん＠そうだ選挙にいこう
07/11/13 16:58:31
帳簿形式だから

751:名無しさん＠そうだ選挙にいこう
07/11/13 17:41:20
帳票形式でした。すみません。教えて下さい。

752:名無しさん＠そうだ選挙にいこう
07/11/13 17:58:16
●>>751の使っているフォームが連結フォーム
●連結されている列の型がテキスト型
だからだと思われ

あとはHELPでフィールドの型と特徴を自分で調べれ

753:751
07/11/13 18:24:27
>>752
そのことはついさっき自己解決しました。ありがとうございます。

実は一昨日、上司の指導でがプロジェクトにしてSQLにつなぐことで何千文字かが入るようになるようにする、
ということになりました。僕は初心者なのでよく分からないのですが、
言われるがままにキーボードを叩いて、そういう風にしてみたところ、
単票では入るのですが、帳票形式では255しか、表示されなくなりました。
今からaccdbに戻すというのもしんどいので、
解決法分かる方、宜しかったらご指導願えませんでしょうか。
長文申し訳ありません。

754:名無しさん＠そうだ選挙にいこう
07/11/13 23:13:48
ちょっと混乱してしまったので質問します。
ＡＤＯ方式でｓｑｌで発行したのですが、どうもうまくいかないようです。
今までもやってたのに何か間違えてる？
もうループ状態です。
Dim cnn As New ADODB.Connection
Set cnn = Application.CurrentProject.Connection
Set rst = New ADODB.Recordset
Dim SQL As String
SQL = "SELECT　職番.番号, FROM 職番;"
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
rst.MoveFirst
Do Until rst.EOF
MsgBox rst!番号
rst.MoveNext
Loop
End Sub
sql文はクエリ作成からのコピーであとで
いろいろ変化させるつもりなのですが、
まず開いていないようなのです。
単純な間違えなのか、他に設定があったのかわからなくなりました。
お願いします。

755:名無しさん＠そうだ選挙にいこう
07/11/13 23:29:18
>>754

rst型宣言してみては。

756:名無しさん＠そうだ選挙にいこう
07/11/13 23:31:24
>>754

あと、FROMの前のカンマ消せ。

757:名無しさん＠そうだ選挙にいこう
07/11/14 00:21:45
質問です。
帳票フォームの値の取得の仕方が分かりません。

758:名無しさん＠そうだ選挙にいこう
07/11/14 02:15:22
？？帳票フォームのあるコントロールを見たいということかな？
それともあるレコード？？前者の場合Forms!frm_○○○!コントロール名だし、後者はDlookupで拾ってこないと無理だね

759:名無しさん＠そうだ選挙にいこう
07/11/14 19:42:52
質問ですが、AccessのレポートをWordにそのまま出力する方法はありますか？
ツール→Office Link→Wordに出力
とやると、フォームから入力したデータだけが出力されてしまいます。
ファイル→エクスポートでも同じです。

ファイル→エクスポートでスナップショットで保存するとうまくいくのですが、
今度は編集できないのでWordがいいです。

760:名無しさん＠そうだ選挙にいこう
07/11/14 20:56:43
Wordはいまだにリッチテキストの枠から抜け出していないから
Accessのレポートのような自由配置の文章は基本的に表現できない。

761:名無しさん＠そうだ選挙にいこう
07/11/14 21:31:37
Publisher 使ってください
Word はワープロです

762:名無しさん＠そうだ選挙にいこう
07/11/14 21:32:35
>>754

志村、全角スペース！

763:名無しさん＠そうだ選挙にいこう
07/11/14 23:15:23
【システム環境　 . 】 Windows XP
【 VBAが使えるか .】はい
【 VBAでの回答　　】否

初心者厨です。

Access 2003をインストールし、
Access97にて作成したmdbを開こうとしたら「[データベースを変換/開く] ダイアログボックス」が表示されました。
変換を選択したところ、問題なく変換されたようなのですが、
mdbファイルを開くたびに、DBのパスワード入力を求められるようになりました。

なんで97の動作と変わってしまうんだろう…そこまでは自動では移行できないから
自分でなんとかしろよ、ということなんでしょうか…。

パスワード入力を毎回するのは面倒なので、
自動化したいのですが…一般的にはどのようにするのでしょうか。

（当方が作成したmdbファイルではないので、
　97時代のファイルはあるものの、
　97のときはどうやって実現していたのかはわからないです）。

764:名無しさん＠そうだ選挙にいこう
07/11/14 23:18:09
>>760
ありが㌧

765:名無しさん＠そうだ選挙にいこう
07/11/15 00:11:09
>>758
ありがとうございます。

Dlookupのほうです。
ムズそうです...

766:名無しさん＠そうだ選挙にいこう
07/11/15 01:42:28
>>763
97時代のmdbをどこかにうｐしてくれれば教えてあげる

767:名無しさん＠そうだ選挙にいこう
07/11/15 11:38:09
初心者です。教えて下さい。OSはウィンドウズXPでアクセスは2003です。
一対多の関係の２つテーブルでクエリを作成すると一側の主キー順に並ぶ
のですが。
一対多、一対多の３つのテーブルでクエリを作成するとそうなりません。
ある程度主キー順に並ぶかと思ったのですが。
どういう基準で並び順がきまるのが理解できません。

768:名無しさん＠そうだ選挙にいこう
07/11/15 12:15:41
Accessでは、主キー順にデータが保存されているわけではなく、データが「集まってる」だけなので、並べ替え指定しなければどう並んでもおかしくないらしい。

769:名無しさん＠そうだ選挙にいこう
07/11/15 12:18:45
当り前だ
Accessでは、って何だよ

770:名無しさん＠そうだ選挙にいこう
07/11/15 13:19:21
>>768どうもありがとう。
ただまだちょっと納得ができない所が・・・
テーブル1個、又は２個からクエリを作成すると主キー順に並ぶんですが。
テーブルが多いと並びはアクセスまかせで並ぶと考えればいいのでしょうか。

771:名無しさん＠そうだ選挙にいこう
07/11/15 17:05:18
結合の仕方をうまくやれば、テーブルの数に関係なく、
あるテーブルの主キーの並びにすることは可能である。

772:名無しさん＠そうだ選挙にいこう
07/11/15 17:08:42
そんなの保証されない

773:名無しさん＠そうだ選挙にいこう
07/11/15 17:19:19
>>770
並びがおかしいクエリのＳＱＬ文を載せてくれないか。
改善策を指摘できるかもしれない。

774:名無しさん＠そうだ選挙にいこう
07/11/15 17:22:00
並び順を指定しないのに勝手に並べってのは、犬でも無理

775:名無しさん＠そうだ選挙にいこう
07/11/15 18:02:33
すべてじゃないが、できる場合もあるってこと。

776:名無しさん＠そうだ選挙にいこう
07/11/15 18:09:53
何を言ってるかと思えば、画面に表示される順番のことか。
そんなん、指示しなければ Accessの勝手だよ。

777:名無しさん＠そうだ選挙にいこう
07/11/15 18:47:03
>テーブル1個、又は２個からクエリを作成すると主キー順に並ぶんですが。

それは「たまたま」だと認識するべき

778:名無しさん＠そうだ選挙にいこう
07/11/15 18:51:13
うん、テーブル結合処理終わった時の状態で表示してるだけ。

779:名無しさん＠そうだ選挙にいこう
07/11/15 18:56:19
>>773　お恥ずかしいです。実は超図解アクセス２００３総合編で見積書作成クエリ１
からフォームを作成している時、何で脈略の無い並びで表示されているのか
疑問に思ったもので・・・。
SQLはこれでいいのでしょうか？
SELECT DISTINCTROW 見積データ.見積ID, 見積データ.見積内容,
　見積データ.納入場所, 見積データ.顧客ID, 顧客マスター.会社名,
顧客マスター.担当社員ID, 社員マスター.氏名, 見積データ.見積日,
　見積データ.見積有効期限
FROM 社員マスター INNER JOIN (顧客マスター INNER JOIN 見積データ ON 顧客マスター.顧客ID=見積データ.顧客ID) ON 社員マスター.社員ID=顧客マスター.担当社員ID;

780:名無しさん＠そうだ選挙にいこう
07/11/15 18:58:51
order by 入れろよ。

781:名無しさん＠そうだ選挙にいこう
07/11/15 19:38:00
見やすくするため、フィールドは整理したが、
このＳＱＬ文では見積データの主キー順に並ぶため、ORDER BY の時間が必要ない。

SELECT 見積データ.*,顧客マスター.会社名,社員マスター.氏名
FROM (見積データ
INNER JOIN 顧客マスター ON 顧客マスター.顧客ID=見積データ.顧客ID)
INNER JOIN 社員マスター ON 社員マスター.社員ID = 顧客マスター.担当社員ID;

782:名無しさん＠そうだ選挙にいこう
07/11/15 19:53:28
>>781
なんか危なそうな思考だな
その前に、他の操作でテーブル弄ってても、オケなのか？

783:名無しさん＠そうだ選挙にいこう
07/11/15 21:11:04
[補足]
長年の経験によると以下のような法則があることに気付いた。

クエリの構造が以下の場合

見積(a) 多対1 顧客(b)
顧客(b) 多対1 社員(c)

(a)の主キーで並び替える

SELECT *
FROM (a INNER JOIN b) INNER JOIN c

※INNER JOIN は LEFT JOIN でも可(RIGHT JOIN は不可)

784:名無しさん＠そうだ選挙にいこう
07/11/15 21:16:35
追記　　必ず a → 　b →　 c　の順に並べることがポイント

785:名無しさん＠そうだ選挙にいこう
07/11/15 21:18:03
所詮、計算機だから、そりゃルールはあるだろう。

そのルールは予告なく変更される可能性もあるけど。

786:名無しさん＠そうだ選挙にいこう
07/11/15 21:54:08
>>784
＞＞782

787:名無しさん＠そうだ選挙にいこう
07/11/15 21:56:27
ミスってた。

>>781の場合は　社員マスタは LEFT　JOIN でないとうまくいかない。

788:名無しさん＠そうだ選挙にいこう
07/11/15 22:01:22
INNER JOIN ではなく　LEFT　JOIN だけなら　確実にできるようだ。　

789:名無しさん＠そうだ選挙にいこう
07/11/15 22:16:15
[正解]

SELECT 見積データ.*,顧客マスター.会社名,社員マスター.氏名
FROM (見積データ
LEFT JOIN 顧客マスター ON 顧客マスター.顧客ID=見積データ.顧客ID)
LEFT JOIN 社員マスター ON 社員マスター.社員ID = 顧客マスター.担当社員ID;

790:名無しさん＠そうだ選挙にいこう
07/11/15 22:23:12
よくわからないが>>783がその長い期間になにも学習してないことはわかった。

791:名無しさん＠そうだ選挙にいこう
07/11/15 22:24:13
もう突っ込まれてるけど、order byつければ済む話。

仮に「○○のようだ」という説の確実性が99.9%by当事者主張だったとしても、
そんな仕様外の挙動に依存してまで正規SQL句のorder byを使いたくないって、
いったいどういう神経

792:名無しさん＠そうだ選挙にいこう
07/11/15 22:32:43
すみません
Access のオートナンバーなのに番号順じゃなくて
変な番号になってしまったレコードが１個出来てしまいました

例：
1
2
3
13421398475923459823
5
6
7

みたいな風になってしまっています
他の場所のデータは壊れていないみたいなので
番号だけ直したいのですが直そうとすると
オートナンバーなので警告が出てしまって直せません

どうすれば直せますか？

793:名無しさん＠そうだ選挙にいこう
07/11/15 22:39:55
更新クエリで

794:名無しさん＠そうだ選挙にいこう
07/11/15 22:53:32
>>791
チューニングを極限まで極めようとすると、
ＳＱＬ文の構造の検討は重要だよ。

795:名無しさん＠そうだ選挙にいこう
07/11/15 23:05:09
>>794
＞＞782

796:名無しさん＠そうだ選挙にいこう
07/11/15 23:12:55
チューニングw

極限www

Order Byつけ忘れてるやつがwwwww

797:名無しさん＠そうだ選挙にいこう
07/11/15 23:18:28
更新クエリでテーブルより該当データの数をカウントしたいのですが、
0件の場合、まったく反応してくれません。
0件をカウントすることはできないのでしょうか。

798:名無しさん＠そうだ選挙にいこう
07/11/15 23:26:42
指定しないで画面の並び順に拘る奴は、桐にしとけ
桐なら論理行番号あるど

799:名無しさん＠そうだ選挙にいこう
07/11/15 23:27:25
>>796
order by なんてユーザに見せる最後の段階でつければよいものであって、
それ以前に膨大な数のＳＱＬ文を処理せにゃならん場合があるだろが・・・

800:名無しさん＠そうだ選挙にいこう
07/11/15 23:33:03
>>781はまさにその「ユーザに見せる最後の段階」ってやつなのに
order byなしで並び順が保証されるとか思ってるやつw

801:名無しさん＠そうだ選挙にいこう
07/11/15 23:39:03
>>799
元々、最終的に画面で見る並び順を問題にしてるんだろ

802:名無しさん＠そうだ選挙にいこう
07/11/15 23:49:57
俺はテーブルを開く時と同様にクエリでも主キー順に開けるようにする手法を提示しただけだ。

803:名無しさん＠そうだ選挙にいこう
07/11/15 23:52:10
テーブルを開く時は主キー順に画面表示される、っと

804:名無しさん＠そうだ選挙にいこう
07/11/16 00:15:18
うちのアクセスはテーブル開くと
最近更新した行が最後に来てるけど

805:名無しさん＠そうだ選挙にいこう
07/11/16 00:17:37
普通主キー順だけど黄身卵堵殺は違うの？

806:名無しさん＠そうだ選挙にいこう
07/11/16 00:28:00
id(主キー)が飛んでいるデータの番号を詰めて振りなおすのをSQLでやるときは

update hoge set id = max(id) + 1 order by id

とかで大丈夫ですか？

807:名無しさん＠そうだ選挙にいこう
07/11/16 00:36:36
なんでやってから聞かないんだ

808:名無しさん＠そうだ選挙にいこう
07/11/16 00:37:30
見るからに大丈夫そうじゃないが、やれば分かるんじゃね。

809:名無しさん＠そうだ選挙にいこう
07/11/16 00:50:54
updateにorder byは2000までは使えたけど2002で使えなくなった記憶が・・・

810:791
07/11/16 02:38:59
>>794
すまん、ぶっきらぼう杉田。
ネタとしては面白いのでI love Accessあたりで投下すればそれなりかもと思うが
>767 は初心者と自己申告しているので、相談所でそれを投げるのはどうかと思ったのよ。

まあﾏﾀｰﾘいこうや。

811:名無しさん＠そうだ選挙にいこう
07/11/16 09:45:45
767です。自分はSQLとかはあまり理解できてないのでだんだん難しくなってきました。
これからがんばって勉強します。
基本的にはレコードの並びはアクセスまかせということは理解できました。
ニキータさんのサイトでエクセルとアクセスは別物だという知識は得た積もり
でしたが、身に付いていなかったです。
どこかエクセル的にみていたようです。今回の事で完全に身につきました。
お騒がせしました。

812:名無しさん＠そうだ選挙にいこう
07/11/16 20:24:42
おーい、テーブルの並び順は確かに普通は主キー順だけどさ、
これは主キーがインデックスの先頭に指定されるからで、
別のフィールドを優先して並べ替えるようにも指定できるだろ？

（テーブルのデザインビューで、表示→インデックス）

で、これをいじっても>>781は成り立つの？

813:名無しさん＠そうだ選挙にいこう
07/11/17 00:19:18
確かにキーの入れ替えをするとうまくいかなくなるな。
この法則は無意味だ。忘れてくれ。

814:名無しさん＠そうだ選挙にいこう
07/11/17 08:31:47
第一法則
このＳＱＬ文では見積データの主キー順に並ぶため、ORDER BY の時間が必要ない。

SELECT 見積データ.*,顧客マスター.会社名,社員マスター.氏名
FROM (見積データ
INNER JOIN 顧客マスター ON 顧客マスター.顧客ID=見積データ.顧客ID)
INNER JOIN 社員マスター ON 社員マスター.社員ID = 顧客マスター.担当社員ID;

第二法則
キーを入れ替えた場合、そのキーの順序で並ぶ

815:名無しさん＠そうだ選挙にいこう
07/11/17 11:48:31
ダメだこいつ・・・　早くなんとかしないと・・・

816:名無しさん＠そうだ選挙にいこう
07/11/17 11:57:34
>>814
ねぇ、他の操作でテーブル弄った後でもオケなの？
直前に、フィルタ掛けたり、並べ替えしてたり

そんなのが普通だと思うんだけど、、、

817:名無しさん＠そうだ選挙にいこう
07/11/17 12:06:58
もう、かまうな。

818:名無しさん＠そうだ選挙にいこう
07/11/17 23:02:32
>>816
こいつも言ってる事おかしいと思うけどまあいいや

819:名無しさん＠そうだ選挙にいこう
07/11/18 01:44:29
たしかに、ウィザードでつくったクエリは、みにくいというか、センスがない。
手書きのほうが、簡潔で、効率よい感じはする。

820:名無しさん＠そうだ選挙にいこう
07/11/18 10:44:27
ファイルメーカー、“幕の内弁当”データベース「Bento」公開

821:名無しさん＠そうだ選挙にいこう
07/11/18 20:46:52
こんばんわ
アクセスさわったことない全くの初心者なんですが質問させてください

エクセル、ワード文書、フォトショで作ったイラスト、デジカメで撮った写真
などを大量にフォルダで共有しているのですが、これを一元管理するソフト
としてアクセスは使えますでしょうか？

時系列や名前順などいろいろ並べ替えて、表画面から元データを一発で呼び出せれ
ばアクセスで一元管理したいと思っているんですが‥。

822:名無しさん＠そうだ選挙にいこう
07/11/18 20:54:49
実ファイルとDB情報の同期がめんどい

823:名無しさん＠そうだ選挙にいこう
07/11/18 21:01:49
フォルダー内にある全ファイル名を自動取得し、
データベースに取り込む機能を作ればよい。
ＶＢＡの知識があればだが・・・

824:名無しさん＠そうだ選挙にいこう
07/11/18 21:11:03
>>821
Access2007 なら、そういうの便利にできるよ
画像データをネイティブに保存できるから
かなりファイルサイズがデカクなるけど

825:名無しさん＠そうだ選挙にいこう
07/11/18 21:26:33
>>822～824
ありがとうございます。
Accessのビデオ教習見て、これでやってみたいと思いました。
光が見えてきたのでAccessで突き進んでみようと思います。

826:名無しさん＠そうだ選挙にいこう
07/11/19 10:08:28
>>819
その通りだが、GUIのOS・アプリに対してフィード名もカタカタ・・・は、なぁ。
あのSQLビューでの機能はせめて検索・置き換えぐらいしてくれよと言いたくなる。

827:名無しさん＠そうだ選挙にいこう
07/11/19 10:29:40
他のエディタにコピペして検索、置換すればいいだけ。

828:名無しさん＠そうだ選挙にいこう
07/11/19 15:44:30
質問です。
フォームで名前のフリガナの所に、かなの直接入力できないように、
ＶＢＡでエラーが出るようにしたいんですけど、それってどうやればいいんでしょうか。
良かったら教えて下さい。

829:名無しさん＠そうだ選挙にいこう
07/11/19 16:30:31
>>828
そのテキストボックスに文字入力制限みたいなプロパティあるからそれ設定する。
それだけじゃコピペされたりしたらはいっちゃうこともあるから、
あとは、ＶＢＡでかけば？
キーコードひろってきて、かな以外をはじくようにするとか

830:名無しさん＠そうだ選挙にいこう
07/11/19 16:53:19
>829さん、ありがとうございます。

831:名無しさん＠そうだ選挙にいこう
07/11/19 17:13:28
>フォームで名前のフリガナの所に、かなの直接入力できないように

意味がわからんが、フリガナにいれるのは「かな」だろ？
「かな」をいれないようにするっていうことは完全に何も入力できないようにするってこと？
それだったら、編集ロックを「はい」にすればいい

832:名無しさん＠そうだ選挙にいこう
07/11/20 09:59:28
>>828
「フリガナ」だったらカタカナ、「ふりがな」たったらひらがなだろ、普通。

833:名無しさん＠そうだ選挙にいこう
07/11/20 12:56:15
俺は

StrConv(ひらがな, vbKatakana)

を使って、ひらがなを強制的にカナカナに換えてる。

834:名無しさん＠そうだ選挙にいこう
07/11/20 21:40:05
すみませんが教えてください
請求書を作ってます。
金額を桁ごとに分けてレポートの桁ごとの四角の中に入れたいのです。
桁は請求金額がいろいろです。
ちょっと考えたのが
=Right(Int([金額]/100),1)で桁ごと割ればいいのかと思いましたが
もっとスムーズな方法があるような気がして質問しました。
またレポート上で=Rightヲ使うとエラーが出ます。
原因がわかりません。
それとテーブルで書式設定した－入りの郵便番号（２４４－０００１１など）
がレポート上に反映しませんがそういうものなのでしょうか。レポートでテキストの書式設定で
０００－０００００と入力しても駄目なのです。方法が違うのでしょうか。
質問ばかりですみませんがお願いいたします。

835:名無しさん＠そうだ選挙にいこう
07/11/21 00:07:39
>>834

郵便番号の書式は「@@@-@@@@」（テキストの場合）。
金額を入れる四角が均等ならば、均等割付。
そうじゃない場合は

=Mid(Format(Cstr([金額]),"@@@@@@@"),1,1)

とかにすればいいんじゃないか（@の数は最大桁数と同じにする）。

836:名無しさん＠そうだ選挙にいこう
07/11/21 00:10:33
枠が均等の場合は

=Format(Cstr([金額]),"@@@@@@@"))

のうえ均等割付な。

837:名無しさん＠そうだ選挙にいこう
07/11/21 04:55:56
いや
>金額を桁ごとに分けてレポートの桁ごとの四角の中に入れたいのです。
って言ってるんだから

２３５１３８５７
とかいう数字を
「２」「３」「５」「１」「３」「８」「５」「７」
という枠に入れるという意味かと思ったが・・・
100で割ってRight(1)してるのが謎だが・・・

10で割って余りを右の枠から埋めていくのが常套手段かな

838:８３４
07/11/21 07:06:25
したいことは８３７さんのとおりです。
でも８３５さんや８３６さんのように
一度定形文字数にして左から数を切り出していけば大丈夫でした。
ありがとうございました

839:名無しさん＠そうだ選挙にいこう
07/11/21 10:47:19
質問です。

フォームのテキストボックスのメールアドレス入力チェックを正規表現で作りたいのですが、
親切な人、アドバイス下さい。

840:839
07/11/21 11:28:28
自己解決しました。

841:名無しさん＠そうだ選挙にいこう
07/11/21 12:18:16
>>840
どーやったの？

842:839
07/11/21 12:41:43
↓まんまです。
URLﾘﾝｸ(www.sanryu.net)

843:８３４
07/11/21 20:20:53
おかげさまで２点
わかりました。
ありがとうございました。ただもう一つの
レポート上で=Rightを使うと
エラーと表示が出るのがわかりません。
他の関数でも駄目でした。仕方ないのでクエリ上で処理して
表示しましたが何故ででしょうか？

844:名無しさん＠そうだ選挙にいこう
07/11/21 20:29:15
>>834

実はコントロール名とレコードソースのフィールド名が同一って言う
オチじゃないよな?

845:名無しさん＠そうだ選挙にいこう
07/11/21 20:29:41
>>842のリンク先の正規表現だと、厳密なチェックにはならないね。
「@@@.@」とかも通っちゃう。

厳密にやるなら
URLﾘﾝｸ(blog.livedoor.jp)
URLﾘﾝｸ(www.din.or.jp)
とかを参考にした方がよいと思う。

846:名無しさん＠そうだ選挙にいこう
07/11/21 20:39:33
そのチェックだと「foo@bar@.hogehoge」でもおｋ？

847:名無しさん＠そうだ選挙にいこう
07/11/21 20:47:14
すまん、カブった。

848:名無しさん＠そうだ選挙にいこう
07/11/23 00:09:07
ADOでテーブルにフィルターかけて、SQLで別のテーブルに結果を書き出すのってできますか？

849:名無しさん＠そうだ選挙にいこう
07/11/23 00:18:59
できなかったらリレーショナルデータベースとして使い物にならないと思うけど

850:名無しさん＠そうだ選挙にいこう
07/11/23 06:29:09
insert into hoge () values ()
の代わりに
insert into hoge () select fuga from hage

851:名無しさん＠そうだ選挙にいこう
07/11/23 21:54:21
釧路高専スカトロの検索結果約 161 件中 1 - 10 件目 (0.12 秒)
URLﾘﾝｸ(www.google.co.jp)

852:名無しさん＠そうだ選挙にいこう
07/11/23 21:58:09
これはアメリカのゲームです。１度やってみてください。
これは、たった３分でできるゲームです。試してみてください。驚く結果をご覧いただけます。
このゲームを考えた本人は、メールを読んでからたった１０分で願い事が
かなったそうです。このゲームは、おもしろく、かつ、あっと驚く結果を貴方にもたらすでしょう。
約束してください。絶対に先を読まず、１行ずつ進む事。たった３分ですから、ためす価値ありです。
まず、ペンと、紙をご用意下さい。先を読むと、願い事が叶わなくなります。
①まず、１番から、１１番まで、縦に数字を書いてください。
②１番と２番の横に好きな３～７の数字をそれぞれお書き下さい。
③３番と７番の横に知っている人の名前をお書き下さい。（必ず、興味の
ある性別名前を書く事。男なら女の人、女なら男の人、ゲイなら同姓の名
前をかく）
必ず、１行ずつ進んでください。先を読むと、なにもかもなくなります。
④４，５，６番の横それぞれに、自分の知っている人の名前をお書き下さ
い。これは、家族の人でも知り合いや、友人、誰でも結構です。
まだ、先を見てはいけませんよ！！
⑤８、９、１０、１１番の横に、歌のタイトルをお書き下さい。
⑥最後にお願い事をして下さい。さて、ゲームの解説です。
１）このゲームの事を、２番に書いた数字の人に伝えて下さい。
２）３番に書いた人は貴方の愛する人です。
３）７番に書いた人は、好きだけれど叶わぬ恋の相手です。
４）４番に書いた人は、貴方がとても大切に思う人です。
５）５番に書いた人は、貴方の事をとても良く理解してくれる相手です。
６）６番に書いた人は、貴方に幸運をもたらしてくれる人です。
７）８番に書いた歌は、３番に書いた人を表す歌。
８）９番に書いた歌は、７番に書いた人を表す歌。
９）１０番に書いた歌は、貴方の心の中を表す歌。
１０）そして、１１番に書いた歌は、貴方の人生を表す歌です。
この書き込みを読んでから、１時間以内に１０個の掲示板にこの書き込みをコピーして貼って下さい。
そうすれば、あなたの願い事は叶うでしょう。もし、貼らなければ、願い事を逆のことが起こるでしょう。とても奇妙ですが当たってませんか？

次ページ