type incompatibleRésolu

Question

Bonjour,

D&#233;butant en vb, j'ai ce message : type incompatible.
Voici le d&#233;but de mon code :

Dim geriex As Database
Dim tblins As TableDef
Dim fldid As Field
Dim sql As String
Dim sql1 As String
'Cr&#233;ation de la base Access
Set geriex = CreateDatabase("c:\geriex.mdb", dbLangGeneral)
'on ouvre la base creer
Set geriex = OpenDatabase("c:\geriex.mdb")
'on cree la table inscription
Set tblins = geriex.CreateTableDef("inscription") --> erreur ici
'on cree les champs
Set fldid = tblins.CreateField("id_inscription", dbText, 5)
tblins.Fields.Append fldid
geriex.TableDefs.Append tblins

qqn a une id&#233;e? 
Merci

cs_CanisLupus · Accepted Answer

Salut,

A part un probl&#232;me de r&#233;f&#233;rences, je ne vois pas.
J'ai test&#233; ton code avec "Microsoft DAO 3.51 ..." coch&#233; dans les r&#233;f&#233;rences du projet et &#231;a fonctionne.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Type incompatible

1 réponse

Discussions similaires