投稿

Translate

ACCESSのVBAでリストビュー(ListView)を使う為の設定 | Office365

イメージ
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

今年はプールの授業をを中止すべき | 新型コロナウイルス防止対策

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

大阪・パチンコ大手オープン | 大阪は既に新型コロナウイルス防止緊急事態宣言を解除した?

イメージ
大阪の緊急事態宣言は解除されたか? 撮影日:2020/05/16 土曜日 Date taken: 16-May-2020 Saturday in Prefecture Osaka are out of state of emergency declaration lift. Pachinko is popularly small casino in Japan. Small casino but scale is no small. 積極的なミスリードOKな緊急事態宣言解除されたかのような情報の数々 どちらかというと、もう、日本のコロナウイルス対応について、メディアの記事を読むのは抑えるようにした。 OKといったり、NGと言ったり、ほぼ全ての人が、その時見た都合よくとれる情報を流す日本政府に操られているかのようなメディアのせいで、AはOK、BはNG,BはOK、AはNGのように理解する人で溢れてしまい、その人によって都合がよく捉えられるような印象操作が多発しており、国内から得られる新型コロナウイルス感染についての情報はカオスな状態となっている。 そんな中、大阪はまだ緊急事態宣言を解除していない(と理解している。)筈<知事が途中から一部地域は解除の対象となるみたいな余計解除されたのかされないのか訳変わらないミスリードを呼ぶ状態にした。 そして、パチンコ店。 開店前から大行列を作っている異様さ。 大阪の新型コロナウイルス感染防止対策である、緊急事態宣言はまだ解除されていない。そう解釈しているが、この光景を見るに、あれ?もう解除されたのか?とも思えてしまう。 【東京・大阪 21日解除見通しも】 https://t.co/lEtVmF0yUc 緊急事態宣言の今後の焦点は、東京や大阪など大都市を抱える地域の解除。政府高官は、「5月21日には、東京を含むすべての地域で宣言を解除できるかもしれない」との見通しを示している。 — Yahoo!ニュース (@YahooNewsTopics) May 14, 2020 最新のニュースを見る限りは違うようだが... “大阪モデル”達成で緑の通天閣…反応は? #日テレNEWS24 #日テレ #ntv https://t.co/VDsOctZgEb — 吉村洋文(大阪府

大阪・梅田は、最初から緊急事態宣言が解除されているかのような状態

イメージ
大混雑の大阪・梅田駅 (平日) Date taken:14-May-2020 Thursday, Japan Prefecture Osaka / Umeda Underground street. 緊急事態宣言前と殆ど遜色ない人混み 緊急事態宣言後から、大阪・梅田の人通りは特に人が減った感じはない。 唯一、以前にブログで投稿したが、休日だけは、各百貨店とも休業する為、人が減っているように見える....が、徒歩20分先の商店街では、大勢人が賑わっている光景であったため、休業していない所へ人が流れただけの意味不明な緊急事態宣言であった ----緊急事態宣言のロケがしたかっただけだと思う理由---- そして、大阪も16日から緊急事態宣言が解除される見込みとなった。 緊急事態宣言が解除される前から、地上からは見えない立ち飲み屋は満員御礼で営業しており、目立つお店だけ営業自粛させるこの異様な状態が、ホント、大昔学校で習った戦時中のような情報操作、世論操作のような不気味な状態で、新型コロナウイルスでもやもやするというより、政府の異様なうさん臭い印象操作や情報操作がフラストレーションを溜めさせる結果となっている気がする。 緊急事態宣言解除後、コロナウイルス感染の検査数をコントロールして感染低下をコントロールしているような見せかけをしないか、ただただそれが心配である。 因みに緊急事態宣言は解除されていないが、既に大阪府内の小学校は既に登校を開始しているようだ... 検査数が極端に少ない中、どういった判断が下されているのか、きな臭さだけが漂う大阪の新型コロナウイルス感染対策である...

Looks like already End of Emergency | Japan's government coronavirus measure likely pretended emergency.

