Function IsDatabaseReplica() As Boolean
' Comments : Determines if the current database is a replica
' Parameters: None
' Returns : True if the current version is a replica, False otherwise
'
On Error Resume Next

If CurrentDb.Properties("Replicable") = "T" Then
If Err = 3270 Then
' Database is not a replica
IsDatabaseReplica = False
Else
' Database is a Design Master or replica
IsDatabaseReplica = True
End If
End If

End Function