récupérer les valeurs de champs formulaire access

[jpclutier]

Bonjour,
Je osuhaite récupérer les valeurs de champs dont les nom sont stockés dans une table vba (les champs étant dans un formulaire. Le code suivant va expliciter les choses :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function Verif_Ambiance(champ As Variant) 'champ appelant la fonction
 Dim cptr As Integer 'compteur
 Dim tab1(20) As String 'tableau
 Dim maxval As Integer ' nbre max de valeurs
 Dim inter As Integer ' cptr intermédiaire
 Dim i As Integer ' boucle
 
 tab1(0) = "ambiance_lasse"
 tab1(1) = .....
 
 maxval = 5
 inter = 0
 For i = 0 To 19
  If Forms![Form_Saisie].tab1(i).Value = True Then
   inter = inter + 1
  End If
 Next i
End Function

Les champs dont les noms sont dans la table sont des booléens.
Bien évidemment j'ai une erreur sur la ligne If...Then
Je crois qu'il n'aime pas le .tab1(i)...
Quelqu'un peut-il m'aider svp ?
Merci à tous
JP

[jcdenton057]

Salut,

A la place de

Code :

If Forms![Form_Saisie].tab1(i).Value = True Then

essaye

Code :

If Forms![Form_Saisie].controls(tab1(i)).Value = True Then

[jpclutier]

Merci beaucoup pour ta réponse.
Le message d'erreur a disparu. Parc ontre au lieu de me renvoyer True ou False j'ai 0 si la case n'est pas cochée et -1 si elle est cochée...

[jcdenton057]

Si c'est des cases a cocher, tu peux le paramétrer dans les options de chaque contrôle (onglet Données, valeur contrôle)