VBA Acces Créer une table où son nom et les noms des colonnes sont entrés par l’utilisateur dans inputbox

Il s’agit ici de créer une table dans une autre base de données ou son nom ainsi que les noms des colonnes sont entré par l’utilisateur dans une inputbox et ce moyennant le code VBA.

L'utilité de cette astuce est de pouvoir créer une table sans sortir de l'application Access concernée. En outre nous pouvons créer des tables en fonction des résultats d'un module ou une fonction VBA exécutée.

Sub CREER_TABLE_5()

Dim dbs As DAO.Database

Dim PATH As String

Dim NOM(4), Nomtable As String

Dim SQL As String

    'CRER UNE TABLE AVEC 5 COLONE TEXTE entré par l'utilisateur

   Nomtable = InputBox("Entrez le nom de la table à créer")

   

    For i = 1 To 5

    NOM(i - 1) = InputBox("Entrez le nom de la colone numero " & i, "Colone" & i)

    Next

   

PATH = CurrentProject.PATH

Set dbs = OpenDatabase(PATH & "\BASE_EXTERNE.accdb")

       

dbs.Execute ("CREATE TABLE " & Nomtable _

    & "( " _

     & NOM(0) & " CHAR ," _

   & NOM(1) & " CHAR ," _

   & NOM(2) & " CHAR ," _

    & NOM(3) & " CHAR ," _

     & NOM(4) & " CHAR " _

    & " ) ;")

End Sub

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.