Création table automatique

Question

Bonjour, 

Un formulaire me donne les valeurs des champs d'une base de donn&#233;e (par mode assistant). Aussi, l'appui sur un bouton doit entrainer la cr&#233;ation ou l'ajout de donn&#233;e d'une table devant porter le nom des champs actuels (tuples) vis&#233;s par le formulaire. 

Voici ce que j'ai commenc&#233; &#224; taper: 

Code: 


Code:
,
----

Private Sub Commande14_Click()

Set QueryDef = CurrentDb.CreateQueryDef([Cr&#233;ation_table], [CREATE TABLE nom_de_la_table])
End Sub

Seulement, nom_de_la_table doit faire r&#233;f&#233;rence &#224; la variable du m&#234;me nom r&#233;cup&#233;rant la valeur du champs actuels (comme code_interne)
Code: 


Code:
,
----

CODE_INTERNE_BeforeUpdate(Cancel As Integer)

et je n'ai pas r&#233;ussi &#224; le faire. 
Cela dit je ne suis pas s&#251;r que par programmation la table portera effectivement ce nom.
Ensuite, comment tester qu'une table existe d&#232;j&#224; pour ajouter des tuples &#224; l'int&#233;rieur, ou en cr&#233;er une nouvelle?
Merci de vos r&#233;ponses

cs_jperre · Answer

Ton code de Commande14_Click() me parraît inutilement compliqué, j'aurais écrit :
CurrentDb.Execute "CREATE TABLE" & NomTable & "(Champ1 TypeDonnée1, Champ2 TypeDonnée2,...);"
Déjà, avec ce code, tu peux changer le nom de la table avec une variable string.

Ensuite, pour savoir si une table existe, il faut balayer la colection TableDefs de la base de données :
Public Function TableExist(TableName As String) As Boolean
  Dim bd as Database, td As TableDef
  Set bd=CurrenDb
  For Each td In TableDefs
      If td.Name=TableName Then
         TableExist=True
         Exit For
      End If
  Next td
End Function
Et pour eviter l'erreur de doublons :
Dim bRep as Byte
...
If TableExist(TableName) Then
   Beep
   bRep=MsgBox("La table " & TableName & " existe déjà!..." & vbCrLf & "Voulez vous la remplacer?...", vbQuestion+vbYesNo+vbDefaultButton2, "La table existe déjà")
   If bRep=vbYes Then
      bd.Execute "DROP TABLE " & TableName & ";"
      bd.Execute "CREATE TABLE " & TableName & "(Champ1 TypeDeDonnée1,...);"
   Else
      Exit Sub
   End If
Else
   bd.Execute "CREATE TABLE " & TableName & "(Champ1 TypeDeDonnée1,...);"
End If
...

Bon courage!...

Création table automatique

1 réponse

Discussions similaires