Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Méthode d'ouverture d'un recordset sur une table répliquée

Méthode d'ouverture d'un recordset sur une table répliquée

1 réponse
Avatar
Laurent
Bonjour/bonsoir,

Je désespère en tentant d'ouvrir un recordset sur une table répliquée qui
s'appelle "missions" (et c'est bien son petit nom que je peux lire)

A chaque fois que j'arrive sur la ligne de déclarations, l'application me
renvoie un Mismatch Error (Code 13).

Quelqu'un a-t-il une idée sur ce que je fais de faux ?

Merci de votre aide et bonne soirée.

Laurent

------------------------------

On Error GoTo ProcError

'Declarations

Dim ws As Workspace
Dim db0 As Database
Dim rs0 As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db0 = ws.Databases(0)
Set rs0 = db0.OpenRecordset("missions", dbOpenDynamic) ' C'est ici que
l'erreur se produit

rs0.movelast
rs0.movefirst

Do Until rs0.EOF

debug.print "MA VALEUR : " & rs0.fields(0).value

Loop

rs0.close
db0.close
ws.close
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gou
Bonjour,

Je puis témoigner d'un problème vécu et de ma façon de le contourner, en
espérant que cela puisse aider.

J'ai déjà eu un problême en inscrivant :
Set rstRecordSet = CurrentDb().Openrecordset ("maTable", dbOpenTable)

J'ai alors repris la commande de la façon suivant :
Set rstRecordSet = CurrentDb().Openrecordset ("SELECT * FROM maTable",
dbOpenDynaset)

Je ne puis cependant expliquer pourquoi j'avais rencontré une erreur au
premier ??!



Bonjour/bonsoir,

Je désespère en tentant d'ouvrir un recordset sur une table répliquée qui
s'appelle "missions" (et c'est bien son petit nom que je peux lire)

A chaque fois que j'arrive sur la ligne de déclarations, l'application me
renvoie un Mismatch Error (Code 13).

Quelqu'un a-t-il une idée sur ce que je fais de faux ?

Merci de votre aide et bonne soirée.

Laurent

------------------------------

On Error GoTo ProcError

'Declarations

Dim ws As Workspace
Dim db0 As Database
Dim rs0 As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db0 = ws.Databases(0)
Set rs0 = db0.OpenRecordset("missions", dbOpenDynamic) ' C'est ici que
l'erreur se produit

rs0.movelast
rs0.movefirst

Do Until rs0.EOF

debug.print "MA VALEUR : " & rs0.fields(0).value

Loop

rs0.close
db0.close
ws.close