イメージ
We can see around crowded Japan's life everyday even if on state of emergency. Date taken: 11/May/2020 Monday (Osaka / Umeda) Underground street Mystery that why all Japan's news report media don't reported crowded situation in emergency. Date taken: 8/May/2020 Friday Osaka / Umeda Date take : Public Holiday 5-May-2020 Tuesday Already looks like cancelation State of emergency... Eventually Japan's government just took pretended to be State of emergency... I'm not take day off everyday because company decided continue work in workplace even if state of emergency other than holiday. 安倍晋三首相は12日、自身のツイッターに自宅とみられる場所で過ごす様子を動画で投稿、新型コロナウイルスの感染拡大を防ぐため、外出しないよう国民に呼び掛けました。動画は、星野源さんが公開した楽曲「うちで踊ろう」とのコラボレーションです。 https://t.co/HNWFqOiqao — 時事ドットコム(時事通信ニュース) (@jijicom) April 12, 2020 Japan prime minister Abe relax at home. But Abe prime don't stop suck up tax from nation peoples. Japanese people started considering why we need paid some

大阪の地下は殆ど緊急事態宣言前の状態で百貨店は多くの人で賑わっていた。

イメージ
大阪・梅田の地価は緊急事態宣言前に近い状態 撮影日:2020/5/11 Monday Date Taken: 11.May.2020 Monda in Japan Osaka/Umeda Underground mall デパ地下のお弁当は殆ど売り切れる 緊急事態宣言が出されてから、大阪・梅田の各百貨店は、土日祝を休業とする処置を取っている。 ただし、平日のデパート食料品売り場はいつも通りにオープンしている為、緊急事態宣言当時から人が多かった。(時間をやや短縮している) 生産数は落としていると思われるが、デパ地下のお弁当は18時30分頃には殆ど売り切れる位の盛況ぶりで、デパート内は人で溢れかえっていた。 あまりの盛況ぶりで、今が緊急事態宣言中だという事が想像も出来ない状態である。 僅かな時間の間だけ、緊急事態宣言でロックダウンを装ったような報道をする日本のメディアに異常さを感ている所である。 実際、一部の海外ニュースサイトでは、日本はロックダウンをしていると誤解しているような記事も見た。 恐らくそれが狙いなんだと思われるが 14日には、緊急事態宣言解除を行う都道府県が発表されるかもしれないとの事だが、新型コロナウイルスの検査が少ない状況で、政治的な要素だけで感染者が減ってきたように装う事を非常に懸念している 一体このコロナウイルス戦争A級戦犯レベルの振る舞いをいつまで続けるつもりなのだろうか? まさか、自分が旧大日本帝国のような、北朝鮮かのような戦時中の状況を体験するとは夢にも思わなかった。 正直、日本政府は、戦争を起こした時の体質と、何ら変わっていないんだな...と感じたが、インターネットで情報が繋がる事で、一方的な情報操作で洗脳される状況は免れているといったところか?

ACCESSA-VBA | DLookupでテーブルから特定の値を取得する方法

