Discussion :

[SylvainJ]

Bonjour,

J'ai quasiment systématiquement un message d'erreur toujours au même endroit dans mon programme (en gras) me disant que le moteur de base de données n'a pas trouvé l'objet Table_essai. Pourtant la table existe bien.
Lorsque que je passe en mode pas à pas, je n'ai plus cette erreur.
Je ne sais pas comment m'en sortir.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
CurrentDb.Execute "SELECT * INTO Table_essai FROM Table_intermediaire WHERE (((Table_intermediaire.[" & JOUR & "])=Yes)"

      'Si Table_essai n'est pas vide, on fait les traitement
      Dim rst_pasVide As ADODB.Recordset
      Set rst_pasVide = New ADODB.Recordset
      
      rst_pasVide.Open "SELECT * FROM Table_essai", cnx
      If Not rst_pasVide.EOF Then

      End If

[milia]

Tu n'auras pas oublié quelque chose? ton cnx il est déclaré où?

est-ce que tu fais ça avant ta ligne qui ne fonctionne pas?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim cnx As New ADODB.Connection
Set cnx = CurrentProject.Connection

[SylvainJ]

Je n'avais pas oublié, mais c'était très mal codé.
J'ose à peine le mettre, mais si ca peut aider qq1 à ne pas faire les mêmes aneries:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Set cnx = New ADODB.Connection
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = "E:\Sylvain\sylvain.mdb"
cnx.Open

Ca ne devait pas bcp lui plaire que j'essaie d'ouvrir la base déjà ouverte (je sais..., j'ai honte).

J'ai fait 2 tests avec ta solution, ca marche au poil. Pb résolu, merci bcp.