あした

    Dim Objxls           As Object
    Dim strFile          As String

    strFile = "\\Server\共有フォルダ\xxxxxxxxxx.xlsx"
    
    Set Objxls = CreateObject("Excel.Application")
    With Objxls
        .Visible = True
        .Workbooks.Open strFile
    End With

Public Function AutoExecProc()
    
    On Error GoTo ErrProc

    DoCmd.SetWarnings 0

    With CurrentDb
        .Execute "Ini1000_ToolUpdateLog_WK"
        .Execute "Ini1700_UplogConsolidation"
        .Execute "Ini2000_ToolUpdateLog"
        .Execute "Ini2500_ToolUpdateLog_reset"
        .Execute "Ini9000_unyoPC_del"
    End With

    With DoCmd
        .OpenQuery "使用者状況", , acReadOnly
        .OpenQuery "更新状況_U", , acReadOnly
        .OpenQuery "起動回数", , acReadOnly
        .OpenQuery "使用状況", , acReadOnly
    End With

Proc_EXIT:
    DoCmd.SetWarnings 1
    Exit Function
ErrProc:
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Function

Private Sub Form_Load()

    On Error GoTo ErrProc

    'リボンを非表示
    DoCmd.ShowToolbar "Ribbon", acToolbarNo

    'ナビゲーションウインドウを非表示
    DoCmd.NavigateTo "acNavigationCategoryObjectType", ""
    DoCmd.RunCommand acCmdWindowHide
    
Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Sub

Option Compare Database
Option Explicit

Dim lcount          As Long

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
    On Error GoTo ErrProc
    
    lcount = 0
    
Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " <グループヘッダー0_Format> " & Err.Description
    Resume Proc_EXIT
End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    On Error GoTo ErrProc
    
    lcount = lcount + 1
    Me.l_lcount = lcount
    
Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " <詳細_Print> " & Err.Description
    Resume Proc_EXIT
End Sub

' フォームのヘッダー内の入力条件をクリアする。
'   ◆対象コントロール
'   ・テキストボックス
'   ・コンボボックス
'   ・リストボックス
'   ・オプショングループ
'
Private Sub Clear_search_conditions()
    Dim h_ctl               As Control
    
    On Error Resume Next
    'フォーム内のヘッダーのコントロールを検索
    For Each h_ctl In Me.Section(acHeader).Controls             'ヘッダー項目のみ
        With h_ctl
            Select Case .ControlType
                Case acTextBox                  'テキストボックス
                    If Not .Locked Then         '編集ロックしていない項目
                       .Value = Null
                    End If
                Case acComboBox, acCheckBox     'コンボボックス/リストボックス
                        .Value = Null
                Case acOptionGroup
                        .Value = "1"            'オプショングループ
            End Select
        End With
    Next h_ctl

Proc_EXIT:
    DoCmd.SetWarnings 1
    Exit Sub
ErrProc:
'    Debug.Print h_ctl.Name
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Sub

Private Sub taisyo_syurui_AfterUpdate()
    Dim rs          As DAO.Recordset
    
    On Error GoTo Err_Proc

    Set rs = Forms![f_メインフォーム]![f_サブフォーム].Form.Recordset.Clone
    rs.MoveFirst
    
    Do Until rs.EOF
        rs.Edit
        Select Case Me.taisyo_syurui
            Case 1
                    rs![List_Taisyo] = True
            Case 3
                    rs![List_Taisyo] = rs![Ship_Flg] 
            Case 9
                    rs![List_Taisyo] = False
        End Select

        rs.Update
    rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
    Forms![f_メインフォーム]![f_サブフォーム].Form.Requery

Proc_Exit:
    DoCmd.SetWarnings 1
    Exit Sub
Err_Proc:
    MsgBox Err.number & " " & Err.description
    Resume Proc_Exit
End Sub

Public p_UserName               As String
Public p_UserDomain             As String
Public p_ComputerName           As String

Public Function UserNameGet()

    Dim objNetWork          As Object

    'ネットワークオブジェクトの作成
    Set objNetWork = CreateObject("WScript.Network")

    'ユーザ名
    p_UserName = objNetWork.UserName

    'ドメイン名
    p_UserDomain = objNetWork.UserDomain

    'コンピュータ名
    p_ComputerName = objNetWork.ComputerName

    Set objNetWork = Nothing
    
End Function