ShowMeHow の回答履歴

Excelからマクロを用いてAccessファイルからデータを拾おうとしています。 方法は、Access内のテーブルを参照して検索対象の値１がフィールド内にあれば、その行の値２を抽出してくるといったものです。 検索対象の数は可変です。 そこでコードを書いてみたところ 抽出件数が2件以上なら正常に動作するのですが 1件、0件だと動作せず、フリーズしてしまいます。 何が原因で、どう書き直せばよいのでしょうか？ 以下、コードです。 Private Sub OKButton_Click() '選択し、OKボタンを押した時 Dim p As Long Dim cnt As Long Range(Cells(45, 4), Cells(114, 6)).ClearContents 'D45～E115のセルを削除（二回目使用時にデータが残ってる為） cnt = ListView1.ListItems.Count '今まで選択してリストビューに追加された対象数を出し、変数へ。 For p = 1 To cnt Cells(44 + p, 4).Value = ListView1.ListItems.Item(p) Cells(44 + p, 5).Value = ListView1.ListItems.Item(p).SubItems(1) Cells(44 + p, 6).Value = ListView1.ListItems.Item(p).SubItems(2) Next p 'リストビューに追加された対象を、D45～E115に書き込み Dim Sql As String Dim i As Long Dim j As Long Dim k As Long Dim m As Long Dim n As Long Call DBconnect(True) Sql = _ "select Ａコード,Ｂコード " & _ "from テーブル" '--- adoRsにSELECT文を入れ、絞り込む adoRs.Open Sql, adoCn, adOpenKeyset ' --- j：選択した対象の数を取得　k：Access内の選択した対象のデータ数を取得 n：列数 j = Worksheets("選択").Range("F45").End(xlDown).Row k = adoRs.Fields.Count n = 1 '--- Aコードが一致する行を選択シートの下部分へ書き込み。 ' --- 45 to jの45は、選択シートの選択した対象をセルに出力した場所が45行目の為。 ' --- cell(j+n,6)は、選択対象数を起点にBコード（値2）一つ毎に数を足していく、6はF列 Do Until adoRs.EOF For i = 45 To j If Worksheets("選択").Cells(i, 6).Value = adoRs!Aコード Then For m = 1 To k Worksheets("選択").Cells(j + n, 6) = adoRs.Fields!Bコード Next m n = n + 1 End If Next i adoRs.MoveNext Loop '後始末 adoRs.Close: Set adoRs = Nothing adoCn.Close: Set adoCn = Nothing

中学生の女子です。 学校上、髪を染めてはいけないという校則があります。 でも、さらさらの髪のまま、少し、茶色めにしたいのです。 で、調べたら、コーラに髪をつけると逢ったのですが、どうでしょう・・・。 少し、下品に思えてきてしまうんですけど、私だけでしょうか・・・・。 これ以外に、いい方法があったら、教えてください！ ちなみに、プールには通い始めたばかりです。 できるのであれば、知っている事全部お願いします。

マンション９階の開放廊下（共用部分）から何気なく隣家の庭や窓など（50ｍ以上離れている）を見ていることはプライバシーの侵害になるのでしょうか。またこれを防止するために目隠しをつけさせることはできるでしょうか。以上よろしくお願いいたします。

クリスマスツリーの ACアダプターが壊れまして 買い替えを検討しております。 市販のものなら、どんな商品が使えるのか どなたか教えてください！！！

「テレビの上に果物を置いておくと、温度その他の条件を同じくする他の場所に置くのに比べて早く熟れる。メカニズムは知らないが」と、ラジオ番組で聞いたことがあります。そんなバカな、と思いましたが、何やら気になります。本当ですか？　本当なら、何が作用しているんでしょう？ よろしくお願いします。

近々、夫が出張に行きます。 そのときに合わせ、最近やっと つわりが治まってきたので年末年始の前に一度実家に帰ろうと思い、チケットを購入しました。 しかし、日程が近づくにつれ、 不安になってきました。 自宅から実家までは、電車2時間、飛行機2時間、また電車2時間の長旅です。 主治医にも腹痛や出血がなければ行っても良いと言われていますが、まだ安定期には入っていない14週での長旅で、心配です…。 飛行機の気圧や振動が胎児の奇形等に影響を及ぼしたりはするのでしょうか？

