Discussion :

[xycoco]

Bonjour,

Je travaille sur un autre PC. J'ai fait attention à regarder si toutes mes références bibliothèque était là.

Mais apparemment j'ai loupé un truc.

Je suis dans un formulaire contenant une feuille excel et j'ai le message "bibliothèque manquante " sur l'action :"Set db = CurrentDb" du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Supprimer_Click()
    Dim MonCritère As String
    Dim MonCritère1 As String
        MonCritère = "C" & ActiveCell.Column & ".L" & ActiveCell.Row
        MonCritère1 = "Rge"
    If ActiveCell = "" Then
        MsgBox ("Il n'y a pas de bouteille à cet emplacement!")
    Else
        Dim MonSql As String
        Dim db As DAO.Database
        Dim tbl_Emplacement As DAO.Recordset
        Set db = CurrentDb

J'ai regardé dans mes références rien n'est indiqué comme manquant. Puis-je vous demander de l'aide?

Merci beaucoup

[Invité]

Bonjour

Il faut que tu actives Microsoft DAO 3.6 Object Library en le cochant.

Starec

[xycoco]

Bonjour,

Merci Starec.

Le problème, c'est que Microsoft DAO 3.6 Object Library était déjà coché.

J'ai essayé de réparer Access et là j'ai un autre message :

"La méthode 'Currentdb' de l'Objet '_Application' a échoué"

D'où vient mon problème?

Merci de votre aide

[xycoco]

est-ce que le problème peut venir du fait que je suis passé d'access 2003 à access 2002 ?

La seule référence qu'il me manquait était Microsoft Excel 11.0 Object Library que j'ai remplacer par la 10.0.

Quelle solution pour mon problème?

Merci d'avance.