イメージ
ACCESSのDLookup関数でテーブルから特定の値を取得する方法 1.DLookup関数でテーブルやクエリ内を検索して値を取得する方法 概要 DLookup関数は、ACCESS固有の関数で、テーブルやクエリーからデータを検索して取得する為の関数。 ExcelにもLookup関数があるが、使い方が違うだけで機能自体はほぼ同じで、検索対象から検索文字にヒットした検索結果を取得出来る。 ExcelのLookupと違うところは、検索条件がもう少し細かく指定出来る。 メリット・デメリット メリット SQLを書かなくても簡単にデータが取得できる。 テーブルからだけじゃなく、もう少し条件を絞ったクエリーからもデータが取得できる。 完全一致だけじゃなく、あいまい検索も可能 デメリット DLookupは、ACCESS専用の関数である為、EXCELのVBAでもコードを再利用したい場合は、EXCELのマクロでも利用できるように書き直す必要がある。 使い方 Private Sub btnSearch_Click() Dim CommodityCode As String Dim CommodityName As String CommodityCode = DLookup("[商品コード]", "[商品マスター]", "[商品名] LIKE '*" & txtCommodity.Value & "*'") -1 CommodityName = DLookup("[商品名]", "[商品マスター]", "[商品コード] = '" & CommodityCode & "'") -2 Dim ITM As ListItem Set ITM = lvView.ListItems.Add(, , CommodityCod

コロナウイルス感染拡大防止対応の緊急事態宣言が解除されているかのような状況になった

イメージ
心斎橋でもお店が徐々にオープンし始めた 閉店も相次いだが、再オープンしたお店も結構増えてきた どうにも政府の言う事を聞いて、真面目に自粛しているお店がバカだと思えるぐらい土日でもオープンしているお店が増えた。       大阪の秋葉原に当たる日本橋(なんば・恵美須町)は、初めからあまり自粛をしている雰囲気ではなかったが、雨でもそれなりに人が増え、客引きも溢れていた。 飲み放題のお店が普通に営業しているレベルになると、もはや緊急事態宣言延長なんて言葉が滑稽すぎて、あいつまたそれ言ってるわ...というレベル。 このアダルトDVDがメインのお店は結局今日も自粛していなかったな。。。パチンコ店とどれほどの差が? オイラ~の予想では、月曜日はかなり緊急事態宣言前に近く人が溢れていると予想。 今週の、GW明けの木曜日、金曜日の通勤と帰宅ラッシュは普段と変わらない雰囲気な満員電車ぶりだった。 普段の生活と、メディアで報道している自粛ぶりの光景が乖離していて、報道が別の国の出来事かと思える光景に感じていたけれど、GW中に、梅田と、天神橋筋商店街を見てみて、それはほぼ確信に変わった。 →  緊急事態宣言のロケがしたかっただけだと思う理由 - 5月 05, 2020 国内向けには自粛しているから新型コロナウイルスの検査数を減らして感染者が減ったという偽装が出来てしまうし、海外向けには、一部の地域だけ自粛してロックダウンしているかのような写真や動画を海外向けに流してしまえば、海外の人にはそうみえてしまうし。 ただ、BBCが今回、自粛なのに、人が溢れている様子等、色々報道したから、海外向けには偽装がモロに広まって、検査数の異常な少なさについても批判殺到中のようだけれども。 とにかく、毎日死が背中と隣り合わせというのは非常に不安でしょうがないから、早く何とかしてほしいものだ。。。 なんとななったフリはやめてほしいけれど。 マジで怖すぎるから。。。

ネットフリックスオリジナル「BODY GUARD」最高にハマった。

イメージ
ネットフリックスのオリジナル動画がやっぱりハマる BODY GUARD(ボディガード)  6話構成で作られたストーリーで完結している?ような内容。 Wiki情報だと、BBCでは2008年以来最も視聴率が高かったドラマらしい。  ボディガードって聞くと昔見た映画のボディガードを思い出すけれど、全く内容が違った。  現実的な結果が24(トゥエンティーフォー)を彷彿とさせるけれど。  内容的に、問題解決に至っていないような感じだから、6話構成じゃない?  もっと続きがある? 主人公が、アフガニスタン戦地でのPTSD障害の持ち主という、変わった設定もウケた。 隠れていつも震えている。 6話構成だから、何十話も見ていかなくても良い事が、嬉しいやら、ハマった後は物足りないやら。 全体が解決した雰囲気じゃないから、続編に期待!

Crowded coronavirus emergency | (Maybe)Japan's government want to just take shooting it.

イメージ
You can see crowded shopping street 20 minute walk from Osaka. Date taken:05.May.2020 (Tenjinbashisuji Shopping street) I thought maybe Japan's government just want to public the coronavirus prevent response scene. Many people can see crowded shop store without not popularly urban city. Now got state of emergency?,  Where is emergency condition? Tenjinbashisuji shopping street is just 20 minute walk from Osaka Station. (Osaka Station is third biggest urban city in Japan) Japan's government decided expand state of emergency to end of may. But this is extend just shoot movie time, I thinking. And Many people must be going to commute packed train tomorrow. Japan's government so lier!