Probleme ajout colonne vba access
Clemzd
Messages postés
183
Statut
Membre
-
blux Messages postés 27997 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 27997 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
comment ajouter une colonne en VBA Access grace à une requête SQL
j'ai fait ceci
Sub insertion_matiere()
Dim NOTATION As DAO.Database
Dim JEU_ENREGISTREMENTS As DAO.Recordset
Dim nom_Matiere As String
Dim req1 As String
nom_Matiere = InputBox("Saisir le nom de la matière", "INSERTION MATIERE", "Nom matière ? ")
Set NOTATION = CurrentDb()
Set JEU_ENREGISTREMENTS = NOTATION.OpenRecordset("CLASSE")
While Not JEU_ENREGISTREMENTS.EOF
req1 = "ALTER TABLE eleve ADD & nom_Matiere char(10)"
DoCmd.RunSQL req1
JEU_ENREGISTREMENTS.MoveNext
Wend
JEU_ENREGISTREMENTS.Update
NOTATION.Close
JEU_ENREGISTREMENTS.Close
End Sub
Ca ne fonctionne pas ca bloque au niveau de DoCmd.RunSQL req1 il y a sois-disant une erreur de syntaxe !
comment ajouter une colonne en VBA Access grace à une requête SQL
j'ai fait ceci
Sub insertion_matiere()
Dim NOTATION As DAO.Database
Dim JEU_ENREGISTREMENTS As DAO.Recordset
Dim nom_Matiere As String
Dim req1 As String
nom_Matiere = InputBox("Saisir le nom de la matière", "INSERTION MATIERE", "Nom matière ? ")
Set NOTATION = CurrentDb()
Set JEU_ENREGISTREMENTS = NOTATION.OpenRecordset("CLASSE")
While Not JEU_ENREGISTREMENTS.EOF
req1 = "ALTER TABLE eleve ADD & nom_Matiere char(10)"
DoCmd.RunSQL req1
JEU_ENREGISTREMENTS.MoveNext
Wend
JEU_ENREGISTREMENTS.Update
NOTATION.Close
JEU_ENREGISTREMENTS.Close
End Sub
Ca ne fonctionne pas ca bloque au niveau de DoCmd.RunSQL req1 il y a sois-disant une erreur de syntaxe !
A voir également:
- Probleme ajout colonne vba access
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Ajout snap sans rien d'écrit - Forum Snapchat
1 réponse
Salut,
c'est tout à fait normal, ta variable nom_matière n'est pas interprétée, essaye ça :
Par contre, la suite risque de t'exploser à la figure, car tu vas vouloir créer autant de colonnes 'nom_matiere' que tu as d'enregistrements dans ton recordset (sans d'ailleurs t'être positionné en tête avec JEU_ENREGISTREMENTS.Movefirst)...
c'est tout à fait normal, ta variable nom_matière n'est pas interprétée, essaye ça :
req1 = "ALTER TABLE eleve ADD " & nom_Matiere & "char(10)"
Par contre, la suite risque de t'exploser à la figure, car tu vas vouloir créer autant de colonnes 'nom_matiere' que tu as d'enregistrements dans ton recordset (sans d'ailleurs t'être positionné en tête avec JEU_ENREGISTREMENTS.Movefirst)...
