Va ici sur ce site Relink Access tables from code http://www.mvps.org/access/tables/tbl0009.htm
Bonne prog'
Guy DETIENNE
"Yann" a écrit dans le message de news:
Bonjour, comment peut ont par code VBA
realiser la connexcion des tables lier merci
André AVONS
Salut dans nouveau module Option Explicit '------------------------------------------------------------ ' supprimer_table_attachee ' '------------------------------------------------------------ Function SupprimerTableAttachee(table) On Error GoTo supprimer_table_attachee_Err
DoCmd.DeleteObject acTable, table
supprimer_table_attachee_Exit: Exit Function
supprimer_table_attachee_Err:
Resume Next
End Function
Function CreerTableAttachee(Repertoire, table) On Error GoTo erreur Dim dbLocal As Database Dim tbfNewAttached As TableDef, chemin As String 'creation du chemin des tables attachee chemin = ";database=" & Repertoire 'Ex : "C:MonrepMabase.mdb" Set dbLocal = CurrentDb()
Set tbfNewAttached = dbLocal.CreateTableDef(table) With tbfNewAttached .Connect = chemin .SourceTableName = table End With dbLocal.TableDefs.Append tbfNewAttached CreerTableAttachee = "OK" Fin: set dblocal = nothing Exit Function erreur: CreerTableAttachee = "Erreur" Resume Fin
End Function
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ "Yann" a écrit dans le message de news:
Bonjour, comment peut ont par code VBA
realiser la connexcion des tables lier merci
Salut
dans nouveau module
Option Explicit
'------------------------------------------------------------
' supprimer_table_attachee
'
'------------------------------------------------------------
Function SupprimerTableAttachee(table)
On Error GoTo supprimer_table_attachee_Err
DoCmd.DeleteObject acTable, table
supprimer_table_attachee_Exit:
Exit Function
supprimer_table_attachee_Err:
Resume Next
End Function
Function CreerTableAttachee(Repertoire, table)
On Error GoTo erreur
Dim dbLocal As Database
Dim tbfNewAttached As TableDef, chemin As String
'creation du chemin des tables attachee
chemin = ";database=" & Repertoire 'Ex : "C:MonrepMabase.mdb"
Set dbLocal = CurrentDb()
Set tbfNewAttached = dbLocal.CreateTableDef(table)
With tbfNewAttached
.Connect = chemin
.SourceTableName = table
End With
dbLocal.TableDefs.Append tbfNewAttached
CreerTableAttachee = "OK"
Fin:
set dblocal = nothing
Exit Function
erreur:
CreerTableAttachee = "Erreur"
Resume Fin
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
"Yann" <yann.rhibaud@free.fr> a écrit dans le message de
news:eMYdDN2TDHA.2196@TK2MSFTNGP11.phx.gbl...
Salut dans nouveau module Option Explicit '------------------------------------------------------------ ' supprimer_table_attachee ' '------------------------------------------------------------ Function SupprimerTableAttachee(table) On Error GoTo supprimer_table_attachee_Err
DoCmd.DeleteObject acTable, table
supprimer_table_attachee_Exit: Exit Function
supprimer_table_attachee_Err:
Resume Next
End Function
Function CreerTableAttachee(Repertoire, table) On Error GoTo erreur Dim dbLocal As Database Dim tbfNewAttached As TableDef, chemin As String 'creation du chemin des tables attachee chemin = ";database=" & Repertoire 'Ex : "C:MonrepMabase.mdb" Set dbLocal = CurrentDb()
Set tbfNewAttached = dbLocal.CreateTableDef(table) With tbfNewAttached .Connect = chemin .SourceTableName = table End With dbLocal.TableDefs.Append tbfNewAttached CreerTableAttachee = "OK" Fin: set dblocal = nothing Exit Function erreur: CreerTableAttachee = "Erreur" Resume Fin
End Function
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ "Yann" a écrit dans le message de news:
