Forum sur access

Re: mise a jour en fonction d'une capacité

Réponse à: mise a jour en fonction d'une capacité envoi de francois le 14 Octobre 2005 14:32:05:

Voilà une fonction qui crée une table qui contient la répartition des candicats par salle.

tbl_salle qui contient les champs nr_salle;nbre_place

tbl_candidat qui contient les champs
nr_candidat;nom

tbl_salle_candidat qui contient les champs
nr_salle;candidat

Function attrib_salle()

Dim db As Database
Dim rs_salle As Recordset
Dim rs_cand As Recordset
Dim rs_c_s As Recordset
Dim ctr As Integer

Set db = Application.CurrentDb

DoCmd.RunSQL ("delete * from tbl_salle_candidat")

Set rs_salle = db.OpenRecordset("tbl_salle", dbOpenDynaset)
Set rs_cand = db.OpenRecordset("tbl_candidat", dbOpenDynaset)
Set rs_c_s = db.OpenRecordset("tbl_salle_candidat", dbOpenDynaset)

rs_salle.MoveFirst
rs_cand.MoveFirst

Do
Do
rs_c_s.AddNew
rs_c_s.Fields("nr_salle") = rs_salle.Fields("nr_salle")
rs_c_s.Fields("candidat") = rs_cand.Fields("nom")
rs_c_s.Update
ctr = ctr + 1
rs_cand.MoveNext
Loop Until rs_salle.Fields("nbre_place") <= ctr Or rs_salle.EOF = True Or rs_cand.EOF = True

ctr = 0
rs_salle.MoveNext

Loop Until rs_salle.EOF = True Or rs_cand.EOF = True


End Function


Amitiés

• Re: mise a jour en fonction d'une capacité francois 17/10/2005 09:16:24 (0)

Alerter Rezoweb si ce message est illégal