Microsoft Access Club >RunCommand 解説 >このページ >次項 < 前項  サイト内検索


acCmdRelationships : Access RunCommand



この定数を用いると、リレーション設定画面を開く ことができます。イミディエイト画面上、フォーム上のコマンドボタン、ツールバーからといろいろと利用できます。

 

'Functionプロシージャは、VBE画面の標準モジュール欄に記述してください。

Function RunCommandMenu()

    On Error GoTo エラー
    
    DoCmd.RunCommand acCmdRelationships
    
    Exit Function
    
エラー:
    'エラーを分岐。
    If Err.Number = 2046 Then
        MsgBox Err.Description
    ElseIf Err.Number = 2501 Then
        MsgBox Err.Description
    Else
        MsgBox "予期せぬエラーが発生しました。: " & Err.Number
    End If
    
    End
End Function
 
'サンプルプロシージャは、フォーム上のコマンドボタンをクリックし処理を実行する設定です。
Private Sub Cmボタン_Click()

    Call RunCommandMenu
    
End Sub
 
  • 実行すると下記の画面が開きます。

 

リレーション設定画面

 

  • 後は、リレーション設定を行うだめです。

 

2003/12/18

acCmdRelationships : Access RunCommand


 

-Microsoft Access Club-

アメリカ合衆国の大手データセンターのアダルト対応可能なリーズナブル価格設定の専用・共有レンタルサーバーをご提供しています。
アメリカ合衆国の大手データセンターにサーバー機器を設置。
アダルト対応可能な専用・共有レンタルサーバーを提供。