Onlin Shop商品管理DB

1. Home
2. 準備編

ファイル選択ダイアログを開きファイル名を取得する

ファイル選択ダイアログを開き、任意のファイル名を取得する

ファイル選択ダイアログを開く

標準モジュールFunction GetFName

    Dim flDrive As String, flDir As String
    Dim flName As String, flExt As String
    Dim InitialDir As String
    Dim strFile   As String
    Dim intResult As Integer

環境変数を使ってフォルダーを指定、

    InitialDir = GetDocPath & "\Documents\OnlinShopDB";

ファイル選択ダイアログを開く

    WizHook.Key = 51488399    ' WizHook 有効化
    intResult = WizHook.GetFileName( _
                    0, "", "", "", strFile, InitialDir, _
                    "すべてのファイル (*.*)|*.*", _
                    0, 0, 0, True _
                    )

取得したファイルパスの分割してファイル名を取得

    WizHook.SplitPath strFile, flDrive, flDir, flName, flExt
    WizHook.Key = 0    ' WizHook 無効化
    GetFName = flName & flExt

環境変数ユーザプロファイルからパスを取得する(Environ)

標準モジュールFunction GetDocPath()

    Dim strDocPath As String
    strDocPath = Environ("USERPROFILE") & "\Documents"
    GetDocPath = strDocPath

テーブルの全レコードを削除する

標準モジュールSub All_DataDell(strTblNum As String)

    Dim db As DAO.Database
    Set db = CurrentDb
    
    db.Execute ("DELETE FROM " & strTblNum)
    
    db.Close: Set db = Nothing

 

EditRegion3