Discussion :

[symphyle]

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 :

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

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

[pc75]

Bonjour,

Ca ne serait pas plutot ?

Code :

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

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

[symphyle]

Non Toujours la meme chose :



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

[Domi2]

Bonjour,

Déjà cette ligne, je pense

Code :

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

Dim mini_projet As DAO.Database

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

Domi2

[symphyle]

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

[Domi2]

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

[symphyle]

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

[symphyle]

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