probleme avec creation de menus

bonjour
sous acces 97 j'essai de creer un menu avec le generateur automatique
de menu. mais a chaque fois que je lance le formulaire 'menu general'
ainsi cree j'ai un message d'erreur
"erreur de compilation
projet ou bibliotheque introuvable"

quand je clique sur ok j'ai un point arret


Private Sub FillOptions() <--- EN JAUNE avec une fleche devant
' Initialise les options pour cette page de Menu Général.

' Nombre de boutons sur le formulaire.
Const conNombreBoutons = 8

Dim bds As Database <--- EN SURBRILLANCE BLEU
Dim rst As Recordset
Dim chaîneSQL As String
Dim intOption As Integer


'Initialise le focus au premier bouton dans le formulaire,
' et masque tous les boutons du formulaire
' sauf le premier. Vous ne pouvez pas masquer le champ avec le
focus.
Me![Option1].SetFocus
For intOption = 2 To conNombreBoutons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption

' Ouvre la table des éléments du Menu Général, et cherche
' le premier élément pour cette page.
Set bds = CurrentDb()
chaîneSQL = "SELECT * FROM [Éléments du Menu Général]"
chaîneSQL = chaîneSQL & " WHERE [ItemNumber] > 0 AND
[SwitchboardID]=" & Me![SwitchboardID]
chaîneSQL = chaîneSQL & " ORDER BY [ItemNumber];"
Set rst = bds.OpenRecordset(chaîneSQL)

' S'il n'y a pas d'options pour cette page de Menu Général,
' un message est affiché. Autrement, remplit la page avec les
éléments.
If (rst.EOF) Then
Me![OptionLabel1].Caption = "Il n'y a pas d'éléments pour
cette page de Menu Général"
Else
While (Not (rst.EOF))
Me("Option" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Caption > rst![ItemText]
rst.MoveNext
Wend
End If

' Ferme le recordset et la base de données.
rst.Close
bds.Close

End Sub

a votre avis ce peut venir d'ou ?

salutation
lionel

Bonjour.

il s'agit d'un problème de référence.

alt+F11, outils / références
Déchocher les références marquées manquantes.
cocher la référence microsoft DAO 3.6 Object library
Dans le code:
Remplacer database par DAO.database
remplacer Recordset par DAO.RecordSet

Recompiler, sauvegarder.

Bonjour.

il s'agit d'un problème de référence.

alt+F11, outils / références
Déchocher les références marquées manquantes.
cocher la référence microsoft DAO 3.6 Object library
Dans le code:
Remplacer database par DAO.database
remplacer Recordset par DAO.RecordSet

Recompiler, sauvegarder.

On Wed, 24 Aug 2005 08:57:38 +0200, "Raymond [mvp]"
<XYZ.officesystem.access@free.fr> wrote:
rebonjour

dans outils j'ai referance qui est en grisee
il manque des trucs ?
salutation
lionel

Ne serais-tu pas dans une base mde ?

peux-tu afficher le code vba ?

On Wed, 24 Aug 2005 14:11:30 +0200, "Raymond [mvp]"
<XYZ.officesystem.access@free.fr> wrote:
bonjour
bhe le format de la base est en mdb. lorque je suis dans les
formulaire et que je clique sur le formulaire menu general ca plante
en ouvrant une fenetre form_menu general : class mouss
et le code saffiche avec un popup qui dit erreur de compillation
proget ou bibliotheque introuvable.

j'ai fait une install normal il faut aussi installer les outils de
devellopement ?

salutation
lionel

Ne serais-tu pas dans une base mde ?

peux-tu afficher le code vba ?

difficile à distance.
faut remettre la base propre:
ré-importe tous les objets dans une base vierge
passe en vb editor
outils / références : cocher DAO3.6
compiler
si erreurs cocher les références nécessaires et/ou corriger les erreurs
sauvegarder