Probleme ajout colonne vba access Fermé

Question

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 !

blux · Answer

Salut,

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)...

Probleme ajout colonne vba access

1 réponse

Discussions similaires