Public Function altObj(名前 As String, タイプ As Integer) As Boolean

' ACCESSのオブジェクト名が既に存在するかどうか調べる。
' 入力された「名前」と「タイプ」に該当するオブジェクトが存在した場合　True を返す。
' タイプ例:→ acTable,acQuery,acForm,acReport,acMacro,acModule　のいずれかを入力する。

On Error GoTo Err_altObj

    Dim mdb As DAO.Database
    Dim strName As String
    Dim strCon As String
    
    Set mdb = CurrentDb()
    Select Case タイプ
        Case acTable
            strName = mdb.TableDefs(名前).Name
        Case acQuery
            strName = mdb.QueryDefs(名前).Name
        Case acForm, acReport, acMacro, acModule
            Select Case タイプ
                Case acForm
                    strCon = "Forms"
                Case acReport
                    strCon = "Reports"
                Case acMacro
                    strCon = "Scripts"
                Case acModule
                    strCon = "Modules"
            End Select
            strName = mdb.Containers(strCon).Documents(名前).Name
    End Select
    
    altObj = True
    
altObj_Exit:
    Exit Function
    
Err_altObj:
    altObj = False
    Resume altObj_Exit

End Function