Petit problème de code!
Brièvement, je veux que ma fonction ajoute une entré dans la table TableZ je Veux
dans le champ1 la Valeur de ValeurChampZ
dans le champ2 la valeur 2
dans le champ3 la valeur de ValeurDesignation

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
20
21
22
 
 
Sub essai()
Call AjouteEntrer("ABCD85-Z", "Y98", "Essai de designation")
End Sub
 
Sub AjouteEntrer(TableZ, ValeurChampZ, ValeurDesignation)
Dim sSQL As String
Dim qdf As Variant
 
 sSQL = "INSERT INTO [" & TableZ & "] As Tab1"
 sSQL = sSQL + " (champ1, champ2, champ3) & "
 sSQL = sSQL + " VALUES (['" & ValeurChampZ & "'],'2',['" & ValeurDesignation & "']);"
 
Debug.Print sSQL
Debug.Print TableZ
Debug.Print ValeurChampZ
Debug.Print ValeurDesignation
 
DoCmd.RunSQL (sSQL)
 
End Sub
Soit la requete sSQL n'est pas juste
Soit il ne faut pas utiliser DoCmd.RunSQL (sSQL) pour executer la requete!