Requête SELECT en VBA

**morinxav** · 06/04/2012, 16h15

Bonjour,

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

Code :

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

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

**Pepito78** · 06/04/2012, 17h15

Bonjour,

Pour le recordcount,
essayez

Code :

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

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

**Brasileiro** · 09/04/2012, 21h43

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?

**morinxav** · 10/04/2012, 09h07

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.

**Flyoss** · 10/04/2012, 09h12

Bonjour,

Je ne vois pas trop ce qui ne fonctionne pas.

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...

**morinxav** · 10/04/2012, 09h13

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?

**Pepito78** · 10/04/2012, 09h14

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.

**morinxav** · 10/04/2012, 09h17

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.

**Flyoss** · 10/04/2012, 09h17

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

**morinxav** · 10/04/2012, 09h18

Envoyé par Flyoss

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

Merci

**Flyoss** · 10/04/2012, 09h22

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

**Pepito78** · 10/04/2012, 09h30

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.

**morinxav** · 10/04/2012, 09h39

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.

**Pepito78** · 10/04/2012, 09h52

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

**morinxav** · 10/04/2012, 10h07

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

).

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

Code :

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

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.

Requête SELECT en VBA [AC-2007]

VBA Access

Discussions similaires

Partager

Partager