OVH Cloud OVH Cloud

incompatibilité de type

5 réponses
Avatar
Stéphane CROZETIERE
Bonjour à tous.
Avant de poser cette question, j'ai regardé les posts précédents, mais je
n'ai pas trouvé de réponse.
J'ai le code suivant :

Private Sub Commande0_Click()

Dim Mydb As Database
Dim MySet As Recordset

Set Mydb = CurrentDb()
Set MySet = Mydb.OpenRecordset("Table1", DB_OPEN_TABLE)

End Sub

Simple non ?
Eh bien lorsque je clique, j'ai
" Erreur d'exécution '13'
Incompatibilité de type"

Table1 est bien créée.

Autre bizarrerie. Avec des bases que j'avais fait il y a quelques mois, je
n'ai pas ce problème, seulement avec les nouvelles. Les référence sont
exactement les mêmes, notamment la DAO 3.6.

Une solution ?

5 réponses

Avatar
Stéphane CROZETIERE
Finalement, j'ai relu les posts.
Il faut que DAO 3.6 soit avant ActiveX Data

"Stéphane CROZETIERE" a écrit dans le message
de news: eyF8X#
Bonjour à tous.
Avant de poser cette question, j'ai regardé les posts précédents, mais je
n'ai pas trouvé de réponse.
J'ai le code suivant :

Private Sub Commande0_Click()

Dim Mydb As Database
Dim MySet As Recordset

Set Mydb = CurrentDb()
Set MySet = Mydb.OpenRecordset("Table1", DB_OPEN_TABLE)

End Sub

Simple non ?
Eh bien lorsque je clique, j'ai
" Erreur d'exécution '13'
Incompatibilité de type"

Table1 est bien créée.

Autre bizarrerie. Avec des bases que j'avais fait il y a quelques mois, je
n'ai pas ce problème, seulement avec les nouvelles. Les référence sont
exactement les mêmes, notamment la DAO 3.6.

Une solution ?





Avatar
Pierre CFI [mvp]
et çà me fait une réponse en moins :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Stéphane CROZETIERE" a écrit dans le message de news:
Finalement, j'ai relu les posts.
Il faut que DAO 3.6 soit avant ActiveX Data

"Stéphane CROZETIERE" a écrit dans le message
de news: eyF8X#
Bonjour à tous.
Avant de poser cette question, j'ai regardé les posts précédents, mais je
n'ai pas trouvé de réponse.
J'ai le code suivant :

Private Sub Commande0_Click()

Dim Mydb As Database
Dim MySet As Recordset

Set Mydb = CurrentDb()
Set MySet = Mydb.OpenRecordset("Table1", DB_OPEN_TABLE)

End Sub

Simple non ?
Eh bien lorsque je clique, j'ai
" Erreur d'exécution '13'
Incompatibilité de type"

Table1 est bien créée.

Autre bizarrerie. Avec des bases que j'avais fait il y a quelques mois, je
n'ai pas ce problème, seulement avec les nouvelles. Les référence sont
exactement les mêmes, notamment la DAO 3.6.

Une solution ?









Avatar
J-Pierre
Pierre

Comme si on allait croire que tu le savais :-)))))

Stéphane,

Il faut TOUJOURS qualifier de manière exhaustive:

Dim Mydb As DAO.Database
Dim MySet As DAO.Recordset

et tu n'auras plus jamais le problème de l'ordre des références.

J-Pierre
Avatar
Pierre CFI [mvp]
.../...
je ne sais plus, une grippe sauvage commence à m'envahir
je vois (dans un délire) des jeunes loups tourner autour de moi, je vais leur donner 3stone à bouffer d'abord.. :o))))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"J-Pierre" a écrit dans le message de news:
Pierre

Comme si on allait croire que tu le savais :-)))))

Stéphane,

Il faut TOUJOURS qualifier de manière exhaustive:

Dim Mydb As DAO.Database
Dim MySet As DAO.Recordset

et tu n'auras plus jamais le problème de l'ordre des références.

J-Pierre




Avatar
Stéphane CROZETIERE
Merci pour cette précision.

"J-Pierre" a écrit dans le message de
news:
Pierre

Comme si on allait croire que tu le savais :-)))))

Stéphane,

Il faut TOUJOURS qualifier de manière exhaustive:

Dim Mydb As DAO.Database
Dim MySet As DAO.Recordset

et tu n'auras plus jamais le problème de l'ordre des références.

J-Pierre