ProjectType Property [Access 2003 VBA Language Reference]

CurrentProject

AcProjectType can be one of these AcProjectType constants.
acADP
acMDB
acNull

expression.ProjectType

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

The ProjectType property is available only by using Visual Basic .

Example

The following example displays a message with details about the type of project that is currently open.

Dim intProjType As Integer
 
intProjType = Application.CurrentProject.ProjectType
 
Select Case intProjType
    Case 0 ' acNull
        MsgBox "ProjectType is acNull"
    Case 1 ' acADP
        MsgBox "ProjectType is acADP"
    Case 2 ' acMDB
        MsgBox "ProjectType is acMDB"
    Case Else
    MsgBox "Can't determine ProjectType" 
End Select

Applies to | CodeProject Object | CurrentProject Object