cs_univers
Messages postés26Date d'inscriptionsamedi 5 janvier 2002StatutMembreDernière intervention29 mai 2009 27 nov. 2005 à 20:37
Un exemple de fonction à lancer :
Public Sub ConnectReport(p_rep As CRPEAuto.Report)
On Error Resume Next
Dim tb As CRPEAuto.DatabaseTable
For Each tb In p_rep.Database.Tables
tb.Location = [votre Base]
Next tb
On Error GoTo 0
End Sub