5歳になる娘の名前で相談です。 「明里」（あかり） という名前ですが、最近お知り合いになった方に『新撰組の遊女の名前であり、名前に相応しくない』と言われました。 恥ずかしながら新撰組には詳しくありませんが、その後調べて確かに同じ漢字であることは確認しました。 しかし、読みも異なりますし、名前にはきちんと意味がありつけました。 しかし、かなり酷い言われ方をしましたので、今後娘が嫌な目に遭うのでは…と不安に感じております。 実際、どの程度の方が新撰組の遊女を連想されるのかご意見伺えませんでしょうか。 ちなみに、私の周りでは友人知人含め同じ指摘はありませんでしたが、配慮もあるのかもしれません。 どうぞよろしくお願いいたします。

今年の夏にも質問させていただきましたが、彼氏(4歳半の男児)のクリスマスプレゼントです 私と母ちゃんはふなっしーがお気に入りなんですが、保育園では妖怪ウォッチがめっちゃ流行ってるんですってね そこで、アマゾンをチラ見したのですが、グッズがありすぎてわかりません それとなくガサ入れしていますが、どんなのが売れ筋なんでしょうか？ ひとことアドバイスお願いします[おじぎ]

高熱が出るのは、薬飲めばすぐ下がるですか？

あまりの安さにつられて デスクトップパソコン　エイサー AXC X AD12 ２４８００円を買ってしまいました。 私が今使っているパソコンの CPUは２．２０GHZ メモリ　３GB ウィンドウズ７です。 重いと感じるのはスカイプ、ミクシー ユーチューブです。 今度のエイサーも今のと 同じくらいならばよいのですが あまりに安いので、失敗したかなあ と思っています。現物は来月初めに届きます。 いかがでしょうか。

主人が追突事故にあいまして通院中です。 会社員なのですが仕事の都合上お休みできないので、仕事が終わった後に病院に通っています。このような場合、損害保証金は相手の保険会社からでないのでしょうか？

中3です。 明日二学期の成績が決まる大事なテストがあります。 それなのに全然勉強しません。できません。 やらなきゃいけないのは十分分かっています。 なのにやる気がでないし、やったとしても集中できません。またいい勉強のやり方もわかりません。 それに、内申も26でテストも50点ほどで高校合格できるか心配です。 私の目指している高校は偏差値も低く先輩も27あれば受かるよ、30あれば余裕と言っていました。(内申重視の学校です) 当日点も50くらいあればいいそうです。ですが私は推薦を狙っています。 その成績で？と思う人がほとんどだと思いますがそこの高校にしか行く気がありません！ 行きたいなら推薦もらえるように勉強やればいいと思うと思いますが、上に書いた通りです。 本当にそこの高校に行きたいです。推薦も可能な限り欲しいです。 こんな私でも推薦もらえる可能性はあると思いますか？ またいい勉強のやり方、集中できる方法、やる気の出し方を教えてください。お願いします。 馬鹿だなとかそういう回答はやめてください。わかっています

　英検1級、ガイド免許取得しました。留学することなど、自分には夢のまた夢で、これまで独学でコツコツと勉強してきました。周囲の人はすごいとほめてくれますが、自分としては乗り越えることができない壁を感じて落ち込むこともよくあります。 　留学できる人に負けたくありません。映画の英語が理解できるようになることが目標ですが、苦　 労しています。 　リスニングの問題ばかりではありません。英語字幕を読んでも理解できないこともあります。　そんな時は自信が砕け、やはり留学しないとだめなのかと気力を失います。 　どなたか留学経験がないのに、映画の英語を理解できるまで実力を身につけた方、アドバイスを　 ださい。

There is no reason why we should have to wait. という文がありました。should must とはできないので、should have to としてあるのでしょうが、そもそも、should も have to も同じような意味なので、should wait か have to wait でいいのではないでしょうか？　should have to wait としたら何が違うのですか？

通常、体外に出た血液は時間が経つと固まる（かさぶたになる）と思うのですが 血液パックの場合は、パックにあらかじめ血液が固まらない様にする薬をいれてあるため 固まらないと読みました。 http://detail.chiebukuro.yahoo.co.jp/qa/question … 一応、こちらのURLを参考にしたのですが、 血液パックに入っている血液は、パックを開封して中の血液を空気に触れさせたとしても 数日間は固まらないで液状のままなのでしょうか？ また、血液パックから体内に血液を入れると、 後で怪我をした等で体外に血液が出た場合は ちゃんと固まる（かさぶたができる）のは何故ですか？ 元からある体内の血液と混ざって、凝固作用が勝るからでしょうか？ 宜しくお願いします。

