Requête SELECT en VBA

Bonjour,

J'ai un problème de requête en VBA. Avant toute chose voici mon code :

Code:

---

1 2 3 4 5 6 7 8

Dim rst As Recordset   courssql = "SELECT Id FROM Table1 " Set rst = CurrentDb.OpenRecordset(courssql) MsgBox rst.RecordCount MsgBox rst.Fields(1) MsgBox rst.Fields(2)

---

C'est un code de test pour vous expliquer.

Dans ma Table1, j'ai un champ Id qui contient plusieurs enregistrements. Je voudrais récupérer tous les enregistrements du champ Id de ma Table1 sauf que le RecordCount ne m'affiche que 1 résultat et quand j'affiche ce résultat c'est la première valeur qui apparaît.
De plus la ligne MsgBox rst.Fields(2) me renvoie une erreur comme quoi le champ est vide(ce qui est logique car il n'y a qu'un résultat dans rst).

Ce que je voudrais c'est récupérer tous les enregistrement d'un champ dans une "variable" pour pouvoir les mettre dans un formulaire mais je crois que je n'utilise pas la bonne méthode. Pouvez-vous me dire en quoi le programme utilisé au dessus est faux et comment est ce que je pourrais avoir le bon résultat.

Merci d'avance

Bonjour,

Pour le recordcount,
essayez

Code:

---

1 2 3

rst.movelast 'Accède au dernier enregistrent MsgBox rst.RecordCount 'Affiche le nombre d'enregistrement

---

Pourquoi voulez vous mettre tous vos enregistrements dans une variable (je suppose un tableau ?)

Cordialement

Citation:

---

Envoyé par morinxav

Ce que je voudrais c'est récupérer tous les enregistrement d'un champ dans une "variable" pour pouvoir les mettre dans un formulaire

---

Que veux tu faires exactement avec ces données dans le formulaire?

Les mettres dans une zone de liste d'un formulaire? (liste qui permets à l'utilisateur de séléctionner une ou plusieur valeurs)

Les utiliser comme des critères pour une requête?

Merci pour vos réponses!

En fait ce que je veut faire, c'est ajouter dans mon formulaire des nouveaux éléments en fonction du nombre d'enregistrement qu'il y a dans ma table.

Bonjour,

Je ne vois pas trop ce qui ne fonctionne pas.

Citation:

---

Envoyé par morinxav

C'est un code de test pour vous expliquer.

---

Peut-être s'agit-il simplement d'une erreur de frappe ou d'inattention dans le code original. :?

Auquel cas si on pouvait avoir ce code...

J'ai essayé avec le .MoveLast et ça me donne bien le nombre d'enregistrement ça marche. Donc si je comprend bien, il faut se "déplacer" dans l'objet Recorset pour accéder à l'enregistrement voulu (moveLast: le dernier , moveFirst: le premier) mais comment on atteint les autres?

Citation:

---

Envoyé par morinxav

Merci pour vos réponses!

En fait ce que je veut faire, c'est ajouter dans mon formulaire des nouveaux éléments en fonction du nombre d'enregistrement qu'il y a dans ma table.

---

Bonjour,


Est-ce que :

- Vous ajoutez ces lignes en un contrôle de formulaire (avoir une liste d'enregistrement de votre table) ?

- Vous ajoutez à une autre table des enregistrements (par exemple pour chaque ligne dans la table client, vous ajouter une ligne dans la table commande) ?

- Vous essayez de dupliquer votre table ?

Peut-être gagneriez vous à nous expliquer en quoi consiste votre base et ce que vous cherchez à faire (je fais une table qui gèrent XXXX et là je voudrais que quand une commande....)

Cordialement.

En fait j'ai une table cours qui contient un idcours et un intitulécours. Je voudrais que pour chaque cours je créer dans un formulaire x TextBox qui vont enregistrer dans un autre tables des valeurs (ici un nombre d'heures prévu de cours) pour chaque cours.

tu as plusieurs methodes pour te déplacer.
Movefirst, movelast, movenext, moveprevious, move (N° de ligne)

Citation:

---

Envoyé par Flyoss

tu as plusieurs methodes pour te déplacer.
Movefirst, movelast, movenext, moveprevious, move (N° de ligne)

---

Merci

Pour information dans le futur:
En appuyant sur F2 dans l'éditeur VB tu as acces aux methodes et disponibles pour chaque objets.

Citation:

---

Envoyé par morinxav

En fait j'ai une table cours qui contient un idcours et un intitulécours. Je voudrais que pour chaque cours je créer dans un formulaire x TextBox qui vont enregistrer dans un autre tables des valeurs (ici un nombre d'heures prévu de cours) pour chaque cours.

---

Est-ce que vous avez un "Cours physique - chimie" et pour ce cours session du 13/04/2012 à 10 h, durée 1 h
15/04/2012 à 14 h, durée 2 h
etc... ?

Cordialement.

En fait ce n'est pas tellement ça; le but du formulaire est de rentrer le nombres d'heures prévus sur toute l'année pour une personnes et pour chaque cours. Il y a un champs TpF (pour temps prévu français) qui sera remplie avec le nombre d'heures de français prévus pour une personne pour ce cours.

En ce moment j'essaye de programmer ce que je cherche, c'est en bonne voie, je posterais mon programme quand il marchera.

Citation:

---

Envoyé par morinxav

En fait ce n'est pas tellement ça; le but du formulaire est de rentrer le nombres d'heures prévus sur toute l'année pour une personnes et pour chaque cours. Il y a un champs TpF (pour temps prévu français) qui sera remplie avec le nombre d'heures de français prévus pour une personne pour ce cours.

---

Si je puis me permettre une suggestion, il te faudrait donc trois tables :

Une table tblCours : ID_Cours, Libellé
Un table tblPersonnes: ID_Personne, Nom, Prénom

Une table de jointure tblCours_Personnes : ID_Personne, ID_Cours, DateCours, Durée

Il faut également définir les relations. Puis dans un formulaire basée sur la table tblCours faire un sous formulaire avec tblCours_Personnes. (l'assistant te génère automatiquement ce formulaire et son sous formulaire).

A moins que tu ne souhaites que les informations sur les présences en cours ne soient affectées par la machine (remplissage auto d'un planning ?)

Bon courage pour ta base

Cordialement

J'ai réussi à faire fonctionner mon programme. Je le met à la suite de ce message pour des visiteurs futur.
Sinon pour ce qui est des table proposer par Pierre, j'ai déjà ces tables dans ma base de donner (j'avais oublier de le préciser :marteau:).

Le code est à mettre au bon endroit attention pas au chargement du formulaire car il ne peut pas s'ouvrir lui même.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim rst As Recordset DoCmd.RunCommand acCmdRecordsGoToNew   courssql = "SELECT Id FROM Table1 " Set rst = CurrentDb.OpenRecordset(courssql) Dim controle(0 To 100) As Control   rst.MoveLast nbr = rst.RecordCount rst.MoveFirst     For i = 0 To nbr controle(i) = CreateControl("F_Ajout_Formation_Stagiaire", acTextBox) controle(i).Name = i   ' --Le positionner sur le formulaire controle(i).Left = 100 ' --Définir sa largeur controle(i).Width = 150   rst.MoveNext Next     DoCmd.OpenForm "F_Ajout_Formation_Stagiaire"

---

Merci à vous.