Access
光市のＦＥ社のAccessでバグらしきものが発見された。テキストファイルを取り込むモジュールがおかしい ところまでは判ったが、インポートの定義ファイルはどこを見たらわかるのか‥‥ ネットを捜したけど、らしきものが見つからず、インポートの真似をして、…
Access2003で、［ツール］メニュー ⇒［起動時の設定］をクリックすると、次のダイアログボックスが出る。これをAccess2007で行うには‥‥ Accessリボンマッピングブックには、次のように記されている。 Office ボタン | Access のオプション | カレント データ…
フォルダ名に空白があっても""で囲む必要はない。 strAns = Dir("\\コンピュータ名\My Doduments") ‥‥ OK strAns = "\\コンピュータ名\My Doduments"strAns = Dir(strAns) ‥‥ OK strAns = """\\コンピュータ名\My Doduments"""strAns = Dir(strAns) ‥‥ NG （…
Microsoft Office Online 新しいインターフェイスの紹介クイック アクセス ツールバーにコマンドを追加するよく使われるコマンドの新しい配置場所 Accessリボンマッピングブック
Access2003 フォームのプロパティ/メニューバー に“=-1”を入れる。 この方法では、メニュー名が出ない（隠れる）のであって、［質問を入力してください］は残る。
下松市のＦ社の実績収集をAccessで行っている。改修依頼を昨年１１月下旬に受けた。今、使っている（テーブルの）フィールドはYes/No型であるが、コード化（整数型）するというもの。動いているアプリなので、新しいフィールドを追加し、その後、Yes/No型の…
今朝は冷え込んでいるし陽も出そうもない。竹炭窯を開ける前に、下松市のＦ社のAccessの改修の続きをしておこうとAccessを起動した‥‥ら「必要なインストールファイル SKU015.CAB が見つかりませんでした」が出た。AccessのCD-ROMを挿入しろと言う。 CD-ROMを…
下記のモジュールを実行すると、「このコレクションには項目がありません」というエラーが出るというヘルプメールがソース付きで来た。 Option Compare Database Option Explicit Dim BOOLAns As Boolean Public Function fromExcelAll() As Boolean On Erro…
午前中は昨夜の続きで、Accessの改修を行った。 午後一で納入。 即、動かし、ラベルを約1000ピース印刷。 16：30 ウィルスチェッカーの期限が切れていたので、とりあえず、avast! をインストールして退社。
「数値フィールドがオーバーフローしました。」のエラーに２日間も悩まされた。 柳井市のＥ社の Access。Excel の住所録にリンクを張り、ラベルを印刷している。ずっと以前に完成していたはずなのに‥‥１っずつ追っていったら Excel ワークシートにリンクし、…
下松市のＦ社から「エラーメッセージが出る」というメールがきた。 ID-No.が採れません。２〜３秒待ってから、もう一度行ってください ID No.の最終値は、サーバーにあるテーブル：P_作業指図ID に入っている。 この最終値がとれないと、このエラーメッセー…
今、開いているmdbのパスを取得するモジュールです。 Public Function get_myMDBPath() As String Dim strFullPath As String Dim i As Long strFullPath = CurrentDb.Name i = InStrRev(strFullPath, "\", -1, vbTextCompare) get_myMDBPath = Left(strFull…
朝１０時前に、光市のＦ社より Access アプリケーションの問い合わせの電話が掛かった。要領を得ないので急遽出かけ、生のデータで状況を把握。バグを１件見つけた。Ｆ社の Access は 2007。デザインがコロッと変わっており非常に使い難い。そこでソースをコ…
３時半起き。宿題の Microsoft Access の完成をひたすら目指していたのに、「ご迷惑を‥‥」が出てガクッ！マイクロソフトに報告したら、 問題の原因は、Microsoft Office System Software です。Microsoft Office System Software の製造元は Microsoft Corpo…
銀行振込ファイル レコード・フォーマットを参考に、Microsoft Access に取り込むためのモジュールを作った。以前も作ったことがあるが、すっかり忘れている。Access そのものも忘れているのでてこずった。きれいなコーディングではないだろうが、今後の自分…
５時半に起床、６時から始めた光市のＦ社のAccess改修（機能追加）が、夜１０時に終わった。まだ充分ではないが、仕様のない改修は「どうしようもない」のだ。 今週はパソコンＢ組の宿題もある。パソコンＲ組のテキストも作らねばならなく忙しい。私に宿題を…
３時、ふと目が覚め、方法を考えていたら眠れなくなったので起きてコーディングした。縦を横にするのは、クロス集計クエリーで出来るが、逆はモジュールで対応するしかない？↓↓↓ VBA Field オブジェクトを参照する場合、次のいずれの構文も使用できる。 Fiel…
昨夜、相談を受けた Access のサンプルmdb を作っている最終に「コックリ、コックリ」。「コリャ、ダメだ」と寝ることにした ‥‥ 柱時計が「ボ〜ン、ボ〜ン」‥‥「２時かぁ〜」‥‥そのうち、「ボ〜ン」と鳴って、「今日は id:cyokicyan に勝ったかな〜」と起き…
Ｅ社から頼まれていた Microsoft Access の会員管理を改修したので納品した。 会員一覧表を「年齢の範囲」で抽出できるようにした。 会員一覧表を年齢順に出力するようにした。（これは頼まれたものではない） 改修は自宅で行い、Ｅ社で最終確認を行うのであ…
次のようなヘルプメールがあった。 Accessがどうも上手くいってないようなので、新規のMDBに全部インポートしてみようとしたのですが、応答なしになってしまいました。そこで、一部のテーブルとクエリをと試みましたが、やはりタスクマネージャーは応答なし…
Microsoft Access 2003 のヘルプより抜粋。 "PictureSizeMode/ピクチャサイズ" プロパティ フォームまたはレポートのピクチャのサイズ決定の方法を示します。値の取得および設定が可能です。 解説 "PictureSizeMode/ピクチャサイズ" プロパティの設定値は次…
「'AOIndex'は、このテーブルのインデックスではありません」のエラーが出るようになって開けなくなった mdb。［ファイル］メニューからのリンクは出来ないが、connect コマンドでのリンクは幸い出来るので、専用のモジュールを作った。 '概要：指定したmdb,…
サーバーに置いてあったデータmdbを開くと「'AOIndex'は、このテーブルのインデックスではありません」のエラーが出て、開けなくなった。幸い、プログラムmdbからデータを見ることが出来た*1ので、作り直すことが出来た。 これに対処するため、プログラムmdb…
（追加キーワード：スタートアップ; 起動時）次の表は、Access のコマンド ライン オプションの一覧です。 オプション内容 データベース 指定した Access データベースまたは Access プロジェクトを開きます。必要に応じて、パスを含めます。 /excl 指定した…
※ いきさつ mdb を開くと、「'AOIndex'は、このテーブルのインデックスではありません」のエラーが出て開くことができない。 新しい mdb を作成し、 インポートを試みるができない。 ［テーブルのリンク］もできない。 ところが、VBA ではリンクを張ることが…
テーブルの一覧表を作ろうか/どうしようか とネットを検索していたら、T's Ware にあった。データベースウィンドウを詳細表示した時の情報源のようだ。 それは、"システムテーブル"である「MSysObjects」を使う方法です(もしかしたら危ない方法かもしれませ…
Access のテーブルと Excel は見た目には似ていますが、Excel から Access のテーブルを作成するには無理があります。 これは Access のテーブルを新規作成してみると解りますが、Access のデータ型には右図・左の種類があります。更に、例えば数値型には右…
目的は、破損した mdb の復活です。通常であれば、 mdb を開く ［ツール］メニュー ⇒［データベース ユーティリティ］⇒［データベースの最適化/修復］をクリック で行うのですが、 肝心の mdb が開けないと、この方法は使えません。 更に、これ（最適化/修復…
次のようなメールが来た。 WindowsXP-Office2003 のノートＰＣから、ネットワーク上の mdb を開こうとすると、右図のエラーが出て開くことができません。 初めての経験なのでよく解りません。下記の情報を読むかぎりでは、「深刻なエラー」のようです。 AOIn…
サブフォームに次のモジュールを作った。 Private Sub F_dispDetail() On Error GoTo Err_F_dispDetail With Screen.ActiveForm .txt検索蔵書ID = Me.txt蔵書ID .optGroup = 2 .SetFocus Call .optGroup_AfterUpdate End With Exit_F_dispDetail: Exit Sub E…
