次の方法で共有

DBEngine.CreateWorkspace メソッド (DAO)

適用先: Access 2013、Office 2013

新しい Workspace オブジェクトを作成します。

構文

式 。CreateWorkspace(Name, UserName, Password, UseType)

式DBEngine オブジェクトを表す変数です。

パラメーター

名前

必須かどうか

データ型

説明

名前

必須

String

新しい Workspace オブジェクトの一意の名前を表す文字列型 (String) の値。 有効なワークスペース名の詳細については、Name プロパティを参照してください。

UserName

必須

String

新しい Workspace オブジェクトの所有者を表す文字列型 (String) の値。 詳細については、UserName プロパティを参照してください。

Password

必須

String

新しい Workspace オブジェクトのパスワードが含まれる文字列型 (String) の値。 パスワードは 20 文字以内にする必要があり、ASCII 文字 0 (null) 以外の任意の文字を使用できます。

注: 大文字と小文字、数字、記号を組み合わせた強力なパスワードを使用します。 これらの文字を混在させたものになっていないパスワードは強固とはいえません。 たとえば、Y6dh!et5 は安全性の高いパスワードです。 House27 は推測されやすいパスワードです。 強力なパスワードでありながら、書き留めておかなくても覚えておくことができるパスワードを使用してください。

UseType

省略可能

バリアント型 (Variant)

WorkspaceTypeEnum 値のいずれか。

注: Microsoft Access 2013 では、ODBCDirect ワークスペースはサポートされていません。 Microsoft Access データベース エンジンを使用せずに外部データ ソースにアクセスする場合は、ADO を使用してください。

戻り値

ワークスペース

注釈

CreateWorkspace メソッドを使用して新しい Workspace オブジェクトを作成すると、 Workspace セッションが開始され、 Workspace オブジェクトをアプリケーションで参照できるようになります。

Workspace オブジェクトは永続的ではなく、ディスクに保存することはできません。 Workspace オブジェクトの作成後はそのオブジェクトのプロパティの設定を変更できませんが、 Name プロパティは唯一の例外であり、 Workspace オブジェクトを Workspaces コレクションに追加する前に変更することができます。

新しい Workspace オブジェクトを使用するために、このオブジェクトをコレクションに追加する必要はありません。 Workspaces コレクションを通じて参照する場合のみ、新しく作成した Workspace オブジェクトをコレクションに追加します。

Workspaces コレクションから Workspace オブジェクトを削除するには、開いているすべてのデータベースと接続を閉じてから、Workspace オブジェクトの Close メソッドを使用します。

例

この例では、 CreateWorkspace メソッドを使用して Microsoft Access ワークスペースを作成します。 次に、ワークスペースのプロパティの一覧を表示します。

Sub CreateWorkspaceX() 
 
   Dim wrkAcc As Workspace 
   Dim wrkLoop As Workspace 
   Dim prpLoop As Property 
 
   DefaultType = dbUseJet 
   ' Create an unnamed Workspace object of the type  
   ' specified by the DefaultType property of DBEngine  
   ' (dbUseJet). 
   Set wrkAcc = CreateWorkspace("", "admin", "") 
 
   ' Enumerate Workspaces collection. 
   Debug.Print "Workspace objects in Workspaces collection:" 
   For Each wrkLoop In Workspaces 
      Debug.Print "  " & wrkLoop.Name 
   Next wrkLoop 
 
   With wrkAcc 
      ' Enumerate Properties collection of Microsoft Access  
      ' workspace. 
      Debug.Print _ 
         "Properties of unnamed Microsoft Access workspace" 
      On Error Resume Next 
      For Each prpLoop In .Properties 
         Debug.Print "  " & prpLoop.Name & " = " & prpLoop 
      Next prpLoop 
      On Error GoTo 0 
   End With 
 
   wrkAcc.Close 
 
End Sub
  • Last updated on