過去の     このサイトのソース等の使用は自由です。再配布・転載の場合はご連絡下さい。

2006〜2003年｜2002年｜2001年｜2000年｜1999年
もうすぐ１０万アクセス記念
「正倉院展」入場券(2枚)を1組にプレゼント

件名(Subject)に 「正倉院展」入場券希望 と書いてEmailでご応募ください。
メールアドレス：present@loadsystem.net (このアドレス以外は無効です)  
締め切り：2001/10/31　17:00（日本時間） 必着

福島県　森　様　当選おめでとうございます
UserFormのTerminateイベントでShowは使うな[97/2k] （UPD:01/10/24）
UserFormのTerminateイベントでShowを使うと正常な動きをしなくなります｡（01/10/19MS確認）

ExcelのDialogsを使うとモーダルが解除される[97/2k]　(UPD 01/10/13)
ExcelのフォームからDialogを開くとExcelのモ−ダルが解除されます。つまり通常フォームを開いていればExcelシートには触れませんが、Dialogを開くと触ることが出来ます。モ−ダルが解除された状態でExcel９７ではセルの内容を変更することが出来ますが、Excel2000では変更できません。この現象は Application.GetOpenFileName メソッドなどでも発生します。
MSではこの件について事実のみを認め仕様だとはいっていません。（01/10/04確認）
なお Win32APIの GetOpenFileName を使ってもモ−ダルは解除されません。
おまけに 「組み込みダイアログ ボックス引数一覧」 をシートに書き出してあります。

a-mini-6.gif (272 バイト)Excel振込(V1.25)バージョンアップ(UPD 01/10/01)

銀行カレンダー関数のExcelアドイン[97/2k]　(UPD 01/09/29)
祝祭日に対応したカレンダー関数です。2003年からの「海の日」「敬老の日」のHappy Monday
にも対応済みです。Excelのアドインですので、通常のExcel関数と同様に使用できます。
BankHoliday：銀行休業日をチェック
BankDateAdd：銀行営業日に対応する日付算出
WhatDate：指定年月の第何週何曜日を算出

Access2002初体験　(UPD 01/09/08)
客先でAccess2000で作成したアプリケーションを、Access2002で動かしましたが、97→2000の場合のような問題は発生していません。しかしAccess2002に変換せずに実行するとかなりパフォーマンスが悪くなりますのでAccess2002に変換して実行しましょう。
私どもではAccess2002の購入予定はありません。したがってこのページに掲載するサンプルプログラムもAccess2002およびExcel2002ではテストしておりません。

ExcelからAccessのプロシジャを実行する[97/2k]　(UPD 01/09/08)
１．Accessのインスタンスを作成します。
２．MDBを開きます。
３．MDBのサブプロシジャの引数に値を渡して実行します。
４．MDBは実行後渡された引数に新しい値をセットして終了します。
５．呼び元では返ってきた引数の値を参照します。
（VBAとVBから同様の呼び出しが可能です。）
Newキーワードについても触れています。
Accessのメニューバーとコマンドバーを消す (UPD 01/09/03)
圧縮ファイルの中身が間違っていました。
重ね重ねの不始末平にお詫びいたしますm(__)m

a-mini-6.gif (272 バイト)Excel振込(V1.24)バージョンアップ(UPD 01/09/03)
Accessで使えるWindows API サンプル5を変更 (UPD 01/08/25)

    VB・VBAでも使用できます。
t8.gif (198 バイト)「デスクトップ」「最近使ったファイル」などＯＳが管理するフォルダのＩＤを取得する。
    (SHGetSpecialFolderLocation,SHGetPathFromIDList,CoTaskMemFree )
　　表示形式を変更しました(01/08/25)
ユニオンクエリーを使ってコンボボックスのリストに (なし) を簡単に追加 (UPD 01/08/04)
サンプルmdbのデータリンクが切れていました　m(__)m
(なし)を選択すると、（なし）を表示し値がゼロになるよう修正しました
Accessのメニューバーとコマンドバーを消す (UPD 01/07/16)
    
 上高地の梓川で出会ったカルガモの親子(UPD 01/07/16)
