Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !