投稿

Translate

ACCESSのフォームで、ヘッダーと明細フォーム(サブフォーム)をVBA無しで紐づける方法

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

あべのハルカスの年間パスポートは期限が延長される | コロナウイルス自粛関連

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

ACCESSのVBAを実行するとACCESSが強制終了する事がある

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

Thunderbird(サンダーバード)でメール一覧のフォントサイズを大きくする方法

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