Discussion :

[adurand]

Bonjour ;

j'ai 10 champs bal_xxx et je voudrai faire une boucle de 1 à 10 et changer la valeur de chaque champ en utilisant ma boucle style pour i de 1 à 10 alors ["bal_"&i].Value = i*20 mais écrit comme ça ça marche pas

Comment je peux cibler chaque champ bal_xxx en faisant passer dynamiquement la valeur de la variable i ?

Merci par avance pour votre aide.

Aymeric

[marot_r]

Si c'est dans un form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
me.controls("bal_" & i).value=maNouvelleValeur

c'est un objet recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
me.fields("bal_" & i).value = maNouvelleValeur

A+

[adurand]

Bonjour ;

D'abord merci pour votre réponse.

En fait, mon code VB est sur l'évènement Enter d'un objet du form du coup le Me.controls génère une erreur car Me. correspond à mon objet et non mon form qui est lui-même sous-form du formulaire principal.

Désolé pour cette question de débutant mais dans ce contexte, comment est-ce que je peux cibler les controls Form(nom_form).Form(nom_sous_form).Controls ?

Merci pour votre aide ;

Aymeric

[marot_r]

Pour référér un control dans un sous form tu peux faire

me.nomSousForm.form.controls("nomControl")

Petite note les sous-form sont remplis avant les form c'est à dire que ton form principal peut ne pas contenir de données alors que ton sous-form en a. C'est un peu bizare mais c'est ainsi.

A+

[adurand]

Alors, en suivnat un peu tes conseils, j'essaye de cibler en tapant cela :
Forms("Form_fClients").Form_sfClients.Form.Controls("bal_" & i).Value = rst2!montant

Form_fClients est mon form principal et Form_sfClients est mon sous form.

Avec cela, j'ai une erreur VB m'indiquant que le formulaire Form_fClients dont il est fait référence est introuvable alors qu'il existe bien.

Aymeric

[marot_r]

Enlève le Form_, il sert à typer les données (classe form) pas à l'identifier le form.

A+

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function modif(nomtable As String, prem As Integer, der As Integer,i as variant) As Boolean
'attention la collection fields a pour base zéro
Dim mabase As DAO.Database
Dim champ  As String
Dim boucle As Integer
On Error GoTo fin
Set mabase = CurrentDb()
DoCmd.SetWarnings (False)
For boucle = prem To der
champ = mabase.TableDefs(nomtable).Fields(boucle - 1).Name
DoCmd.RunSQL ("UPDATE matable SET " & champ & " = [" & champ & "]*" & i & ";")
Next boucle
DoCmd.SetWarnings (False)
modif = True
fin:
MsgBox ("cata")
modif = False
End Function