creation d etat sur access 2010Résolu/Fermé

Question

bonjour, 
je suis debutante avec access et vba et j ai besoin de vos aides 
j ai une table students (qui est une liste d'élèves avec leurs coordonnees) et j ai une deuxieme  table exam(contient tout ce qui concerne un examen avec les numeros des salle d examen)et une troisieme table exam room cantenant le numero de la salle d'examen avec la capacite de la salle. 

j'aimerai creer un etat dans lequel pour un niveau d etude donnee j affiche le numero de salle d examen avec une liste d etudiant selon la capacite de la salle cad si jai une salle x  avec capacite 20 eleves et une salle y avec capacite 30 je dois afficher dans un tableau  
 deux colonnes num-salle et id etudient dans une premiere ligne je trouve x et les 20 premier etudiants et une 2eme ligne y et les 30 eleves qui suit les 20 premier. 
comment peut on faire ? des idees? 
merci

castours · Answer

Bonjour
As tu faite les relations entre les Tables?
Ton futur etat dependra des ces relations.

mayar5 · Answer

en faite le but c'est de distribuer les etudiants sur les salles d examen selon les capacites des salles pour la salle x de capacite 20 j affiche les 20 premiers noms d etudiant de la table students. est ce que j  ai besoin des relations dans ce cas?

mayar5 · Answer

voici le code correspendant 
Sub Studentlist()
Dim db As Database
Dim rsRoom As Recordset
Dim rsStudent As Recordset
Dim rsList As Recordset
 
Dim lngNumRoom As String
Dim lngCapacity As Long
Dim lngIndice As Long
 
Set db = CurrentDb
Set rsRoom = db.OpenRecordset("Room", dbOpenDynaset)
Set rsStudent = db.OpenRecordset("Students", dbOpenDynaset)
With rsRoom
    rsRoom.MoveFirst
    Do Until rsRoom.EOF
        lngCapacity = rsRoom![Capacity]
        lngNumRoom = rsRoom![NumRoom]
     
        Debug.Print lngNumRoom, lngCapacity
        Do Until lngCapacity = 0 Or rsStudent.EOF
            Debug.Print , , rsStudent!StudentID
            DoCmd.RunSQL "INSERT INTO StudentsList (NumRoom,StudentID)" _
            & " VALUES (" & lngNumRoom & "," & rsStudent!StudentID & ")"
            lngCapacity = lngCapacity - 1
            rsStudent.MoveNext
        Loop
        rsRoom.MoveNext
    Loop
End With
End Sub

Creation d etat sur access 2010

3 réponses

Discussions similaires

Newsletters