Discussion :

[lito74]

Bonjour, je souhaite connaitre (en vba), le nombre de tables liées contenues dans ma base. Voici mon code :

Code :

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

1
2
Dim NbreTables
NbreTables = DCount("Name", "SELECT Name FROM MSysObjects WHERE MSysObjects.Type=6")

Evidemment, ça ne fonctionne pas...
Merci pour votre aide

[alexandrebergercyr]

Tu devrais toujours commencer un programme par faire le modèle relationnel. Il te permettrait de savoir sur quoi tu travail plus précisément et tu serais facilement capable de compter à la main le nombre de relations à ta table souhaité.

Bonne journée
Alex

[helas]

sinon appeler la fonction NombreTablesLiees

Code :

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

1
2
3
4
5
6
7
8
 
Function NombreTablesLiees() As Long
 Dim i As Long
 NombreTablesLiees = 0
 For i = 0 To Currentdb.TableDefs.Count - 1
  If Currentdb.TableDefs(i).SourceTableName <> "" Then NombreTablesLiees = NombreTablesLiees + 1
 Next i
End Function