Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access compter nb colonne

compter nb colonne

5 réponses
Avatar
Laetitia
Bonjour,

Savez-vous s'il existe une fonction qui permettrait de=20
d=E9finir le nombre exact de colonne (champ) d'une requ=EAte=20
ou d'une table ?

Merci de votre aide

Laetitia
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Eric
Bonjour Laetitia,

Compter(dans le titre) ou définir (dans le corps du post) ???

Pour dénombrer le nombre de champs d'une table ou requête, ceci

Function NbChamps(UneTableRequete As String) As Integer
Dim t As DAO.Recordset
Set t = CurrentDb.OpenRecordset(UneTableRequete)
NbChamps = t.Fields.Count
End Function

PS: Cocher la référence Microsoft DAO 3.x Object Library dans la fenêtre de
l'éditeur VB (Menu Outils-Références)

A+
Eric

"Laetitia" écrivait
news:2cc0a01c46a67$37b60cf0$:

Bonjour,

Savez-vous s'il existe une fonction qui permettrait de
définir le nombre exact de colonne (champ) d'une requête
ou d'une table ?

Merci de votre aide

Laetitia



Avatar
Eric
.../...
Juste avant le End Function mettre :
t.Close
Set t = Nothing

Eric

Eric écrivait
news::

Bonjour Laetitia,

Compter(dans le titre) ou définir (dans le corps du post) ???

Pour dénombrer le nombre de champs d'une table ou requête, ceci

Function NbChamps(UneTableRequete As String) As Integer
Dim t As DAO.Recordset
Set t = CurrentDb.OpenRecordset(UneTableRequete)
NbChamps = t.Fields.Count
End Function

PS: Cocher la référence Microsoft DAO 3.x Object Library dans la
fenêtre de l'éditeur VB (Menu Outils-Références)

A+
Eric



Avatar
Raymond [mvp]
Bonjour Eric.

ça se voit que tu es jeune, plein d'ardeur, vif et que la retraite est loin.
Avec Pierre, maintenant, on se contente de:
CurrentDb.TableDefs("table1").Fields.Count pour les tables et
CurrentDb.QueryDefs("requête1").Fields.Count pour les requêtes. Pour les
requêtes, fais attention, ça ne marche pas pour les requêtes action
(résultat 0) de même que le recordset serait encore plus dangereux que le 0.

--
@+
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


"Eric" a écrit dans le message de
news:
.../...
Juste avant le End Function mettre :
t.Close
Set t = Nothing

Eric

Eric écrivait
news::

Bonjour Laetitia,

Compter(dans le titre) ou définir (dans le corps du post) ???

Pour dénombrer le nombre de champs d'une table ou requête, ceci

Function NbChamps(UneTableRequete As String) As Integer
Dim t As DAO.Recordset
Set t = CurrentDb.OpenRecordset(UneTableRequete)
NbChamps = t.Fields.Count
End Function

PS: Cocher la référence Microsoft DAO 3.x Object Library dans la
fenêtre de l'éditeur VB (Menu Outils-Références)

A+
Eric





Avatar
Eric
Bonjour Raymond

Effectivement, je n'avais pas pensé une seule seconde aux requêtes Action,
et donc aux conséquences(erreurs).

Merci pour l'info

Eric
Avatar
Laetitia
Merci à vous 2 je vais essayer.
-----Message d'origine-----
Bonjour Raymond

Effectivement, je n'avais pas pensé une seule seconde aux
requêtes Action,

et donc aux conséquences(erreurs).

Merci pour l'info

Eric

.