Récupérer la valeur rentrées dans une liste déroulante

Bonjour,

Un formulaire possède une liste déroulante dont les données se trouvent dans une table, ma liste affiche les données de la table, ok

Quand je veux ajouter des données à la table, je clique sur un bouton qui execute une macro m'ouvre la table en mode ajout et réactulise le tout .

J'aimerais gràce à l'événement notinlist, récupérer les données tapé par l'utilisateur dans la liste, ouvrir le formulaire d'ajout correspondant avec les données tapée dans le champ correspondant .

Et là ca pose problème c'est de la vrai programmation et je sais pas faire :)

edit: bout de code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Prod_nat_NotInList(NewData As String, Response As Integer) 'Charge la dans la variable "var1" la valeur de la liste Prod_nat Var1 = Me.Prod_nat.Value ' Ouvre production nationnale en mode ajout, boite de dialogue docmd.OpenForm ([Production Nationnale],,,, acformadd,acDialog,)     End Sub

---

Voila ma commande openform est foireuse, après il me reste à réussir à rentrer ma variable "Var1" dans un champ "Prod_nat" de ma table ou formulaire [Production Nationnale]

Ca avance je pense

Edit 2 : Ma table peut être soit modifié par un formulaire de remplissage, soit ouverte pour ajout par un bouton, ou encore par l'option Notinlist,

Edit 3: En attendant sur notinlist je vais mettre un Msgbox cliquez sur le bouton "ajouter" pour ajouter un nouveau Producteur :)

Edit 4: sinon je crée un formulaire de remplissage spécial événement Notinlist, avec une requete sur les données de mon formulaire de base, mais là ca va multiplier le nombre de formulaire vu que des liste j'en ai en pagaille :(

on peut mettre simplement

Code:

---

1 2	DoCmd.OpenForm "Production Nationnale", acNormal, , , acFormAdd, acWindowNormal, NewData

---

La nouvelle donnée est passée en paramètre au formulaire de saisie

A l'ouverture le second formulaire récupère le paramètre et l'affecte au champ désiré

Code:

---

1 2 3 4

Private Sub Form_Load() Me!NomChamp = OpenArgs End Sub

---

Bonjour,

Pourquoi ne pas utiliser les 2 variables prévues à cet effet (newdata et Response)

L'aide l'access détaille parfaitement cette manip par un code. Y-a plus qu'à.


Cordialement,

Super j'essaye cela demain matin !! Merci à vous deux:king:

Je pense ( sans avoir éssayé qu'il va y avoir un problème avec ton code Helas, en effet ton code va bien me rentrer la valeur dans le champ, mais ca le fait à l'ouverture du formulaire, donc dans tout les cas, hors mon formulaire n'est pas seulment ouvert par cette action, donc dans les autres cas, Accez risque de planter si la valeur est à Zéro, ou bien me mettre une valeur erronée car ancienne.

Je me trompe ?

dans ce cas à l'ouverture il faudrait mettre une condition, sur une variable général pour vérifier que l'on ouvre le formulaire dans le bon cas .


sur l'événement notinlist:

Code:

---

1 2 3 4

varx=1 DoCmd.OpenForm "Production Nationnale", acNormal, , , acFormAdd, acWindowNormal,

---

ouverture second formulaire:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Form_Load()   If varx = 1 then Me!NomChamp = OpenArgs   End if   End Sub

---

Tou en remettant à la fermeture de ce formulaire la variable X à 0.

Je me trompe ?

Rha je tiens le bon Bout !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Form_Load()   Public VarX As String Public VarY As String     End Sub     Private Sub Prod_nat_NotInList(NewData As String, Response As Integer)   If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Producteurs ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.OpenForm "Production Nationnale", acNormal, , , acFormAdd, acWindowNormal Response = acDataErrAdded VarX.Value = 1 Else Response = acDataErrContinue Prod_nat.Undo End If     End Sub

---

L'erreur , je n'arrive pas à charger ma variable X de la donnée 1 le code est pas bon

Bonjour,

C'est un peu obscur.

Une fois le formulaire de saisie ouvert il suffit d'y affecter la valeur.

Code:

---

Forms.monform.monchamp = newdata

---

Dans le cas ou il faut simplement rajouter la valeur sans autres saisies utilise plutot un recordset, tu te dispense de l'ouverture du formulaire.

Cordialement,

J'ai d'autre valeur à rentré dans mon formulaire d'ajout donc le record Set n'est pas possible :cry:

Oui j'avoue je me suis mal expliqué :oops:

Dans mon premier formulaire "A" , lors d'une saisie dans une ZDL, si la saisie ,n'existe pas dans la table de la ZDL, je veux lancer le formulaire d'ajout de cet table "B" avec la valeur déjà rentré dans la ZDL du formualaire A .

Le Hic, c'est que ce formulaire d'ajout "B" ne s'ouvre pas que comme ca, l'utilisateur peut aussi choisir d'ajouter une nouvelle entrée sans passer par le formulaire A,

Il faut donc que je mette une condition à l'ouverture pour vérifier " d'où viens la commande d'ouverture.

Donc en code :

Dans un module variable :

Code:

---

1 2 3 4

Option Compare Database   Public VarX As String Public VarY As String

---

Dans mon formulaire A sur l'événement notInList :

Code:

---

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

Private Sub Prod_nat_NotInList(NewData As String, Response As Integer)   If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Producteurs ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.OpenForm "B", acNormal, , , acFormAdd, acWindowNormal Response = acDataErrAdded VarX = "1" VarY = NewData   Else   Prod_nat.Undo End If     End Sub

---

et enfin dans mon formulaire B :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Load()   If VarX = "1" Then Me.Prod_nat = VarY   End If   End Sub

---

Là tout fonctionne, j'ai juste une boite de dialogue m'indiquant " Le texte entré n'est pas un élément de la liste. "

Il faut que je trouve si cette erreur vient du formulaire A ( qui possède des ZDL ) ou B qui n'a que des champs.

bon à priori ca vient de la liste du formulaire A, il faudrrait que je vire cette pop-up, je concois qu'elle arrive vu que la donnée rentré dans la ZDL n'est validé que lors de la fermeture du Formulaire B qui ajoute cette données dans la table .

Edit : Bon il faut que j'ajoute cette commande quelquepart :

Code:

---

DoCmd.Requery "Prod_nat"

---

Mais ou :)

