tranquiloubilou
Messages postés33Date d'inscriptionmardi 29 avril 2003StatutMembreDernière intervention27 mai 2004
-
14 janv. 2004 à 11:09
Shivan0910
Messages postés149Date d'inscriptionmardi 7 janvier 2003StatutMembreDernière intervention24 novembre 2010
-
14 janv. 2004 à 12:38
8-) j'ai un léger probleme
je cherche comment déclarer l'utilisation d'une table afin de recupérer la avleur d'un de ses champs
je met le prog a la suite pour que ce soit plus clair et je met des # pour indiquer mes problemes
'Déclaration des variables
Dim i As Integer
Dim Matricule As Integer
Dim cpt As Integer
Dim cptAnonymation As Integer
Dim Trouve As Boolean
Dim Lim As Integer
'Affectation des variables
i = 1
Matricule = 0
cpt = 1
cptAnonymation = 4238
Trouve = False
Lim = 0
'Exécution de la requête Rec_Modif_Ordre
DoCmd.OpenQuery ("Rec_Modif_Ordre")
'Exécution de la requête Rec_NB_CI puis affectation de sa valeur
Lim=DoCmd.OpenQuery ("Rec_Nb_CI").value
For i = 1 To Lim
'Affectation de la valeur du matricule pour une recherche
Matricule = Candidat.Cand_Matricule(i)
'Recherche du candidat par son n° de matricule
While Not Trouve
cpt = cpt + 1
End
'Vérification en cas de réussite
If Trouve Then
Candidat.Cand_Anonymation(cpt) = cptAnonymation 'Affectation du code d'anonymation
cptAnonymation = cptAnonymation + 1 'Incrémentation du compteur
End If
Next