本日のやっつけ仕事

だいぶ以前に、社内業務用に作成して、実務担当部署に引き渡していたACCESSベースのシステムで不具合が発生したので見てもらえないかという連絡ありっ

とりあえず、しかかっていた仕事を済ませた後に状況をヒヤリングしに行ったところ、状況は以下の内容だった。

そもそも、そのシステムは、外部に委託している配送、集金結果の情報をテキストファイルでインポートした後に、品種別、配送形態、集金形態、状況等に分類集計したレポートを出力するためのもので、取り込んだファイルが、別のアプリ（Excel）でオープン中だったものを読み込ませ、その際に、オープン中のファイル読み込みエラーらしきメッセージが表示されたらしく、いったん処理を中断して、再度、同システムを立ち上げたところ、フォームメニューが表示されなくなった・・・というものであった。

メインのフォームメニューが表示はされているのだが、テキストボックス、ボタン等のオブジェクトがまったく表示されずにフォーム枠のみである。

エラーメッセージも皆無で訳分からん・・・AutoMacroでやってるところと、インポート部分のVBスクリプトを浚って見たが、これまで問題なく動いていた（月例処理）ので、たまたま今回だけのイレギュラーの可能性が大

そこで、今回処理しようとした元データテキストインポートを直接マクロ起動して取り込んでみた。
とりこみはOK・・・・元データテキストに以上は無い様だ。
インポートするテキストデータは２種類あって、お客様コードと称するフィールドには１３桁の数字が入っているのだが、あらためて、このフィールドを見てみると、なんと、読み込み直前にExcelで開いていたために、勝手に指数表示になってしまって、そのままの形で取り込んでしまっているではありませんか・・・・

このために、とりこみ後、ACCESS側で特定のお客様コード１３桁で集計しているクエリに該当データが入らずに、さらに、そのクエリ結果を使用しているフォーム上のオブジェクトに表示できなくなって、真っ白けのフォームになったという次第であった。

当初、問題が根深そうに思ったのだが、案外すんなりとカタが付いたので一安心。

それにしても、Excelの勝手表示に参った。

参考にならなかった↓
ACCESS フォームが表示されない - Google 検索