VBAで変数に格納する情報を条件分岐したい
VBAで変数に格納する情報を条件分岐したい
ACCESS VBAを組んでいるのですが、
フォーム上で４つの条件のうちどれかで絞込みをかけたデータを
エクスポートする際、
日付、条件をファイル名につけたいと思っています。
日付はつけられるのですが、
変数に条件を格納するIF分を書いたところ
取得できていないようです。
お知恵を拝借できますでしょうか。
いかがコードになります。
Private Sub cmd04_Click()
Dim epData As String
Dim epObj As String
Dim myFile As String
Dim mySQL As String
Dim db As DAO.Database
Dim myFol As String
Dim myKey As String
If txtPC番号 = Not Null Then
myKey = txtPC番号
ElseIf com所属部所 = Not Null Then
myKey = com所属部所
ElseIf txt使用者 = Not Null Then
myKey = txt使用者
ElseIf txtPC名 = Not Null Then
myKey = txtPC名
End If
epData = CurrentProject.Path
epObj = "T05_使用者一覧抽出結果"
myFile = Screen.ActiveForm.Name
Set db = CurrentDb()
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q10_使用者一覧抽出結果"
DoCmd.SetWarnings True
mySQL = "INSERT INTO T05_使用者一覧抽出結果 select * FROM Q04_パソコン機器管理台帳 WHERE " & Me.Filter & ";"
' SQLを実行します。
db.Execute mySQL
'CSVファイルをエクスポート
DoCmd.TransferText acExportDelim, , epObj, epData & "\" & Format(InDate, "yyyymmdd") & "_" & myKey & "_使用者一覧.csv", True
MsgBox "エクスポートが完了しました"
'エクスポートしたフォルダを開く
MsgBox "エクスポートが終了したのでフォルダを開きます"
myFol = epData
Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus
End Sub
