11_入荷　Access側

Private Sub コマンド14_Click() '印刷
Dim Path As String
DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from 5_着荷伝票印刷用"""
    DoCmd.OpenQuery "Q_着荷伝票印刷"
DoCmd.SetWarnings True
        Path = "D:\JBRC検収システム\16_着荷伝票印刷データ" & "\" & Format$(Date, "yyyymmdd") & "着荷伝票印刷用データ.xlsx"
    DoCmd.TransferSpreadsheet acExport, 10, "5_着荷伝票印刷用", Path, True, ""
MsgBox "JBRC検収システム\13_入荷済データ\日付+着荷伝票印刷用データ.xlsxに保存しました。"
End Sub

------------------------------------------------------

Private Sub コマンド2_Click()
Application.Quit
End Sub

Private Sub コマンド3_Click() '朝一番
Dim nuwka As Long
nuwka = MsgBox("JBRCWebから運送データと着荷データはダウンロードしましたか？", vbYesNo)
If nuwka = vbYes Then
DoCmd.RunSQL "DELETE * from 1_未入荷エクスポート"""
DoCmd.SetWarnings False
DoCmd.OpenQuery "1_未入荷データ", acNormal, acEdit

MsgBox "JBRCデータ未入荷データ更新終了♪"
Else
  MsgBox "処理は中断しました。"
  End If
End Sub

--------------------------------------------
Private Sub コマンド0_Click()
Dim objACCESS As Object
 Set objACCESS = CreateObject("Access.Application")

 '指定ファイルを開く(ここに指定ファイルのフルパスを記述します)
objACCESS.OpenCurrentDatabase "D:\JBRC検収システム\03_入力済データ\12_保管\年間DB.accdb"

 objACCESS.Visible = True
 objACCESS.UserControl = True
 Set objACCESS = Nothing

End Sub

Private Sub コマンド6_Click() '入荷後作成データ
Dim Path As String
DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from 2_入荷済エクスポート"""
    DoCmd.OpenQuery "2_入荷済データ"
    DoCmd.RunSQL "DELETE * from 3_カーゴエクスポート"""
    DoCmd.OpenQuery "3_カーゴデータ"
    DoCmd.RunSQL "DELETE * from 4_着荷伝票エクスポート"""
    DoCmd.OpenQuery "Q_着荷伝票データ"
DoCmd.SetWarnings True
    Path = "D:\JBRC検収システム\03_入力済データ\13_入荷済データ" & "\" & Format$(Date, "yyyymmdd") & "入荷済データ.xlsx"
    DoCmd.TransferSpreadsheet acExport, 10, "2_入荷済エクスポート", Path, True, ""
    Path = "D:\JBRC検収システム\03_入力済データ\15_検収用データ\入荷済データ" & "\" & "本日入荷済データ.xlsx"
    DoCmd.TransferSpreadsheet acExport, 10, "2_入荷済エクスポート", Path, True, ""
            MsgBox "入荷済エクスポートされました♪"
    Path = "D:\JBRC検収システム\03_入力済データ\14_カーゴデータ" & "\" & Format$(Date, "yyyymmdd") & "カーゴデータ.xlsx"
    DoCmd.TransferSpreadsheet acExport, 10, "3_カーゴエクスポート", Path, True, ""
            MsgBox "カーゴデータエクスポートされました♪"
     Path = "D:\JBRC検収システム\03_入力済データ\16_着荷伝票印刷データ" & "\" & Format$(Date, "yyyymmdd") & "着荷伝票データ.xlsx"
    DoCmd.TransferSpreadsheet acExport, 10, "4_着荷伝票エクスポート", Path, True, ""

        MsgBox "着荷伝票エクスポートされました♪"
MsgBox "年間保管用ボタンをクリツクしてください。"
End Sub