Voila mon problème, je synchronise des bases de données (clientes) sur une base de données maître, et j'aimerais être informé quand le fichier maître est en phase de synchronisation.
L'objectif est d'avertir la (les) bases clientes si la base de données maître est occupée.
 
Voir ci-dessous    
-----------------------------------------
Public Function synchro()
Dim db As Database
 
On Error GoTo synchro_err
   
  'Set db = DBEngine(0).OpenDatabase("c:\SGBD\test_p.mdb" )
  Set db = DBEngine(0).OpenDatabase(ad_disc_local)
  DoCmd.Close acForm, "fiche société"
       DoCmd.Hourglass True
  '     db.Synchronize "\\***.***.**.**\test_p.mdb", dbImportChanges
       db.Synchronize ad_serveur_sync, dbRepImportChanges
  '     db.Synchronize "\\***.***.**.**\test_p.mdb", dbRepExportChanges
       db.Synchronize ad_serveur_sync, dbRepExportChanges
     
       DoCmd.Hourglass False
       
     MsgBox "Fin de la procédure de synchronisation"
     GoTo synchro_exit
     
synchro_err:
MsgBox ("La synchronisation ne s'est pas déroulé correctement le serveur est occupé" ) & (Chr(13)) & ("Veuillez recommencer la synchro dans quelques instants" )
DoCmd.Hourglass False
Resume synchro_exit
 
synchro_exit:
DoCmd.Close acForm, "f_synchroniser"
DoCmd.OpenForm "fiche société"
   
End Function
 
------------------------------------------------------
 
 
 
Merci d'avance