Samples and Downloads (71-79)
レポートのプリンタを変更して印刷するサンプルデータベース(その1)   
Access 2000  (10/06/2000) 

レポートのプリンタをコンボボックスから選択して、任意のプリンタに印刷するサンプルデータベースです。ソースコード付きのSetDefaultPrinter.MDB を用意しましたのでダウンロードしてください!

Fig1 Fig2
  • コンボボックスからレポートを選択すると、Windowsのデフォルトプリンタが表示されます
  • Print to Default Destinationボタンをクリックするとデフォルトのプリンタに印刷します
  • 特定のプリンタに印刷するには、プリンタのコンボボックスからプリンタを選択して、Print to Chosen Destinationボタンをクリックします
  • プリンタのコンボボックスには、システムにインストールされている全てのプリンタが表示されます
  • レポートのPrtDevMode, PrtDevNames, PrtMipプロパティを書き替えるには、レポートをデザインモードで開く必要があります。(従って、MDE版ではこれらのプロパティを変更できません)
  • アドイン(.mda)を実行時ダイナミックに登録する機能を追加しました
  • ここで紹介するサンプルデータベースでは、MDE版でもレポートのプリンタを自由に変更することができます
  • PrinterAddIns.MDAのソースコードは非公開とさせて頂きますのでご了承ください (11/16/2002)
GIF,JPEG,BMPなどのイメージファイルをフォームにロードするサンプルデータベース   
Access 2000  (10/04/2000) 

イメージファイルをコモンダイアログから選択してフォーム上に表示するサンプルデータベースです。ソースコード付きのDisplayImage2.MDB を用意しましたのでダウンロードしてください!
Fig1 Fig3 Fig4
  • Windowsのコモンダイアログから任意のイメージファイルを選択してフォーム上に表示します
  • コマンドボタンImage Pathをクリックするとコモンダイアログが表示されます
  • コモンダイアログのファイルの種類をクリックすると、GIF,JPEG,BMPが表示されますのでファイルのタイプを選択します
  • コマンドボタンSave Image Pathをクリックするとイメージファイルのパス名がテーブルに保存されます
  • コマンドボタンDisplay Saved Imagesをクリックするとテーブルに保存されたイメージをスライドショーのように表示できます
  • WindowsのレジストリをVBAから書き替えて、イメージロード中のメッセージを抑止できます
Excelオートメーション サンプルコード集(応用編)   
Access 2000 / Excel 2000  (10/02/2000) 

オートメーション機能を利用してAccessのデータをExcel経由で編集して印刷するサンプルコード集です。ソースコード付きのAutomatingExcel2.MDB を用意しましたのでダウンロードしてください!

データベースには、以下のサンプルコードが登録されています:
  • クロス集計クエリをワークシートに貼り付けるには
  • ワークシートに作成した表の列合計/行合計を計算するには
  • ワークシートに作成した表に格子型の罫線を引くには(Borders/AutoFormat)
  • ワークシートに印刷タイトル等のページ情報を設定するには
  • ワークシートに作成した表をプレビュー印刷するには
Excelオートメーション サンプルコード集(基礎編)   
Access 2000 / Excel 2000  (10/02/2000) 

オートメーション機能を利用してAccessのデータをExcel経由で編集して印刷するサンプルコード集です。ソースコード付きのAutomatingExcel1.MDB を用意しましたのでダウンロードしてください!

Fig1 - Automating Excel Part1
データベースには、以下のサンプルコードが登録されています:
  • AccessからExcelを起動するには(Early Binding方式)
  • AccessからExcelを起動するには(Late Binding方式)
  • 既に起動されているExcelを再使用するには
  • Excelを起動/終了させる関数を作成するには
  • ワークシートのセルに値をセットするには
  • ワークシートに作成した表の合計を計算するには
  • レコードセットをワークシートに貼り付けるには(GetRows)
  • 配列変数の内容をワークシートに貼り付けるには(Array)
  • レコードセットをワークシートに貼り付けるには(CopyFromRecordset)
得意先テーブルをワードに貼り付けて35種類の表を作成するサンプルデータベース   
Access 2000 / Word 2000  (09/22/2000) 

Accessの得意先テーブルをワードに貼り付けて35種類の表を作成するサンプルデータベースです。ソースコード付きのTransferCustomerstoWord.MDB を用意しましたのでダウンロードしてください!
Fig1 Fig2 Fig3
  • Accessの得意先テーブルをWordに貼り付けて表を作成します
  • Wordに作成する表のパターンは35種類の中から選択することができます
  • 得意先テーブルの他に仕入先、商品マスタなど任意のテーブルをWordに貼り付けることができます
DAOからADOに移行するためのサンプルコード集     Access 2000  (09/18/2000) 

Access 2000のDAOからADOに移行するためのサンプルコード集です。ソースコード付きのMigrateDAOtoADO.MDB を用意しましたのでダウンロードしてください!

Fig1 Fig2 Fig3
  • DAOからADOに移行するためのサンプルコード集です
  • サンプルデータベースにはDAO/ADO双方のコードが登録されています
  • メニューのオプショングループからDAO/ADOをクリックすると対応するコードが表示されます
  • データベースのオープンからレコードセットの処理まで27種類のサンプルが登録されています
  • リストボックスからアイテムをクリックするとサンプルコードがVBE上に表示されます
  • ADOのサンプルには、ストアドプロシージャのパラメータ値を設定する方法が3種類登録されています
  • このサンプルデータベースは、ソースコードを表示しますのでMDE版は動作しません
社員のリレーションシップを階層化して表示するサンプルデータベース   
Access 2000 / VB 6.0 (09/13/2000) 

コンボボックスから選択した社員のリレーションを階層化してWindowsのエクスプローラ風に表示するサンプルデータベースです。ソースコード付きのTreeViewEmployeeRelationship.MDB を用意しましたのでダウンロードしてください!

Fig1

  • コンボボックスから選択した社員を基点(ルート)にした関連図をツリー表示します
  • ツリーの階層は5段階まで可能です
  • ツリーの社員名をクリックすると右側に社員の詳細情報が表示されます
  • 社員の標題をクリックすると降順/昇順に並べ替えします
  • このサンプルデータベースは、Visual Basic 6.0のActiveXコントロールを使用していますのでAccess 2000の他にVB6.0が必要です
社員を部署別に階層化して表示するサンプルデータベース   
Access 2000 / VB 6.0 (09/13/2000) 

社員を部署別に階層化してWindowsのエクスプローラ風に表示するサンプルデータベースです。ソースコード付きのTreeViewEmployee.MDB を用意しましたのでダウンロードしてください!

Fig1

  • 左側に会社の組織をツリー構造で表示します
  • 右側に選択した部署の社員一覧(氏名、役職、入社日、生年月日、出身地)を表示します
  • 社員の標題をクリックすると降順/昇順に並べ替えします
  • このサンプルデータベースは、Visual Basic 6.0のActiveXコントロールを使用していますのでAccess 2000の他にVB6.0が必要です
データシートの列幅を自動調整するサンプルデータベース   
Access 2000 (09/05/2000) 

データシート型フォームの列幅を自動調整して表示するサンプルデータベースです。ソースコード付きのAutosizeColumns.MDB を用意しましたのでダウンロードしてください!

Fig1

  • データシートの列幅をデータの桁数に合わせて自動調整します。
  • レコードが移動する度に、データシートの列幅が自動調整されて表示されます。
  • このサンプルデータベースは、メイン/サブフォームの組み合わせに適用すると効果があります。