Le message est conditionné par la valeur de Response. Il faut donc lui affecter la bonne valeur. Voir l'aide pour choisir le bon comportement.

d'après ce que je lis de l'aide

Code:

---

Response = acDataErrAdded

---

est fonctionnel dans le cas ou on ajoute directemnt la valeur dans la liste, sans passer par un formulaire à plusieur champs .

C'est donc là que viens le message.

donc d'après l'aide:
La plupart du temps, vous ne pouvez pas ajouter simplement un champ dans un nouvel enregistrement : selon la structure des données de la table, vous devrez probablement ajouter un ou plusieurs champs pour vous adapter aux données. Par exemple, un nouvel enregistrement doit inclure des valeurs pour les champs comportant la clé primaire. Si vous avez besoin d'ajouter en temps réel des éléments à une zone de liste modifiable, vous devez demander à l'utilisateur d'entrer des données pour tous les champs requis, d'enregistrer le nouvel enregistrement, puis d'actualiser la zone de liste modifiable pour afficher la nouvelle valeur.

Donc normalment , dans le SUb de fermeture de mon formulaire B, il faut que je mette un DocmdRequery pour rafraichir ma ZDL du formulaire A.

Code:

---

DocmdRequery Forms.A.ZDL

---

le code est bon ?

Plutot :

Code:

---

Forms.monform.maliste.requery

---

Avant tout merci des vos réponses . Gràce à vous j'avance, petit à petit dans un language que je ne connaît pas :yaisse2:


Pour ce qui est du

Code:

---

forms.monform.monliste.requery

---

si je le mets dans

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Form_Close()   Forms.A.table_nat.Requery 'remet les variables à 0 VarY = "0" VarX = "0"   End Sub

---

Acces me dit Propriété ou méthode non géré par cet objet.

J'en déduis que le ".requery" n'est pas valide dans le Form_close :(
dans ce cas comment dois je faire pour réactualiser ma liste du formulaire A quand je ferme le formulaire B :?

C'est la liste qui est mise à jour pas la table qui la contient.

Ton controle se nomme Prod_Nat et non Table_Nat ! :mouarf:

Tin oué me suis gouré en recopiant, mais malheuresment ca bug pareil :aie:

Code:

---

Forms.Concert.Prod_nat.Requery

---

L'écriture du code est bien :

Forms.nomformulaire.nomobjet.requery ?

est ce que je ne me crée pas des bug en ayant un "prod_nat" dans un formulaire ( une ZDL) et un champ "Prod_nat" dans une table ?

Voici comme je procède dans l'une de mes applis :


Dans Notinlist je met l'appel au formulaire (ici la liste contient des N° de contrats).

Code:

---

1 2 3 4 5 6 7 8

Response = acDataErrContinue If MsgBox("Ce contrat n'existe pas. Voulez-vous le créer ?", vbYesNo)= vbYes Then DoCmd.OpenForm "monform2", , , , acFormAdd Forms![monform2].N_CONTRAT = NewData Forms![monform2].N_CONTRAT.Locked = True AttenteFermeture Forms![monform2], Forms![monform2].N_CONTRAT Response = acDataErrAdded End If

---

fonction à placer dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function AttenteFermeture(ByRef NomForm As Form, valreturn As Control) ' attent la fermeture du formulaire pour continuer   ' Ligne d'appel : ' AttenteFermeture Forms!nom du formulaire Dim val On Error Resume Next ' évite le msg d'erreur au test form.visible ' à mettre le avant le loop Do DoEvents val = NomForm.valreturn Loop While NomForm.Visible   AttenteFermeture = val End Function

---

Pas de requery, pas de code dans form 2 et tant que le form 2 n'est pas fermé le code de form 1 ne s'execute pas.

Cordialement,

:yaisse2: Merci Loufab !!

J'essaye ton code de suite! Bon là j'avoue tu m'a filé direct le code, ce qui fait que c'est plus rapide, mais je perd en recherche/ apprentissage :) Mais fallait aussi boucler çà pour passer à autre chose :)

Merci !!

Pinaise Yes :king:

T'est le plus fort !

J'allais te poser la question de comment faire pour que ta formule devienne " générique" et puissent fonctionner avec toutes mes ZDLm, et ben non elle l'est c'est niquel cà évite de mettre trop de code pour faire la même chose , jolie !

Merci !