Discussion :

[zinini]

Bonjour,

J'ai un problème dans ma base de données, lorsque je lance une recherche, le message 'impossible d'ouvrir une base de données' s'affiche, alors que j'ai une seule base de données.
Il pointe souvent sur cette ligne de code:

Code :

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

1
2
3
4
5
Set rs4 = CurrentDb().OpenRecordset("SELECT count(*) AS NB " & _ 
"FROM (SELECT DISTINCT NumSite FROM tbl_contrat_fac_site_societe, " & _ 
"tbl_prospect_societe WHERE Not (isnull(tbl_contrat_fac_site_societe.NumSite)) And " & _
"tbl_contrat_fac_site_societe.NumSociete=tbl_prospect_societe.NumSociete " & _
"And tbl_prospect_societe.NumProspect=" & Me.RechProspect & ")")

Je voudrais savoir ce que cela veut dire exactement, et qu'est ce qu'il faut que je fasse pour ce message disparaisse.

Merci de votre aide

Zinini

[argyronet]

Bonjour,

Combien de fois est appelée cette procédure par jour ?
Mets un compteur pour voir jusqu'à l'apparition du message...

Code :

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

1
2
3
4
5
Static Compteur As Interger
 
Set rs4 = CurrentDb().OpenRecordset("SELECT ...
Compteur = Compteur + 1
Debug.Print Compteur

Argy

[polo(31)]

lorsque tu passe a la ligne utilise "& _" et non pas "_"

[Dolphy35]

lorsque tu passe a la ligne utilise "& _" et non pas "_"

Ce n'est pas une erreur de zinini, c'est moi qui qui a mis son code dans les balises et sur plusieurs lignes
j'ai corrigé.
c'est la fatigue.

[polo(31)]

ah ok
bon je disai ça je disai rien moi

[argyronet]

En fait, il y a de fortes chance que la procédure où se situe RS4 soit exécutée trop de fois et que RS4 ne soit jamais fermé... Même si Microsoft Access "ferme automatiquement" ces types d'objets il est probable que des instances persistent et le message apparaît alors.
Il ne faut pas laisser le code tel que et la fermeture explicite du Recordset est impérative.

Au fait, quelle est la version d'Access utilisée ?

Argy