Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 07/07/2011, 09h40   #1
Membre habitué
 
Homme Mathieu R
Etudiant MIAGe
Inscription : février 2010
Messages : 145
Détails du profil
Informations personnelles :
Nom : Homme Mathieu R
Âge : 22
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Etudiant MIAGe
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2010
Messages : 145
Points : 141
Points : 141
Par défaut Compter le nombre d'enregistrements en vba

Bonjour à tous,

Voila j'aimerai compter le nombre d'enregistrements dans ma table equipements.
En fait, je souhaiterai compter le nombre d'ID(champs texte) dans ma table pour ensuite faire une boucle qui me compare chaque ID à une variable.

J'ai essayé :
Code :
1
2
3
NEq = ("Select Count(Equipment.IDEQUIPMENT) from Equipment")
Set Neqp = CurrentDb.OpenRecordset(NEq)
NbEq = Neqp.Fields(Equipment.IDEQUIPMENT).Value
Mais sans succés

J'aurais bien utilisé le mais comme mon ID est un texte cela ne fonctionnerai pas.

Merci d'avance pour votre aide !
__________________
Qui ne tente rien, ne tente rien !
Tydher est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/07/2011, 09h43   #2
Membre habitué
 
Homme Mathieu R
Etudiant MIAGe
Inscription : février 2010
Messages : 145
Détails du profil
Informations personnelles :
Nom : Homme Mathieu R
Âge : 22
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Etudiant MIAGe
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2010
Messages : 145
Points : 141
Points : 141
Laissez tomber je suis débile, on voit que c'est le matin !

Code :
1
2
3
 NEq = ("Select Count(Equipment.IDEQUIPMENT)as NN from Equipment")
 Set Neqp = CurrentDb.OpenRecordset(NEq)
 NbEq = Neqp.Fields("NN").Value
__________________
Qui ne tente rien, ne tente rien !
Tydher est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 21h43.


 
 
 
 
Partenaires

Hébergement Web