Discussion :

[symphyle]

Bonjour,

J'ai mis en place une base de données contenant un certain nombre de formulaires.
Il se trouve, par exemple, que lorsque je sélectionne le deuxième enregistrement via les boutons de mon formulaire et que je ferme ce dernier, le nom du champ de ce second enregistrement vient écraser le premier.

J'ai essayé de modifier les options dans propriété du formulaire (onglet donnée, NON sur modifier, ajout etc ...) mais cela rends inutilisable la zone de liste ou le menu déroulant (on ne peut plus cliquer pour sélectionner un champ).

Merci par avance de votre aide,

Symph

[Siguillaume]

Bonjour,

Il se trouve, par exemple, que lorsque je sélectionne le deuxième enregistrement via les boutons de mon formulaire et que je ferme ce dernier, le nom du champ de ce second enregistrement vient écraser le premier.

en es-tu sûr?

As-tu vérifié dans tes tables que l'enregistrement en question n'existe plus?
Je crois non.

Il s'agit tout simplement d'un problème d'affichage dans le formulaire. Alors peux-tu être plus explicite?

[symphyle]

Non l'enregistrement est bel et bien effacé au profit d'un autre.

Par exemple j'ai un formulaire cinéma faisant référence a une table cinéma contenant une liste de cinémas Nom, Adresse, et N°Cinéma pour les identifier.

- J'ouvre le formulaire cinéma. Je sélectionne un nom de cinéma a l'aide de la liste déroulante. Cet événement est censé afficher dans le champ de texte en dessous l'adresse correspondante.7

- Dans ce formulaire j'ai créée un bouton fermer pour quitter ce formulaire.

- J'observe en bas du formulaire une barre indiquant sur quel enregistrement on se trouve et des flèches de navigations ...

- Quand je sélectionne le deuxième cinéma dans la liste et que je clique. L'adresse s'affiche correctement dans le champ du dessous mais quand je ferme le formulaire le nom du premier cinéma a été remplacé par celui du deuxième cinéma (celui que j'avais sélectionné dans la liste pour connaître son adresse).

Voici mon code :

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
Private Sub Cinéma_liste_Change()
Dim mini_projet As DAO.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 & "'")
'Set eng = mini_projet.OpenRecordset("Cinéma")
While eng.EOF = False
    Cinéma_nom.Value = eng.Fields("Nom").Value
    cinéma_adresse.Value = eng.Fields("Adresse").Value
    eng.MoveNext
Wend
eng.Close
End Sub

Symph

[User]

Salut,

normal tu modifie un Textbox ayant une source(champ "nom" de ta table cinéma),
en fait il te faut agir sur le recordset clone,

avec un code du style

Code :

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

1
2
3
4
5
6
7
Me.Filter = ""
 
Set eng = Me.Recordset.Clone
 
eng.FindFirst "[nom] = '" & nomCinéma & "'"
 
Me.Bookmark = eng.Bookmark

de plus,
avec ta boucle:

Code :

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

1
2
3
4
5
While eng.EOF = False
    Cinéma_nom.Value = eng.Fields("Nom").Value
    cinéma_adresse.Value = eng.Fields("Adresse").Value
    eng.MoveNext
Wend

Tu parcours tous les enregistrement de ta requête ,
et a chaque fois tu stockes ces valeurs dans les contrôles de ton formulaire...

conclusion, a la fin les contrôles Cinéma_nom et cinéma_adresse contiennent toujours le "nom" et l'"adresse" du dernier enregistrement de ta requête...

@+