Database Summary Title

[traveler92118]

I am using Access 2003.

Part 1.
I am trying to find a way to have the title from the Database Properties/Summary window to be copied to the File/Properties/Summary/Title field?

Part 2.
The next part of this problem is that when compact on close is selected which we need to do then the title in the File/Properties/Summary/Title field is blank. Is there a way to have this field always updated after a compact. This way we always can tell which version is in use.

Open to any suggestions on this.

Thanks In Advance.

[NeoPa]

Are you really asking question one because of the behaviour specified in question two?

If answering your questions as put I'd start off by saying you can use cut/paste to set tham the same way.

[Lysander]

I am using Access 2003.

Part 1.
I am trying to find a way to have the title from the Database Properties/Summary window to be copied to the File/Properties/Summary/Title field?

Part 2.
The next part of this problem is that when compact on close is selected which we need to do then the title in the File/Properties/Summary/Title field is blank. Is there a way to have this field always updated after a compact. This way we always can tell which version is in use.

Open to any suggestions on this.

Thanks In Advance.

If you are trying to keep track of version, I use two tables in all my database, tblGlobalData in the back end, tblGlobalCode in the front end. These tables hold the current version number and I have code written that detects that the version numbers are correct and users are not running old versions. Not answering your problem but maybe a different way of solving it

[ADezii]

I am using Access 2003.

Part 1.
I am trying to find a way to have the title from the Database Properties/Summary window to be copied to the File/Properties/Summary/Title field?

Part 2.
The next part of this problem is that when compact on close is selected which we need to do then the title in the File/Properties/Summary/Title field is blank. Is there a way to have this field always updated after a compact. This way we always can tell which version is in use.

Open to any suggestions on this.

Thanks In Advance.

To retrieve Summary Database Properties:

1. Create a Function that will extract the requested Property.
   

   Function GetSummaryInfo(strPropName As String) As String
   Dim dbs As Database, cnt As Container
   Dim doc As Document, prp As Property
    
   'Property not found error.
   Const conPropertyNotFound = 3270
    
   On Error GoTo GetSummary_Err
   Set dbs = CurrentDb
   Set cnt = dbs.Containers!Databases
   Set doc = cnt.Documents!SummaryInfo
   doc.Properties.Refresh
    
   GetSummaryInfo = doc.Properties(strPropName)
    
   GetSummary_Bye:
     Exit Function
    
   GetSummary_Err:
   If Err = conPropertyNotFound Then
     Set prp = doc.CreateProperty(strPropName, dbText, "None")
     'Append to collection.
     doc.Properties.Append prp
       Resume
   Else
     'Unknown error.
     GetSummaryInfo = ""
       Resume GetSummary_Bye
   End If
   End Function

2. Pass the required Argument to the Function.
   

   Dim strTitle As String, strSubject As String
   Dim strAuthor As String, strManager As String
    
   strTitle = GetSummaryInfo("Title")
   strSubject = GetSummaryInfo("Subject")
   strAuthor = GetSummaryInfo("Author")
   strManager = GetSummaryInfo("Manager")
   'etc........
    
   Debug.Print "Title: " & strTitle
   Debug.Print "Subject: " & strSubject
   Debug.Print "Author: " & strAuthor
   Debug.Print "Manager: " & strManager

3. Sample Output has been provided.

OUTPUT:

Title: Summary Info Code Demonstration
Subject: Retrieve Summary Database Properties
Author: ADezii
Manager: You Guessed it! - ADezii

[ADezii]

I am using Access 2003.

Part 1.
I am trying to find a way to have the title from the Database Properties/Summary window to be copied to the File/Properties/Summary/Title field?

Part 2.
The next part of this problem is that when compact on close is selected which we need to do then the title in the File/Properties/Summary/Title field is blank. Is there a way to have this field always updated after a compact. This way we always can tell which version is in use.

Open to any suggestions on this.

Thanks In Advance.

To retrieve Summary Database Properties:

1. Create a Function that will extract the requested Property.
   

   Function GetSummaryInfo(strPropName As String) As String
   Dim dbs As Database, cnt As Container
   Dim doc As Document, prp As Property
    
   'Property not found error.
   Const conPropertyNotFound = 3270
    
   On Error GoTo GetSummary_Err
   Set dbs = CurrentDb
   Set cnt = dbs.Containers!Databases
   Set doc = cnt.Documents!SummaryInfo
   doc.Properties.Refresh
    
   GetSummaryInfo = doc.Properties(strPropName)
    
   GetSummary_Bye:
     Exit Function
    
   GetSummary_Err:
   If Err = conPropertyNotFound Then
     Set prp = doc.CreateProperty(strPropName, dbText, "None")
     'Append to collection.
     doc.Properties.Append prp
       Resume
   Else
     'Unknown error.
     GetSummaryInfo = ""
       Resume GetSummary_Bye
   End If
   End Function

2. Pass the required Argument to the Function.
   

   Dim strTitle As String, strSubject As String
   Dim strAuthor As String, strManager As String
    
   strTitle = GetSummaryInfo("Title")
   strSubject = GetSummaryInfo("Subject")
   strAuthor = GetSummaryInfo("Author")
   strManager = GetSummaryInfo("Manager")
   'etc........
    
   Debug.Print "Title: " & strTitle
   Debug.Print "Subject: " & strSubject
   Debug.Print "Author: " & strAuthor
   Debug.Print "Manager: " & strManager

3. Sample Output has been provided.

OUTPUT:

Title: Summary Info Code Demonstration
Subject: Retrieve Summary Database Properties
Author: ADezii
Manager: You Guessed it! - ADezii

To Set a Database Summary Property:

Function SetCustomProperty(strPropName As String, intPropType _
    As Integer, strPropValue As String) As Integer
 
Dim dbs As Database, cnt As Container
Dim doc As Document, prp As Property
 
Const conPropertyNotFound = 3270        ' Property not found error.
 
Set dbs = CurrentDb                     ' Define Database object.
Set cnt = dbs.Containers!Databases      ' Define Container object.
Set doc = cnt.Documents!SummaryInfo     ' Define Document object.
 
On Error GoTo SetCustom_Err
 
doc.Properties.Refresh
' Set custom property name. If error occurs here it means
' property doesn't exist and needs to be created and appended
' to Properties collection of Document object.
Set prp = doc.Properties(strPropName)
prp.Value = strPropValue                ' Set custom property value.
 
SetCustomProperty = True
 
SetCustom_Bye:
  Exit Function
 
SetCustom_Err:
  If Err = conPropertyNotFound Then
    Set prp = doc.CreateProperty(strPropName, intPropType, strPropValue)
    doc.Properties.Append prp           ' Append to collection.
      Resume Next
  Else                                  ' Unknown error.
  MsgBox Err.Description
    SetCustomProperty = False
      Resume SetCustom_Bye
  End If
End Function

Dim intRet As Integer
intRet = SetCustomProperty("Title", dbText, "Herman Munster")