Erreur dans code VBA

Bonjour,

Je dois créer une base de donnée pour sur le thème du Cinéma ... avec des tables Film, Réalisateur etc ...

Je suis amené à faire un formulaire avec un menu déroulant que j'ai appelé "Cinéma_liste" dans lequel figure les noms des cinémas dans la base de donnée. Chaque Cinéma possède un numéro identifiant, un nom et une adresse.

Le menu déroulant doit lister tous les nom de cinéma et quand je sélectionne un nom, l'adresse du cinéma sélectionné doit figurer dans le champ prévu a cet effet : cinéma_adresse ; juste en dessous du menu déroulant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Compare Database   Private Sub Cinéma_liste_AfterUpdate() Dim mini_projet As Database Set mini_projet = CurrentDb Dim nomCinéma As String nomCinéma = Me.Cinéma_liste.Value Dim eng As DAO.Recordset Set eng = mini_projet.OpenRecordset("Select Cinéma.[N°Cinéma], Cinéma.[Nom], Cinéma.[Adresse] from Cinéma where Cinéma.Nom='" & nomCinéma & "'") While eng.EOF = False Cinéma_nom.Value = Me.Cinéma_liste.Value cinéma_adresse.Value = eng.Fields("Adresse").Value & vbCrLf eng.MoveNext Wend eng.Close     End Sub

---

Une ou des erreurs se sont glissées dans mon code :(

Par avance merci pour vos réponses,

Symph :)

Bonjour,

Ca ne serait pas plutot ?

Code:

---

1 2	cinéma_adresse.Text = eng.Fields("Adresse").Value & vbCrLf

---

Non Toujours la meme chose :

http://img165.imageshack.us/img165/1...cessnh7.th.jpg

Erreur de compilation : Type défini par l'utilisateur non défini

Bonjour,

Déjà cette ligne, je pense

Code:

---

Dim mini_projet As DAO.Database

---

Et ne pas oublier de référencer Microsoft DAO x.x Object Library...

Domi2

Qu'entends tu par référencer Microsoft DAO x.x Object Library ?

Bonjour,

Dans l'éditeur VBA, menu Outils ==> Références...

Si la référence sus-indiquée n'est pas cochée, il faut parcourir la liste et la cocher. Cela devrait être selon toute probabilité la version 3.6.

Domi2

justement en cherchant sur divers forum je suis tombé sur cette explication mais je n'ai pas de "référencement" dans le menu outils.
Je suis sous access 2003.
J'ai cherché un peu partout mais rien trouvé ..



EDIT : Oups boulette, je n'ai rien dit ... erreur de débutant .. je test tout de suite

C'est bon ! Merci beaucoup de votre aide. Le Formulaire fonctionne à présent :)