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

2013〜2007年2006〜2003年2002年2001年2000年1999年


もうすぐ10万アクセス記念
「正倉院展」入場券(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を開くと触ることが出来ます。モ−ダルが解除された状態でExcel97ではセルの内容を変更することが出来ますが、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)

1.Accessのインスタンスを作成します。
2.MDBを開きます。
3.MDBのサブプロシジャの
引数に値を渡して実行します。
4.MDBは実行後
渡された引数に新しい値をセットして終了します。
5.呼び元では返ってきた引数の値を参照します。
(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 バイト)「デスクトップ」「最近使ったファイル」などOSが管理するフォルダのIDを取得する。
    (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("9")は?(全角数字の扱い)(upd 01/03/17)

a-mini-6.gif (272 バイト)MdbCmpt(V2.05)バージョンアップ(UPD 01/03/03)

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

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

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

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

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

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

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