Discussion :

[yacaflo]

Bonjour,

Je souhaites ajouter un champ dans une table via une requête SQL que voici :

Code :

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

1
2
3
4
5
Private Sub Commande1_Click()

DoCmd.RunSQL "ALTER TABLE EPROUVETTE ADD COLUMN POIDS"

End Sub

Comment, à la place de "POIDS" pourrais-je récupérer la valeur de la "textbox1" du formulaire "ACCUEIL" ?

Merci d'avance pour votre aide.

[tiyo76]

Salut !

J'aurai fais comme cela :

Code :

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

DoCmd.RunSQL "ALTER TABLE EPROUVETTE ADD COLUMN " & Forms!ACCUEIL!textbox1.Value & ";"

A confirmer

[yacaflo]

Salut !

J'aurai fais comme cela :

Code :

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

DoCmd.RunSQL "ALTER TABLE EPROUVETTE ADD COLUMN " & Forms!ACCUEIL!textbox1.Value & ";"

A confirmer

Merci pour la réponse si rapide,

J'obtiens une erreur '3292'
erreur de syntaxe dans la définition du champ

je ne trouve pas d'où cela peut venir

[tiyo76]

Peut-être de cette façon ?

Code :

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

DoCmd.RunSQL "ALTER TABLE EPROUVETTE ADD " & Forms!ACCUEIL!textbox1.Value & " VARCHAR(25)"

Si j'ai bien compris la valeur dans la textbox sera le nom de ta nouvelle colonne dans la table Eprouvette c'est bien cela ?

[yacaflo]

Peut-être de cette façon ?

Code :

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

DoCmd.RunSQL "ALTER TABLE EPROUVETTE ADD " & Forms!ACCUEIL!textbox1.Value & " VARCHAR(25)"

Si j'ai bien compris la valeur dans la textbox sera le nom de ta nouvelle colonne dans la table Eprouvette c'est bien cela ?

Oui c'est bien ça !

Super ça fonctionne !!

Penses tu qu'il serait possible d'afficher une msg box disant "champ ajouté " ?
Et deuxième question :
Pourrait-on ajouter le champ que l'on vient de créer dans un formulaire ?

Merci beaucoup !

[tiyo76]

Tant mieux

Pour ta première question je te conseillerai ceci.

Tu parcours les noms de champ de table (après la requête bien sûr) et tu rajoute une condition un peu comme :

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
Public Sub test()
   Dim Db As DAO.Database
   Dim tbd As DAO.TableDef
   Dim fld As DAO.Field
 
   Set Db=CurrentDb
 
   For Each tbd In Db.TableDefs
       For Each fld In tbd.Fields
           If fld.Name = Forms!ACCUEIL!textbox1.Value Then
                MsgBox "Votre champ a bien été ajouté à la table " & tbd.Name
           Else
                MsgBox "Votre champ n'a pas été ajouté à la table " & tbd.Name
           End If
       Next
   Next
End Sub

Il y a peut-être un moyen plus simple mais celui-là est le premier qui m'est venu à l'esprit

Pour ta deuxième question, je ne pourrais pas y répondre hélas
Je pense que si tu as un sous-formulaire connecté à une Table automatiquement alors tu pourras peut-être rajouter automatiquement le champ mais ce n'est qu'une supposition il faudrait demander à quelqu'un de plus qualifié sur les formulaires

[Jeannot45]

Reponse à la seconde question qui était : peut-on ajouté dynamiquement un champ dans le formulaire ?

Est-il possible de créer dynamiquement des contrôles ?

Lire en complément :
Comment créer dynamiquement des contrôles de type Rectangle sur le formulaire en cours ?
Comment créer dynamiquement un contrôle dans un formulaire et lui associer du code VBA sur un événement ?

Bonne continuation