@ 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" a écrit dans le message de 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
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;"
"Natou" a écrit dans le message de 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
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;"
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;"