Discussion :

[antoine46]

Bonjour

j'ai deux questions sur la syntaxe en VBA.
Premièrement, je veux récupérer par Recordset toutes les lignes (tous les enregistrements) d'une table avec la contrainte id=6 par exemple. Voici le code que j'ai pour cela :

Code :

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

1
2
3
4
 
        Dim db As DAO.Database: Set db = CurrentDb
        Dim r As DAO.Recordset
        Set r = CurrentDb.OpenRecordset("SELECT * FROM Table WHERE (((id)=" & Me.ID & "));")

A partir de cela, je voudrais savoir combien de lignes correspondent à la requète, et accéder aux valeurs. Par exemple, comment faire pour obtenir la valeur du champ "A" de la première ligne ?

Mon autre question concerne la syntaxe pour signifier la commande suivante depuis le code VBA d'un formulaire :
- mettre "bonjour" dans l'étiquette "e" de l'état "f"

Voila, je vous remercie pour votre aide, à bientôt.
antoine46

[jnore]

Pour compter le nbre d'enregistrement tu tapes
debug.print r.RecordCount

Pour te mettre sur la 1ere ligne du recordset tu tapes:
r.movefirst

pour obtenir la valeur du champ A tu tapes
debug.print r.Fields("A")

[helas]

Nombre d'enregistrements

Code :

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

1
2
3
4
5
6
7
 
 Nb = r.RecordCount    'Nb récupère le nombre d"enregistrements
 
 r.MoveFirst
 v = r!A         'V récupère la valeur du champ A
 
 Reports("f")!e.Caption = "Bonjour"     'l'étiquette e affiche Bonjour

[antoine46]

merci à tous les deux pour votre aide

Juste une autre question, comment se fait-il que la commande :

Code :

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

1
2
 
 Reports("f")!e.Caption = "Bonjour"

ne fonctionne pas pour un champ de zone de texte?
La commande est différente ?

a plus
antoine46

[Faw]

Salut, pas de caption pour les zones de texte mais plutôt .value
Autrement le code fonctionne avec une étiquette et Caption sur ouverture
de l'état.

[Tofalu]

Bonjour,

N'hésitez pas à consulter les tutoriels avant de poser vos questions.

En l'occurence : http://warin.developpez.com/access/dao

Merci d'utiliser un titre correct à l'avenir !