Access 選択されたフォルダ内の全ファイル（サブフォルダも含む）のフルパスとファイル名を取得し、それらをテーブルAに格納
Option Compare Database Option Explicit ' フォルダ選択ダイアログを表示し、選択されたフォルダを取得 Function GetFolder() As String Dim fDialog As Fil...
Access
Access Access フォームにフィルタを追加
Public Sub prcAddFilterToAnyForm(frm As Form, strAdditionalFilter As String) Dim strCurrentFilter As String ' 現在のフィルタ条件を...
Access 他のDBからテーブルをインポート
Sub prcImportTableDataWithSQL() ' A.accdbのテーブルAにB.accdbのテーブルBからデータをインポートする Dim strSourceDB As String ' インポート元データベースのパス D...
Access 他のデータベース（Access）を起動する
Private Sub prcOpenDatabaseB_Click() ' 変数宣言 Dim strDatabasePath As String ' データベースBのパス Dim appAccess As Access.Applicati...
Access 自身のバックアップを行う
※要参照設定：Microsoft Scripting Runtime Public Sub prcBackupDatabase() Dim fso As New FileSystemObject ' FileSystemObject Dim...
Access MSysIMEXColumns テーブルのインポート定義
MSysIMEXColumns テーブルのインポート定義 ■DataType（データ型） 1: Yes/No型 2: バイト型 3: 整数型 4: 長整数型 5: 通貨型 6: 単精度浮動小数点型 7: 倍精度浮動小数点型 8: 日付/時刻...
Access フォーム上でアクティブなレコードを新規レコードとして追加（一部のフィールドは値を変更）
Sub prcCopyActiveRecordWithValuesDefinedInCase() Dim rst As DAO.Recordset Dim fld As DAO.Field ' 現在のフォームのRecordsetCloneを...
Access 任意フォルダ内のサブフォルダを全て削除 →新たに10個のサブフォルダを作成
Sub CreateSubfolders() Dim fso As FileSystemObject Dim parentFolder As Folder Dim subFolder As Folder Dim folderPath As ...
Access フォームヘッダに設置してある複数のコントロールの値を元にフィルタをセットする
Public Sub prcApplyFiltersFromHeaderControls(frm As Form) Dim strFilter As String Dim ctl As Control ' フォームヘッダのコントロールをルー...
Access 対象フォルダ内のファイルとフォルダ一覧を作成
Option Compare Database Option Explicit Dim modLngObjNumber As Long Dim modFolderLevel As Integer Sub prcStoreFilesInfoT...