Dim strMDE As String Select Case CurrentProject.ProjectType Case acADP On Error Resume Next strMDE = CurrentProject.Properties("MDE") If Err = 0 And strMDE = "T" Then MsgBox "ADE です" Else MsgBox "ADP です" End If On Error GoTo 0 Case acMDB On Error Resume Next strMDE = CurrentDb.Properties("MDE") If Err = 0 And strMDE = "T" Then MsgBox "MDE です" Else MsgBox "MDB です" End If On Error GoTo 0 Case Else MsgBox "不明" End Select