zip358.com🐧

Option Compare Database
Private Sub コマンド0_Click()
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strPath As String
Dim flg As Boolean
flg = False
'Set dbs = CurrentDb
'クエリ有無
'For Each qdf In dbs.QueryDefs
'    If qdf.Name = "適当なクエリ名" Then
'        flg = True
'        Exit For
'    End If
'Next
'存在する場合クエリ削除
'If flg = True Then
'    dbs.QueryDefs.Delete "適当なクエリ名"
'    flg = False
'End If
'If flg = False Then
'    Set qdf = dbs.CreateQueryDef("適当なクエリ名", "SELECT * FROM 吐き出したいテーブル名;")
    strPath = "C:\Users\zip\Desktop\test.csv" 'ファイルが存在すること。
    DoCmd.TransferText acExportDelim, , "適当なクエリ名", strPath, True
'    dbs.Close 'dbsをクローズ
'    Set dbs = Nothing 'dbsを開放
'    Set qdf = Nothing 'qdfを開放
'End If
End Sub