Bonjour,
Je ne maîtrise pas access et en voulant faire une recherche dans la base, j'ai eu le message : ERREUR DE COMPILATION: sub ou function non définie. Sous la petite fenêtre d'erreur, il y a le texte suivant:
Private Sub rechercheNom_Click()
Dim dbLocal As Database 'base de données actuelle
Dim recEntreprise As DAO.Recordset 'le recordset qui contiendra le résultat
Dim RecEntrepriseCherchee As QueryDef 'l'objet même décrivant la requête
Dim nomEntrepriseCherchee As String
Dim numeroEntrepriseCherchee
nomEntrepriseCherchee = InputBox("Veuillez saisir un nom", "Recherche d'une Entreprise", XPos:=2000, YPos:=2000)
Set dbLocal = CurrentDb()
Set RecEntrepriseCherchee = dbLocal.QueryDefs("RRechercheEntrepriseNom")
RecEntrepriseCherchee("Nom de l'entreprise") = nomEntrepriseCherchee
Set recEntreprise = RecEntrepriseCherchee.OpenRecordset()
u numeroEntrepriseCherchee = recEntreprise!NumEntreprise
La phrase du début :
Private Sub rechercheNom_Click() est en jaune
et la phrase de fin : !NumEntreprise est en gris
Je ne peux donc pas faire de recherche. Comment puis-je faire pour résoudre ce problème? Merci de votre aide...