7月8日、村の壮年会の旅行で上高地に行きました。梓川の岸辺でカルガモの親子に出会いました。撮影は信（のぶ）さんです。

　
画像をクリックすれば拡大できます。

a-mini-6.gif (272 バイト)Excel振込(V1.23)バージョンアップ(UPD 01/06/29)
Accessのフォームでアンコウを飼う  (UPD 01/06/23)
    

Excelのユーザフォームで進行状況ゲージを実行[97/2k]　(UPD 01/05/26)
Access版の進行状況ゲージは掲載しましたが、Excel版が必要になったので少しだけ改良を加え掲載します。
ExcelとAccessのLabelコントロールの違いについても触れています。
Access起動時のタイトル画像を表示しない
 　　　　　　　　Accessのメニューバーを消す  (UPD 01/05/12)

Microsoft Wheel Mouse OpticalとWin95の相性
　　　　　　　ELECOM USB キーボード（TK-U109JPW2）の文字化け(UPD 01/05/12)

a-mini-6.gif (272 バイト)Excel振込(V1.22)バージョンアップ(UPD 01/04/09)

a-mini-3.gif (270 バイト)Accessで使えるWindows API サンプル24　(UPD 01/04/07)

t1.gif (198 バイト)アプリケーションバーのメッセージをシステムに送る
    SHAppBarMessage
　　　　タスクバーの左上隅と右下隅の座標を取得
　　　　タスクバーに「常に手前に表示」が設定されているか？
　　　　タスクバーに「自動的に隠す」が設定されているか？

t1.gif (198 バイト)クラス名またはウィンドウ名からウィンドウのハンドルを取得
    FindWindow
t1.gif (198 バイト)ウィンドウのサイズと位置とZオーダーを設定する
    SetWindowPos
t1.gif (198 バイト)ウィンドウにメッセージを送る
    SendMessage
　　　　ウィンドウを最前面に
　　　　ウィンドウタイトルを取得
ファイル操作（SHFileOperation）のラッパー  (UPD 01/03/17)
標準モジュールにWin32APIのSHFileOperationを使った次の関数を作成していますのでご利用ください。エラーが発生した場合はエクスプローラのファイル操作で表示されるダイアログが表示されます。
拡張仕様としてオプションフラグを追加していますが、引数はVBAまたはVBの関数と同様です。

LsFileCopy（ファイルまたはフォルダをコピー）
LsKill（ファイルまたはフォルダを削除）
LsName（ファイルまたはフォルダの名前変更）
LsMove（ファイルまたはフォルダを移動）

Ole機能を使ってExcelに罫線を引く場合の注意(upd 01/03/17)
　　　　　　　　　訂正（01/04/02）

Msgbox Val("９")は？（全角数字の扱い）(upd 01/03/17)

a-mini-6.gif (272 バイト)ＭｄｂＣｍｐｔ(V2.05)バージョンアップ(UPD 01/03/03)

項目の表示サイズを調整できるリストボックス  (UPD 01/02/17)
　　　　項目の表示サイズを調整できるリストボックスです。項目名クリックでソートするため、スライダー用ラベルを作っています。

RowSourceに2048バイトを超える文字列を指定するとエラー(upd 01/02/17)

(^o^)丿　禁煙３年目に入りました　(^o^)丿 ( 01/02/16)

ユニオンクエリーを使ってコンボボックスのリストに (なし) を簡単に追加  (UPD 01/01/27)
　　　　テーブルにデータを追加することなく、ユニオンクエリーを使ってコンボボックスに (なし) を追加します。ユーザー定義関数は一切使いません。

a-mini-6.gif (272 バイト)Excel振込(V1.21)バージョンアップ(UPD 01/01/20)

いよいよMSの２００１年問題の始まりです。弊社でも新年早々やられました。SQLでFormat(日付,"yyyy/mm/dd)をかけていないところがあってデータ検索ができない事態に陥り、お客様に平身低頭 m(__)m
皆様もせいぜいお気をつけになってすばらしい２１世紀にいたしませう。

Win NTでは動いて、Win 9XではエラーになるVariant型(upd 01/01/13)