DAO append!!!!

Question

bonjour voila mon code,
le compilateur bloque sur MyTable2 dans le With de la fin.

Sub Fait_la_base()
 

Set MyDatabase = CreateDatabase("??", dbLangGeneral)

Set MyDatabase = OpenDatabase("??")

Set MyTable = MyDatabase.CreateTableDef("ResStation")

'delete the table if it already exists
'MyDatabase.TableDefs.Delete MyTable.name

With MyTable
  .Fields.Append .CreateField("Station  N°", dbInteger)
End With

Set MyTable2 = MyDatabase.CreateTableDef("ResExam_gnl_station")

With MyTable2
  .Fields.Append .CreateField("ANALYSEUR")
End With

With MyDatabase
    .TableDefs.Append MyTable
    .TableDefs.Append MyTable2
End With

MyDatabase.Close

End Sub

Merci.

guiguizz · Answer

Hello !!
Bon tu as fait une erreur toute simple.
Il faut OBLIGATOIREMENT que tu donnes un type au champs que tu crées.

Donc ce n'est pas :

With MyTable2
.Fields.Append .CreateField("ANALYSEUR")
End With

Mais plutot, par exemple :
With MyTable2
.Fields.Append .CreateField("ANALYSEUR", dbText)
End With

La liste des types acceptés est disponible dans MSDN (Type, propriété)

Si tu veux d'autres explications n'hésite pas

Guill

cs_papaours · Answer

ok  merci je continue mon aventure grace a toi :o)

DAO append!!!!

2 réponses

Discussions similaires