VBA et Access

Signaler
Messages postés
33
Date d'inscription
mardi 29 avril 2003
Statut
Membre
Dernière intervention
27 mai 2004
-
Messages postés
149
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
24 novembre 2010
-
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

End Sub

merci et bonne journée

1 réponse

Messages postés
149
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
24 novembre 2010
2
je ne vois aucun #

"la vitesse de la lumière est supérieure à celle du son, c'est pourquoi un imbécile parait intelligent jusqu'a ce qu'il parle !!"