OVH Cloud OVH Cloud

SQL

2 réponses
Avatar
TOF
Bonjour,

A priori dans cette commande il y a une erreur que je ne vois pas :

Option Compare Database
Dim NouvelleSession As Object

Private Sub Commande49_Click()

NouvelleSession = InputBox("Nom de la table ? ")
DoCmd.RunSQL "CREATE TABLE " & NouvelleSession & " (Nom CHAR(20), Prénom
CHAR(20));"

End Sub

Le message erreur dit que la variable est mal défini ! ! !

Si quelqu'un peut m'aider ! !

merci

2 réponses

Avatar
Gilles MOUGNOZ
Bonjour,
A priori dans cette commande il y a une erreur que je ne vois pas :
Option Compare Database
Dim NouvelleSession As Object
Private Sub Commande49_Click()
NouvelleSession = InputBox("Nom de la table ? ")
DoCmd.RunSQL "CREATE TABLE " & NouvelleSession & " (Nom CHAR(20), Prénom
CHAR(20));"
End Sub
Le message erreur dit que la variable est mal défini ! ! !
Si quelqu'un peut m'aider ! !
merci


Bonjour, TOF

Si tu n'utilises pas NouvelleSession pour autre chose, déclare-le comme
String.
Sinon, utilise la ligne suivante pour l'initialiser:
Set NouvelleSession = InputBox("Nom de la table ? ")
Je ne suis pas tout à fait sûr pour cette ligne mais, si j'ai fait une
erreur, on ne manquera pas de me corriger.

Bonne continuation

Avatar
Ilan
Bonjour essaie peut-être en définissant la variable NouvelleSession en tant
que string et non objet.


Bonjour,

A priori dans cette commande il y a une erreur que je ne vois pas :

Option Compare Database
Dim NouvelleSession As Object

Private Sub Commande49_Click()

NouvelleSession = InputBox("Nom de la table ? ")
DoCmd.RunSQL "CREATE TABLE " & NouvelleSession & " (Nom CHAR(20), Prénom
CHAR(20));"

End Sub

Le message erreur dit que la variable est mal défini ! ! !

Si quelqu'un peut m'aider ! !

merci