none
accessを起動後、もう1つのAccessを起動して、このaccessのタイトル変更したい。 RRS feed

  • 質問

  • 下記のVBAの '==== から'===までの正しい書き方を教えて下さい。宜しくお願いします。
       
      Set acApp = New Access.Application
      With acApp
        .Visible = True
        .OpenCurrentDatabase "C:\My Documents\db1.accdb"
        '===================================
        Const cstrPrpName = "AppTitle"
        .Properties(cstrPrpName) = "新しいタイトル"
        .RefreshTitleBar
        '===================================
      End With

    2018年11月20日 14:55

回答

  • これでどうでしょう。

    Const cstrPrpName As String = "AppTitle"
    Dim db As DAO.Database
    Dim p As DAO.Property, pTitle As DAO.Property
    
    Set db = acApp.CurrentDb()
    Set pTitle = Nothing
    For Each p In db.Properties
        If StrComp(p.Name, cstrPrpName, vbTextCompare) = 0 Then
            Set pTitle = p
            Exit For
        End If
    Next
    If pTitle Is Nothing Then
        Set p = db.CreateProperty(cstrPrpName, DataTypeEnum.dbText, "Title")
        db.Properties.Append p
    End If
    pTitle.Value = "新しいタイトル"
    Set pTitle = Nothing
    Set db = Nothing
    acApp.RefreshTitleBar



    2018年11月20日 15:32

すべての返信

  • これでどうでしょう。

    Const cstrPrpName As String = "AppTitle"
    Dim db As DAO.Database
    Dim p As DAO.Property, pTitle As DAO.Property
    
    Set db = acApp.CurrentDb()
    Set pTitle = Nothing
    For Each p In db.Properties
        If StrComp(p.Name, cstrPrpName, vbTextCompare) = 0 Then
            Set pTitle = p
            Exit For
        End If
    Next
    If pTitle Is Nothing Then
        Set p = db.CreateProperty(cstrPrpName, DataTypeEnum.dbText, "Title")
        db.Properties.Append p
    End If
    pTitle.Value = "新しいタイトル"
    Set pTitle = Nothing
    Set db = Nothing
    acApp.RefreshTitleBar



    2018年11月20日 15:32
  • 早々のお返事ありがとうございます。
    床につきながら返信を読ませていただきました。
    テストは明日にさせていただきます。眠いのです。
    嬉しくて、お返事だけはと、頑張っています。
    僕の頭では、とても考えられません。

    本当にありがとうございました。

    2018年11月20日 17:30
  • ご回答いただいた内容でテストを行いました。
    無事に一発でタイトルの変更ができました。
    本当にありがとうございました。

    2018年11月21日 17:12