Discussion :

[lakhdar16]

bonjour,

je voulais rétablir les liaisons des tables liées de ma base de données après déplacement de la base de données dorsale en suivant la méthode proposée dans cet article http://access.developpez.com/faq/?pa...#RetablLienTbl

juste que j'ai un tout petit problème. je vous exclure une table soit "tbl_SEG"
il est motionné dans le code comment exclure les tables système mais j'ai pas pu le faire avec la table "tbl_SEG".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
' Parcourt l'ensemble des tables de la base de données protégée
' et stocke leur nom
For Each oTblSource In oDbSource.TableDefs
    ' Ignore les tables system ============>> c'est la ou veux exlure la table tbl_SEG mais je sais pas comment l'appliquer
    If (oTblSource.Attributes And dbSystemObject) = 0 Then
        strTemp = strTemp & oTblSource.Name & "|"
    End If

merci pour votre aide.

cordialement.

[Robert1957]

Bonjour lakhdar16,

Tu peux exclure en te servant du nom:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If oTblSource.Name = "tbl_SEG" then
'Tu ne passes pas dans la boucle

Ou l'inverse à adapter.

Bonne journée

[lakhdar16]

bonjour,

merci pour votre réponse.
j'ai essayé de ne pas passer par la boucle ca marche pas

alors j'ai d'intégré votre code dans la boucle et ça marché!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    If (oTblSource.Attributes And dbSystemObject Or (oTblSource.Name = "tbl_SEG")) = 0 Then
        strTemp = strTemp & oTblSource.Name & "|"
        'MsgBox "" & strTemp & ""
    End If

merci de me confirmer la faisabilité.

cordialement

[Robert1957]

Bonjour lakhdar16,

Avec ce code tu viens d'exclure la table "tbl_SEG". C'est ce que tu voulais. C'est même plus court que d'imbriquer un autre If.

Bonne journée

[lakhdar16]

Merci Robert1957

donc c résolu .. bonne journée à vous