Access 選択されたフォルダ内の全ファイル（サブフォルダも含む）のフルパスとファイル名を取得し、それらをテーブルAに格納
Option Compare DatabaseOption Explicit' フォルダ選択ダイアログを表示し、選択されたフォルダを取得Function GetFolder() As String Dim fDialog As FileDi...
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 RuntimePublic Sub prcBackupDatabase() Dim fso As New FileSystemObject ' FileSystemObject Dim ...
Access MSysIMEXColumns テーブルのインポート定義
MSysIMEXColumns テーブルのインポート定義■DataType（データ型）1: Yes/No型2: バイト型3: 整数型4: 長整数型5: 通貨型6: 単精度浮動小数点型7: 倍精度浮動小数点型8: 日付/時刻型10: テキスト...
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 DatabaseOption ExplicitDim modLngObjNumber As LongDim modFolderLevel As IntegerSub prcStoreFilesInfoToTab...