Access
１）Access のテーブル ２）csv 形式でエクスポート メモ帳で開く Yes/No型は、False は 0， True は 1 となる。 Excel で開く Yes/No型は、False は 0， True は 1 となる。‥‥ これは csv と同じなので問題ない。 テキスト型の“False”が、“FALSE” になり、…
（追加キーワード：VBA）直ぐ忘れてしまうので、書いておくことにする。 ［Ctrl］＋［Shift］＋［F2］ 何もヘルプを苦労して探さなくても、［表示］メニュー にあった。気が付かなかったなぁ〜。右クリックでも出るよッ！
テスト前提 ターゲットの製造No.は、0601-034 です。 作業日報IDの 205458 の作業者コードを非社員である 122 に変更してテストしました。 作業時間計は 1303 分＝21時間43分 内、社員の作業時間は、21時間40分です。 完成報告書。 作業時間は、21時間40分と…
柳井Ｅ社の会員管理.mdb。「起動にブチ時間が掛かる」と言うので原因を調べた。 ※ 原因 起動時に Excel.exe の フルパス を検索しているため。 検索には、WindowsAPI の "SearchTreeForFile" （my関数：Get_FullPathForFile()）を使用。 一度検索するとキャ…
Option Compare Database Option Explicit Const MYObjName As String = "modGet_TableNameDAO" '概要：DAOを使用してﾃｰﾌﾞﾙ名一覧を“;”区切りで返す。 '履歴：H18.11.10 初版 Public Function get_TableNameDAO() As String Dim mbTitle As String Dim DBS A…
郵便番号が３桁超で、“-”が無ければ“-”を挿入するレポート上のコード。前のレコードの郵便番号が Null であれば、当該レコードに郵便番号があっても表示されない！Debug は郵便番号が入っているのが確認できるが、実際には（プレビューでは）表示されていな…
Option Compare Database Option Explicit Const MYObjName As String = "modGet_FieldName" '概要：引数のﾃｰﾌﾞﾙのﾌｨｰﾙﾄﾞ名を";"で切って返す。 '履歴：H18.11.08 初版 Public Function get_FieldName(argTableName As String) As String On Error GoTo Err_…
フォームのイベントプロシージャで、レコードソースの中身を入れ替え（削除して追加）ている。 INTAns = delete原価計算tmp DoEvents INTAns = insert原価計算tmp(lngID) DoEvents Me.Requery Me.cbo単位.Requery Call cbo単位_AfterUpdate 入れ替えが終わっ…
１０〜１２時で完了した。 改修漏れ１箇所（テーブルにフィールドの追加漏れ） 今回のシステム改修の対象外のシステムであったが、データを渡していたのを気がつかなかった。 対象外のシステムとはいえ、同じ社内。起動テストをしていれば発見できた。反省。…
同好会から帰宅し、メールを見たら、昨日行った Access システムの改修のバグメールが入っていた。「実績検索」だったので、工場が止まるほどのものでなかったのが幸い。 原因は「影響しない」と判断し、テストを行っていなかった部分。反省。明日の午前中に…
１１時、Ｆ社に出向き Access システムのバージョンアップを行なった。 前日 myPC の全ファイルウィルスチェックを実行 11：10 myPC 起動 サーバーに接続 myPC のシステム一式を、サーバーにコピー myPC 切断 test機起動 test機のシステム一式を圧縮 改修し…
明日、Access のシステム変更の準備。途中、畑に行って台風で全滅した白菜を再度植える準備をしたものの上の空。帰宅後、また、システム変更の準備，と言うか、イメージトレーニング。
DAOでもよく理解できなかったのに、ADOでますます解らなくなった。しかも最近は使っていないのでなおさらだ。 §基礎から始める Access VBA 講座 書式 recordset.Open Source, ActiveConnection, CursorType, LockType,option recordset： 開いているRecordse…
下松のＦ社から「日報の整合性がとれていないデータがある」と添付ファイル付きメールがきた。原因は、５月の改修が絡んでいるようだ。 推定原因１ 実績入力後に、関連するコードを変え、 日報を出力した。 推定原因２ 改修前のプログラム（パソコン）でデー…
午後一で、光市のＦＥ社に Access 改修（機能アップ）版を納入した。３週間前に出来ていたものであるが、先方の都合で今日になったものだ。で、いざインストールすると、改修箇所を忘れている‥‥改修箇所の記録漏れ等もあり、１時間も要した。改修履歴は外部…
Ｆ社のシステム，【完成実績検索】フォームで、検索後のレコードの並びがおかしいので原因を調べた。 フォームを［デザイン］で開く。 サブフォームを新しいウィンドウで開き、 レコードソースを調べる。 レコードソースのクエリーをデザインで開き、 並び替…
０ならばFalse, １ならばTrueを返すモジュール。当面、５ビットまではテストしたが、それ以上は未テスト。引数１を variant にする必要があるかも‥‥ Const MYObjName As String = "modIs_Bits" Public Function is_Bits(argCode As Long, argIchi As Long) A…
メールアドレスの整合性を調べるために作成した。 Const MYObjName As String = "modIs_Narrow" Public Function is_Narrow(ByVal argString) As Boolean On Error GoTo Err_is_Narrow Dim mbTitle As String mbTitle = MYObjName & "/is_Narrow" is_Narrow …
最適化しようとすると、のメッセージが出て、最適化に失敗する。 §マイクロソフト サポートオンライン PRB:「テーブル「 TempMSysAccessObjects」が既に存在する」エラー メッセージは、 compact と修復データベース ユーティリティの使用中に、発生すること…
昨日の朝８時から８時間掛け、右図のようなフォームを Microsoft Access で作成（追加）した。当然、モジュールを作成しては動作確認をしていた。 それも終わったので、結合テスト（別のフォームから、このフォームを開く）に入り、データの書き込みを行なっ…
納期が迫っているので、とりあえずこの方法で、日付に入力を行なうことにする。下松のＦ社で行なっている方法であるが、作り方を忘れたので、手順を整理した。 １）カレンダー フォームの作成 ［デザインビューでフォームを作成］を起動する。 ［挿入］メニ…
下松のＦ社よりヘルプコールがあった。 「3159/ブックマークが正しくありません」のエラーが出て落ちる。 （インストールしてある）２台とも出る。 本事務所からも問い合わせがあった。 急遽訪問し、原因を探る。 発生する場所は、Docmd.RunSQL テーブルをク…
「コード」は、フォームを開く時、引数で渡すものとする。 サブフォーム名は、"sfm詳細" 下記ソースは、ブログ上で修正しているので、「考え方のみ」の提供とする。実際のコードでは検証済み。 Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_…
Ｆ社での出来事。 §ケース１ Accessのテーブルを開き、 全てコピー Excelに貼り付けた。 このExcelデータにリンクを張る。 Accessのコピー元データを全て削除し、 追加クエリーでExcelデータをコピー元テーブルに追加したら‥‥ ルール違反でエラーになった。 …
今日は「第41回町内一周駅伝競走大会」の日。天気予報では、冷え込みが厳しいと言っていたので、外は寒かっただろうが、パソコンのある部屋はポカポカ陽気。講座を行っている会議室でカーテンを開けてある状態。ランちゃん御殿と同じだ。 ８時半に入室。 パ…
明日（もう日は変わっているが）は駅伝だというのに、区間賞の印刷プログラムがなかなかできずあせったが、なんとか試行版ができた。あすの本番で試して、来年に備えよう！
こうなったら意地でも調べるしかない‥‥と、試行錯誤。で、原因がわかった！ Excel では“000-0000”の書式が設定してある。 “1234567”と入力すると、123-4567 と右詰めで表示される（数値なので） “123-4567”と入力すると、そのままが左詰で表示される（文字な…
昨日の物件が解決していなかった。 Ａ４版用紙に２列×６行のラベルを印刷するようにしているが、 （Excel 上では）郵便番号は入力されているのに、 （Access で）印刷されない現象がある。 全部なら解るのに、１２ヶ中の１ヶだから始末が悪い。 Accessのモジ…
Ｅ社からヘルプの電話があり出かけた。その状況は Excel のデータを使って、Access でＤＭ用のラベルを作っている。 Excel の郵便番号には全て“−”が入っているが、Access のラベルには入っているものと入っていないものがある。 Excel のデータ（右図）を見…
町内駅伝大会の Access をテストしていた時の出来事。 Excel をセーフモードで起動しますか？と聞かれてもわかんない！ 結果としては、［Alt］＋クリックに変更したが、エクセルで問われた時に役に立つであろう。
