Discussion :

[Max_Agaki]

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 !

[madefemere]

Bonjour,

Pour quoi ne pas directement :

Code :

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

Call AfficherChamps & nbAjout & "()"

et

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" & i & ".Value ')"

Cordialement,

[deedolith]

1er point:

Code :

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

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 :

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

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 :

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

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.

[Max_Agaki]

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.

[deedolith]

Code :

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

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

[Max_Agaki]

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