Bonjour,
apres divers essais et lecture de la faq access et de la recherche du forum,
je me suis servi de la faq a ces deux endroits
http://access.developpez.com/faq/?page=zdl#AbsDsListe
http://access.developpez.com/faq/?page=zdl#AddItem
pour créer mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Commande93_Click() Dim NewData As String Dim Response As Integer NewData = Me.Modifiable91.Value If Msgbox("Voulez-vous ajouter " & NewData & " à la liste des secteurs d'activité ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then Me!Modifiable91.RowSource = Me!Modifiable91.RowSource & ";" & Chr(34) + "" & Me.Modifiable91.Value & "" + Chr(34) End If End Sub
qui a pour but d'ajouter la valeur courante de la zone de liste modifiable dans la liste des valeurs de base afin de la retrouver plus tard sans avoir a la retaper, en cliquant sur un bouton ( la commande93). Rien de bien extraordinaire
ce que je ne comprend pas, c'est que la liste est bien mise a jour sur le formulaire courant ( je peux aller a l'enregistrement précédent et la retrouver ) mais n'est pas sauvegardée quand on quitte le formulaire ( je ne retrouve plus la valeur rentrée juste avant , passer en mode création pour vérifier la source de ce controle : meme effet, plus rien n'a été ajouté )
Pour moi ca voudrait dire que soit la source n'est pas mise a jour soit elle est écrasée. J'ai bien essayé de supprimer dans la table source la liste de valeurs correspondante et ne la laisser que sur le formulaire mais aucun effet
Quelqu'un saurait ou j'ai oublié une option ou autre?
Partager