Concaténation dans une fonction et dans une requéte InsertInto

Bonjour,

Voici mon problème : Dans un premier temps je souhaiterai réaliser une concaténation dans l'appel d'une fonction.

Code:

---

1 2 3 4 5 6 7

Private Sub btnAjout_Click() Dim rep As String Dim nbAjout As Integer rep = InputBox("combien voulez vous ajouter de ligne(s)? (4 lignes au maximum)") If rep = 1 Then nbAjout=nbAjout+1 Call AfficherChamps" & cstr(nbAjout) & "()

---

Dans le but d'appeler la fonction AfficherChamps1. Cela me génère une erreur de syntaxe que je n'arrives pas à résoudre.



Dans un second temps je souhaiterais réaliser aussi une concaténation mais dans une requête Insert Into qui est dans une boucle pour . Dans le but de réaliser une requête d'insertion pour chaque champ que j'ai, car j'ai plusieurs textBox qui commence par numSup mais dont le numéros est différent (numSup1,numSup2 ...)

Code:

---

1 2 3 4

dim i as integer for i = 1 to nbAjout+1 DoCmd.RunSQL ("INSERT INTO [table](numeroSupport)VALUES('" & numSup" & Cstr(i) & ".Value &"')

---

Ce code me génère aussi une erreur de syntaxe

En espérant avoir été assez clair ! Merci d'avance de votre aide ! :)

Bonjour,

Pour quoi ne pas directement :

Code:

---

Call AfficherChamps & nbAjout & "()"

---

et

Code:

---

1 2 3 4

dim i as integer for i = 1 to nbAjout+1 DoCmd.RunSQL "INSERT INTO [table](numeroSupport)VALUES ('" & numSup" & i & ".Value ')"

---

Cordialement,

1er point:

Code:

---

Call AfficherChamps" & cstr(nbAjout) & "()

---

Tu ne peut pas construire dynamiquement le nom d'une fonction ou procedure. Le nom n'est pas une variable, et fonctionne un peut comme une adresse postale, il doit etre complet avant l'appel, sinon le facteur (et par analogie, le programme) ne la retrouve pas.
Donc soit tu appelle directement ta fonction:

Code:

---

1 2 3

If (maVariable = 5) Then call maFonction5() End If

---

Si tu as vraiment besoin de générer le nom de ta fonction dynamiquement, et ne peut pas faire autrement, tu peux utiliser l'instruction Evaluate (mais c'est très moche).

2e point:

Code:

---

DoCmd.RunSQL ("INSERT INTO [table](numeroSupport)VALUES('" & numSup" & Cstr(i) & ".Value &"'

---

Même scenario, le nom des contrôles doit etre integralement qualifié.
Ici tu peux utiliser une boucle For Each sur la collection Controls de ton formulaire, tester le nom des contrôles et generer ton code SQL en conséquences.

madefemere tes deux réponses ne fonctionnent pas j'ai toujours une erreur.

Deedolith je prend bonne note de ta remarque. Pour ce qui est de la solution numéros 2 serais tu capable de me l'expliquer plus en détail (avec du code). J'ai testé chaque cas au lieu de faire un for each et honnêtement c'est ingérable.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim oCtrl As Control   '// Boucle sur tous les contrôles du formulaire For Each oCtrl In Me.Controls '// Filtre sur le nom du contrôle If (InStr(oCtrl.Name, "numSup") <> 0) Then '// Instruction SQL DoCmd.RunSQL ("INSERT INTO [table](numeroSupport) VALUES(" & oCtrl.Value & ")") End If Next

---

Merci pour ta solution ! Je mets la discussion en résolu ! :D