あした

'
' フォームにあるコントロールを一覧表示する。
'
Public Sub Controls_name()

    Dim frm     As Form
    Dim ctl     As Control
    
    DoCmd.OpenForm "f_履歴一覧", _
    acDesign, , , , acHidden
    
    Set frm = Forms!f_履歴一覧
    
    For Each ctl In frm.Controls
        Debug.Print ctl.Name
    Next ctl
    
    DoCmd.Close acForm, "f_履歴一覧", acSaveNo

ProcExit:
    Exit Sub
ErrProc:
    MsgBox " " & Err.Number & " " & Err.Description
    Resume ProcExit
End Sub