[過去ログ] Access VBA 質問スレ Part1 (1002レス)
上下前次1-新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
352: 2015/08/02(日)12:37 ID:Uy/1MbzZ(1) AAS
両者のVBAはデフォルトの参照設定が違うだけですよ
VBA以外は言われている通りAccessの方がはるかに強力ですね
Excelはユーザーフォームくらいです
特殊なレポート印刷なんかは無理してAccessでゴリゴリ書くより
Excelで書式作ってAccessから流した込んだ方が楽だし
データ操作ならAccessじゃないとキツイし
それぞれ得意分野はありますよね
353(1): 2015/08/02(日)21:08 ID:AR+WC9yM(1/2) AAS
今更だが >>343 はセキュリティの設定だけで回避できるんじゃ?
そもそもその「コンテンツを・・」が出ないようにすることのほうが重要なんでは?
354: 2015/08/02(日)22:38 ID:ZRhH79SV(2/2) AAS
>>353
それはアプリケーション側ではなんとも出来ないので
355(1): 2015/08/02(日)23:04 ID:AR+WC9yM(2/2) AAS
は? Access2010利用って書いてあるだろ? たとえそれがRuntimeだとしても
ロケーションを信頼するとかで可能だろ? 不特定多数に配布するケースでも
インストーラを調整することで「なんとも出来ない」は回避するものだろ?
毎回「コンテンツを・・」を表示させるほうがどうかしてるぞ? そんなの誰が信用してくれるんだ?
356(1): 2015/08/03(月)11:17 ID:2bNGPX4C(1) AAS
あれ?コンテンツ〜の話って
「プライベート ネットワーク上にある信頼できる場所を許可する] チェック ボックスをオンにして回避するって話ですか?
2010だと↑をオンにしてないと変な場所では最適化も出来なかったような
357: 2015/08/03(月)13:29 ID:cMN9HbGV(1/2) AAS
>>355
アプリケーションが自分自身の信頼性を操作するのか
そんなアプリこそ信用できんわ
>>356
べつにネットワーク上に限った話ではないと思うが
358(1): 2015/08/03(月)16:54 ID:CU261QGz(1/2) AAS
を? MSが推奨してんのに信用できねえ てか Accessは使ってやるけどMSの言うことは聞く耳持たねてか 偏ってるな
359: 2015/08/03(月)19:02 ID:cMN9HbGV(2/2) AAS
>>358
MSが何を推奨してるのかしらんが
アプリケーションの意味が通じてないのかね
アプリケーションを.ACCDB(.MDBでも.ACCDEでも良いけど)に置き換えて考えてみ
360: 2015/08/03(月)20:41 ID:CU261QGz(2/2) AAS
その域じゃ無いことが判ったからいいよw その域じゃない奴に諭される謂れわ無いわw
いくつかのキー・ワードで「あぁ、あのことか」って気付けないならこれ以上は時間の無駄 おまえの言うとおりでいいよw
そもそもここはAccessの板だし、おれはAccessの話をしてるんだ アプリケーションのアの字も使って無ぇw
よしんばAccessで作られた業務パッケージをアプリと呼びたいなら呼べばいいが、その業務アプリを動作させるうえで
発生するセキュアに関するメッセージはAccessの基本機能で回避できる って云ってるんだ
それを「信用できねえ」っつーんなら使わなくていいんじゃね? 世の中にはごまんと同様の機能を備えたアプリケーションが存在するだろ
Accessに拘る理由なんざこれっぱかしも無ぇだろ 俺の文章のどれがおまえの琴線に触れたか知ったこっちゃ無いが 「ごめんな」
361: 2015/08/03(月)21:08 ID:Mp/3eH1E(1) AAS
逆鱗(ぎゃくりん)
362: 2015/08/03(月)22:23 ID:C0QRYaFQ(1) AAS
runtime 2010(2013も同じ)の起動時のセキュリティ警告を出ないようにする
外部リンク[htm]:www.mkkobo.com
363(1): 2015/08/04(火)03:50 ID:Kz/6+HRH(1) AAS
>>343で質問した者です
細かい利用環境等を書いてなかった事で迷惑をかけました
ごめんなさい
会社独自で開発したと思われる共有サーバシステム上に、accdbを置いて利用者は「読み取り専用」で利用します。(accdeは共有サーバ上では起動できません。)
なので、Access内で設定出来るオプション以外は全く自由がきかず、共有サーバ上でaccdbを開くと必ず「コンテンツを有効化にする」ボタンが表示されてしまうのです
今回の問題自体は、FormLoad関数をExcelで言うAutoOpen代わりに使う事で解決出来たと思っています
しかしAccessって、Web上で資料を探すにしても、資料が豊富なExeclVBAに比べてAccessVBAは資料が少なく、更にバージョンによって仕様が大きく変わるので大変ですね
省2
364: 2015/08/04(火)04:09 ID:JacjvlNa(1) AAS
>>363
ファイル共有のプロトコルとかによって制約あるかもしれんが
共有フォルダを信頼できる場所に追加する事は可能だぞ
ただ信頼されてないaccdb(のVBA)から、信頼できる場所を設定とか出来ないし
そんなことができたら信頼できる場所の意味がないからな
365(2): 2015/08/05(水)15:51 ID:dmHYZv4f(1) AAS
利用環境:Access2010、Win7
現在、国内の物件情報をテーブルに入力して、出力フォームで参照出来るようにしています
テーブルのフィールドは「物件No(主キー)」「物件名」「県」「市」「区」「町」「番地」「物件情報」です
新しいレコードが増えた場合は、入力フォームから、データを入力出来るようにしようと思っています
ここでお聞きしたいのは、入力フォームで新しいレコードを登録しようとした際の「重複チェックの方法」です
物件名は、入手先の情報や、入力者の考えによって
様々な表記ゆれが生じます(例:2棟 二棟 ?棟 ?棟)
省8
366: 2015/08/05(水)16:57 ID:Bc8ICzH9(1) AAS
>>365
挙げられてますが、半角数字のみなど番地の入力制限は必須でしょうね
物件名のフリガナで番地違いもチェックされるみたいですし
十分スマートだと思いますよ
自分だったら番地まで一致した時にアラート出しますね
残りは住所or物件名でソートした物件リストに丸投げしちゃいます
367: 2015/08/05(水)17:07 ID:URaglvwf(1) AAS
>>365
月1くらいで住所は同じ、物件名が違うの重複チェックを動かしてリストに出すような運用にするとか。
難しいことをら考えずに済む。
368: 2015/08/05(水)17:23 ID:ndgPjsPh(1) AAS
なんで郵便番号のフィールドがないのか不思議
369(1): 2015/08/05(水)22:00 ID:VP6wM0Pb(1) AAS
時代はすでに二十一世紀なんだよ いまさらフリガナでもあるまい
フィールドひとつ追加 lat,lng 緯度・経度 43.386338,144.008751 下六桁あたりで固定すれば
間違いようも無いだろ 不動産業界に身を置きながらなんでそんなことにも気付かない
マップアプリに上の数字コピペしてみりゃ、世界中の誰だって間違いようも無い
なに? じゃあ緯度・経度どうやって調べるだと? そのぐらいじぶんで調べろ 長押しするだけだ
まぁ、ゆえに危険が危ないがな 便利って物はとてつもなく不便なものにも等しいんだ 覚悟して使え
雌阿寒岳山頂が出るはずなんですけど、違う位置を示すマップアプリ有ったら教えてください 使用禁止にしますので
370: 2015/08/05(水)22:40 ID:yfcMdSNW(1) AAS
まあ、ACCESSもVBAも全く関係ない話なんだが
最終的には人間が検査しないとどうしようもないんだろうなと思う
市区町村番地あたりまではルール決めて、そこまで一致なら警告でいいんじゃね
371: 2015/08/06(木)01:30 ID:f5x8JVe4(1) AAS
すみません、郵便番号のフィールドもあります。入力し忘れていました
・1.レコード入力時に、住所関連のフィールドを利用して重複チェックを行い、ヒットした場合は警告を出す
・2.定期的にテーブル内のレコードの重複チェックをする
・3.物件の座標を利用して重複チェックをする
上記3つの案をいただいたと思いますので
1と2を組み合わせて運用したいと考えます
3の案>>369は、完全に自身の頭に無かったアイデアなので驚きました
省3
372: 2015/08/06(木)09:14 ID:/XuT1ECN(1) AAS
警告出すとかVB脳的にダサいから
郵便番号入力してヒットしたらリストボックスに表示させて
番地を半角か全角縛りにしてヒットしたらリストボックスに表示させる
リストボックスが件数ゼロなら新規入力ボタンをイナーブル
あぁ俺それ作りたい
373: 2015/08/07(金)12:16 ID:TsVm0Bt4(1) AAS
人名・地名、固有名詞系はなあ 特殊と考えたほうが無難だからな 例えば・・
吾妻 という人名のふりがなを ある人は「あづま」と入れ別の人は「あずま」と入れてしまったり
じつは「あがつま」と読みます だったり
3-11-22 という地番を三丁目11番22号 三丁目11-22だの、 宛名印刷に合わせて三丁目十一番二十二号としていたり・・
それが結構な確率で頻出するのだからやっかい
それらを一律の規律で縛るのはあまりクレバーとは言えない時代になってるような
鱸 が読めないゆとりのためには「ふりがな」が必要 ってのなら意義あるだろうけど まあ、おれだけど
374(1): 2015/08/11(火)19:16 ID:FwE103qy(1) AAS
フォームでFilter関数使おうと思ったら
IntelliSenseが効かなくて
無理に使おうとしてもエラーで使えず
???と思ったら
Filterプロパティとバッティングしてた。
VBA.Filterで解決したんだけど
プロパティの値ってオブジェクト変数無しでもアクセスできるのな。
375: 2015/08/11(火)23:34 ID:AWvgSxoB(1) AAS
>>374
フォームモジュールでそのフォームのプロパティならな
376(2): 2015/08/12(水)14:59 ID:G2C7HV6B(1/2) AAS
皆様、すみません
フォームAに入力されているテキストボックスAの値(数値)を、
フォームB(データ登録用)を開いた際に自動的にテキストボックスBに入力させないのですが、どうしてもわかりません
openform 〜 , , , , acformadd で記述しています
教えていただけないでしょうか
377(1): 2015/08/12(水)15:32 ID:Q+lcejU0(1) AAS
>>376
自動入力「させない」になってますが「させたい」って事ですよね?
Form_Load もしくは Form_Open イベントに
Me.テキストボックスB.Value = [Forms]![フォームB]![テキストボックスA].Value
もしくは >>319 みたいに
Me.テキストボックスB.Value = Forms("フォームB").Controls("テキストボックスA").Value
Load、Openどちらでも動くと思いますが、適した方を使ってください
省1
378: 2015/08/12(水)16:26 ID:G2C7HV6B(2/2) AAS
>>377
あっさりとできました
ありがとうございました
たしかにformのイベントでやるべきでしたね、思い付かなかったです
勉強になりました
379: 2015/08/12(水)18:38 ID:6lFy7xXj(1) AAS
>>376
単純に
DoCmd.OpenForm "フォームB", , , , acFormAdd
Forms!フォームB!テキストボックスB.Value = Forms!フォームA!テキストボックスA.Value
で出来ると思うけど?
380(1): 2015/08/17(月)21:45 ID:7VERYxcQ(1) AAS
今使っているACCESSデータをPC3台で共有しようと思っています。
その場合、テーブルをサーバーPcに、フォームとクエリをクライアントPCに入れて使うと良いとのことでした。
ただいま、フォームを非連結にして、ADOでの追加や更新ができるように変更中です。
質問ですが、
すべてのフォームを非連結にするべきなのでしょうか?
データの追加更新のない、閲覧専用のフォームをネットワークトラフィックを考えて変更すべきでしょうか?
また、分割したテーブルのあるACCESSデータをNASに入れようかとも思っているのですが、PCの場合と動作に違いはでますか?(ここは単にスペックの問題でしょうか?)
省1
381(1): 2015/08/18(火)01:04 ID:l45kMI9F(1) AAS
テーブルを外部からリンクすれば連結でいける
382(2): 2015/08/18(火)06:18 ID:KaSAZPht(1) AAS
>>380
テーブルだけのファイルをネット上の共有フォルダに置いて、それのリンクテーブルとその他のオブジェクトが入ったファイルを配布して使うだけ。
フォームの作り直しはしなくて良いと思います。
383: 2015/08/18(火)19:55 ID:LTr8/sln(1) AAS
>>381
>>382
ありがとうございます
今まで作ったフォームをすべて非連結にするのは難しそうなので追加更新するフォームだけにしようと思います。
384(1): 2015/09/02(水)22:58 ID:U41rngxq(1) AAS
>>382
その他のオブジェクトの入ったファイルは複数人で開いても問題ないのでしょうか?
385: 2015/09/03(木)12:17 ID:TMANfQ/W(1) AAS
>>384
オブジェクトだけのファイルは各パソコンにコピーして使うの。
386(3): 2015/09/09(水)20:14 ID:k4ZkuMcU(1) AAS
二次元配列からレコードにデータを入れる方法は
With Rcd
.AddNew
For i = 0 to 99
.Fields(i).Value = x(0,i)
Next
.Update
省8
387: 2015/09/10(木)04:22 ID:t/YL/t1I(1) AAS
>>386
>地道な方法しかないんでしょうか?
地道に見えるんですね・・・。
DoCmd.TransferSpreadSheet
で、ググると
外部リンク[aspx]:msdn.microsoft.com
なるページが出てきまして、そこに・・・
省2
388(1): 2015/09/11(金)00:19 ID:8grThG6x(1) AAS
>>386
SQL は長くなるけどパフォーマンス気にしてるなら INSERT VALUES 試してみれば?
多少は早くなるかもよ
389(1): 386 2015/09/11(金)19:59 ID:pqg3O3xw(1) AAS
>>388
SQLがなんとか分かってきたので、今度やってみたいと思います。
ありがとうございました。
390: 2015/09/11(金)21:45 ID:HscreZA4(1) AAS
>>389
TransferSpreadSheetsもう少しがんばれ。
簡単で早いと思うよ。
387さんも言ってるけどEXCEL開く必要は無い。何ならEXCELがインストールされて無くてもインポートやリンクが可能なはず。
391(4): 2015/09/27(日)15:21 ID:Az8/vHuw(1/3) AAS
質問させてください。
コマンドボタンをクリックしたら、フォーム上の任意の位置にコンボボックスを新規作成させたいんですが、こんな事出来ますか?
392(1): 2015/09/27(日)15:37 ID:nsZcbsgt(1/2) AAS
似たようなことしたかったときはメニューで代用したな
393: 2015/09/27(日)15:41 ID:Az8/vHuw(2/3) AAS
>>392
詳しく
394(1): 2015/09/27(日)15:41 ID:nsZcbsgt(2/2) AAS
右クリックでコンテキストのpopupメニューだったかな
395: 2015/09/27(日)15:55 ID:Az8/vHuw(3/3) AAS
>>394
ありがとう
けど、求めてる者と違う感じです…
396: 2015/09/27(日)15:59 ID:uZJD7NWm(1/3) AAS
ACCESSでフォームに直接新規で追加するのは難しい
非表示にしといてボタンクリックで表示させればいいんじゃないか
397: 2015/09/27(日)18:24 ID:sF3uHAKT(1/3) AAS
やぱ難しいですか…
必要に応じて、数に上限定めずコンボボックスを増やしたいので、表示/非表示の方法は望ましくないんです…
仮に無理なら…
質問を変えて、1フォーム中にコンボボックスはいくつまで設置出来ますか?
↑ググれば出そうですが、ついで質問ですいません。
398: 2015/09/27(日)19:09 ID:nTKThYNU(1) AAS
好きなだけ作ったらええねん
399: 2015/09/27(日)19:18 ID:sF3uHAKT(2/3) AAS
むむぅ…
違う方法を模索してみます。
400(2): 2015/09/27(日)19:30 ID:uZJD7NWm(2/3) AAS
じゃあフォームかサブフォームで帳票フォームにして詳細セクションにコンボ配置すればいいんじゃね
それ以外で不定数のコンボ欲しいとか言うなら設計がおかしすぎる
401: 2015/09/27(日)21:13 ID:sF3uHAKT(3/3) AAS
帳票フォームにコンボボックス設置したら、そこで変更した内容が全部のコンボボックスに反映されるじゃん?それは困る
402: 2015/09/27(日)22:14 ID:uZJD7NWm(3/3) AAS
ちょっと言ってる意味が分からない
あるレコードのコンボボックスの値が、他のレコードの値に影響すると?
403: 2015/09/27(日)23:58 ID:Wa2IEO89(1) AAS
最初の構想としては
データが存在するフィールドにコンボボックスを表示させて、それぞれに別々のデータを入れて、新しいテーブルを生成したかった。
説明下手ですいません。
404: 2015/09/28(月)10:36 ID:0RjOK4Zp(1) AAS
設計がおかしい
もしくは
Accessを使うべきではない
405(1): 391 2015/09/28(月)10:50 ID:08kJukTg(1) AAS
設計し直します
406: 2015/09/28(月)11:18 ID:65OblfGI(1/2) AAS
>>405
最終的な目的というか、なにをするためにこういった機能が欲しいのか
わからない。
>データが存在するフィールドにコンボボックスを表示させて、
ここまでは何となくわかる。
フィールドのルックアップをコンボボックスにすることはできる。
ただ、あるフィールドをこのレコードはテキストボックス、
省5
407(1): 391 2015/09/28(月)20:06 ID:cvdri0js(1) AAS
ホント説明下手で申し訳ない
写真を付けてみた
・作業用テーブルAで帳票フォーム作る
・(出来ない所その1)フィールド上にデータがあるレコードにだけコンボボックスを表示させたい。
・(出来ない所その2)コンボボックスにデータを入力すると、他レコードにも同内容が入力される。←違うデータを入れたい
画像リンク[jpg]:i.imgur.com
画像リンク[jpg]:i.imgur.com
408: 2015/09/28(月)21:48 ID:hW3kfusx(1) AAS
両方無理だね。
409: 2015/09/28(月)21:53 ID:65OblfGI(2/2) AAS
>>407
いろいろ試したけど、コンボボックスのvisibleのプロパティを
帳票フォームの詳細のpaintイベントで操作できないので無理かなと。
背景色は変えられるみたいだから、コンボボックス全部並べて
背景色で区別できるようにするくらいしかできないかも。
書かれている通りの物が欲しいのであれば、.Netで作るしかないかなぁと。
410: 391 2015/09/28(月)22:16 ID:XnIORDmB(1) AAS
やぱ無理ですよね
諦めて違う方法を考えます
411: 2015/09/29(火)03:32 ID:FcuCREbJ(1/2) AAS
コンボボックスには何を表示/入力させたいんだ?
すくなくとも その2 はできるはずだと思うが
412: 2015/09/29(火)03:32 ID:FcuCREbJ(2/2) AAS
コンボボックスには何を表示/入力させたいんだ?
すくなくとも その2 はできるはずだと思うが
413: 2015/09/29(火)12:52 ID:12O/9Fge(1) AAS
ひとつのフォームにひとつのコンボボックスのフォームをフィールド分作って
OpenしたりCloseしたりすればいいんじゃない?
フォームの表示位置は指定できるんだし、作り込めばカッコよくなりそう(俺はやらないけど)
414: 2015/10/07(水)12:00 ID:qdqRCjiZ(1) AAS
受ける会社大丈夫?
下記の条件が全て当てはまる会社にご注意下さい。
・IT系 in tokyo
・「社名 労基」でググると過去の2chスレが出てくる
・転職会議で2.5点
415(1): 391 2015/10/09(金)20:00 ID:7kbTW2jS(1) AAS
結構前に質問した者だけど
設計変更して、無事にアプリが完成しました
色々アドバイスくれた人サンキューでした
416: 2015/10/10(土)08:45 ID:7MsZxkaP(1) AAS
>>415
わからんけど、良かったね
417: 2015/10/10(土)12:55 ID:/egW/Cb1(1) AAS
事後報告なんて珍しい
418: 2015/10/11(日)15:34 ID:hlB+t7r4(1/2) AAS
質問です
現在Accessでチェックシートを作成しています。
内容は以下の通りです。
・目的:接客の際の必須項目の聞き取り漏れ、説明漏れを防ぐ
・仕様の概要:必須項目の各チェックボックスにチェックが入っていなければ各チェックボックスの背景を赤塗り
チェックが入っていれば緑塗り
注意が必要な組み合わせにチェックをした際に警告メッセージを出す等の、相関チェックを導入
省15
419(1): 2015/10/11(日)15:52 ID:K+nxBSBI(1/3) AAS
条件付き書式って機能があるけど、2007で試したら、チェックボックスには適用できないっぽいな
>別のレコードに移動するとチェックボックスの色が
>画面遷移前のレコードの色のままになってしまいます
今どうやってやってるんだ?
420(1): 2015/10/11(日)18:00 ID:hlB+t7r4(2/2) AAS
>>419
今は下記のようにコントロールの背景色を変えています
Checkboxの初期背景色はコントロールのプロパティで赤を選択しています
private sub Checkbox1_Click()
If Checkbox.Value = True then
Checkbox1.Backcolor = 緑
Else
省3
421(2): 2015/10/11(日)20:33 ID:K+nxBSBI(2/3) AAS
>>420
基本的には同じ事をレコード移動時にやるだけだな
ところで2007のCheckboxにはBackcolorとか無いっぽいけど、2010じゃあるのか
422: 2015/10/11(日)20:57 ID:0pbjHxf6(1) AAS
>>421
でもこれだとレコード移動時に、反映されないんですよね
1.リアルタイムで色を変えるコード
2.レコード移動時に色を変えるコード
2倍のコーディングが必要になる点がスマートじゃないと思ってます
今更ですが「全相関チェック(警告メッセージ含む) & 全チェックボックスの色変更」の
判定を行うサブルーチンを1つ作り、
省9
423: 2015/10/11(日)21:10 ID:h/UXEdKw(1/2) AAS
>>421
条件付き書式はダメなのかと思い、一応調べてみたら下記サイトにあるように利用出来るかもしれません
条件付き書式で実装した方が
メンテナンス性も上がるので、一旦条件付き書式でやってみようと思います
外部リンク[html]:hamachan.info
外部リンク:m.chiebukuro.yahoo.co.jp
Excelでは、条件付き書式を多用していたんですが、
省2
424(1): 2015/10/11(日)21:20 ID:K+nxBSBI(3/3) AAS
入力不可能なテキストボックスをチェックボックスの下に配置して条件付き書式設定とか
まあ、やりようはあるんだが
条件付き書式は、コード見てもプロパティ見てもその設定が分からんからなぁ
個人的には好きではない
425: 2015/10/11(日)22:42 ID:h/UXEdKw(2/2) AAS
>>424
仰る通り確かに、他者の事を考えると
条件付き書式だらけになってしまうってのも考える物ですね…
悩ましいです
426(1): 2015/10/11(日)23:16 ID:OogdFVxU(1) AAS
男のくせに「悩ましい」とか使う奴の言動は一切信用しないことにしている
これっぱかしもだ 微塵もだ 毛一厘もだ うじゃじゃけてるヒマあったら答え出せ
できるのか? できないのか? できないなら去れ できるなら結果出せ 以上
427: 2015/10/12(月)00:54 ID:7l73laAr(1) AAS
>>426
>男のくせに
単純に疑問です。何を根拠にして男と判断したのでしょうか?
428(1): 2015/10/13(火)21:07 ID:iGPs38vk(1) AAS
VBAじゃないんだが助けてくれ〜。Access を複数人で使用する時について質問させて下さい。
テストのために、Access(2010)でこういう簡単なシステムを作りました。
バックエンド 2フィールド/レコードが数レコードだけあるテーブルが1つ
フロントエンド リンクテーブルと、そのテーブルの全フィールドを表示するクエリ
(クエリのレコードロックプロパティ:編集済みレコード)
※ 全 accdb ファイルについて、オプションから
「共有モード」「編集済みレコード」レコードレベルでロックして開く」を指定済み
省7
429: 2015/10/13(火)22:09 ID:v0mnZW8d(1) AAS
>>428
それがわからないなら、諦めろ。
外注に出そうな。
430: 2015/10/14(水)02:52 ID:EFTour7u(1) AAS
良くわからないきっかけとやらを特定する
エスパーを探す
お好きな方で
431: 2015/10/14(水)06:55 ID:fbrLImlI(1) AAS
428ですが先輩の皆様非常に手厳しいですね
何とか自分で特定できました おじゃましました
432: 2015/10/14(水)11:31 ID:EGTHNy+H(1) AAS
自分で解決できるなら質問しないでください
うざいだけです
上下前次1-新書関写板覧索設栞歴
あと 570 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.024s