Discussion :

[Mulele]

Bonjour à tous,

Je ne trouve pas la synthaxe pour le nom du champ dans une table pour pouvoir untiliser la boucle for/next dans un formulaire.

Exemple :
For I = 1 to 20
MonChamp(I) = I
next I

J'ai essayé les noms de champ suivants dans la table : MonChamp&1, MonChamp_1, MonChamp1 mais rien ne marche dans le For/Next.

J'ai fait une recherche sur le forum mais je n'ai pas vraiment trouvé de solution.

Merci de votre aide.

[Pierre Fauconnier]

Bonjour

En considérant que tu as nommé tes champs Champ1, Champ2, Champ3, ... tu peux utiliser la syntaxe suivante

Code :

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

1
2
3
4
 
        For i = 1 To 3
                Me.Recordset.Fields("champ" & i) = i
        Next i

Cela étant, ce n'est pas très "sage" de nommer tes champs de cette manière.

De plus, je ne vois pas l'utilité d'attribuer à tes champs les valeurs de I...

Cela convient-il?

Pierre

[argyronet]

Bonjour,

Tu peux partir d'une base comme celle-ci (à peaufiner):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TestForNext_Click()
Dim oCtrl As Control
Dim tbName As String
 
  For Each oCtrl In Screen.ActiveForm
  tbName = oCtrl.Name
    If Left(tbName, 5) = "Texte" Then
      I = I + 1
      If Not IsNull(oCtrl.Name) Then
        oCtrl = I
      End If
    End If
  Next
End Sub

Mes champs s'appellent Texte1 à Texte5

Argy

[Julien Dufour]

Si c'est vraiment les noms de champs d'une table, essaie d'utiliser la méthode fields de l'objet tabledefs.
Un truc du genre :

Code :

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

1
2
3
for each fld in application.currentdb.tabledefs("nom de ta table").fields
     ' Ton traitement
next fld

Devrait t'aider.

[Mulele]

Bonjour et merci de la rapidité de vos réponse mais

La solution de Pierre me plait bien mais j'ai alors l'erreur suivante :
Update or CancelUpdate without Addnew or Edit.

Voici en fait ce que je veux faire et ce sur l'action click d'un bouton de commande :

For I = 1 to 20
If NomDepotI = "Nossegem" then
QteDepotI = QteTot + QteDepotI
Else
QteDepotI = QteTot - QteDepotI
end if
next I

NomDepot1, NomDepot2 .... ainsi que QteDepot19, QteDepot20 et QteTot étant des noms de champs de ma table.

Merci encore et déjà

Mulele

[Julien Dufour]

J'ai comme l'impression que l'erreur que tu as n'a pas de lien avec le code dont tu nous parle.

Utilise les outils de déboguage fourni pas access pour voir sur quelle ligne l'erreur arrive.

[Mulele]

Je crois avoir trouvé une solution


For I = 1 To 20
If Me.Controls.Item("CdeDepot" & I) = "Nossegem" Then
Me.Controls.Item("CdeQteDepot" & I) = Me.QteTot + Me.Controls.Item("CdeQteDepot" & I)
Else
Me.Controls.Item("CdeQteDepot" & I) = Me.QteTot - Me.Controls.Item("CdeQteDepot" & I)
End If
Next I

Salut à tous