Vba access inputbox + createtable

frogisback Messages postés 2 Statut Membre -  
frogisback Messages postés 2 Statut Membre -
Bonjour a tous,

Premiers pas dans ce forum, et grand debutant en VBA... j'espere poster mon message a la bonne place...

Voila : dans le VBA access, je veux creer une table dans une bdd, et je veux nomer cette table via un nom saisi dans une Input box. pour l'instant j'ai ca :
Sub mysub()
Dim Name As String
Name = Inputbox("Enter name:")
Dim dbs As Database

Set dbs = CurrentDb

dbs.Execute "CREATE TABLE Name" _
& "(FirstName CHAR, LastName CHAR);"
End Sub

comme vous, experts, le voyez, la table se cree bien, mais le nom n'est pas celuis saisi dans l'inputbox, et la je seche !!!

merci de votre aide, et mes excuses encore si ce message n'est pas a la bonne place.
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. frogisback Messages postés 2 Statut Membre
     
    Bonjour a tous,

    Premiers pas dans ce forum, et grand debutant en VBA... j'espere poster mon message a la bonne place...

    Voila : dans le VBA access, je veux creer une table dans une bdd, et je veux nomer cette table via un nom saisi dans une Input box. pour l'instant j'ai ca :
    Sub mysub()
    Dim Name As String
    Name = Inputbox("Enter name:")
    Dim dbs As Database

    Set dbs = CurrentDb

    dbs.Execute "CREATE TABLE Name" _
    & "(FirstName CHAR, LastName CHAR);"
    End Sub

    comme vous, experts, le voyez, la table se cree bien, mais le nom n'est pas celuis saisi dans l'inputbox, et la je seche !!!

    merci de votre aide, et mes excuses encore si ce message n'est pas a la bonne place.
    0