Discussion :

[Nanille]

Bonjour,
J'ai plusieurs formulaires dans ma base de donnée. J'en ai un qui me permet d'entrer un enregistrement en saisissant certaines données dans des champs texte et en choisissant dans des listes déroulantes(formulaire 1). J'ai également sur ce formulaire des boutons qui permettent, si le choix à faire dans la liste déroulante n'est pas présent, d'accéder à un formulaire de saisie d'une nouvelle donnée pour le champ en question (formulaire 2).
Quand je rempli ce formulaire (2), je valide et retourne au premier formulaire afin de finir de le compléter.
Je retrouve bien mon choix dans la liste déroulante, mais j'aimerais qu'il soit directement sélectionné.
Je me demande si c'est possible.
J'ai voulu faire en sorte que se soit le dernier enregistrement de la table 2 qui soit présent dans le champs mais je veux que ça ne soit le cas que lorsqu'on vient d'en ajouter un.
Je ne sais pas si je suis assez compréhensible dans mes explications.
Mais si quelqu'un peut m'éclairer, il est le bienvenu !

Merci d'avance

[madefemere]

Bonjour,

Quand tu valides dans ton Form2 (J'imagine que tu as une zone de texte d'identification unique de l'enregistrement - IdVal). Tu as un code.

Intégrer ces actions:

Code :

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

1
2
3
DoCmd.RunCommand acCmdSaveRecord 'Sauvegarder l'enregistrement dans la table par un 
Forms!Form1!CboTaListeDeroulante.Requery 'Rafraichir la liste déroulante selon nouvelle donnée
Forms!Form1!CboTaListeDeroulante = IdVal ' Attribuer la nouvelle valeur

Et tu quittes le formulaire Form2.

@+

[Nanille]

Ça marche parfaitement, merci
Petite question subsidiaire, ce formulaire 2 à un lien avec d'autres formulaires également.
Je peux rajouter une condition If ou quelque chose pour lui dire de faire ce que dit le code que si le formulaire 1 est ouvert ?
Sinon je dupliquerais le formulaire mais ça risque d'être lourd.

[madefemere]

Oui, tu peux le faire en utilisant CurrentProject.AllForms("LeFormulaire1").IsLoaded pour vérification.

@+

[Nanille]

Il me met : "erreur de compilation : utilisation incorrecte de la propriété en surlignant ".IsLoaded" quand j'ajoute la ligne ( je l'ai mise après le DoCmd)

[madefemere]

Comme ça ? :

Code :

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

1
2
3
4
5
DoCmd.RunCommand acCmdSaveRecord 'Sauvegarder l'enregistrement dans la table par un 
If CurrentProject.AllForms("Form1").IsLoaded then
     Forms!Form1!CboTaListeDeroulante.Requery 'Rafraichir la liste déroulante selon nouvelle donnée
     Forms!Form1!CboTaListeDeroulante = IdVal ' Attribuer la nouvelle valeur
End If

[Nanille]

J'avais oublié le If ... correction faite après avoir envoyé le message, et je n'ai pas eu le temps d'en reposter un.
Merci beaucoup à toi en tous cas, problème résolu !