ファイナルアンラッキー

連発で届く価格そこそこの粗悪品を扱う楽天市場のショップ達 コロナの影響は関係ないと思うけれど 楽天市場で商品買ってから、あ～AmazonとYahooだったら、同じ商品がもっと安く買えてたのか～...なんて事はよくあったのだけれども。 最近は楽天市場ががんばっている気がして、Amazonの方が安いのだけれども楽天市場で商品を買ってみた。 そしたら、最悪だ。 USBケーブルは、思いっきり強く挿さないと反応しないし、直ぐに反応なくなるし...そんな事繰り返していたら機器の方が故障するし。 そして、もう一つ他の店舗で買ったゲームコントローラー... 価格は2,280円で、はっきり言って、リアル店舗できちんとしたメーカー物買った方が安いけれど、何となくコロナで密集店舗に行きたくなかったから楽天ポイントも貯まると思って買ってみた。 ゲームコントローラーも...終わってる... 買って数日しかたっていないけれど、全く認識しなくなった。。　しかも、ケーブル挿してる感触も無いし、挿し口が中に入り込んだ？ とにかく、踏んだり蹴ったりだ。 USBケーブルのTypeCなんかは、恵美須町で200円で買えるし品質も良いのだけども、楽天ショップで買ったものは高いし、不良品だし。。。 とりあえず、USBケーブルは不良品という事で店舗へ交換希望して、商品送ってもらえることになった。 ゲームコントローラーを購入した店舗は、なんか、交換が出来ない商品とか意味不明で、注文キャンセルってなった。 えっ...保証期間中での対応とかないの？？　不気味すぎる。。。( ﾉД`)ｼｸｼｸ… AmazonだとElecom製だし、価格が500円以上も安いし 、送料も無料だし。。 改めて、昨今あった、楽天市場の送料無料化問題は、送料の問題では無くて、店舗品質の問題だとおもった。 ネットショッピングで時間短縮どころか、倍時間かかってしまうなんて。。。残念過ぎるよ楽天市場

何このセリフ。かっこよすぎるんだけれども。 「人生は失うものを増やしていくゲームだ。“俺には失うものがねえ”って言う人いるけど、それじゃダメなんだよ。失うものが増えていった方が頑張ってきた証だから」 【矢沢永吉 食うために有料配信】 https://t.co/mCDSNHDDLO 矢沢永吉が、未発売の伝説的なライブ映像3本を初めて有料配信する。コロナ禍で音楽活動ができない状況が続き「俺だって食わなきゃいけない。社員食わせなきゃいけないんだ」。春のツアーは全公演中止になっていた。 — Yahoo!ニュース (@YahooNewsTopics) June 17, 2020 70歳か.... お互い歳をとったなァ...　(;´∀｀)　全然年齢違うでしょ? 矢沢永吉は、テレビを持っていた子供の頃から見ていたけれど、全く興味が無かった　(￣▽￣;)ｵｲｵｲ でも、たまたま見たYahooニュースで、何となく読んで、カッケーって思った。 70歳でこんなセリフ出る？ オイラ～世代はバブルを経験していないから、まるで価値観が違うから全く興味なかったのだけれども、バブル世代には受けるんだろうなぁ。

今年は学校のプール授業は中止が濃厚 学校のプール授業が今年無いのはほぼ確定か？ 今年学校のプール授業を行うのは、新型コロナウイルス感染の拡大に繋がるのは目に見えているが、これまでの日本政府の対応から、水着を販売しているメーカーのお金目当ての為にプール授業を行うのではないかと思われたが...　今年は、プールの授業自体が無い可能性が濃厚だ 何故、学校の授業でプールの授業が無いと言えるかと言うと、そもそも、学校のプール授業で使用する水着を販売しているお店が、プールの授業を行わないと情報が回っているらしく、スクール水着の販売自体を行っていないのだ。 政府は3密防止と言いながら、実際に企業で3密防止の為の対策が取られている所を見たことが無い。 お店で実施している仕切りは3密防止の為？　効果が謎過ぎる対策はよく目にするが。 何はともあれ、学校のプール授業では、マスク着用でプールの授業など不可能である為、新たなコロナ感染拡大の火種になると危惧されていたが、一旦はプール授業が中止になるようなので一安心だ。 この対応が全国規模で行われていると思いたい。

ACCESSビギナー向け・フォーム、サブフォームの紐づけ方法 ACCESSでフォームのヘッダーと明細を紐づける方法 データーベース初心者がACCESSの操作に慣れ始めたころ、次に直面するのが、複数のテーブルを使って、フォーム内でデータを紐づける方法になるだろう VBAプログラムのSQLで全解決する方法もあるけれど、折角アクセスを使っているので、ACCESSの機能で紐づける方法を説明 下記のような売上ヘッダーテーブル、明細テーブルがある前提で説明。 売上ヘッダー  売上明細 売上ヘッダーと明細は、売上番号、種別で紐づけられる前提で、最初に作成するフォームは、ヘッダー側で、売上ヘッダーと紐づくフォームを用意する。 テキストボックスは、ヘッダーと、明細が紐づいている事が分かりやすいように、売上番号と割り当てておく。 もう一つフォーム作成の画面を開き、もう一つのフォームは、売上明細テーブルと紐づけし、フォーム名を売上明細として保存する。 それぞれのテキストボックスは、明細の中から表示したい内容を割り当てる事になるが、今回は、売上番号が連動している事を分かりやすくする為に、敢えて売上明細にも売上番号のテキストボックスを用意している。 また、売上明細の[既定のビュー]は、帳票フォームとしておいた方が、今回の売上入力画面で見やすい画面になるだろう。 次に、最初に作成したフォーム側で、サブフォームのコントロールを配置する。 サブフォームウィザードでは、テーブルからでも、フォームからでもどちらからでも紐づけしたい子のデータを選択しても良いが、今回は、売上明細を先に保存して作ったので、フォームから売上明細フォームを選択。 サブフォームのリンク親フィールド編集画面を表示し、親フィールドと子フィールドにそれぞれ、売上番号、種別と割り当てを行う。 すると、売上ヘッダーのフォームを一度閉じ、開きなおすと売上入力画面が表示され、最初のレコードは、売上番号1と、次のレコードボタンを押すと、売上番号2と紐づけられている事が確認出来る。 こうすれば、わざわざ、VBAでヘッダーと明細をデータを取得するSQLを作ってデータを取得して表示するとかしなくても、簡単に紐づけが可能である。 実際は、商品コー

新型コロナウイルス感染防止で自粛していたあべのハルカスは営業を再開 自粛休業中だったあべのハルカス年間パスポート期限の行方 大阪では、新型コロナウイルス感染による緊急事態宣言を出していたが、5/21木曜日本日緊急事態宣言を解除した。 それに伴い、政府の要請に従っていた僅かな企業は自粛休業をしていたが、倒産していない企業ほぼすべてが営業を再開し、ほぼいつもと同じ日常の光景となった。（実際に筆者自身緊急事態宣言でも自粛が無かったから、普段の生活で自粛を目にする事は無かった。) ところで、緊急事態宣言の解除と合わせて、あべのハルカスも営業を開始した。 あべのハルカスには、年間パスポートという、1年間有効のパスポートがある。(ユニバーサルスタジオジャパン等と同じ） 今回のコロナウイルス感染拡大に伴い、2か月以上あべのハルカスは休業していたが、それより前に買った年間パスポートについて、有効期限が自然消滅するのではないかと思われたが、プラス3か月有効期限が延長されるとの事だった。 さすがに、営業再開したばかりだから、客の数も少なかった。 どちらかというと、インバウンドの海外観光客が多かったから、本当は日本人のハルカス観光客はこの程度の人数しかいない事も考えられるが...

ACCESSのVBAを実行すると、ACCESSが強制終了する事がある ACCESSのVBAを実行すると強制終了 DoCmd.OpenQuery を疑え ACCESSのVBAを実行するといくつかACCESS自体が突然強制終了する事がある。 基本的にエラーがあれば、デバッグするか、終了するかを確認するダイアログが表示される筈だが、中にはエラーも表示されず、ACCESS自体が突然強制終了する事があるケースについて確認個所を紹介。 ACCESSが強制終了する事があるVBAのマクロの組み方は、Win APIを利用する時など起こりやすいけれど、中には、複雑なVBAのコードを組んでいないにも関わらずエラーも出ず、音も無く強制終了するパターンがある。 まずは、その個所は大抵の場合 DoCmd.OpenQuery で、ACCESSに作成しているクエリーを実行する時である場合がある為、そこにブレークポイントを張って、強制終了している箇所がそこであるか確認を行う。 強制終了している箇所が、　 DoCmd.OpenQuery 　だった場合は、クエリーの中身を確認する。 ACCESSのクエリーも、EXCELみたいな関数が使えるのだが、特に InStrRev関数とMID関数を使っている 場合に起きやすい。 もしも、InStrRev関数の検索文字に記号のような物を利用している場合には(㈱、№　等の環境依存文字）、これを違うものに変更してみて実行してみよう もう一つは、InStrRev関数とMID関数の組み合わせで、InStrRev関数で検索した文字位置から、 MID関数で指定した文字だけ取得するような計算ロジックを入れたりしている場合 、InStrRevで検索対象にヒットしない、つまり 成立しない偽のデータが存在していないか確認 しよう。 その場合、クエリー側を修正するか、データ側を修正すると改善する場合がある。 こういった場合は、 大抵の場合、クエリーの設計に問題があると考えるのが適切なので、そもそも成立せず、関数エラーになるような組み方を改善させる と、ACCESSの強制終了が無くなる場合がある。

コロナウイルス感染の検査すらまともに行われない状態でプール再開はあり得ない！ 早く正式に学校のプール中止を宣言するべき 学校のプールは100%新型コロナウイルス感染すると思う。 ただ単に、学校で授業をするだけで、感染者が出ているのに、プール授業なんてしたら、間違いなく感染者が増えると容易に考えられる。 どうせ、中止になるんだったら、後からやっぱり中止にすべきだったなんて結果にするのではなく、今、少しでも感染リスクを下げる為にプールの授業は中止とやるべきだと思う。 日本政府は、緊急事態宣言を解除するにも関わらず、コロナウイルス感染対策を怠らないようにと、非常に矛盾した発信を行っている。 普通に考えて、緊急事態宣言を解除するという事は、単純に日本政府の発信を信じる人にとっての解釈は、新型コロナウイルス感染のリスクが無くなったから解除されるんだという認識に至っている人の方が多いと思われる。 緊急事態宣言を解除しても、新型コロナウイルス感染の対策が必要だと思うなら、学校のプール授業自体今年は中止の決断位即刻やることが先手先手の対応だと思うが。 今回の日本政府の対応も結局、コロナウイルス感染が再度感染拡大してから対応をする、インシデントイベントドリブン型となってしまうのだろうか...非常に不気味で不安である。

Mozilla Thunderbird（サンダーバード）でメール一覧のフォントサイトを大きくする方法 ThunderBirdは、cssを設定してフォントサイズを調整する事が出来る。 ThunderBirdという、Netscape時代から続く便利で高機能なフリーのメールソフトを、もっと快適に使う方法。 最近は、モニターのサイズと解像度が大きくなり、解像度が大きくなった分、沢山の内容が表示されるようになったが、その分文字のサイズが小さくて不便になった面もある。 メールソフトにサンダーバード(ThunderBird)を使っている人は、今回紹介する方法で、メーラーを開いた時に表示される文字のサイズを大きくしたり、小さくしたりする事が出来ます。 下記のフォルダーに移動する。 C:\Users\USER\ AppData\Roaming\Thunderbird\Profiles\ 4xoxsyyo.default \chrome ・オレンジの部分は、ログインしているユーザー毎に異なる。 ・青の部分は、TunderBirdをインストールする度に作成される為、Profilesのフォルダー内にあるフォルダーを開く。 ・赤字の部分は、フォルダーが無い場合は、新規フォルダーの作成を行い、[chrome]というフォルダー名でフォルダーを作成する。 メモ帳などのエディターで、下記内容を記述する。 /* フォルダーツリーのフォントサイズを変更する */ #folderTree  treechildren { font-size :  13px ; } /* スレッドツリーのフォントサイズを変更する */ #threadTree  treechildren {      font-size :  16px ; }      記述後、[userChrome.css]という名前で、ファイルを保存し、ThunderBirdを起動しなおす。 すると文字が大きくなった事が確認できる。 フォントサイズの調整は、font-size: xxpx;　とある、xxの部分の数値を変える事で調整出来る。

ACCESSでListView(リストビュー)コントロールを使う   標準のコントロールにはListView（リストビュー）は無い ACCESSでフォームをデザインする場合には、リストビュー（ListView)に変わる、表型のフォームをサブフォームとして使うことで賄えてしまう為、わざわざListViewを利用する機会も少ないのだけれども、ListViewでデザインする必要がある場合には、最初にコントロールの参照設定が必要である。 ACCESSのリボン.コントロールから、上図のようなボタンを押下する。 ACTIVEXコントロールを選択する。 参照設定から[Microsoft ListView Control, version 6.0]を選択すると、フォームのデザイン画面にコントロールが貼り付けされる。 VBAでリストビューを使う時は、注意が必要だ。 インテリセンスを使ってコーディングをする時代だが、捨て去られるVBA(VB6系）プログラムのリストビューは、インテリセンスに候補が表示されないメソッドが殆どだ。 コードのサンプル       With Me!ListView                  .ColumnHeaders.Clear         .ListItems.Clear         .View = lvwReport         .FullRowSelect = True         .GridLines = True                                    With .ColumnHeaders             .Add , , "商品コード"             .Add , , "商品名"             .Add , , "在庫数"         End With              .ColumnHeaders(2).Width = 3000          Dim itm As ListItem          Set itm = ListView.ListItems.Add(, , "1000000")     it

教育に殆ど不必要なプールの授業は絶対中止するべき 選手を目指さない限り人生で殆ど役に立たないプールの授業は今年わざわざやらなくていい 今年は、新型コロナウイルスは終息する気配はない。 日本政府が政策担当者の利己的な利益につながるか繋がらないかで取られてしまう愚策によって、新型コロナウイルスがどんどん蔓延していく可能性の方がとても大きい。 いや、むしろ、今は政策担当者の人事を含め利己的な利益につながるような新型コロナウイルス感染防止策が取られていて、新型コロナウイルス感染の検査すら抑制されてしまっており、その結果、コロナウイルス感染者の制度の高い予測すら不可能な状況に陥っており、世界中から日本の新型コロナウイルス感染防止策について、批判が殺到している。 そして、オリンピックが中止された今年、学校の授業で始まるプールは絶対に中止するべきだと思う。 学校で習う習字もそうなのだが、習字道具を作っている業者に忖度する為、社会に出て使うことが無い、墨汁等の習字セット等、学校のプールもまさに業者への忖度の為にあるシステムが多すぎると思う。 水着が自由に選べるなら忖度は感じないが、通っている学校で指定されている業者からの水着を購入する必要があるとか、どうにも理由付けしても、色々言っているけれど結局忖度でしょ？となる。 個人的には日本の教育機関を全く信用していない。 報道されている、生徒の自殺や、施設の不備での事故死等、その後の学校の対応ときたら、自身の評価に影響を与えないようにひたすら保身に走り、犠牲に遭った生徒やその家族の事を考えないようなコメント そして、今回特に、日本政府が取る新型コロナウイルス感染防止策は、自己責任による物ばかりである。 自己責任が必然の、新型コロナウイルス感染防止策で、学校が開始されるだけでもかなりの恐怖政治なのに、学校のプール迄開始されたら、プールでのコロナウイルス感染が広がる事が、素人でも容易に想像できてしまう。 学校の授業で新型コロナウイルス集団感染が疑われる場合にも、日本政府の取る愚策は、東電原発事故の被害者と同じで、因果関係が認められない...となるのが目に見えている。 そんな中、今年、学校のプールを開始されてしまっては、学校が責任を取りますという、証明書や書類