Comment compter le nombre de champs dans une table?

Je suis en train de compter le nombre de champs dans une table dans Access 2010. Ai-je besoin d'un script vb?

OriginalL'auteur Cici | 2013-10-18

  1. 9

    Vous pouvez récupérer le nombre de champs dans une table à partir de la .Count propriété de la TableDef Fields collection. Voici une fenêtre d'exécution l'exemple (Ctrl+g va vous y emmener) ...

    ? CurrentDb.TableDefs("tblFoo").Fields.Count
 13

    Si vous vouliez vraiment dire le nombre de lignes au lieu de champs, vous pouvez utiliser le TableDef RecordCount propriété ou DCount.

    ? CurrentDb.TableDefs("tblFoo").RecordCount
 11 
? DCount("*", "tblFoo")
 11
    @HansUp, merde j'ai raté celui-là. J'oublie toujours de travailler dans la Fenêtre exécution
    Votre réponse me fait question de savoir si la question est sur le champ de nombre ou le nombre de lignes, j'ai donc fourni à la fois.
    Ok, je pense que je suis stupide... où dois-je exécuter cette commande dans l'Accès?
    Vous pouvez utiliser Ctrl+g pour ouvrir la fenêtre exécution et de l'exécution de ces états financiers. Mais vous pouvez utiliser ces mêmes techniques dans le code VBA, si vous préférez.

    OriginalL'auteur HansUp

  2. 4

    L'aide d'une requête:

    'To get the record count
SELECT Count(*) FROM MyTable

    Dans DAO, il devrait ressembler à:

    Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM MyTable")
rst.MoveLast

'To get the record count
MsgBox ("You have " & rst.RecordCount & " records in this table")

'To get the field count
MsgBox ("You have " & rst.Fields.Count & " fields in this table")

    Note, il est important d'effectuer la MoveLast avant d'obtenir le RecordCount.

    Dans ADO, il devrait ressembler à:

    Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("MyDatabaseName.mdb"))

Set rst = Server.CreateObject("ADODB.recordset")
rst.Open "SELECT * FROM MyTable", conn

'To get the record count
If rst.Supports(adApproxPosition) = True Then _
  MsgBox ("You have " & rst.RecordCount & " records in this table")

'To get the field count
MsgBox ("You have " & rst.Fields.Count & " fields in this table")
    C'est le comptage du nombre de lignes plutôt que des champs...
    J'ai mis à jour ma réponse aussi de montrer champ count

    OriginalL'auteur Linger

  3. 0

    Méthode rapide et facile: Exporter le tableau vers Excel et de mettre en évidence la ligne 1 pour obtenir le nombre de colonnes.

    OriginalL'auteur Erick Molnar