ACC: How to Find Out If Replica Is the Design Master

MORE INFORMATION

1. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

2. Type the following procedure:

         Function IsDesignMaster()
   
         ' This function determines if the current database is
         ' the Design Master and returns True if the current
         ' database is the Design Master and returns False if
         ' the current database is not the Design Master. The
         ' function returns Null if the database is not a
         ' replicable database.
   
         Dim db As DATABASE
   
         Set db = CurrentDb()
   
           If db.DesignMasterID = db.ReplicaID Then
             If db.ReplicaID = "" Then ' Check to see if db is replicable.
               IsDesignMaster = Null
             Else
               IsDesignMaster = True
             End If
           Else
             IsDesignMaster = False
           End If
   
         End Function

3. To test this function, type the following line in the Debug window, and then press ENTER.

   ? IsDesignMaster()

   Note that either Null, True, or False is returned.