Variable objet non définie (erreur d'execution 91)

Le
Natou
Bonjour,

J'ai l'erreur "Variable objet non dfinie" (erreur 91),
sous VBA Access 2000, l'excution du code suivant:

Dim too As ADODB.Field

too = CurrentDb.TableDefs("MaTable").Fields("Nom")


Merci de votre aide,

Natou
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
www.eztree-msdn.com \( Laurent Jordi \)
Le #5007051
Salut

@ Mon avis il manque "Set" devant pour récupérer l'objet ou le nom de la
proipriété à la fin ".value" par exemple...

@+

LJ
www.eztree-msdn.com

"Natou" news:1960601c41c83$773b1230$
Bonjour,

J'ai l'erreur "Variable objet non définie" (erreur 91),
sous VBA Access 2000, à l'exécution du code suivant:

Dim too As ADODB.Field

too = CurrentDb.TableDefs("MaTable").Fields("Nom")


Merci de votre aide,

Natou
Charles ERNST
Le #5006861
En ADO, Field est un objet d'un recordset, c'est à dire d'une table ou une
vue ouverte
Tabledefs est un objet DAO
Regardez l'objet colums de l'objet ADOX Table

Sub CreateTable()

Dim tbl As New Table
Dim cat As New ADOX.Catalog

'Ouvre le catalogue.
' Ouvre le catalogue.
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:Program FilesMicrosoft Office" & _
"OfficeSamplesNorthwind.mdb;"

tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl

End Sub




"Natou" news:1960601c41c83$773b1230$
Bonjour,

J'ai l'erreur "Variable objet non définie" (erreur 91),
sous VBA Access 2000, à l'exécution du code suivant:

Dim too As ADODB.Field

too = CurrentDb.TableDefs("MaTable").Fields("Nom")


Merci de votre aide,

Natou
Publicité
Poster une réponse
Anonyme