Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Tu peux les récupérer par les relations de la base et les propriétés Table et ForeignTable. exemple: Dim Db As DAO.Database Set Db = CurrentDb Dim Ix As Integer For Ix = 0 To CurrentDb.Relations.Count - 1 Debug.Print Db.Relations(Ix).Name & ";" & Db.Relations(Ix).Table & ";" & Db.Relations(Ix).ForeignTable Next Ix
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" a écrit dans le message de news:1d0e401c4530f$68473b10$
bonjour
qqu'un connait il le code pour recuperer le nom des tables quand elles sont en relation
merci michel
Bonjour.
Tu peux les récupérer par les relations de la base et les propriétés Table
et ForeignTable.
exemple:
Dim Db As DAO.Database
Set Db = CurrentDb
Dim Ix As Integer
For Ix = 0 To CurrentDb.Relations.Count - 1
Debug.Print Db.Relations(Ix).Name & ";" & Db.Relations(Ix).Table & ";" &
Db.Relations(Ix).ForeignTable
Next Ix
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" <michel.laporte@sante.gouv.fr> a écrit dans le message de
news:1d0e401c4530f$68473b10$a001280a@phx.gbl...
bonjour
qqu'un connait il le code pour recuperer le nom des
tables quand elles sont en relation
Tu peux les récupérer par les relations de la base et les propriétés Table et ForeignTable. exemple: Dim Db As DAO.Database Set Db = CurrentDb Dim Ix As Integer For Ix = 0 To CurrentDb.Relations.Count - 1 Debug.Print Db.Relations(Ix).Name & ";" & Db.Relations(Ix).Table & ";" & Db.Relations(Ix).ForeignTable Next Ix
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" a écrit dans le message de news:1d0e401c4530f$68473b10$
bonjour
qqu'un connait il le code pour recuperer le nom des tables quand elles sont en relation
merci michel
Raymond [mvp]
Bonjour.
Tu peux les récupérer par les relations de la base et les propriétés Table et ForeignTable. exemple: Dim Db As DAO.Database Set Db = CurrentDb Dim Ix As Integer For Ix = 0 To CurrentDb.Relations.Count - 1 Debug.Print Db.Relations(Ix).Name & ";" & Db.Relations(Ix).Table & ";" & Db.Relations(Ix).ForeignTable Next Ix
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" a écrit dans le message de news:1d0e401c4530f$68473b10$
bonjour
qqu'un connait il le code pour recuperer le nom des tables quand elles sont en relation
merci michel
Bonjour.
Tu peux les récupérer par les relations de la base et les propriétés Table
et ForeignTable.
exemple:
Dim Db As DAO.Database
Set Db = CurrentDb
Dim Ix As Integer
For Ix = 0 To CurrentDb.Relations.Count - 1
Debug.Print Db.Relations(Ix).Name & ";" & Db.Relations(Ix).Table & ";" &
Db.Relations(Ix).ForeignTable
Next Ix
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" <michel.laporte@sante.gouv.fr> a écrit dans le message de
news:1d0e401c4530f$68473b10$a001280a@phx.gbl...
bonjour
qqu'un connait il le code pour recuperer le nom des
tables quand elles sont en relation
Tu peux les récupérer par les relations de la base et les propriétés Table et ForeignTable. exemple: Dim Db As DAO.Database Set Db = CurrentDb Dim Ix As Integer For Ix = 0 To CurrentDb.Relations.Count - 1 Debug.Print Db.Relations(Ix).Name & ";" & Db.Relations(Ix).Table & ";" & Db.Relations(Ix).ForeignTable Next Ix
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" a écrit dans le message de news:1d0e401c4530f$68473b10$
bonjour
qqu'un connait il le code pour recuperer le nom des tables quand elles sont en relation