モーメンタリ動作のスイッチをオルタネイト動作スイッチにする回路の情報を教えてください。 オルタネイト動作の小型のスイッチ（6mm×6mm程度）はなかなか　探しても無いです。 モーメンタリ動作のスイッチの上記サイズで薄型（小型）のスイッチは世の中にたくさんあるようですので、そのようなことができたらなぁと考えております。 当方、あまり電子回路に詳しくありませんので、もし、ご存知でしたらお教え頂ければと思います。別に当該サイズのオルタネイト動作のスイッチが購入できる情報がありましたら重ねて情報を頂ければと思います。 宜しくお願い致します。

お世話になっております。 私はインターネット専門の小売企業で社内SEを 担当しております。 6年前に導入した受注システムのリプレイスを検討 しております。 このシステムは受注処理だけでなく、仕入先への発注、 在庫管理、商品マスタ登録、そして各種分析データの出力 など弊社の基幹業務というべき機能を担っているシステムです。 クライアントサーバー型のシステムです。 このシステムが6年経ち現在の我が社の業務運用にそぐわなくなって きていることや、完全なスクラッチ開発のシステムなので、カスタマイズ に結構な費用がかかることが、リプレイスの主な理由です。 現在、同じようなシステムを提供しているベンダー様数社からお話をお聞きした段階です。 ご質問したいこととしては、このようなシステムのリプレイスというのは、どのような流れ で進めていったらよろしいのでしょうか？ 私も新しいシステムを導入することが始めてですので、どのようなことから進めていったらよいのか、 手探りの状態で、導入を決定する際は何を判断基準とするのかわからない状態です。 このようなシステムリプレイスのご経験のある方など、何かよいアドバイスをいただけますと助かります。 また、参考になるサイトを教えていただけるのでもかまいません。 どうぞよろしくお願いいたします。

今度、私の家の隣の土地の所有者の方が変わり、建物が建つようになりました。 工事にあたり、新築の家の上空に通信線が横断しており支障となるのでうちの家の 壁に這わして欲しいと言われてます。 今度、業者さんから説明を聞くようにはしているのですが、こういう事ってあることなんですかね？ 這わすとしても壁に穴を開けたり、金具等を付けないといけないだろうし・・・ うちが建て替えとかになるとまたまた移設出てくるだろうし。 嫌ですって言えばそれまででしょうけど。 一般的にはこういう時はどうされてるんでしょうか？ 基本的には、配線OKで話をするつもりです。 また、うちの壁に這わせるとした場合、いくらかのお金が出て契約的な事をするのでしょうか？ よろしくお願いします。

平均年齢５５才のテニス仲間でたまに、バスケットボールをやろうということになりました。 男女混合１チーム４名で、普通のルールでは体力がもたないので、たまにＴＶでやるような コート半面のみで、攻守交代で試合をするのに、何か良い方法がありましたら、教えて下さい 時間は４チーム総当たりで１試合８分位（全６試合） また、前記に限らず、趣旨に合う、良い方法があれば、教えて下さい 宜しくお願い致します。

クラミジア治療について教えてください。 先日婦人科へ行き、性行為後の不正出血やおりものの 鼻につくような臭いがする旨を伝え、性病の検査をしてもらいました。 まずは子宮頸がんの検診も受けた方がいいと言われましたが 今回は受けず、来年無料クーポンが来るのでそれまで 待とうと思います。 そして性病の検査はクラミジアが陽性、淋病・カンジダ等は 陰性とのことでした。 処方されたお薬は クロマイ膣錠 6日分 クラリスロマイシン 14日分 クラミジアを治すには6週間薬を飲み続けなければならない と伝えられたのですが、インターネットで検索しても 多くて7日から14日と書いてあり、少し不満に思います。 正直なところ、お金もかかるし通院する時間もあまり取れないので 2週間で結果が分かるのなら再度検査をしてほしいです… 他の婦人科にも行くべきか、2週間後に保健所で 検査だけでもしてもらおうか悩んでいます。 保健所に行く際は、念のためエイズの検査もしてもらおう と思っています。 やはり医師の言うとおり6週間の治療が妥当なのでしょうか？